21 lines
592 B
Plaintext
21 lines
592 B
Plaintext
nomainwin
|
|
colors$="black red green blue pink cyan yellow white"
|
|
WindowWidth=DisplayWidth:WindowHeight=DisplayHeight
|
|
UpperLeftX=1:UpperLeftY=1
|
|
barWidth=DisplayWidth/8
|
|
graphicbox #main.g, 0,0,DisplayWidth,DisplayHeight
|
|
open "" for window_popup as #main
|
|
#main "trapclose [quit]"
|
|
#main.g "down; setfocus; when characterInput [quit]"
|
|
#main.g "when leftButtonUp [quit]"
|
|
#main.g "size ";barWidth
|
|
|
|
for x = barWidth/2 to DisplayWidth step barWidth
|
|
i=i+1
|
|
if i>8 then i=1
|
|
col$=word$(colors$,i)
|
|
#main.g "color ";col$;"; line ";x;" 0 ";x;" ";DisplayHeight
|
|
next
|
|
wait
|
|
[quit] close #main:end
|