spade-0.1.0.9: samples/tui.spd

csinit()
let l = layout("v", [])
setsize(l, 100, 30)
let s = selector("Test selector", [[1, "Option 1"], [2, "Option 2"]])
let s1 = selector("Test selector", [[1, "Option 1"], [2, "Option 2"]])
let b1 = button("Button 1")
let b2 = button("Button 2")
let ml = multilineinput()
attach(l, s)
attach(l, s1)
attach(l, b1)
attach(l, b2)
attach(l, ml)
setsize(ml, 30, 10)
setfocus(l, true)


loop
  csclear()
  draw(l)
  csdraw()
  let ks = waitforkey()
  handle(l, ks)
endloop