More xBrowse & 13.05 problem

[TimStone]

In the past, using the following syntax with an xBrowse, I can click on a header and reset the order of the index:

add to oLbxcl header "Account" data oCli:acrnum ALIGN CENTER ORDER "eclnum" SIZE 120

Now, this capability which has been working for years no longer responds to the mouse click !

I just released an update to my clients not knowing about this. A quick fix would be GREATLY appreciated.

Tim

[nageswaragunupudi]

Please apply this fix:
In xbrowse.prg, go to lines 5798. You will find this code:

Code: Select all  Expand view

  if ncOrder != nil
      oCol:cSortOrder := ncOrder
      if ::nDataType == DATATYPE_RDD .and. ! Empty( ::cAlias ) .and. SELECT( ::cAlias ) > 0
 

Please insert a new line

Code: Select all  Expand view

   ::lAutoSort   := .t.
 

after the line oCol:cSortOrder := ncOrder
The revised code should look like this:

Code: Select all  Expand view

  if ncOrder != nil
      oCol:cSortOrder := ncOrder
      ::lAutoSort     := .t.   // INSERTED NOW
      if ::nDataType == DATATYPE_RDD .and. ! Empty( ::cAlias ) .and. SELECT( ::cAlias ) > 0
 

Please let us know if the problem is fixed.