menu auto exit when done.

This commit is contained in:
visionmercer 2026-05-12 13:39:36 +02:00
commit 7344f5b6c3

View file

@ -716,6 +716,7 @@ loop
close fh close fh
redim _preserve commands(i-1) as string redim _preserve commands(i-1) as string
redraw redraw
done=-1
end if end if
if link(10,34,"save") then if link(10,34,"save") then
@ -727,6 +728,7 @@ for i=0 to ubound(commands)
print #fh, commands(i) print #fh, commands(i)
next i next i
close fh close fh
done=-1
end if end if
if link(10,56,"export") then if link(10,56,"export") then
@ -742,6 +744,7 @@ savebinaryPPM layers(1).ihandle, filename
case else case else
save32bitPNG layers(1).ihandle, filename save32bitPNG layers(1).ihandle, filename
end select end select
done=-1
end if end if
if link(10,78,"exit") then system if link(10,78,"exit") then system