# 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 {destroy .}
button .ctl.search -text "Delete Me" -command {
	destroy .ctl.search
}
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 2"
