13 lines
437 B
Plaintext
13 lines
437 B
Plaintext
|
(metadata (title "General example"))
|
||
|
|
(on-update '())
|
||
|
|
(on-load '((fun () (log "Loaded!"))))
|
||
|
|
(document
|
||
|
|
(let (good "Goooood...")
|
||
|
|
(text "↓ Click this button ↓")
|
||
|
|
(button :text "yes, this one"
|
||
|
|
:callback (fun (btn)
|
||
|
|
(set-label btn good)))
|
||
|
|
(button :text "not this one"
|
||
|
|
:callback (fun (btn)
|
||
|
|
(set-label btn (+ "not " good))))))
|