Post by metro on Feb 24, 2023 0:49:48 GMT -5
This code works for me with LB4.5.1 but throws a hissy fit in lb5x64-353
(or has the syntax changed for 5 )
nomainwin
open "Menu Select" for graphics_nsb as #1
print #1, "trapclose [quit]"
print #1, "when rightButtonUp [popupMenu]"
wait ' stop and wait for a menu item to be chosen
wait
[popupMenu]
popupmenu " View screen dimensions",[scale],_
" Change image size by a factor",[alter],_
" Screen Color",[screencolor],_
" Line width for NEW figures",[pensize],_
" Line and & Text Color for NEW figures",[pencolor],_
" Shift the drawing",[shift],_
" Draw freehand (not saved)",[begindraw],_
" Draw a box",[drawbox],_
" Circle",[round],_
" Polygon",[polygon],_
" Ellipse",[ellipse],_
" Line from point to point",[ppline],_
" Project a line from a point",[projectline],_
" Data generated by pointing at last figure with locate on", [inspect],_
" UnDo",[undo],_
" Where is",[whereis],_
" Where you pointed",[findit],_
" see grid",[grid],_
" Make a lable",[makelable],_
" Calculator",[calculator],_
" Turn locate on/off",[onoff],_
" Save as a BMP",[savebmp],_
" Recall a BMP",[recallbmp],_
" Print Screen",[printscreen],_
" Help",[help],_
" Edit file",[edit],_
" Quit",[quit],_
" Print variable",[variable]
wait
[quit]
close #1
end