22 lines
667 B
Plaintext
22 lines
667 B
Plaintext
|
;; A Dialog box
|
||
|
|
|
||
|
|
(define do-dialog
|
||
|
|
(lambda ()
|
||
|
|
(let ([i (stk:make-dialog :title "A Dialog Box"
|
||
|
|
:text "What do you want to do?"
|
||
|
|
:bitmap "question"
|
||
|
|
:grab #t
|
||
|
|
:defaults 0
|
||
|
|
:buttons
|
||
|
|
(list
|
||
|
|
`("Ok" ,(lambda () (display "Ok\n")))
|
||
|
|
`("Cancel" ,(lambda () (display "Cancel\n")))
|
||
|
|
`("Abort" ,(lambda () (display "Abort\n")))
|
||
|
|
`("Retry" ,(lambda () (display "Retry\n"))
|
||
|
|
`("Help" ,(lambda () (display "Help\n"))))))])
|
||
|
|
|
||
|
|
(format #t "You pressed button #~s\n" i))))
|
||
|
|
|
||
|
|
(button '.b :text "Press Me" :width 40 :command (lambda () (do-dialog)))
|
||
|
|
(pack .b :ipadx 10 :ipady 10)
|