;; 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")