aUCBLogo Demos and Tests / choiceboxtest


be choiceboxtest
   
thread [cbtest]
end

be cbtest
   
local [f cb bappend bdelete bs bs2 finish]
   
f=(Frame [][MyFrame] 
      
wxDefault_Frame_Style+wxStay_on_Top
      
[400 300][300 100])
   
FrameOnClose [finish=true]

   
cb=ChoiceBox [MyChoiceBox]
   
[   [String 1]
      
[and a second string]
      
[and the last string]
   
]
   
[   (show "MyChoiceBox ChoiceBoxSelection)
   
]

   
bappend=Button [&append item]
   
[   ChoiceBoxAppend cb se [and another itemgensym
   
]
   
   
bdelete=Button [&delete last item]
   
[   if (ChoiceBoxCount cb) > 0
      
[   ChoiceBoxRemoveItem cb (ChoiceBoxCount cb)-1
      
]
   
]
   
bs=BoxSizer wxVertical
   
BoxSizerAdd bs cb wxExpand 0
   
bs2=BoxSizer wxHorizontal
   
BoxSizerAdd bs2 bappend wxExpand 0
   
BoxSizerAdd bs2 bdelete wxExpand 0
   
BoxSizerAdd bs bs2 wxExpand 0
   
FrameSetSizer f bs
   
FrameSetClientSize --1

   
finish=false
   
until [finish]
   
[   dispatchMessages
      
waituS 100000
   
]   
end