BBjBuiManager::getAttribute

rem ' BBjBuiManager::getAttribute

attribute$ = "lang"
value$ = "en-US"
selector$ = ""

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

title$ = "BBjBuiManager::getAttribute"
window! = sysgui!.addWindow(25,25,600,275,title$,$00090083$)
window!.setCallback(window!.ON_RESIZE,"resize")
window!.setCallback(window!.ON_CLOSE,"eoj")

window!.addStaticText(101,5,25,90,25,"Attribute:",$8000$)
attribute! = window!.addEditBox(102,100,25,475,25,attribute$,$$)

window!.addStaticText(103,5,75,90,25,"Value:",$8000$)
value! = window!.addEditBox(104,100,75,475,25,value$,$$)

window!.addStaticText(105,5,125,90,25,"Selector:",$8000$)
selector! = window!.addEditBox(106,100,125,475,25,selector$,$$)

setAttribute! = window!.addButton(1,100,175,475,25,"setAttribute",$$)
setAttribute!.setCallback(setAttribute!.ON_BUTTON_PUSH,"setAttribute")

getAttribute! = window!.addButton(2,100,225,475,25,"getAttribute",$$)
getAttribute!.setCallback(getAttribute!.ON_BUTTON_PUSH,"getAttribute")

browser! = bbjapi().getBuiManager(err=oops)
browser!.getUrl(err=oops)

process_events

oops:
  i = msgbox("This functionality is only supported in browser environments.")
eoj:
  release

resize:
  event! = sysgui!.getLastEvent()
  width = event!.getWidth()
  height = event!.getHeight()
  attribute!.setSize(width-125,25)
  value!.setSize(width-125,25)
  selector!.setSize(width-125,25)
  setAttribute!.setSize(width-125,25)
  getAttribute!.setSize(width-125,25)
return

setAttribute:
  attribute$ = attribute!.getText()
  value$ = value!.getText()
  selector$ = selector!.getText()
  browser!.setAttribute(attribute$, value$, selector$)
return

getAttribute:
  attribute$ = attribute!.getText()
  selector$ = selector!.getText()
  value$ = browser!.getAttribute(attribute$, selector$)
  value!.setText(value$)
return