# This demonstration script creates a toplevel window containing
# several checkbuttons.
#
-# SCCS: @(#) check.tcl 1.4 97/03/02 16:19:57
+# RCS: @(#) $Id$
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
checkbutton $w.b2 -text "Brakes OK" -variable brakes -relief flat
checkbutton $w.b3 -text "Driver Sober" -variable sober -relief flat
pack $w.b1 $w.b2 $w.b3 -side top -pady 2 -anchor w
+