rem ' progressbar.txt started=0 sysgui = unt open (sysgui)"X0" sysgui! = bbjapi().getSysGui() window! = sysgui!.addWindow(100,100,200,300,"BBjProgressBar",$2009008f$) window!.setCallback(sysgui!.ON_CLOSE,"eoj") startButton! = window!.addButton(1,5,10,90,20,"Start") startButton!.setCallback(sysgui!.ON_BUTTON_PUSH,"doStart") stopButton! = window!.addButton(2,5,40,90,20,"Stop",$0001$) stopButton!.setCallback(sysgui!.ON_BUTTON_PUSH,"doStop") resetButton! = window!.addButton(3,5,70,90,20,"Reset") resetButton!.setCallback(sysgui!.ON_BUTTON_PUSH,"doReset") ProgressBar! = window!.addProgressBar(101,125,10,50,280,sysgui!.VERTICAL) ProgressBar!.setCallback(ProgressBar!.ON_GAINED_FOCUS,"event") ProgressBar!.setCallback(ProgressBar!.ON_LOST_FOCUS,"event") ProgressBar!.setCallback(ProgressBar!.ON_MOUSE_ENTER,"event") ProgressBar!.setCallback(ProgressBar!.ON_MOUSE_EXIT,"event") rem ProgressBar!.setCallback(ProgressBar!.ON_POPUP_REQUEST,"event") rem ProgressBar!.setCallback(ProgressBar!.ON_RIGHT_MOUSE_DOWN,"event") process_events eoj: release doStart: started=1 startButton!.setEnabled(0) bbjapi().createTimer("progress-timer",0.1,"progress") stopButton!.setEnabled(1) return doStop: if (started) then stopButton!.setEnabled(0) bbjapi().removeTimer("progress-timer") startButton!.setEnabled(1) started=0 endif return progress: ProgressBar!.setValue(ProgressBar!.getValue()+1) if ProgressBar!.getValue() >= ProgressBar!.getMaximum() gosub doStop endif return doReset: ProgressBar!.setValue(ProgressBar!.getMinimum()) return event: event! = sysgui!.getLastEvent() event$ = event!.toString(), event$ = event$(1,pos("@"=event$)-1) control! = event!.getControl() control$ = control!.toString(), control$ = control$(1,pos("@"=control$)-1) print control$," ",event$ return