stk/Contrib/STk-wtour/lessons/checkbutton.stk

10 lines
189 B
Plaintext
Raw Normal View History

1996-09-27 06:29:02 -04:00
;; A checkbutton widget
(checkbutton '.c1 :text "Select me" :anchor "w")
(pack .c1 :fill "x")
;; Shorter ...
(pack
(checkbutton '.c2 :text "Select me too" :anchor "w")
:fill "x")