Megatest

m3.scm at [3d29ed0bb1]
Login

File testbuild/m3.scm artifact 8e30a2b72c part of check-in 3d29ed0bb1


;; 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))

)