summaryrefslogtreecommitdiffstats
path: root/library/msgbox.tcl
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-04-19 09:25:52 (GMT)
committerhobbs <hobbs>2000-04-19 09:25:52 (GMT)
commit65fb9b709cd298c9528eadbb2f5e7969a9b897c0 (patch)
tree5f4d5234a1c55a7dff7f6b53b22b42ee3b37f3db /library/msgbox.tcl
parentf7b076a54982678c409753c1acf6650bdda2b096 (diff)
downloadtk-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.tcl9
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.