mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 19:10:25 +00:00
Adds total line count to SUB/FUNCTION list.
This commit is contained in:
parent
f22b24c363
commit
45f48ed72d
|
@ -4,7 +4,7 @@ DIM SHARED IDEBackgroundColor AS _UNSIGNED LONG
|
||||||
DIM SHARED IDEBackgroundColor2 AS _UNSIGNED LONG, IDEBracketHighlightColor AS _UNSIGNED LONG
|
DIM SHARED IDEBackgroundColor2 AS _UNSIGNED LONG, IDEBracketHighlightColor AS _UNSIGNED LONG
|
||||||
DIM SHARED IDEKeywordColor AS _UNSIGNED LONG, IDENumbersColor AS _UNSIGNED LONG
|
DIM SHARED IDEKeywordColor AS _UNSIGNED LONG, IDENumbersColor AS _UNSIGNED LONG
|
||||||
DIM SHARED IDE_AutoPosition AS _BYTE, IDE_TopPosition AS INTEGER, IDE_LeftPosition AS INTEGER
|
DIM SHARED IDE_AutoPosition AS _BYTE, IDE_TopPosition AS INTEGER, IDE_LeftPosition AS INTEGER
|
||||||
DIM SHARED IDE_BypassAutoPosition AS _BYTE, idesortsubs AS _BYTE
|
DIM SHARED IDE_BypassAutoPosition AS _BYTE, idesortsubs AS _BYTE, IDESubsLength AS _BYTE
|
||||||
DIM SHARED IDENormalCursorStart AS LONG, IDENormalCursorEnd AS LONG
|
DIM SHARED IDENormalCursorStart AS LONG, IDENormalCursorEnd AS LONG
|
||||||
DIM SHARED IDE_Index$
|
DIM SHARED IDE_Index$
|
||||||
DIM SHARED LoadedIDESettings AS INTEGER
|
DIM SHARED LoadedIDESettings AS INTEGER
|
||||||
|
@ -229,6 +229,19 @@ IF LoadedIDESettings = 0 THEN
|
||||||
idesortsubs = 0
|
idesortsubs = 0
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
result = ReadConfigSetting("IDE_SUBsLength", value$)
|
||||||
|
IF result THEN
|
||||||
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
||||||
|
IDESubsLength = -1
|
||||||
|
ELSE
|
||||||
|
IDESubsLength = 0
|
||||||
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SUBsLength", "FALSE"
|
||||||
|
END IF
|
||||||
|
ELSE
|
||||||
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SUBsLength", "FALSE"
|
||||||
|
IDESubsLength = 0
|
||||||
|
END IF
|
||||||
|
|
||||||
result = ReadConfigSetting("ShowErrorsImmediately", value$)
|
result = ReadConfigSetting("ShowErrorsImmediately", value$)
|
||||||
IF result THEN
|
IF result THEN
|
||||||
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
IF value$ = "TRUE" OR VAL(value$) = -1 THEN
|
||||||
|
|
|
@ -9217,20 +9217,33 @@ FUNCTION idesubs$
|
||||||
FoundExternalSUBFUNC = 0
|
FoundExternalSUBFUNC = 0
|
||||||
l$ = ideprogname$
|
l$ = ideprogname$
|
||||||
IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$
|
IF l$ = "" THEN l$ = "Untitled" + tempfolderindexstr$
|
||||||
|
|
||||||
|
IF LEN(l$) <= 22 THEN
|
||||||
|
l$ = l$ + SPACE$(22 - LEN(l$))
|
||||||
|
ELSE
|
||||||
|
l$ = LEFT$(l$, 19) + STRING$(3, 250)
|
||||||
|
END IF
|
||||||
|
|
||||||
|
lSized$ = l$
|
||||||
lSorted$ = l$
|
lSorted$ = l$
|
||||||
|
lSortedSized$ = l$
|
||||||
|
|
||||||
|
REDIM TotalLines(0) AS LONG
|
||||||
|
|
||||||
TotalSUBs = 0
|
TotalSUBs = 0
|
||||||
|
ModuleSize = 0 'in lines
|
||||||
SortedSubsFlag = idesortsubs
|
SortedSubsFlag = idesortsubs
|
||||||
|
|
||||||
FOR y = 1 TO iden
|
FOR y = 1 TO iden
|
||||||
a$ = idegetline(y)
|
a$ = idegetline(y)
|
||||||
|
ModuleSize = ModuleSize + 1
|
||||||
a$ = LTRIM$(RTRIM$(a$))
|
a$ = LTRIM$(RTRIM$(a$))
|
||||||
sf = 0
|
sf = 0
|
||||||
nca$ = UCASE$(a$)
|
nca$ = UCASE$(a$)
|
||||||
IF LEFT$(nca$, 8) = "DECLARE " AND INSTR(nca$, " LIBRARY") > 0 THEN InsideDECLARE = -1
|
IF LEFT$(nca$, 8) = "DECLARE " AND INSTR(nca$, " LIBRARY") > 0 THEN InsideDECLARE = -1
|
||||||
IF LEFT$(nca$, 11) = "END DECLARE" THEN InsideDECLARE = 0
|
IF LEFT$(nca$, 11) = "END DECLARE" THEN InsideDECLARE = 0
|
||||||
IF LEFT$(nca$, 4) = "SUB " THEN sf = 1: sf$ = "SUB "
|
IF LEFT$(nca$, 4) = "SUB " THEN sf = 1: sf$ = "SUB "
|
||||||
IF LEFT$(nca$, 9) = "FUNCTION " THEN sf = 2: sf$ = "FUNC "
|
IF LEFT$(nca$, 9) = "FUNCTION " THEN sf = 2: sf$ = "FUNC "
|
||||||
IF sf THEN
|
IF sf THEN
|
||||||
IF RIGHT$(nca$, 7) = " STATIC" THEN
|
IF RIGHT$(nca$, 7) = " STATIC" THEN
|
||||||
a$ = RTRIM$(LEFT$(a$, LEN(a$) - 7))
|
a$ = RTRIM$(LEFT$(a$, LEN(a$) - 7))
|
||||||
|
@ -9278,7 +9291,26 @@ FUNCTION idesubs$
|
||||||
END IF
|
END IF
|
||||||
IF a2$ = UCASE$(n2$) THEN PreferCurrentCursorSUBFUNC = (LEN(ly$) / 4)
|
IF a2$ = UCASE$(n2$) THEN PreferCurrentCursorSUBFUNC = (LEN(ly$) / 4)
|
||||||
|
|
||||||
IF InsideDECLARE = -1 THEN n$ = "*" + n$: FoundExternalSUBFUNC = -1
|
IF InsideDECLARE = -1 THEN
|
||||||
|
n$ = "*" + n$
|
||||||
|
FoundExternalSUBFUNC = -1
|
||||||
|
ELSE
|
||||||
|
TotalLines(TotalSUBs) = ModuleSize
|
||||||
|
ModuleSize = 0
|
||||||
|
END IF
|
||||||
|
|
||||||
|
IF TotalSUBs = 0 THEN
|
||||||
|
l$ = l$ + " Type Arguments"
|
||||||
|
lSorted$ = l$
|
||||||
|
lSized$ = lSized$ + " Line count Type Arguments" + sep
|
||||||
|
lSortedSized$ = lSortedSized$ + " Line count Type Arguments"
|
||||||
|
ELSE
|
||||||
|
num$ = LTRIM$(STR$(TotalLines(TotalSUBs)))
|
||||||
|
IF pInsideDECLARE THEN num$ = "external"
|
||||||
|
lSized$ = lSized$ + CHR$(195) + CHR$(196) + pn$ + " " + _
|
||||||
|
SPACE$(9 - LEN(num$)) + num$ + " " _
|
||||||
|
+ psf$ + pargs$ + sep
|
||||||
|
END IF
|
||||||
|
|
||||||
IF LEN(n$) <= 20 THEN
|
IF LEN(n$) <= 20 THEN
|
||||||
n$ = n$ + SPACE$(20 - LEN(n$))
|
n$ = n$ + SPACE$(20 - LEN(n$))
|
||||||
|
@ -9290,42 +9322,61 @@ FUNCTION idesubs$
|
||||||
ELSE
|
ELSE
|
||||||
args$ = LEFT$(args$, (idewx - 44)) + STRING$(3, 250)
|
args$ = LEFT$(args$, (idewx - 44)) + STRING$(3, 250)
|
||||||
END IF
|
END IF
|
||||||
l$ = l$ + sep + CHR$(195) + CHR$(196) + n$ + " " + sf$ + args$
|
l$ = l$ + sep + CHR$(195) + CHR$(196) + n$ + " " + sf$ + args$
|
||||||
|
psf$ = sf$
|
||||||
|
pn$ = n$
|
||||||
|
pargs$ = args$
|
||||||
|
pInsideDECLARE = InsideDECLARE
|
||||||
|
|
||||||
'Populate SortedSubsList()
|
'Populate SortedSubsList()
|
||||||
TotalSUBs = TotalSUBs + 1
|
TotalSUBs = TotalSUBs + 1
|
||||||
ListItemLength = LEN(n$ + " " + sf$ + args$)
|
ListItemLength = LEN(n$ + " " + sf$ + args$)
|
||||||
REDIM _PRESERVE SortedSubsList(1 TO TotalSUBs) AS STRING * 998
|
REDIM _PRESERVE SortedSubsList(1 TO TotalSUBs) AS STRING * 998
|
||||||
REDIM _PRESERVE CaseBkpSubsList(1 TO TotalSUBs) AS STRING * 998
|
REDIM _PRESERVE CaseBkpSubsList(1 TO TotalSUBs) AS STRING * 998
|
||||||
CaseBkpSubsList(TotalSUBs) = n$ + " " + sf$ + args$
|
REDIM _PRESERVE TotalLines(0 TO TotalSUBs) AS LONG
|
||||||
|
CaseBkpSubsList(TotalSUBs) = n$ + " " + CHR$(1) + sf$ + args$
|
||||||
SortedSubsList(TotalSUBs) = UCASE$(CaseBkpSubsList(TotalSUBs))
|
SortedSubsList(TotalSUBs) = UCASE$(CaseBkpSubsList(TotalSUBs))
|
||||||
MID$(CaseBkpSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength)
|
MID$(CaseBkpSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength)
|
||||||
MID$(SortedSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength)
|
MID$(SortedSubsList(TotalSUBs), 992, 6) = MKL$(y) + MKI$(ListItemLength)
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
FOR x = LEN(l$) TO 1 STEP -1
|
TotalLines(TotalSUBs) = ModuleSize
|
||||||
a$ = MID$(l$, x, 1)
|
IF TotalSUBs > 0 THEN
|
||||||
IF a$ = CHR$(195) THEN MID$(l$, x, 1) = CHR$(192): EXIT FOR
|
num$ = LTRIM$(STR$(TotalLines(TotalSUBs)))
|
||||||
NEXT
|
IF pInsideDECLARE THEN num$ = "external"
|
||||||
|
lSized$ = lSized$ + CHR$(195) + CHR$(196) + pn$ + " " + _
|
||||||
|
SPACE$(9 - LEN(num$)) + num$ + " " + psf$ + pargs$
|
||||||
|
END IF
|
||||||
|
|
||||||
|
MID$(l$, _INSTRREV(l$, CHR$(195)), 1) = CHR$(192)
|
||||||
|
MID$(lSized$, _INSTRREV(l$, CHR$(195)), 1) = CHR$(192)
|
||||||
|
|
||||||
IF TotalSUBs > 1 THEN
|
IF TotalSUBs > 1 THEN
|
||||||
sort SortedSubsList()
|
sort SortedSubsList()
|
||||||
|
|
||||||
FOR x = 1 TO TotalSUBs
|
FOR x = 1 TO TotalSUBs
|
||||||
ListItemLength = CVI(MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 2, 2))
|
ListItemLength = CVI(MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 2, 2))
|
||||||
lySorted$ = lySorted$ + MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4)
|
lySorted$ = lySorted$ + MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4)
|
||||||
FOR RestoreCaseBkp = 1 TO TotalSUBs
|
FOR RestoreCaseBkp = 1 TO TotalSUBs
|
||||||
IF MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4) = MID$(CaseBkpSubsList(RestoreCaseBkp), LEN(CaseBkpSubsList(RestoreCaseBkp)) - 6, 4) THEN
|
IF MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4) = MID$(CaseBkpSubsList(RestoreCaseBkp), LEN(CaseBkpSubsList(RestoreCaseBkp)) - 6, 4) THEN
|
||||||
lSorted$ = lSorted$ + sep + CHR$(195) + CHR$(196) + LEFT$(CaseBkpSubsList(RestoreCaseBkp), ListItemLength)
|
lSorted$ = lSorted$ + sep + CHR$(195) + CHR$(196)
|
||||||
|
temp$ = LEFT$(CaseBkpSubsList(RestoreCaseBkp), ListItemLength)
|
||||||
|
lSorted$ = lSorted$ + LEFT$(temp$, INSTR(temp$, CHR$(1)) - 1) + _
|
||||||
|
MID$(temp$, INSTR(temp$, CHR$(1)) + 1)
|
||||||
|
|
||||||
|
num$ = LTRIM$(STR$(TotalLines(RestoreCaseBkp)))
|
||||||
|
IF LEFT$(temp$, 1) = "*" THEN num$ = "external"
|
||||||
|
lSortedSized$ = lSortedSized$ + sep + CHR$(195) + CHR$(196)
|
||||||
|
lSortedSized$ = lSortedSized$ + LEFT$(temp$, INSTR(temp$, CHR$(1)) - 1) + _
|
||||||
|
SPACE$(9 - LEN(num$)) + num$ + " " + _
|
||||||
|
MID$(temp$, INSTR(temp$, CHR$(1)) + 1)
|
||||||
EXIT FOR
|
EXIT FOR
|
||||||
END IF
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
NEXT
|
NEXT
|
||||||
|
|
||||||
FOR x = LEN(lSorted$) TO 1 STEP -1
|
MID$(lSorted$, _INSTRREV(lSorted$, CHR$(195)), 1) = CHR$(192)
|
||||||
a$ = MID$(lSorted$, x, 1)
|
|
||||||
IF a$ = CHR$(195) THEN MID$(lSorted$, x, 1) = CHR$(192): EXIT FOR
|
|
||||||
NEXT
|
|
||||||
SortedSubsFlag = idesortsubs
|
SortedSubsFlag = idesortsubs
|
||||||
ELSE
|
ELSE
|
||||||
SortedSubsFlag = 0 'Override idesortsubs if the current program doesn't have more than 1 subprocedure
|
SortedSubsFlag = 0 'Override idesortsubs if the current program doesn't have more than 1 subprocedure
|
||||||
|
@ -9340,8 +9391,13 @@ FUNCTION idesubs$
|
||||||
o(i).y = 1
|
o(i).y = 1
|
||||||
'68
|
'68
|
||||||
o(i).w = idewx - 12: o(i).h = idewy + idesubwindow - 9
|
o(i).w = idewx - 12: o(i).h = idewy + idesubwindow - 9
|
||||||
o(i).txt = idenewtxt(l$)
|
|
||||||
IF SortedSubsFlag = 0 THEN
|
IF SortedSubsFlag = 0 THEN
|
||||||
|
IF IDESubsLength THEN
|
||||||
|
o(i).txt = idenewtxt(lSized$)
|
||||||
|
ELSE
|
||||||
|
o(i).txt = idenewtxt(l$)
|
||||||
|
END IF
|
||||||
|
|
||||||
IF PreferCurrentCursorSUBFUNC <> 0 THEN
|
IF PreferCurrentCursorSUBFUNC <> 0 THEN
|
||||||
o(i).sel = PreferCurrentCursorSUBFUNC
|
o(i).sel = PreferCurrentCursorSUBFUNC
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -9349,6 +9405,11 @@ FUNCTION idesubs$
|
||||||
END IF
|
END IF
|
||||||
ELSE
|
ELSE
|
||||||
idetxt(o(i).txt) = lSorted$
|
idetxt(o(i).txt) = lSorted$
|
||||||
|
IF IDESubsLength THEN
|
||||||
|
o(i).txt = idenewtxt(lSortedSized$)
|
||||||
|
ELSE
|
||||||
|
o(i).txt = idenewtxt(lSorted$)
|
||||||
|
END IF
|
||||||
IF PreferCurrentCursorSUBFUNC <> 0 THEN
|
IF PreferCurrentCursorSUBFUNC <> 0 THEN
|
||||||
FOR x = 1 TO TotalSUBs
|
FOR x = 1 TO TotalSUBs
|
||||||
IF MID$(ly$, PreferCurrentCursorSUBFUNC * 4 - 3, 4) = MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4) THEN
|
IF MID$(ly$, PreferCurrentCursorSUBFUNC * 4 - 3, 4) = MID$(SortedSubsList(x), LEN(SortedSubsList(x)) - 6, 4) THEN
|
||||||
|
@ -9367,22 +9428,29 @@ FUNCTION idesubs$
|
||||||
END IF
|
END IF
|
||||||
o(i).nam = idenewtxt("Program Items")
|
o(i).nam = idenewtxt("Program Items")
|
||||||
|
|
||||||
|
|
||||||
i = i + 1
|
i = i + 1
|
||||||
o(i).typ = 3
|
o(i).typ = 4 'check box
|
||||||
|
o(i).x = 2
|
||||||
o(i).y = idewy + idesubwindow - 6
|
o(i).y = idewy + idesubwindow - 6
|
||||||
o(i).txt = idenewtxt("#Edit" + sep + "#Cancel")
|
o(i).nam = idenewtxt("Show #Line Count")
|
||||||
o(i).dft = 1
|
o(i).sel = IDESubsLength
|
||||||
|
|
||||||
IF TotalSUBs > 1 THEN
|
IF TotalSUBs > 1 THEN
|
||||||
i = i + 1
|
i = i + 1
|
||||||
o(i).typ = 4 'check box
|
o(i).typ = 4 'check box
|
||||||
o(i).x = idewx - 22
|
o(i).x = 22
|
||||||
o(i).y = idewy + idesubwindow - 6
|
o(i).y = idewy + idesubwindow - 6
|
||||||
o(i).nam = idenewtxt("#Sorted A-Z")
|
o(i).nam = idenewtxt("#Sorted A-Z")
|
||||||
o(i).sel = SortedSubsFlag
|
o(i).sel = SortedSubsFlag
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
i = i + 1
|
||||||
|
o(i).typ = 3
|
||||||
|
o(i).x = p.w - 30
|
||||||
|
o(i).y = idewy + idesubwindow - 6
|
||||||
|
o(i).txt = idenewtxt("#Edit" + sep + "#Cancel")
|
||||||
|
o(i).dft = 1
|
||||||
|
|
||||||
|
|
||||||
'-------- end of init --------
|
'-------- end of init --------
|
||||||
|
|
||||||
|
@ -9409,9 +9477,6 @@ FUNCTION idesubs$
|
||||||
'-------- end of generic display dialog box & objects --------
|
'-------- end of generic display dialog box & objects --------
|
||||||
|
|
||||||
'-------- custom display changes --------
|
'-------- custom display changes --------
|
||||||
IF FoundExternalSUBFUNC = -1 THEN
|
|
||||||
COLOR 2, 7: LOCATE idewy + idesubwindow - 3, p.x + 2: PRINT "* external";
|
|
||||||
END IF
|
|
||||||
'-------- end of custom display changes --------
|
'-------- end of custom display changes --------
|
||||||
|
|
||||||
'update visual page and cursor position
|
'update visual page and cursor position
|
||||||
|
@ -9460,13 +9525,13 @@ FUNCTION idesubs$
|
||||||
NEXT
|
NEXT
|
||||||
'-------- end of generic input response --------
|
'-------- end of generic input response --------
|
||||||
|
|
||||||
IF K$ = CHR$(27) OR (focus = 3 AND info <> 0) THEN
|
IF K$ = CHR$(27) OR (focus = 5 AND info <> 0) THEN
|
||||||
idesubs$ = "C"
|
idesubs$ = "C"
|
||||||
GOSUB SaveSortSettings
|
GOSUB SaveSortSettings
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF K$ = CHR$(13) OR (focus = 2 AND info <> 0) OR (info = 1 AND focus = 1) THEN
|
IF K$ = CHR$(13) OR (focus = 4 AND info <> 0) OR (info = 1 AND focus = 1) THEN
|
||||||
y = o(1).sel
|
y = o(1).sel
|
||||||
IF y < 1 THEN y = -y
|
IF y < 1 THEN y = -y
|
||||||
AddQuickNavHistory idecy
|
AddQuickNavHistory idecy
|
||||||
|
@ -9483,6 +9548,24 @@ FUNCTION idesubs$
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
IF o(2).sel <> IDESubsLength THEN
|
||||||
|
IDESubsLength = o(2).sel
|
||||||
|
IF IDESubsLength THEN
|
||||||
|
IF o(3).sel THEN
|
||||||
|
idetxt(o(1).txt) = lSortedSized$
|
||||||
|
ELSE
|
||||||
|
idetxt(o(1).txt) = lSized$
|
||||||
|
END IF
|
||||||
|
ELSE
|
||||||
|
IF o(3).sel THEN
|
||||||
|
idetxt(o(1).txt) = lSorted$
|
||||||
|
ELSE
|
||||||
|
idetxt(o(1).txt) = l$
|
||||||
|
END IF
|
||||||
|
END IF
|
||||||
|
focus = 1
|
||||||
|
END IF
|
||||||
|
|
||||||
IF TotalSUBs > 1 THEN
|
IF TotalSUBs > 1 THEN
|
||||||
IF o(3).sel <> SortedSubsFlag THEN
|
IF o(3).sel <> SortedSubsFlag THEN
|
||||||
SortedSubsFlag = o(3).sel
|
SortedSubsFlag = o(3).sel
|
||||||
|
@ -9499,7 +9582,11 @@ FUNCTION idesubs$
|
||||||
NEXT
|
NEXT
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
idetxt(o(1).txt) = l$
|
IF IDESubsLength THEN
|
||||||
|
idetxt(o(1).txt) = lSized$
|
||||||
|
ELSE
|
||||||
|
idetxt(o(1).txt) = l$
|
||||||
|
END IF
|
||||||
o(1).sel = PreviousSelection
|
o(1).sel = PreviousSelection
|
||||||
focus = 1
|
focus = 1
|
||||||
ELSE
|
ELSE
|
||||||
|
@ -9514,7 +9601,11 @@ FUNCTION idesubs$
|
||||||
NEXT
|
NEXT
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
idetxt(o(1).txt) = lSorted$
|
IF IDESubsLength THEN
|
||||||
|
idetxt(o(1).txt) = lSortedSized$
|
||||||
|
ELSE
|
||||||
|
idetxt(o(1).txt) = lSorted$
|
||||||
|
END IF
|
||||||
o(1).sel = PreviousSelection
|
o(1).sel = PreviousSelection
|
||||||
focus = 1
|
focus = 1
|
||||||
END IF
|
END IF
|
||||||
|
@ -9535,6 +9626,12 @@ FUNCTION idesubs$
|
||||||
ELSE
|
ELSE
|
||||||
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE"
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SortSUBs", "FALSE"
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
IF IDESubsLength THEN
|
||||||
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SUBsLength", "TRUE"
|
||||||
|
ELSE
|
||||||
|
WriteConfigSetting "'[IDE DISPLAY SETTINGS]", "IDE_SUBsLength", "FALSE"
|
||||||
|
END IF
|
||||||
END IF
|
END IF
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue