Artifact aebb9a7f5d51614222a039e025cb4c0aad4acdc8:

• File iup/test.scm — part of check-in [1e08e6c5f5] at 2011-01-30 16:01:36 on branch trunk — Imported initial copy of iup from chicken egg svn (user: matt, size: 98) [annotate] [blame] [check-ins using]

(let ([dlg (dialog #:title "Test" (button "Push me!" #:action print))]) 
  (show dlg #:modal? #t))