Save space
This commit is contained in:
parent
e08f3c306d
commit
9e20f329e4
1 changed files with 1 additions and 3 deletions
|
|
@ -142,12 +142,10 @@ do
|
||||||
showcommands=not showcommands
|
showcommands=not showcommands
|
||||||
case chr$(26) ' Ctrl+Z
|
case chr$(26) ' Ctrl+Z
|
||||||
if ubound(commands) > 3 then
|
if ubound(commands) > 3 then
|
||||||
' Drop the trailing empty slot AND the last valid command
|
' Drop the trailing empty slot and the last valid command
|
||||||
redim _preserve commands(ubound(commands) - 2) as string
|
redim _preserve commands(ubound(commands) - 2) as string
|
||||||
|
|
||||||
' Re-create the empty trailing slot required by addcommand
|
' Re-create the empty trailing slot required by addcommand
|
||||||
redim _preserve commands(ubound(commands) + 1) as string
|
redim _preserve commands(ubound(commands) + 1) as string
|
||||||
|
|
||||||
redraw
|
redraw
|
||||||
end if
|
end if
|
||||||
end select
|
end select
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue