fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-04-20 22:27 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* 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.
This commit is contained in:
Pritpal Bedi
2010-04-21 05:32:37 +00:00
parent b560452746
commit b28dd57b91
3 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -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.

8
harbour/contrib/hbide/hbide.prg
View File

@@ -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

6
harbour/contrib/hbide/idetools.prg
View File

@@ -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 )