BBjListButton::closeList

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