tk_messageBox ?option value ...?
The following option-value pairs are supported:
set answer [tk_messageBox -message "Really quit?" -type yesno -icon question] case $answer { yes exit no {tk_messageBox -message "I know you like this application!" -type ok} }
Copyright © 1989-1994 The Regents of the University of California.
Copyright © 1994-1997 Sun Microsystems, Inc.