24 lines
941 B
Plaintext
24 lines
941 B
Plaintext
;;;;
|
|
;;;; STk adaptation of the Tk widget demo.
|
|
;;;;
|
|
;;;; This demonstration script creates a toplevel window containing
|
|
;;;; several checkbuttons.
|
|
;;;;
|
|
(require "Button")
|
|
|
|
(define (demo-check)
|
|
(let ((w (make-demo-toplevel "check"
|
|
"Checkbutton Demonstration"
|
|
"Three checkbuttons are displayed below. If you click on a button, it will toggle the button's selection state and set a Tcl variable to a value indicating the state of the checkbutton. Click the \"See Variables\" button to see the current values of the variables."
|
|
'wipers 'brakes 'sober)))
|
|
;; Create checkbuttons
|
|
(pack (make <Check-button> :parent w :text "Wipers OK"
|
|
:variable 'wipers :relief "flat")
|
|
(make <Check-button> :parent w :text "Brakes OK"
|
|
:variable 'brakes :relief "flat")
|
|
(make <Check-button> :parent w :text "Driver Sober"
|
|
:variable 'sober :relief "flat")
|
|
:side "top"
|
|
:pady 2
|
|
:anchor "w")))
|