Tk Library Source Code: Artifact [41aaba30fc]

Artifact 41aaba30fc3a9caace7cc015083d5f5852366c9f:

Attachment "foo.tcl" to ticket [1492527fff] added by nobody 2006-05-21 22:52:55.

package require BWidget

proc foo {w} {
    tk_messageBox -title "Foo" -message "Hello!" \
	-icon error -type ok -parent [winfo toplevel $w]
}

set fn .dialog
Dialog $fn -title "Dialog" -modal global -parent .
button $fn.b -text "Click me!" -command {foo $fn}
button $fn.q -text "Quit" -command {$fn enddialog 0}
pack $fn.b $fn.q
$fn draw