diff options
| -rw-r--r-- | doc/messageBox.n | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/doc/messageBox.n b/doc/messageBox.n index c4603b1..8c7ad8d 100644 --- a/doc/messageBox.n +++ b/doc/messageBox.n @@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: messageBox.n,v 1.1.4.1 1998/09/30 02:16:23 stanton Exp $ +'\" RCS: @(#) $Id: messageBox.n,v 1.1.4.2 1999/04/09 21:04:44 surles Exp $ '\" .so man.macros .TH tk_messageBox n 4.2 Tk "Tk Built-In Commands" @@ -80,7 +80,7 @@ and \fBcancel\fR. .SH EXAMPLE .CS set answer [tk_messageBox \-message "Really quit?" \-type yesno \-icon question] -case $answer { +switch -- $answer { yes exit no {tk_messageBox \-message "I know you like this application!" \-type ok} } |