BBjControl::addClass

rem ' BBjControl::addClass

sysgui = unt
open (sysgui)"X0"
sysgui! = bbjapi().getSysGui()

window! = sysgui!.addWindow(25,25,350,300,"addClass",$00090083$)
window!.setCallback(window!.ON_CLOSE,"eoj")

text$ = "The quick brown fox jumps over the lazy dog."
text! = window!.addStaticText(100,25,25,300,25,text$)

window!.addStaticText(101,25,75,50,25,"Class:",$8000$)
class! = window!.addEditBox(102,100,75,225,25,"xyzzy",$$)

addClass! = window!.addButton(103,100,125,225,25,"addClass")
addClass!.setCallback(addClass!.ON_BUTTON_PUSH,"addClass")

removeClass! = window!.addButton(104,100,175,225,25,"removeClass")
removeClass!.setCallback(removeClass!.ON_BUTTON_PUSH,"removeClass")

getClassList! = window!.addButton(1,100,225,225,25,"getClassList")
getClassList!.setCallback(getClassList!.ON_BUTTON_PUSH,"getClassList")

process_events

eoj:
release

addClass:
  text!.addClass(class!.getText(),err=*next); return
  i = msgbox(errmes(-1),0,"addClass")
return

removeClass:
  text!.removeClass(class!.getText(),err=*next); return
  i = msgbox(errmes(-1),0,"removeClass")
return

getClassList:
   classList! = text!.getClassList()
   i = msgbox(str(classList!),0,"getClassList()")
return