Megatest: sample.scm at [e9a528680b]

☰Home Timeline Files Branches Tags Tickets Wiki Login

File iup-test/sample.scm artifact 1ceaf48da8 part of check-in e9a528680b

(use iup)

(show (dialog (vbox (button "PUSHME"
                            button-cb: (lambda (obj . param)
                                        (print "obj: " obj " param: " param))
                            action: (lambda (obj)
                                      (print "obj: " obj))))))

(main-loop)