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

2010-03-20 11:25 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbide/hbide.ch
  * contrib/hbide/hbide.prg
  * contrib/hbide/idefunctions.prg
  * contrib/hbide/idesaveload.prg
    + Implemented: auto-loading the last "Re-tagged" functions
      prototype. It may take some time but it is done at the 
      background, so user will never experience the difference.
      You can start working on any other aspect of hbIDE.
This commit is contained in:
Pritpal Bedi
2010-03-20 18:28:56 +00:00
parent cfe571a6e3
commit dd856e4f5e
5 changed files with 47 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -17,6 +17,16 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-03-20 11:25 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbide/hbide.ch
* contrib/hbide/hbide.prg
* contrib/hbide/idefunctions.prg
* contrib/hbide/idesaveload.prg
+ Implemented: auto-loading the last "Re-tagged" functions
prototype. It may take some time but it is done at the
background, so user will never experience the difference.
You can start working on any other aspect of hbIDE.
2010-03-20 18:51 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* bin/postinst.bat
! Fixed/cleaned latest modification, removed redundancy.

5
harbour/contrib/hbide/hbide.ch
View File

@@ -71,9 +71,10 @@
#define INI_RECENTPROJECTS 7
#define INI_FOLDERS 8
#define INI_VIEWS 9
#define INI_GENERAL 10
#define INI_TAGGEDPROJECTS 10
#define INI_GENERAL 11
#define INI_SECTIONS_COUNT 10
#define INI_SECTIONS_COUNT 11
/* INI_HBIDE */

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

@@ -503,6 +503,9 @@ hbide_dbg( "HbIde:create( cProjIni )", "#Params=" )
qSplash:close()
//qSplash := NIL
/* Load tags last tagged projects */
::oFN:loadTags( ::aINI[ INI_TAGGEDPROJECTS ] )
DO WHILE .t.
::nEvent := AppEvent( @::mp1, @::mp2, @::oXbp )

26
harbour/contrib/hbide/idefunctions.prg
View File

@@ -120,7 +120,7 @@ CLASS IdeFunctions INHERIT IdeObject
METHOD jumpToFunction( cWord )
METHOD positionToFunction( cWord, lShowTip )
METHOD buildTags()
METHOD loadTags()
METHOD loadTags( aProjects )
METHOD listProjects()
METHOD clearProjects()
METHOD getMarkedProjects()
@@ -425,20 +425,22 @@ METHOD IdeFunctions:enableControls( lEnable )
::oUI:q_editFunction:setEnabled( lEnable )
::showApplicationCursor( iif( lEnable, NIL, Qt_WaitCursor ) )
::showApplicationCursor( iif( lEnable, NIL, Qt_BusyCursor ) )
RETURN Self
/*----------------------------------------------------------------------*/
METHOD IdeFunctions:loadTags()
LOCAL cProjectTitle, cProjFile, cTagFile, aTags, n
METHOD IdeFunctions:loadTags( aProjects )
LOCAL cProjectTitle, cProjFile, cTagFile, aTags, n, a_
LOCAL lPopulate := .f.
LOCAL a_:= ::getMarkedProjects()
IF empty( a_ )
DEFAULT aProjects TO ::getMarkedProjects()
IF empty( aProjects )
RETURN Self
ENDIF
a_:= aProjects
IF !( ::inAction )
::enableControls( .f. )
@@ -481,11 +483,13 @@ METHOD IdeFunctions:buildTags()
LOCAL cProjectTitle
LOCAL a_:= ::getMarkedProjects()
FOR EACH cProjectTitle IN a_
::tagProject( cProjectTitle )
NEXT
::clearProjects()
IF !empty( a_ )
FOR EACH cProjectTitle IN a_
::tagProject( cProjectTitle )
NEXT
::oIde:aINI[ INI_TAGGEDPROJECTS ] := a_
::clearProjects()
ENDIF
RETURN Self

17
harbour/contrib/hbide/idesaveload.prg
View File

@@ -204,6 +204,13 @@ hbide_dbg( "hbide_saveINI( oIde )", 0, oIde:nRunMode, oIde:cProjIni )
FOR n := 1 TO len( oIde:aIni[ INI_VIEWS ] )
aadd( txt_, "view_" + hb_ntos( n ) + "=" + oIde:aIni[ INI_VIEWS, n ] )
NEXT
aadd( txt_, "[TAGGEDPROJECTS]" )
aadd( txt_, " " )
FOR n := 1 TO len( oIde:aIni[ INI_TAGGEDPROJECTS ] )
aadd( txt_, "taggedproject_" + hb_ntos( n ) + "=" + oIde:aIni[ INI_TAGGEDPROJECTS, n ] )
NEXT
aadd( txt_, " " )
aadd( txt_, "[General]" )
aadd( txt_, " " )
@@ -277,6 +284,9 @@ FUNCTION hbide_loadINI( oIde, cHbideIni )
CASE "[FOLDERS]"
nPart := INI_FOLDERS
EXIT
CASE "[TAGGEDPROJECTS]"
nPart := INI_TAGGEDPROJECTS
EXIT
CASE "[VIEWS]"
nPart := INI_VIEWS
EXIT
@@ -328,7 +338,7 @@ FUNCTION hbide_loadINI( oIde, cHbideIni )
ENDIF
CASE nPart == INI_RECENTPROJECTS .OR. ;
nPart == INI_RECENTFILES
nPart == INI_RECENTFILES
IF hbide_parseKeyValPair( s, @cKey, @cVal )
IF Len( oIde:aIni[ nPart ] ) < 25
@@ -349,6 +359,11 @@ FUNCTION hbide_loadINI( oIde, cHbideIni )
aadd( oIde:aIni[ nPart ], cVal )
ENDIF
CASE nPart == INI_TAGGEDPROJECTS
IF hbide_parseKeyValPair( s, @cKey, @cVal )
aadd( oIde:aIni[ nPart ], cVal )
ENDIF
ENDCASE
EXIT
ENDSWITCH