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

2012-08-28 17:50 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
+ contrib/hbide/resources/dictionary.png
  + contrib/hbide/resources/launch_r.png
  * contrib/hbide/hbide.qrc
  * contrib/hbide/actions.prg
  * contrib/hbide/functions.prg
  * contrib/hbide/main.prg
    + Implemented: creation of .tag file usable as a dictionary.
       The activation is :
         <Project Tree><Projact Name><Right-Click><Create .tag Dictionary>
       Dictionary will be created in same folder where .hbp resides 
       having same name with extention .tag. Thus created tags are not 
       populated in the existing list of tags.
This commit is contained in:
Pritpal Bedi
2012-08-29 02:41:58 +00:00
parent 3f239f3ee8
commit a1493439a5
7 changed files with 23 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/contrib/gtwvg/tests/wvgmodal.prg
View File

@@ -162,7 +162,7 @@ FUNCTION DialogAlert( cCaption, aText_, aButtons_, sel, aMessage_, nTop, nTime )
next
ENDIF
setcursor( 0 )
SetCursor( 0 )
SetColor( 'N/W' )
CLS

5
harbour/contrib/hbide/actions.prg
View File

@@ -259,7 +259,7 @@ METHOD IdeActions:loadActions()
aadd( aAct, { "InsertExternalFile" , "~External File at Cursor" , "insert-external-file", "", "No", "Yes" } )
aadd( aAct, { "InsertSeparator" , "~Separator" , "insert-separator", "F7" , "No", "Yes" } )
aadd( aAct, { "switchReadOnly" , "Switch Read~Only Mode" , "readonly" , "" , "No", "Yes" } )
aadd( aAct, { "Properties" , "Properties" , "" , "" , "No", "Yes" } )
aadd( aAct, { "Properties" , "Properties" , "properties" , "" , "No", "Yes" } )
aadd( aAct, { "ProjAddSource" , "Add Source to Project" , "projectadd" , "" , "No", "Yes" } )
aadd( aAct, { "ProjRemSource" , "Remove Source" , "projectdel" , "" , "No", "Yes" } )
aadd( aAct, { "ProjMainModule" , "Select Main Module" , "setmain" , "" , "No", "Yes" } )
@@ -271,7 +271,7 @@ METHOD IdeActions:loadActions()
aadd( aAct, { "ReBuildLaunch" , "Rebuild and Launch Project" , "rebuildlaunch" , "" , "No", "Yes" } )
aadd( aAct, { "Compile" , "Compile Current Source" , "compile" , "" , "No", "Yes" } )
aadd( aAct, { "CompilePPO" , "Compile Current Source to PPO", "ppo" , "" , "No", "Yes" } )
aadd( aAct, { "LaunchProject" , "Launch Project" , "" , "^F10" , "No", "Yes" } )
aadd( aAct, { "LaunchProject" , "Launch Project" , "launch_r" , "^F10" , "No", "Yes" } )
aadd( aAct, { "ConfigureTools" , "Configure Tools...*" , "" , "" , "No", "Yes" } )
aadd( aAct, { "CuiEditor" , "CUI Screen Edirot" , "cuied" , "" , "No", "Yes" } )
aadd( aAct, { "UISrcManager" , "UI Source Manager" , "fileprg" , "" , "No", "Yes" } )
@@ -325,6 +325,7 @@ METHOD IdeActions:loadActions()
aadd( aAct, { "SplitClose" , "Close Splitted Instance" , "split_close" , "" , "No", "Yes" } )
aadd( aAct, { "SplitH" , "Split Horizontally" , "split_h" , "" , "No", "Yes" } )
aadd( aAct, { "SplitV" , "Split Vertically" , "split_v" , "" , "No", "Yes" } )
aadd( aAct, { "Dictionary" , "Create .tag Dictionary" , "dictionary" , "" , "No", "Yes" } )
RETURN aAct

18
harbour/contrib/hbide/functions.prg
View File

