rem ' BBjButton::getDisableOnClick
begin
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
title$ = "setDisableOnClick"
window! = sysgui!.addWindow(100,100,415,300,title$,$00090003$,$$)
window!.setCallback(window!.ON_CLOSE,"eoj")
rem ' BBjButton
dboc! = window!.addCheckBox(100,10,10,125,25,"Disable on click",$$)
dboc!.setCallback(dboc!.ON_CHECK_ON,"dboc_on")
dboc!.setCallback(dboc!.ON_CHECK_OFF,"dboc_off")
button! = window!.addButton(101,145,10,100,25,"Button",$$)
button!.setCallback(button!.ON_BUTTON_PUSH,"button")
eb! = window!.addCheckBox(102,280,10,100,25,"Enabled",$0004$)
eb!.setCallback(eb!.ON_CHECK_ON,"eb_on")
eb!.setCallback(eb!.ON_CHECK_OFF,"eb_off")
rem ' BBjMenuButton
dmoc! = window!.addCheckBox(200,10,50,125,25,"Disable on click",$$)
dmoc!.setCallback(dmoc!.ON_CHECK_ON,"dmoc_on")
dmoc!.setCallback(dmoc!.ON_CHECK_OFF,"dmoc_off")
menubutton! = window!.addMenuButton(201,145,50,100,25,"MenuButton",$4000$)
menubutton!.setCallback(menubutton!.ON_BUTTON_PUSH,"menubutton")
em! = window!.addCheckBox(202,280,50,100,25,"Enabled",$0004$)
em!.setCallback(em!.ON_CHECK_ON,"em_on")
em!.setCallback(em!.ON_CHECK_OFF,"em_off")
rem ' BBjToolButton
dtoc! = window!.addCheckBox(300,10,90,125,25,"Disable on click",$$)
dtoc!.setCallback(dmoc!.ON_CHECK_ON,"dtoc_on")
dtoc!.setCallback(dmoc!.ON_CHECK_OFF,"dtoc_off")
toolbutton! = window!.addToolButton(301,145,90,100,25,"ToolButton",$$)
toolbutton!.setCallback(toolbutton!.ON_TOOL_BUTTON_PUSH,"toolbutton")
et! = window!.addCheckBox(302,280,90,100,25,"Enabled",$0004$)
et!.setCallback(et!.ON_CHECK_ON,"et_on")
et!.setCallback(et!.ON_CHECK_OFF,"et_off")
rem ' Events
events! = window!.addCEdit(999,10,130,395,160,$$,$8184$)
events = 0, x$ = ""
window!.focus()
process_events
eoj:
release
event:
e! = sysgui!.getLastEvent()
e$ = str(e!), p = pos("@"=e$); if p then e$ = e$(1,p-1)
c! = e!.getControl()
c$ = str(c!), p = pos("@"=c$); if p then c$ = c$(1,p-1)
events = events + 1
x$ = str(System.currentTimeMillis())
event$ = str(events)+" "+x$+" "+c$+" "+str(c!.getID())+" "+e$
print event$
events!.addParagraph(-1,event$)
events!.highlight(-1,0,-1,0)
x$ = ""
return
button:
gosub event
eb!.setSelected(button!.isEnabled())
return
dboc_on:
button!.setDisableOnClick(1)
print button!," getDisableOnClick ",button!.getDisableOnClick()
return
dboc_off:
button!.setDisableOnClick(0)
print button!," getDisableOnClick ",button!.getDisableOnClick()
return
eb_on:
button!.setEnabled(1)
return
eb_off:
button!.setEnabled(0)
return
menubutton:
gosub event
em!.setSelected(menubutton!.isEnabled())
return
dmoc_on:
menubutton!.setDisableOnClick(1)
print menubutton!," getDisableOnClick ",menubutton!.getDisableOnClick()
return
dmoc_off:
menubutton!.setDisableOnClick(0)
print menubutton!," getDisableOnClick ",menubutton!.getDisableOnClick()
return
em_on:
menubutton!.setEnabled(1)
return
em_off:
menubutton!.setEnabled(0)
return
toolbutton:
gosub event
et!.setSelected(toolbutton!.isEnabled())
return
dtoc_on:
toolbutton!.setDisableOnClick(1)
print toolbutton!," getDisableOnClick ",toolbutton!.getDisableOnClick()
return
dtoc_off:
toolbutton!.setDisableOnClick(0)
print toolbutton!," getDisableOnClick ",toolbutton!.getDisableOnClick()
return
et_on:
toolbutton!.setEnabled(1)
return
et_off:
toolbutton!.setEnabled(0)
return
|