diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1024019904..4f423d95da 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-01-25 12:24 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * contrib/hbide/hbide.prg + ! Important Fix. + 2010-01-25 08:29 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbide/ideprojmanager.prg ! Code optimization. diff --git a/harbour/contrib/hbide/hbide.prg b/harbour/contrib/hbide/hbide.prg index 5aa81a6f1d..dcf8028b67 100644 --- a/harbour/contrib/hbide/hbide.prg +++ b/harbour/contrib/hbide/hbide.prg @@ -946,7 +946,7 @@ METHOD HbIde:manageProjectContext( mp1, mp2, oXbpTreeItem ) aadd( aPops, { "Load Project" , {|| ::oPM:loadProperties( , .f., .f., .t. ) } } ) aadd( aPops, { "" } ) // - IF !empty( ::oEV:getNames ) + IF !empty( ::oEV:getNames() ) aadd( aPops, { "" } ) FOR EACH s IN ::oEV:getNames() aadd( aSub, { s , {|x| ::cWrkEnvironment := x, ::oDK:dispEnvironment( x ) } } ) @@ -975,15 +975,14 @@ METHOD HbIde:manageProjectContext( mp1, mp2, oXbpTreeItem ) aadd( aPops, { "Launch" , {|| ::oPM:launchProject( oXbpTreeItem:caption ) } } ) aadd( aPops, { "" } ) aadd( aPops, { "Close This Project" , {|| ::oPM:closeProject( oXbpTreeItem:caption ) } } ) - /* - IF !empty( ::oEV:getNames ) + IF !empty( ::oEV:getNames() ) aadd( aPops, { "" } ) FOR EACH s IN ::oEV:getNames() aadd( aSub, { s , {|x| ::cWrkEnvironment := x, ::oDK:dispEnvironment( x ) } } ) NEXT aadd( aPops, { aSub, "Select an environment" } ) ENDIF - */ + hbide_ExecPopup( aPops, mp1, ::oProjTree:oWidget ) CASE ::aProjData[ n, TRE_TYPE ] == "Source File"