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

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