QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-19 21:25:11 +00:00
Code Issues Releases Wiki Activity

Config refactoring

Browse source 
- all files maintained in qb64pe/settings now and addressed using file name variables instead of hardcoded names
- maintain recent/search histories according to the limits set in Options>Undo/History... dialog (saved in config.ini)
- update recent files in the File Menu only when needed (i.e. right before the menu is displayed) rather than on every change to the history
This commit is contained in:
Roland Heyder 2024-07-15 15:22:04 +02:00
parent 0b70a26985
commit 390d20db0f
1 changed files with 74 additions and 66 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

140
source/ide/ide_methods.bas
View file

@ -509,7 +509,7 @@ FUNCTION ide2 (ignore)
PCOPY 3, 0: SCREEN , , 3, 0 PCOPY 3, 0: SCREEN , , 3, 0
IF r$ = "Y" THEN IF r$ = "Y" THEN
'restore 'restore
OPEN tmpdir$ + "undo2.bin" FOR BINARY AS #150 OPEN UndoFile$ FOR BINARY AS #150
IF LOF(150) THEN IF LOF(150) THEN
ideunsaved = 1 ideunsaved = 1
h$ = SPACE$(12): GET #150, , h$: p1 = CVL(MID$(h$, 1, 4)): p2 = CVL(MID$(h$, 5, 4)): plast = CVL(MID$(h$, 9, 4)) h$ = SPACE$(12): GET #150, , h$: p1 = CVL(MID$(h$, 1, 4)): p2 = CVL(MID$(h$, 5, 4)): plast = CVL(MID$(h$, 9, 4))
@ -1173,7 +1173,7 @@ FUNCTION ide2 (ignore)
'add undo event 'add undo event
OPEN tmpdir$ + "undo2.bin" FOR BINARY AS #150 OPEN UndoFile$ FOR BINARY AS #150
'[oldest state entry][newest state entry][top-most entry(ignore if no wrapping required)] '[oldest state entry][newest state entry][top-most entry(ignore if no wrapping required)]
h$ = SPACE$(12): GET #150, , h$: p1 = CVL(MID$(h$, 1, 4)): p2 = CVL(MID$(h$, 5, 4)): plast = CVL(MID$(h$, 9, 4)) h$ = SPACE$(12): GET #150, , h$: p1 = CVL(MID$(h$, 1, 4)): p2 = CVL(MID$(h$, 5, 4)): plast = CVL(MID$(h$, 9, 4))
@ -3425,7 +3425,7 @@ FUNCTION ide2 (ignore)
IF KCONTROL AND UCASE$(K$) = "Z" THEN 'undo (CTRL+Z) IF KCONTROL AND UCASE$(K$) = "Z" THEN 'undo (CTRL+Z)
idemundo: idemundo:
IF ideundopos THEN IF ideundopos THEN
OPEN tmpdir$ + "undo2.bin" FOR BINARY AS #150 OPEN UndoFile$ FOR BINARY AS #150
h$ = SPACE$(12): GET #150, , h$: p1 = CVL(MID$(h$, 1, 4)): p2 = CVL(MID$(h$, 5, 4)): plast = CVL(MID$(h$, 9, 4)) h$ = SPACE$(12): GET #150, , h$: p1 = CVL(MID$(h$, 1, 4)): p2 = CVL(MID$(h$, 5, 4)): plast = CVL(MID$(h$, 9, 4))
'does something exist to undo? 'does something exist to undo?
@ -3510,7 +3510,7 @@ FUNCTION ide2 (ignore)
IF KCONTROL AND UCASE$(K$) = "Y" THEN 'redo (CTRL+Y) IF KCONTROL AND UCASE$(K$) = "Y" THEN 'redo (CTRL+Y)
idemredo: idemredo:
IF ideundopos THEN IF ideundopos THEN
OPEN tmpdir$ + "undo2.bin" FOR BINARY AS #150 OPEN UndoFile$ FOR BINARY AS #150
h$ = SPACE$(12): GET #150, , h$: p1 = CVL(MID$(h$, 1, 4)): p2 = CVL(MID$(h$, 5, 4)): plast = CVL(MID$(h$, 9, 4)) h$ = SPACE$(12): GET #150, , h$: p1 = CVL(MID$(h$, 1, 4)): p2 = CVL(MID$(h$, 5, 4)): plast = CVL(MID$(h$, 9, 4))
'does something exist to redo? 'does something exist to redo?
@ -4426,6 +4426,7 @@ FUNCTION ide2 (ignore)
'-------------------------------------------------------------------------------- '--------------------------------------------------------------------------------
showmenu: showmenu:
IdeMakeFileMenu LEFT$(menu$(1, FileMenuExportAs), 1) <> "~" 'update recent files
altheld = 1 altheld = 1
IF IdeSystem = 2 THEN IdeSystem = 1: GOSUB UpdateSearchBar IF IdeSystem = 2 THEN IdeSystem = 1: GOSUB UpdateSearchBar
PCOPY 0, 2 PCOPY 0, 2
@ -5833,8 +5834,7 @@ FUNCTION ide2 (ignore)
r$ = AskClearHistory$("SEARCH") r$ = AskClearHistory$("SEARCH")
IF r$ = "Y" THEN IF r$ = "Y" THEN
fh = FREEFILE fh = FREEFILE
OPEN tmpdir$ + "searched.bin" FOR OUTPUT AS #fh: CLOSE #fh OPEN SearchedFile$ FOR OUTPUT AS #fh: CLOSE #fh
ClearBuffers tmpdir$ + "searched.bin"
idefindtext = "" idefindtext = ""
END IF END IF
PCOPY 3, 0: SCREEN , , 3, 0 PCOPY 3, 0: SCREEN , , 3, 0
@ -6216,8 +6216,6 @@ FUNCTION ide2 (ignore)
END IF END IF
IF _FILEEXISTS(AutosaveFile$) THEN KILL AutosaveFile$ 'remove flag file IF _FILEEXISTS(AutosaveFile$) THEN KILL AutosaveFile$ 'remove flag file
WriteBuffers tmpdir$ + "recent.bin"
WriteBuffers tmpdir$ + "searched.bin"
SYSTEM SYSTEM
END IF END IF
@ -6292,9 +6290,7 @@ FUNCTION ide2 (ignore)
r$ = AskClearHistory$("RECENT") r$ = AskClearHistory$("RECENT")
IF r$ = "Y" THEN IF r$ = "Y" THEN
fh = FREEFILE fh = FREEFILE
OPEN tmpdir$ + "recent.bin" FOR OUTPUT AS #fh: CLOSE #fh OPEN RecentFile$ FOR OUTPUT AS #fh: CLOSE #fh
ClearBuffers tmpdir$ + "recent.bin"
IdeMakeFileMenu LEFT$(menu$(1, FileMenuExportAs), 1) <> "~"
ELSE ELSE
GOTO ideshowrecentbox GOTO ideshowrecentbox
END IF END IF
@ -6317,9 +6313,7 @@ FUNCTION ide2 (ignore)
r$ = AskClearHistory$("RECENT") r$ = AskClearHistory$("RECENT")
IF r$ = "Y" THEN IF r$ = "Y" THEN
fh = FREEFILE fh = FREEFILE
OPEN tmpdir$ + "recent.bin" FOR OUTPUT AS #fh: CLOSE #fh OPEN RecentFile$ FOR OUTPUT AS #fh: CLOSE #fh
ClearBuffers tmpdir$ + "recent.bin"
IdeMakeFileMenu LEFT$(menu$(1, FileMenuExportAs), 1) <> "~"
END IF END IF
PCOPY 3, 0: SCREEN , , 3, 0 PCOPY 3, 0: SCREEN , , 3, 0
GOTO ideloop GOTO ideloop
@ -6474,21 +6468,24 @@ FUNCTION ide2 (ignore)
RETURN RETURN
CleanUpRecentList: CleanUpRecentList:
bh% = OpenBuffer%("I", tmpdir$ + "recent.bin") 'load and/or set pos (back) to start bh% = FileToBuf%(RecentFile$)
allOk% = -1 'let's assume the list is OK allOk% = -1 'let's assume the list is OK
WHILE NOT EndOfBuf%(bh%) WHILE NOT EndOfBuf%(bh%)
IF NOT _FILEEXISTS(ReadBufLine$(bh%)) THEN 'accessible? bp& = GetBufPos&(bh%): be$ = ReadBufLine$(bh%)
nul& = SeekBuf&(bh%, -LEN(BufEolSeq$(bh%)), SBM_BufCurrent) 'back to prev (just read) line IF NOT _FILEEXISTS(be$) THEN 'accessible?
nul& = SeekBuf&(bh%, 0, SBM_LineStart) 'and then ahead to the start of it nul& = SeekBuf&(bh%, bp&, SBM_PosRestore) 'back to that entry
DeleteBufLine bh% 'cut out the broken file link DeleteBufLine bh% 'remove that entry
allOk% = 0 'delete OK status allOk% = 0 'delete OK status
END IF END IF
WEND WEND
IF allOk% THEN IF allOk% THEN
result = idemessagebox("Remove Broken Links", "All files in the list are accessible.", "#OK") result = idemessagebox("Remove Broken Links", "All files in the list are accessible.", "#OK")
ELSE ELSE
IdeMakeFileMenu LEFT$(menu$(1, FileMenuExportAs), 1) <> "~" BufToFile bh%, RecentFile$
IF ideerror > 1 AND AttemptToLoadRecent = -1 THEN PCOPY 3, 0
result = idemessagebox("Remove Broken Links", "All broken links have been removed.", "#OK")
END IF END IF
DisposeBuf bh%
RETURN RETURN
redrawItAll: redrawItAll:
@ -6729,16 +6726,16 @@ SUB DebugMode
vWatchPanel.y = 4 vWatchPanel.y = 4
vWatchPanel.firstVisible = 1 vWatchPanel.firstVisible = 1
x = VAL(ReadSetting$(".\internal\temp\debug.ini", "settings", "vWatchPanel.w")) x = VAL(ReadSetting$(DebugFile$, vwatchPanelSection$, "vWatchPanel.w"))
IF x THEN vWatchPanel.w = x IF x THEN vWatchPanel.w = x
x = VAL(ReadSetting$(".\internal\temp\debug.ini", "settings", "vWatchPanel.h")) x = VAL(ReadSetting$(DebugFile$, vwatchPanelSection$, "vWatchPanel.h"))
IF x THEN vWatchPanel.h = x IF x THEN vWatchPanel.h = x
x = VAL(ReadSetting$(".\internal\temp\debug.ini", "settings", "vWatchPanel.x")) x = VAL(ReadSetting$(DebugFile$, vwatchPanelSection$, "vWatchPanel.x"))
IF x THEN vWatchPanel.x = x IF x THEN vWatchPanel.x = x
x = VAL(ReadSetting$(".\internal\temp\debug.ini", "settings", "vWatchPanel.y")) x = VAL(ReadSetting$(DebugFile$, vwatchPanelSection$, "vWatchPanel.y"))
IF x THEN vWatchPanel.y = x IF x THEN vWatchPanel.y = x
GOSUB checkvWatchPanelSize GOSUB checkvWatchPanelSize
@ -7157,13 +7154,13 @@ SUB DebugMode
END IF END IF
IF vWatchPanel.draggingPanel THEN IF vWatchPanel.draggingPanel THEN
vWatchPanel.draggingPanel = 0: mouseDown = 0 vWatchPanel.draggingPanel = 0: mouseDown = 0
WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.x", str2$(vWatchPanel.x) WriteSetting DebugFile$, vwatchPanelSection$, "vWatchPanel.x", str2$(vWatchPanel.x)
WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.y", str2$(vWatchPanel.y) WriteSetting DebugFile$, vwatchPanelSection$, "vWatchPanel.y", str2$(vWatchPanel.y)
END IF END IF
IF vWatchPanel.resizingPanel THEN IF vWatchPanel.resizingPanel THEN
vWatchPanel.resizingPanel = 0: mouseDown = 0 vWatchPanel.resizingPanel = 0: mouseDown = 0
WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.w", str2$(vWatchPanel.w) WriteSetting DebugFile$, vwatchPanelSection$, "vWatchPanel.w", str2$(vWatchPanel.w)
WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.h", str2$(vWatchPanel.h) WriteSetting DebugFile$, vwatchPanelSection$, "vWatchPanel.h", str2$(vWatchPanel.h)
END IF END IF
IF vWatchPanel.closingPanel AND (mX = mouseDownOnX AND mY = mouseDownOnY) THEN IF vWatchPanel.closingPanel AND (mX = mouseDownOnX AND mY = mouseDownOnY) THEN
vWatchPanel.closingPanel = 0 vWatchPanel.closingPanel = 0
@ -7179,10 +7176,10 @@ SUB DebugMode
NEXT NEXT
'Reset panel position in debug settings 'Reset panel position in debug settings
WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.x", "0" WriteSetting DebugFile$, vwatchPanelSection$, "vWatchPanel.x", "0"
WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.y", "0" WriteSetting DebugFile$, vwatchPanelSection$, "vWatchPanel.y", "0"
WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.w", "0" WriteSetting DebugFile$, vwatchPanelSection$, "vWatchPanel.w", "0"
WriteSetting ".\internal\temp\debug.ini", "settings", "vWatchPanel.h", "0" WriteSetting DebugFile$, vwatchPanelSection$, "vWatchPanel.h", "0"
END IF END IF
PCOPY 3, 0: SCREEN , , 3, 0 PCOPY 3, 0: SCREEN , , 3, 0
WHILE _MOUSEINPUT: WEND WHILE _MOUSEINPUT: WEND
@ -18129,19 +18126,19 @@ SUB IdeImportBookmarks (f2$)
END IF END IF
'at the same time, import breakpoint and skip line data 'at the same time, import breakpoint and skip line data
x = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "total breakpoints")) x = VAL(ReadSetting$(DebugFile$, f2$, "total breakpoints"))
IF x THEN IF x THEN
FOR i = 1 TO x FOR i = 1 TO x
j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "breakpoint" + STR$(i))) j = VAL(ReadSetting$(DebugFile$, f2$, "breakpoint" + STR$(i)))
IF j > UBOUND(IdeBreakpoints) THEN EXIT FOR IF j > UBOUND(IdeBreakpoints) THEN EXIT FOR
IdeBreakpoints(j) = -1 IdeBreakpoints(j) = -1
NEXT NEXT
END IF END IF
x = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "total skips")) x = VAL(ReadSetting$(DebugFile$, f2$, "total skips"))
IF x THEN IF x THEN
FOR i = 1 TO x FOR i = 1 TO x
j = VAL(ReadSetting$(".\internal\temp\debug.ini", f2$, "skip" + STR$(i))) j = VAL(ReadSetting$(DebugFile$, f2$, "skip" + STR$(i)))
IF j > UBOUND(IdeSkipLines) THEN EXIT FOR IF j > UBOUND(IdeSkipLines) THEN EXIT FOR
IdeSkipLines(j) = -1 IdeSkipLines(j) = -1
NEXT NEXT
@ -18168,26 +18165,26 @@ SUB IdeSaveBookmarks (f2$)
'at the same time, save breakpoint and skip line data 'at the same time, save breakpoint and skip line data
IF vWatchOn THEN IF vWatchOn THEN
WriteSetting ".\internal\temp\debug.ini", f2$, "total breakpoints", "0" WriteSetting DebugFile$, f2$, "total breakpoints", "0"
WriteSetting ".\internal\temp\debug.ini", f2$, "total skips", "0" WriteSetting DebugFile$, f2$, "total skips", "0"
x = 0 x = 0
FOR i = 1 TO UBOUND(IdeBreakpoints) FOR i = 1 TO UBOUND(IdeBreakpoints)
IF IdeBreakpoints(i) THEN IF IdeBreakpoints(i) THEN
x = x + 1 x = x + 1
WriteSetting ".\internal\temp\debug.ini", f2$, "breakpoint" + STR$(x), str2$(i) WriteSetting DebugFile$, f2$, "breakpoint" + STR$(x), str2$(i)
END IF END IF
NEXT NEXT
WriteSetting ".\internal\temp\debug.ini", f2$, "total breakpoints", str2$(x) WriteSetting DebugFile$, f2$, "total breakpoints", str2$(x)
x = 0 x = 0
FOR i = 1 TO UBOUND(IdeSkipLines) FOR i = 1 TO UBOUND(IdeSkipLines)
IF IdeSkipLines(i) THEN IF IdeSkipLines(i) THEN
x = x + 1 x = x + 1
WriteSetting ".\internal\temp\debug.ini", f2$, "skip" + STR$(x), str2$(i) WriteSetting DebugFile$, f2$, "skip" + STR$(x), str2$(i)
END IF END IF
NEXT NEXT
WriteSetting ".\internal\temp\debug.ini", f2$, "total skips", str2$(x) WriteSetting DebugFile$, f2$, "total skips", str2$(x)
END IF END IF
END SUB END SUB
@ -18205,14 +18202,15 @@ FUNCTION iderecentbox$
'-------- init -------- '-------- init --------
l$ = "": dialogWidth = 72: numFiles% = 0 l$ = "": dialogWidth = 72: numFiles% = 0
REDIM tempList$(1 TO 100) REDIM tempList$(1 TO ideMaxRecent)
bh% = OpenBuffer%("I", tmpdir$ + "recent.bin") 'load and/or set pos (back) to start bh% = FileToBuf%(RecentFile$)
WHILE NOT EndOfBuf%(bh%) WHILE EndOfBuf%(bh%) = 0 AND numFiles% < ideMaxRecent
f$ = ReadBufLine$(bh%) f$ = ReadBufLine$(bh%)
IF LEN(f$) + 6 > dialogWidth THEN dialogWidth = LEN(f$) + 6 IF LEN(f$) + 6 > dialogWidth THEN dialogWidth = LEN(f$) + 6
numFiles% = numFiles% + 1: tempList$(numFiles%) = f$ numFiles% = numFiles% + 1: tempList$(numFiles%) = f$
l$ = l$ + sep + f$ l$ = l$ + sep + f$
WEND WEND
DisposeBuf nh%
REDIM _PRESERVE tempList$(1 TO numFiles%) REDIM _PRESERVE tempList$(1 TO numFiles%)
'72,19 '72,19
@ -18347,7 +18345,7 @@ SUB IdeMakeFileMenu (eaa%) 'ExportAs activation (boolean)
menu$(m, i) = eaa$ + "#Export As... " + CHR$(16): i = i + 1 menu$(m, i) = eaa$ + "#Export As... " + CHR$(16): i = i + 1
menuDesc$(m, i - 1) = "Export current program into various formats" menuDesc$(m, i - 1) = "Export current program into various formats"
bh% = OpenBuffer%("I", tmpdir$ + "recent.bin") 'load and/or set pos (back) to start bh% = FileToBuf%(RecentFile$)
maxFiles% = UBOUND(IdeRecentLink, 1): maxLength% = 35 maxFiles% = UBOUND(IdeRecentLink, 1): maxLength% = 35
FOR r% = 1 TO maxFiles% + 1 FOR r% = 1 TO maxFiles% + 1
IF r% <= maxFiles% THEN IdeRecentLink(r%, 1) = "" IF r% <= maxFiles% THEN IdeRecentLink(r%, 1) = ""
@ -18368,7 +18366,8 @@ SUB IdeMakeFileMenu (eaa%) 'ExportAs activation (boolean)
END IF END IF
i = i + 1 i = i + 1
END IF END IF
NEXT NEXT r%
DisposeBuf bh%
IF menu$(m, i - 1) <> "#Recent..." AND menu$(m, i - 1) <> eaa$ + "#Export As... " + CHR$(16) THEN IF menu$(m, i - 1) <> "#Recent..." AND menu$(m, i - 1) <> eaa$ + "#Export As... " + CHR$(16) THEN
menu$(m, i) = "#Clear Recent...": i = i + 1 menu$(m, i) = "#Clear Recent...": i = i + 1
menuDesc$(m, i - 1) = "Clears list of recently loaded files" menuDesc$(m, i - 1) = "Clears list of recently loaded files"
@ -18811,29 +18810,34 @@ SUB IdeMakeEditMenu
menusize(m) = i - 1 menusize(m) = i - 1
END SUB END SUB
'Add an entry in the top position of the specified history. If the entry
'already exists in the history, then it's just moved back to top again.
'---------------------------------------------------------------------
SUB AddToHistory (which$, entry$) SUB AddToHistory (which$, entry$)
SELECT CASE which$ SELECT CASE which$
CASE "RECENT" CASE "RECENT"
e$ = RemoveDoubleSlashes$(entry$) e$ = RemoveDoubleSlashes$(entry$)
bh% = OpenBuffer%("I", tmpdir$ + "recent.bin") 'load and/or set pos (back) to start bh% = FileToBuf%(RecentFile$)
GOSUB athProcess mx% = ideMaxRecent: GOSUB athProcess
IdeMakeFileMenu LEFT$(menu$(1, FileMenuExportAs), 1) <> "~" BufToFile bh%, RecentFile$
CASE "SEARCH" CASE "SEARCH"
e$ = entry$ e$ = entry$
bh% = OpenBuffer%("I", tmpdir$ + "searched.bin") 'load and/or set pos (back) to start bh% = FileToBuf%(SearchedFile$)
GOSUB athProcess mx% = ideMaxSearch: GOSUB athProcess
BufToFile bh%, SearchedFile$
END SELECT END SELECT
DisposeBuf bh%
EXIT SUB EXIT SUB
'----- '-----
athProcess: athProcess:
lc% = 0: ue$ = UCASE$(e$) lc% = 0: ue$ = UCASE$(e$)
WHILE NOT EndOfBuf%(bh%) WHILE NOT EndOfBuf%(bh%)
be$ = ReadBufLine$(bh%): lc% = lc% + 1 bp& = GetBufPos&(bh%): be$ = ReadBufLine$(bh%): lc% = lc% + 1
IF UCASE$(be$) = ue$ OR lc% = 100 THEN 'already known or limit reached? IF UCASE$(be$) = ue$ OR lc% >= mx% THEN 'already known or limit reached?
nul& = SeekBuf&(bh%, -LEN(BufEolSeq$(bh%)), SBM_BufCurrent) 'back to prev (just read) line nul& = SeekBuf&(bh%, bp&, SBM_PosRestore) 'back to that entry
nul& = SeekBuf&(bh%, 0, SBM_LineStart) 'and then ahead to the start of it DeleteBufLine bh% 'remove that entry
DeleteBufLine bh% 'we could EXIT WHILE here, but for auto-removal of over limit
EXIT WHILE 'entries (in case the limit was lowered) we continue the loop
END IF END IF
WEND WEND
nul& = SeekBuf&(bh%, 0, SBM_BufStart) 'rewind nul& = SeekBuf&(bh%, 0, SBM_BufStart) 'rewind
@ -18841,6 +18845,8 @@ SUB AddToHistory (which$, entry$)
RETURN RETURN
END SUB END SUB
'A simple "Are you sure" type yes/no messagebox for cleanup operations.
'---------------------------------------------------------------------
FUNCTION AskClearHistory$ (which$) FUNCTION AskClearHistory$ (which$)
SELECT CASE which$ SELECT CASE which$
CASE "RECENT": t$ = "Clear recent files" CASE "RECENT": t$ = "Clear recent files"
@ -18850,18 +18856,20 @@ FUNCTION AskClearHistory$ (which$)
IF result = 1 THEN AskClearHistory$ = "Y" ELSE AskClearHistory$ = "N" IF result = 1 THEN AskClearHistory$ = "Y" ELSE AskClearHistory$ = "N"
END FUNCTION END FUNCTION
SUB RetrieveSearchHistory (SearchHistory() AS STRING) 'Load the search history into the specified array used by the IDE.
bh% = OpenBuffer%("I", tmpdir$ + "searched.bin") 'load and/or set pos (back) to start '---------------------------------------------------------------------
SUB RetrieveSearchHistory (shArr$())
bh% = FileToBuf%(SearchedFile$)
IF GetBufLen&(bh%) THEN IF GetBufLen&(bh%) THEN
REDIM SearchHistory(1 TO 100) AS STRING: lc% = 0 REDIM shArr$(1 TO ideMaxSearch): lc% = 0
WHILE NOT EndOfBuf%(bh%) WHILE EndOfBuf%(bh%) = 0 AND lc% < ideMaxSearch
lc% = lc% + 1: SearchHistory(lc%) = ReadBufLine$(bh%) lc% = lc% + 1: shArr$(lc%) = ReadBufLine$(bh%)
WEND WEND
REDIM _PRESERVE SearchHistory(1 TO lc%) AS STRING REDIM _PRESERVE shArr$(1 TO lc%)
ELSE ELSE
REDIM SearchHistory(1 TO 1) AS STRING REDIM shArr$(1 TO 1): shArr$(1) = ""
SearchHistory(1) = ""
END IF END IF
DisposeBuf bh%
END SUB END SUB
FUNCTION ideupdatehelpbox FUNCTION ideupdatehelpbox