nomainwin WindowWidth = 332 WindowHeight = 356 UpperLeftX = 200 graphicbox #w.gb, 0, 0, 318, 318 open "Graphicbox scroll test" for window as #w #w "trapclose [quit]" #w.gb "vertscrollbar on 0 700" #w.gb "horizscrollbar on 0 700" #w.gb "down; size 4" #w.gb "place 0 0; boxfilled 1000 1000" #w.gb "line 0 0 1000 1000" #w.gb "line 0 1000 1000 0" #w.gb "flush" UpperLeftX = 550 open "Graphics window scroll test" for graphics as #g #g "trapclose [quit]" #g "vertscrollbar on 0 700" #g "horizscrollbar on 0 700" #g "down; size 4" #g "place 0 0; boxfilled 1000 1000" #g "line 0 0 1000 1000" #g "line 0 1000 1000 0" #g "flush" wait [quit] close #w close #g end
|