Posted to tcl by kbk at Thu Mar 15 19:10:31 GMT 2007view raw
- toplevel .dialog
- wm title .dialog "A Question"
- label .dialog.l1 -text "How high is up?"
- entry .dialog.e1 -textvariable altitude
- button .dialog.b1 -text "OK" -command [list destroy .dialog]
- grid .dialog.l1 .dialog.e1
- grid .dialog.b1 -columnspan 2
- tkwait window .dialog
- tk_messageBox -title "Your answer" -message "The altitude is $::altitude"