BBjWebManager::getTheme

rem ' BBjWebManager Themes

title$ = "BBjWebManager Themes"

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

web! = bbjapi().getWebManager()

window! = sysgui!.addWindow(25,25,600,325,title$,$00090083$)
window!.setCallback(window!.ON_CLOSE,"eoj")

window!.addStaticText(101,25,25,150,25,"setTheme:",$8000$)
themes$ = "light" + $0a$ + "dark" + $0a$ + "dark-pure" + $0a$ + "system" + $0a$
setThemeList! = window!.addListEdit(102,200,25,200,200,themes$,$$)
setThemeList!.selectIndex(0)
setTheme! = window!.addButton(103,425,25,150,25,"setTheme",$$)
setTheme!.setCallback(setTheme!.ON_BUTTON_PUSH,"setTheme")

window!.addStaticText(104,25,75,150,25,"getTheme:",$8000$)
getThemeText! = window!.addEditBox(105,200,75,200,25,"",$$)
getThemeText!.setEditable(0)
getTheme! = window!.addButton(106,425,75,150,25,"getTheme",$$)
getTheme!.setCallback(getTheme!.ON_BUTTON_PUSH,"getTheme")

window!.addStaticText(107,25,125,150,25,"setDarkTheme:",$8000$)
themes$ = "dark" + $0a$ + "dark-pure" + $0a$ + "light" + $0a$
setDarkThemeList! = window!.addListEdit(108,200,125,200,200,themes$,$$)
setDarkThemeList!.selectIndex(0)
setDarkTheme! = window!.addButton(109,425,125,150,25,"setDarkTheme",$$)
setDarkTheme!.setCallback(setDarkTheme!.ON_BUTTON_PUSH,"setDarkTheme")

window!.addStaticText(110,25,175,150,25,"getDarkTheme:",$8000$)
getDarkThemeText! = window!.addEditBox(111,200,175,200,25,"",$$)
getDarkThemeText!.setEditable(0)
getDarkTheme! = window!.addButton(112,425,175,150,25,"getDarkTheme",$$)
getDarkTheme!.setCallback(getDarkTheme!.ON_BUTTON_PUSH,"getDarkTheme")

window!.addStaticText(113,25,225,150,25,"setLightTheme:",$8000$)
themes$ = "light" + $0a$ + "dark" + $0a$ + "dark-pure" + $0a$
setLightThemeList! = window!.addListEdit(114,200,225,200,200,themes$,$$)
setLightThemeList!.selectIndex(0)
setLightTheme! = window!.addButton(115,425,225,150,25,"setLightTheme",$$)
setLightTheme!.setCallback(setLightTheme!.ON_BUTTON_PUSH,"setLightTheme")

window!.addStaticText(116,25,275,150,25,"getLightTheme:",$8000$)
getLightThemeText! = window!.addEditBox(117,200,275,200,25,"",$$)
getLightThemeText!.setEditable(0)
getLightTheme! = window!.addButton(118,425,275,150,25,"getLightTheme",$$)
getLightTheme!.setCallback(getLightTheme!.ON_BUTTON_PUSH,"getLightTheme")

process_events

eoj:
release

setTheme:
  theme$ = setThemeList!.getText()
  web!.setTheme(theme$)
return

getTheme:
  theme$ = web!.getTheme()
  getThemeText!.setText(theme$)
return

setDarkTheme:
  darkTheme$ = setDarkThemeList!.getText()
  web!.setDarkTheme(darkTheme$)
return

getDarkTheme:
  darkTheme$ = web!.getDarkTheme()
  getDarkThemeText!.setText(darkTheme$)
return

setLightTheme:
  lightTheme$ = setLightThemeList!.getText()
  web!.setLightTheme(lightTheme$)
return

getLightTheme:
  lightTheme$ = web!.getLightTheme()
  getLightThemeText!.setText(lightTheme$)
return