diff options
Diffstat (limited to 'library/msgbox.tcl')
| -rw-r--r-- | library/msgbox.tcl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/library/msgbox.tcl b/library/msgbox.tcl index f3df745..12857d5 100644 --- a/library/msgbox.tcl +++ b/library/msgbox.tcl @@ -3,7 +3,7 @@ # Implements messageboxes for platforms that do not have native # messagebox support. # -# RCS: @(#) $Id: msgbox.tcl,v 1.9 2000/04/18 02:18:33 ericm Exp $ +# RCS: @(#) $Id: msgbox.tcl,v 1.10 2000/04/19 09:25:53 hobbs Exp $ # # Copyright (c) 1994-1997 Sun Microsystems, Inc. # @@ -280,8 +280,7 @@ proc tkMessageBox {args} { option add *Dialog.msg.font {Times 18} widgetDefault } - label $w.msg -justify left -text $data(-message) - pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m + label $w.msg -anchor nw -justify left -text $data(-message) if {[string compare $data(-icon) ""]} { if {[string equal $tcl_platform(platform) "macintosh"] \ || ([winfo depth $w] < 4) || $tk_strictMotif} { @@ -320,8 +319,10 @@ proc tkMessageBox {args} { } } } - pack $w.bitmap -in $w.top -side left -padx 3m -pady 3m } + grid $w.bitmap $w.msg -in $w.top -sticky news -padx 2m -pady 2m + grid columnconfigure $w.top 1 -weight 1 + grid rowconfigure $w.top 0 -weight 1 # 5. Create a row of buttons at the bottom of the dialog. |