Megatest

Artifact 8e30a2b72c0a3b59e3f740e24c167f48c7449d29:

• File testbuild/m3.scm — part of check-in [49214f61e2] at 2021-11-13 21:17:57 on branch v1.6584-nanomsg — Added minimal example of how build works (user: matt, size: 307) [annotate] [blame] [check-ins using]

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

)