test.scm added by jj086709 on Sun Jan 10 03:27:27 2016

(require-library iup)
(import iup iup-dialogs)

(load/led "test2.led")

(callback-set! (handle-ref "btn-left-cent")
               action: (lambda (self) (write "center left")
                                      (newline)
                                      'default))

(callback-set! (handle-ref "btn-right-cent")
               action: (lambda (self) (write "center right")
                                      (newline)
                                      'default))

(callback-set! (handle-ref "btn-cent-cent")
               action: (lambda (self) (write "center")
                                      (newline)
                                      'default))

(callback-set! (handle-ref "btn-left-top")
               action: (lambda (self) (write "top left")
                                      (newline)
                                      'default))

(callback-set! (handle-ref "btn-right-top")
               action: (lambda (self) (write "top right")
                                      (newline)
                                      'default))

(callback-set! (handle-ref "btn-cent-top")
               action: (lambda (self) (write "top center")
                                      (newline)
                                      'default))

(callback-set! (handle-ref "btn-left-bot")
               action: (lambda (self) (write "bottom left")
                                      (newline)
                                      'default))

(callback-set! (handle-ref "btn-right-bot")
               action: (lambda (self) (write "bottom right")
                                      (newline)
                                      'default))

(callback-set! (handle-ref "btn-cent-bot")
               action: (lambda (self) (write "bottom center")
                                      (newline)
                                      'default))

(callback-set! (handle-ref "btn-close")
               action: (lambda (self) (write "Closing window")
                                     (newline)
                                     'close))

(define dlg (handle-ref "dlg"))

(show dlg)
(main-loop)
(destroy! dlg)
(exit 0)