set checkvar 0
label .l -textvariable checkvar -bg grey77
checkbutton .b -variable checkvar -text checked? -bg grey77
pack .l -side top -fill x
pack .b -side top -fill both -expand y