Sorry I am not fully awake yet. This is not valid syntax:
::oFunList:SetItems( ASort( Upper( aFuncs ) ) )
What I meant was that we cannot just convert all the data in aFuncs to uppercase before sorting because it will then be displayed in all uppercase which is not what we want.
I think this will do it:
::oFunList:SetItems( ASORT(aFuncs,,, { |x, y| UPPER(x) < UPPER(y) }) )
METHOD FillFuncList() CLASS TFivedit
local nLines := ::oEditor:GetLineCount(), n
local aFuncs := {}, aTemp := {}, cToken, cLine
local a, nItem := 0
::aFunLines = {}
for n = 1 to nLines
cToken = Lower( Left( cLine := LTrim( ::oEditor:GetLine( n ) ), 4 ) )
if cToken $ "static func,func,proc,clas,meth,hb_f"
AAdd( aTemp, { cLine, n, n, Upper( cLine ) } )
endif
if cToken $ "retu" .or. Left( cToken, 1 ) == "}"
if ! Empty( ATail( aTemp ) )
ATail( aTemp )[ 3 ] = n
endif
endif
next
ASort( aTemp,,, { | x, y | x[ 1 ] < y[ 1 ] } )
for n = 1 to Len( aTemp )
AAdd( ::aFunLines, { aTemp[ n ][ 2 ], aTemp[ n ][ 3 ] } )
next
ASort( aTemp,,, { | x, y | x[ 4 ] < y[ 4 ] } )
for n = 1 to Len( aTemp )
AAdd( aFuncs, aTemp[ n ][ 1 ] )
next
::oFunList:SetItems( aFuncs )
return nil
Its failing to properly jump
Still something to fix...
METHOD FillFuncList() CLASS TFivedit
local nLines := ::oEditor:GetLineCount(), n
local aFuncs := {}, aTemp := {}, cToken, cLine
local a, nItem := 0
::aFunLines = {}
for n = 1 to nLines
cToken = Lower( Left( cLine := LTrim( ::oEditor:GetLine( n ) ), 4 ) )
if cToken $ "static func,func,proc,clas,meth,hb_f"
AAdd( aTemp, { cLine, n, n, Upper( cLine ) } )
endif
if cToken $ "retu" .or. Left( cToken, 1 ) == "}"
if ! Empty( ATail( aTemp ) )
ATail( aTemp )[ 3 ] = n
endif
endif
next
ASort( aTemp,,, { | x, y | x[ 4 ] < y[ 4 ] } )
for n = 1 to Len( aTemp )
AAdd( ::aFunLines, { aTemp[ n ][ 2 ], aTemp[ n ][ 3 ] } )
AAdd( aFuncs, aTemp[ n ][ 1 ] )
next
::oFunList:SetItems( aFuncs )
return nilMETHOD FillFuncList() CLASS TFivedit
local nLines := ::oEditor:GetLineCount(), n
local aFuncs := {}, aTemp := {}, cToken, cLine
::aFunLines = {}I am getting an error when trying to compile the editor.
Error prsht.h 1081 1: '#endif' before '#if'
This file is part of Borland 582.
I am using FWH ver 13.04
Any ideas?
James,
viewtopic.php?p=147360#p147360
You need FWH 15.01 to build Fivedit, as new methods and enhancements were needed.
OK, I already have it downloaded but I haven't installed it yet.
The sorting works great now.
When looking a the jumplist I notice that all methods are listed twice--once for the class definition and once again for the actual method code. I think other editors ignore the keyword triggers (function, method, etc) when they are indented, thus the class definition method is ignored. This would be a nice feature to add.
I like the addition of the "class" keyword in the jumplist. I have not seen this with my other editors, but I have missed not having it.
James,
I think it is quite usefull to have methods listed twice, one for the Class header and another for the implementation.
Using that, I just found that method BuildProject() was missing lDebug parameter in the Class header 
Its a great way to check that the Class header methods and the implemented methods names match.
Hey, testing it I just found some more to fix
Dear Antonio,
For learning purpose:
would you be so kind to post the part where you handle the resizing.
Thank you in advance
Otto
