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

2009-11-22 22:27 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* contrib/hbide/hbide.prg
  * contrib/hbide/idetags.prg
    ! Changed the way <Function List> was being populated.
    ! Fixed to not enter in Editing mode when double-clicked in <Function List>.
This commit is contained in:
Pritpal Bedi
2009-11-23 06:31:57 +00:00
parent c0df906c25
commit fb442bc0f4
3 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -17,6 +17,12 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-11-22 22:27 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbide/hbide.prg
* contrib/hbide/idetags.prg
! Changed the way <Function List> was being populated.
! Fixed to not enter in Editing mode when double-clicked in <Function List>.
2009-11-23 02:13 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* src/rtl/diskspac.c
* src/rtl/disksphb.c

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

@@ -344,7 +344,8 @@ METHOD HbIde:updateFuncList()
::oFuncList:clear()
IF !empty( ::aTags )
aeval( ::aTags, {|e| ::oFuncList:addItem( e[ 2 ] + " " + e[ 5 ] ) } )
// aeval( ::aTags, {|e| ::oFuncList:addItem( e[ 2 ] + " " + e[ 5 ] ) } )
aeval( ::aTags, {|e_| ::oFuncList:addItem( e_[ 7 ] ) } )
ENDIF
RETURN Self
@@ -793,7 +794,8 @@ METHOD HbIde:gotoFunction( mp1, mp2, oListBox )
mp1 := oListBox:getData()
mp2 := oListBox:getItem( mp1 )
IF ( n := ascan( ::aTags, {|e| mp2 == e[ 2 ] + " " + e[ 5 ] } ) ) > 0
//IF ( n := ascan( ::aTags, {|e| mp2 == e[ 2 ] + " " + e[ 5 ] } ) ) > 0
IF ( n := ascan( ::aTags, {|e_| mp2 == e_[ 7 ] } ) ) > 0
cAnchor := trim( ::aText[ ::aTags[ n,3 ] ] )
IF !( ::aTabs[ ::nCurTab, 2 ]:find( cAnchor, QTextDocument_FindCaseSensitively ) )
::aTabs[ ::nCurTab, 2 ]:find( cAnchor, QTextDocument_FindBackward + QTextDocument_FindCaseSensitively )
@@ -818,6 +820,7 @@ METHOD HbIde:buildFuncList()
::oFuncList:setStyleSheet( GetStyleSheet( "QListView" ) )
::oFuncList:setColorBG( GraMakeRGBColor( { 210,120,220 } ) )
::oFuncList:ItemMarked := {|mp1, mp2, oXbp| ::gotoFunction( mp1, mp2, oXbp ) }
::oFuncList:oWidget:setEditTriggers( QAbstractItemView_NoEditTriggers )
::oDockR:oWidget:setWidget( QT_PTROFXBP( ::oFuncList ) )

4
harbour/contrib/hbide/idetags.prg
View File

@@ -173,8 +173,8 @@ FUNCTION UpdateTags( cModule, aSummary, aSumData, aFuncList, aLines )
aSumData[ i,2 ],;
cModule ,;
cSyntax ,;
0 ,;
cSource ;
cType ,;
Iif( cType = "METH", ":", "" ) + cSyntax ;
};
)
ENDIF