diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a767b50f68..0cb8e51899 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,12 @@ The license applies to all entries newer than 2009-04-28. */ +2011-07-25 13:02 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbide/idemain.prg + + Implemented: Order of "Functions List" is remembered as per + last setting initiated by the user via context menu. The order + can be "Natural" or "Ascending". + 2011-07-23 15:08 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/hbwin/olecore.c ! fixed to use Harbour STR API instead of hardcoded ANSI CP for diff --git a/harbour/contrib/hbide/idemain.prg b/harbour/contrib/hbide/idemain.prg index a70b3ace8a..37fd872e95 100644 --- a/harbour/contrib/hbide/idemain.prg +++ b/harbour/contrib/hbide/idemain.prg @@ -330,6 +330,8 @@ CLASS HbIde DATA oSys DATA oSysMenu + DATA lSortedFuncList INIT .t. + METHOD new( aParams ) METHOD create( aParams ) METHOD destroy() @@ -1445,7 +1447,9 @@ METHOD HbIde:manageProjectContext( mp1, mp2, oXbpTreeItem ) METHOD HbIde:updateFuncList( lSorted ) LOCAL a_:={} - DEFAULT lSorted TO .t. + DEFAULT lSorted TO ::lSortedFuncList + + ::lSortedFuncList := lSorted ::oFuncList:clear() IF !empty( ::aTags )