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

2010-07-26 15:40 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* contrib/hbide/hbide.prg
  * contrib/hbide/idebrowse.prg
  * contrib/hbide/ideedit.prg
    % Fixed: a bug in code completion flush in FIELD-> and ALIAS-> section.
This commit is contained in:
Pritpal Bedi
2010-07-26 22:40:58 +00:00
parent 68997e7ec6
commit 7551d9b39e
4 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -16,6 +16,12 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-07-26 15:40 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbide/hbide.prg
* contrib/hbide/idebrowse.prg
* contrib/hbide/ideedit.prg
% Fixed: a bug in code completion flush in FIELD-> and ALIAS-> section.
2010-07-26 14:57 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
* contrib/hbxbp/xbpmenubar.prg
% Fixed: a nasty bug.

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

@@ -581,7 +581,7 @@ METHOD HbIde:create( aParams )
::oXbp:handleEvent( ::nEvent, ::mp1, ::mp2 )
ENDDO
::oBM:destroy()
DbCloseAll()
#if 0

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

@@ -357,7 +357,7 @@ METHOD IdeBrowseManager:fetchFldsList( cAlias )
FOR EACH aBrw IN oPanel:aBrowsers
oBrw := aBrw[ SUB_BROWSER ]
FOR EACH a_ IN oBrw:aStruct
aadd( aFlds, pad( a_[ 1 ], 10 ) + " (" + padc( oBrw:cTableOnly, 12 ) + ")" + str( a_:__enumIndex(),3,0 ) + ", " + a_[ 2 ] + ", " + str( a_[ 3 ],3,0 ) + ", " + hb_ntos( a_[ 4 ] ) )
aadd( aFlds, pad( a_[ 1 ], 10 ) + " (" + padc( oBrw:cTableOnly, 12 ) + ")" + str( a_:__enumIndex(),3,0 ) + ", " + a_[ 2 ] + ", " + str( a_[ 3 ],3,0 ) + ", " + hb_ntos( a_[ 4 ] ) + " [f]" )
NEXT
NEXT
NEXT
@@ -365,7 +365,7 @@ METHOD IdeBrowseManager:fetchFldsList( cAlias )
OTHERWISE
IF ! empty( oBrw := ::getBrowserByAlias( cA ) )
FOR EACH a_ IN oBrw:aStruct
aadd( aFlds, pad( a_[ 1 ], 10 ) + " ( " + str( a_:__enumIndex(),3,0 ) + ", " + a_[ 2 ] + ", " + str( a_[ 3 ],3,0 ) + ", " + hb_ntos( a_[ 4 ] ) + " )" )
aadd( aFlds, pad( a_[ 1 ], 10 ) + " ( " + str( a_:__enumIndex(),3,0 ) + ", " + a_[ 2 ] + ", " + str( a_[ 3 ],3,0 ) + ", " + hb_ntos( a_[ 4 ] ) + " )" + " [f]" )
NEXT
ENDIF
EXIT

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

@@ -2223,7 +2223,10 @@ METHOD IdeEdit:parseCodeCompletion( cSyntax )
nSpc := at( " ", cSyntax )
nFun := at( "(", cSyntax )
IF nAbr > 0 .AND. iif( nSpc == 0, .t., nAbr < nSpc ).AND. iif( nFun == 0, .t., nAbr < nFun )
IF "[f]" $ cSyntax
cText := alltrim( substr( cSyntax, 1, nSpc ) )
ELSEIF nAbr > 0 .AND. iif( nSpc == 0, .t., nAbr < nSpc ).AND. iif( nFun == 0, .t., nAbr < nFun )
cText := alltrim( substr( cSyntax, nAbr + 1 ) )
ELSE
@@ -2234,7 +2237,7 @@ METHOD IdeEdit:parseCodeCompletion( cSyntax )
cText := trim( cSyntax )
ENDIF
ELSE
IF nFun > 0 .AND. nFun < nSpc
IF nFun > 0 .AND. iif( nSpc == 0, .t., nFun < nSpc )
cText := trim( substr( cSyntax, 1, nFun - 1 ) )
ELSE
cText := trim( cSyntax )