diff options
| author | hobbs <hobbs> | 2000-04-19 09:25:52 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-04-19 09:25:52 (GMT) |
| commit | 65fb9b709cd298c9528eadbb2f5e7969a9b897c0 (patch) | |
| tree | 5f4d5234a1c55a7dff7f6b53b22b42ee3b37f3db /library/msgbox.tcl | |
| parent | f7b076a54982678c409753c1acf6650bdda2b096 (diff) | |
| download | tk-65fb9b709cd298c9528eadbb2f5e7969a9b897c0.zip tk-65fb9b709cd298c9528eadbb2f5e7969a9b897c0.tar.gz tk-65fb9b709cd298c9528eadbb2f5e7969a9b897c0.tar.bz2 | |
* README:
* generic/tk.h:
* unix/configure.in:
* unix/tk.spec:
* win/configure.in: bumped to version 8.3.1
* library/msgbox.tcl (tkMessageBox): changed to use grid in some
places, realign icon to anchor nw.
* mac/tkMacScale.c: reverted tkMacScale.c to 1.5 equivalent (it
was accidentally bumped forward).
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. |