rem ' openList/closeList
sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()
window! = sysgui!.addWindow(100,100,280,250,"open/close",$00090003$,$$)
window!.setCallback(window!.ON_CLOSE,"eoj")
toggle_listbutton! = window!.addToolButton(201,10,10,125,20,"LISTBUTTON",$0400$)
toggle_listbutton!.setCallback(toggle_listbutton!.ON_TOOL_BUTTON_PUSH,"listbutton")
toggle_listedit! = window!.addToolButton(202,145,10,125,20,"LISTEDIT",$0400$)
toggle_listedit!.setCallback(toggle_listedit!.ON_TOOL_BUTTON_PUSH,"listedit")
list$=$$
for i = 0 to 999
list$ = list$ + str(i:"000")+$0a$
next i
listbutton! = window!.addListButton(101,10,40,125,200,list$,$$)
listedit! = window!.addListEdit(102,145,40,125,200,list$,$$)
process_events
eoj:
release
listbutton:
if (toggle_listbutton!.isSelected()) then
listbutton!.openList()
else
listbutton!.closeList()
endif
return
listedit:
if (toggle_listedit!.isSelected()) then
listedit!.openList()
else
listedit!.closeList()
endif
|
