File testbuild/m3.scm artifact 8e30a2b72c part of check-in 39f1ace0d3
;; a module used only by gui.scm ;; (declare (unit m3)) (module m3 * (import scheme chicken.base iup) (define (c) (print "I'm from module m3") (show (dialog (vbox (label "Hello, I'm a gui") (button "Push me to exit" action: (lambda (obj)(exit))) ))) (main-loop)) )