#!/usr/bin/wish
#Test a checkbutton

package require wylib

label .tl -text {Test checkbutton:}

checkbutton .cb2
pack .tl .cb2 -side left

button .clr -text Clear -command ".cb2 modified 0"
pack .clr -side bottom

bind .cb2 <<Modified>> {puts "modified: [.cb2 modified]"}
