iup-test.scm

(use iup)

(define btn-ok
  (button title: "OK"))

(define btn-activate
  (button title: "Activate"))

(define btn-exit
  (button title: "Exit"))

(callback-set! btn-ok "ACTION" (lambda (args)
                                 (print "OK pressed!")))

(callback-set! btn-exit "ACTION" (lambda (args)
                                   (exit)))

(define main-window
  (dialog title: "Main Window"
          (vbox
           (label title: "Write stuff here:")
           (textbox expand: "YES" multiline: "YES")
           (hbox (fill) btn-ok btn-activate btn-exit))))

(show main-window)

(main-loop)