Save space

This commit is contained in:
visionmercer 2026-05-27 13:49:59 +02:00
commit 9e20f329e4

View file

@ -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