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

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