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

fix to prev

Browse Source
This commit is contained in:
Viktor Szakats
2007-11-12 00:21:14 +00:00
parent 7477bf4448
commit 58d5aab3fd
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/utils/hbdoc/rtf.prg
View File

@@ -318,6 +318,8 @@ Local cItem:=' '
Local nPos:=0
Local nSize:=Len(aLink)
HB_SYMBOL_UNUSED( lAlink )
if nSize >2
For nPos:=1 to nSize
if nPos==nSize

10
harbour/utils/hbmake/pickarry.prg
View File

@@ -68,8 +68,6 @@ LOCAL lIsChecked := .f.
LOCAL aItems := IN_ARRAY
LOCAL aTemp
LOCAL cItem
LOCAL cItem1
LOCAL cTemp
LOCAL cOldColor := Setcolor()
DEFAULT lAllowAll TO .F.
@@ -100,9 +98,9 @@ DEFAULT lLib to .F.
FOR EACH cItem IN aDefault
if !lLib
x := AScan( IN_ARRAY, { | a, y | SubStr( a, 4, At(' ', alltrim(a) ) - 1 ) == cItem } )
x := AScan( IN_ARRAY, { | a | SubStr( a, 4, At(' ', alltrim(a) ) - 1 ) == cItem } )
else
x := AScan( IN_ARRAY, { | a, y | alltrim(cItem) IN a } )
x := AScan( IN_ARRAY, { | a | alltrim(cItem) $ a } )
endif
IF x != 0
@@ -116,9 +114,9 @@ DEFAULT lLib to .F.
cItem := SubStr( cItem, Rat( '\', cItem ) - 1 )
if !lLib
x := AScan( aTemp, { | a, y | SubStr( a, 4, At( ' ', a ) - 1 ) == cItem } )
x := AScan( aTemp, { | a | SubStr( a, 4, At( ' ', a ) - 1 ) == cItem } )
else
x := AScan( IN_ARRAY, { | a, y | alltrim(cItem) IN a } )
x := AScan( IN_ARRAY, { | a | alltrim(cItem) $ a } )
endif
IF x != 0