19 lines
713 B
Plaintext
19 lines
713 B
Plaintext
;;;;
|
|
;;;; STk adaptation of the Tk widget demo.
|
|
;;;;
|
|
;;;; This demonstration script creates a dialog box with a global grab.
|
|
;;;;
|
|
|
|
|
|
(define (demo-dialog2)
|
|
(STk:make-dialog :title "Dialog with global grab"
|
|
:text "This dialog box uses a global grab, so it prevents you from interacting with anything on your display until you invoke one of the buttons below. Global grabs are almost always a bad idea; don't use them unless you're truly desperate."
|
|
:bitmap "info"
|
|
:default 0
|
|
:grab 'global
|
|
:buttons
|
|
`(("OK" ,(lambda () (display "You pressed OK\n")))
|
|
("Cancel" ,(lambda () (display "You pressed Cancel\n")))
|
|
("See Code" ,(lambda () (show-code "dialog2"))))))
|
|
|