@@ -111,7 +111,7 @@ CLASS IdeFunctions INHERIT IdeObject
METHOD destroy()
METHOD clear( lHdrAlso )
METHOD show()
METHOD tagProject( cProjectTitle )
METHOD tagProject( cProjectTitle, lGUI )
METHOD populateTable()
METHOD consolidateList()
METHOD buildHeader()
@@ -517,14 +517,18 @@ METHOD IdeFunctions:buildTags()
/*----------------------------------------------------------------------*/
METHOD IdeFunctions:tagProject( cProjectTitle )
METHOD IdeFunctions:tagProject( cProjectTitle, lGUI )
LOCAL aSumData := ""
LOCAL cComments, aSummary, cPath, cSource, cExt, aTags, aText, aFuncList, aLines
LOCAL cProjFile, cRoot, aCTags, aSources, cSrc, a_, n
LOCAL qApp := QApplication()
hb_default( lGUI, .T. )
IF !( ::inAction )
::enableControls( .f. )
IF lGUI
::enableControls( .f. )
ENDIF
cProjFile := ::oPM:getProjectFileNameFromTitle( cProjectTitle )
aSources := ::oPM:getSourcesByProjectTitle( cProjectTitle )
@@ -573,10 +577,12 @@ METHOD IdeFunctions:tagProject( cProjectTitle )
hb_memowrit( hb_FNameExtSet( cProjFile, ".tag" ), hb_serialize( aCTags ) )
::consolidateList()
::populateTable()
IF lGUI
::consolidateList()
::populateTable()
::enableControls( .t. )
::enableControls( .t. )
ENDIF
ENDIF
RETURN cProjFile

2
harbour/contrib/hbide/hbide.qrc
View File

@@ -325,6 +325,8 @@
<file>resources/dc_class.png</file>
<file>resources/dc_procedure.png</file>
<file>resources/stringify.png</file>
<file>resources/dictionary.png</file>
<file>resources/launch_r.png</file>
<file>docs/faq.htm</file>
</qresource>
</RCC>

7
harbour/contrib/hbide/main.prg
View File

@@ -1444,14 +1444,14 @@ METHOD HbIde:manageProjectContext( mp1, mp2, oXbpTreeItem )
IF !( Alltrim( Upper( ::cWrkProject ) ) == Alltrim( Upper( oXbpTreeItem:caption ) ) )
aadd( aPops, { "Set as Current" , {|| ::oPM:setCurrentProject( oXbpTreeItem:caption ) } } )
End
aadd( aPops, { "Properties" , {|| ::oPM:loadProperties( cHbp, .f., .t., .t. ) } } )
aadd( aPops, { ::oAC:getAction( "Properties" ), {|| ::oPM:loadProperties( cHbp, .f., .t., .t. ) } } )
aadd( aPops, { "" } )
aadd( aPops, { ::oAC:getAction( "BuildQt" ), {|| ::oPM:buildProject( oXbpTreeItem:caption, .F., , , .T. ) } } )
aadd( aPops, { ::oAC:getAction( "BuildLaunchQt" ), {|| ::oPM:buildProject( oXbpTreeItem:caption, .T., , , .T. ) } } )
aadd( aPops, { ::oAC:getAction( "ReBuildQt" ), {|| ::oPM:buildProject( oXbpTreeItem:caption, .F., .T., , .T. ) } } )
aadd( aPops, { ::oAC:getAction( "ReBuildLaunchQt" ), {|| ::oPM:buildProject( oXbpTreeItem:caption, .T., .T., , .T. ) } } )
aadd( aPops, { "" } )
aadd( aPops, { "Launch" , {|| ::oPM:launchProject( oXbpTreeItem:caption ) } } )
aadd( aPops, { ::oAC:getAction( "LaunchProject" ), {|| ::oPM:launchProject( oXbpTreeItem:caption ) } } )
aadd( aPops, { "" } )
aadd( aPops, { "Remove Project" , {|| ::oPM:removeProject( oXbpTreeItem:caption ) } } )
IF !empty( ::oEV:getNames() )
@@ -1461,6 +1461,9 @@ METHOD HbIde:manageProjectContext( mp1, mp2, oXbpTreeItem )
NEXT
aadd( aPops, { aSub, "Select an environment" } )
ENDIF
aadd( aPops, { "" } )
aadd( aPops, { ::oAC:getAction( "Dictionary" ), {|v| v := ::oFN:tagProject( ::aProjData[ n, TRE_ORIGINAL ], .F. ), ;
MsgBox( iif( Empty( v ), "Not Succeeded", v ), "Dictionary Creation" ) } } )
hbide_ExecPopup( aPops, mp1, ::oProjTree:oWidget )

BIN
harbour/contrib/hbide/resources/dictionary.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.3 KiB

BIN
harbour/contrib/hbide/resources/launch_r.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.4 KiB