set checkvar off label .l -textvariable checkvar -bg grey77 checkbutton .b -variable checkvar -onvalue on -offvalue off \ -text checked? -bg grey77 pack .l -side top -fill x pack .b -side top -fill both -expand y