diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 4c1df13482..61031c73d5 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,15 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-04-20 22:27 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * contrib/hbide/hbide.prg + + Implemented: last "View" to be presented at startup. + Before it was always "Stats" view. + + * contrib/hbide/idetools.prg + ! Fixed ::execTool() public method to behave properly throgh + Keyboard Mappings protocol. + 2010-04-19 17:13 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbxbp/tests/demoxbp.prg % One more :destroy() call. diff --git a/harbour/contrib/hbide/hbide.prg b/harbour/contrib/hbide/hbide.prg index 54921bc4fc..37cbaf1a7b 100644 --- a/harbour/contrib/hbide/hbide.prg +++ b/harbour/contrib/hbide/hbide.prg @@ -321,7 +321,7 @@ METHOD HbIde:new( aParams ) /*----------------------------------------------------------------------*/ METHOD HbIde:create( aParams ) - LOCAL qPixmap, qSplash, n + LOCAL qPixmap, qSplash, n, cView HB_TRACE( HB_TR_ALWAYS, "HbIde:create( cProjIni )", "#Params=" ) @@ -385,6 +385,9 @@ HB_TRACE( HB_TR_ALWAYS, "HbIde:create( cProjIni )", "#Params=" ) ::cWrkView := ::aINI[ INI_HBIDE, CurrentView ] ::cWrkHarbour := ::aINI[ INI_HBIDE, CurrentHarbour ] + /* Store to restore when all preliminary operations are completed */ + cView := ::cWrkView + /* Load Code Skeletons */ hbide_loadSkltns( Self ) @@ -492,6 +495,7 @@ HB_TRACE( HB_TR_ALWAYS, "HbIde:create( cProjIni )", "#Params=" ) ::oDK:setView( "Stats" ) ELSE ::oDK:setView( "Stats" ) + ::oDK:setView( cView ) ENDIF ::showApplicationCursor() @@ -504,7 +508,7 @@ HB_TRACE( HB_TR_ALWAYS, "HbIde:create( cProjIni )", "#Params=" ) ::nEvent := AppEvent( @::mp1, @::mp2, @::oXbp ) IF ::nEvent == xbeP_Quit - HB_TRACE( HB_TR_ALWAYS, "----------------- xbeP_Quit" ) + HB_TRACE( HB_TR_ALWAYS, "---------------- xbeP_Quit" ) hbide_saveINI( Self ) EXIT ENDIF diff --git a/harbour/contrib/hbide/idetools.prg b/harbour/contrib/hbide/idetools.prg index dc331c598e..1e348fe933 100644 --- a/harbour/contrib/hbide/idetools.prg +++ b/harbour/contrib/hbide/idetools.prg @@ -155,7 +155,7 @@ METHOD IdeToolsManager:destroy() ::clearList() ::disconnect( ::qPanelsButton, "clicked()" ) - + ::disconnect( ::oUI:q_buttonAdd , "clicked()" ) ::disconnect( ::oUI:q_buttonDelete, "clicked()" ) ::disconnect( ::oUI:q_buttonUp , "clicked()" ) @@ -449,8 +449,8 @@ METHOD IdeToolsManager:execTool( ... ) cParams := aParam[ 2 ] cParams := iif( "http://" $ lower( cParams ), cParams, hbide_pathToOSPath( cParams ) ) cStayIn := hbide_pathToOSPath( aParam[ 3 ] ) - lCapture := aParam[ 4 ] == "YES" - lOpen := aParam[ 5 ] == "YES" + lCapture := iif( hb_isLogical( aParam[ 4 ] ), aParam[ 4 ], aParam[ 4 ] == "YES" ) + lOpen := iif( hb_isLogical( aParam[ 5 ] ), aParam[ 5 ], aParam[ 5 ] == "YES" ) ENDIF IF hb_isLogical( lCapture )