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


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