size 9

defenv gmc " "
defenv gmi " "
defenv gma " "
defenv infoon yes
onchange gmpid to *none* quit
onchange gmm update
onexit dumpx bpx dumpy bpy 'run >nil: execute TheEnd'
font [bpfont]

title "GMPlayGUI 1.4"
close on
x [bpx]
y [bpy]
rows 4
gap 1

background [bpbackground]
color light
text "[gmdisp]"
color dark [bpbuttons]
button Next 'break [gmpid]'
button Pause dumpx bpx dumpy bpy 'setenv gmpause yes' 'break [gmpid]' quit
button Choose 'execute choose'
color light [bpbuttons]
[gmi] button Info 'setenv gmi ";"' 'run >nil: selector info' update
color dark [bpbuttons]
button "PlayDir" 'run >nil: execute getplaydir'
color light [bpbuttons]
[gmc] button Options 'setenv gmc ";"' 'run >nil: selector options' update
[gma] button About 'setenv gma ";"' 'run >nil: selector info2' update
color dark [bpbuttons]
;button Quit exit