File iup/test.scm artifact aebb9a7f5d part of check-in b89c5d2520


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