File iup-test/sample.scm artifact 1ceaf48da8 part of check-in 1fff14fbea
(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)