31 lines
671 B
Plaintext
31 lines
671 B
Plaintext
|
;; tkwait, used for waiting for dialog input
|
||
|
|
|
||
|
|
(define tkwait-label #f)
|
||
|
|
|
||
|
|
(define make-panel
|
||
|
|
(lambda ()
|
||
|
|
(toplevel '.top)
|
||
|
|
(button '.top.ok
|
||
|
|
:text "OK"
|
||
|
|
:command (lambda ()
|
||
|
|
(set! tkwait-label "ok")
|
||
|
|
(destroy .top)))
|
||
|
|
(button '.top.cancel
|
||
|
|
:text "Cancel"
|
||
|
|
:command (lambda ()
|
||
|
|
(set! tkwait-label "cancel")
|
||
|
|
(destroy .top)))
|
||
|
|
|
||
|
|
(pack .top.ok .top.cancel :side "left" :padx "10" :pady "10")
|
||
|
|
(grab 'set .top)
|
||
|
|
(tkwait 'window .top)
|
||
|
|
tkwait-label))
|
||
|
|
|
||
|
|
(button '.b
|
||
|
|
:text "Try pressing me!"
|
||
|
|
:command (lambda ()
|
||
|
|
(let ([x (make-panel)])
|
||
|
|
(format #t "You pressed ~a\n" x))))
|
||
|
|
|
||
|
|
(pack .b)
|