19 lines
713 B

;;;; 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
`(("OK" ,(lambda () (display "You pressed OK\n")))
("Cancel" ,(lambda () (display "You pressed Cancel\n")))
("See Code" ,(lambda () (show-code "dialog2"))))))