# This is a Tcl script intended for execution within an active document.
# It is not a stand-alone script.

frame .ctl
button .ctl.dismiss -text "Dismiss" -command {exit}
button .ctl.search -text "Push Me" -command {
	.feedback configure -text {Ooh Ahh!}
}
pack .ctl.search .ctl.dismiss -side left
label .feedback -width 40
pack .ctl -side top -anchor nw
pack .feedback -side bottom -fill x
wm title . "Example 1"
