diff options
| author | hobbs <hobbs> | 2001-08-22 01:25:33 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-08-22 01:25:33 (GMT) |
| commit | c5fac391937d584a629699dd8ade4a9b96d57d44 (patch) | |
| tree | 3eb3eea3c08396110527cdc0d0acf226e6cc93cb /library/dialog.tcl | |
| parent | 5de1e48a438ff12af2cdf2fa5542541d07be18b5 (diff) | |
| download | tk-c5fac391937d584a629699dd8ade4a9b96d57d44.zip tk-c5fac391937d584a629699dd8ade4a9b96d57d44.tar.gz tk-c5fac391937d584a629699dd8ade4a9b96d57d44.tar.bz2 | |
* library/dialog.tcl (tk_dialog): changed dialog to show bar on
Windows as well and added some y padding between the buttons and
the bar. [Patch #442835] (harrismh)
Diffstat (limited to 'library/dialog.tcl')
| -rw-r--r-- | library/dialog.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/library/dialog.tcl b/library/dialog.tcl index 26d643d..db47e83 100644 --- a/library/dialog.tcl +++ b/library/dialog.tcl @@ -3,7 +3,7 @@ # This file defines the procedure tk_dialog, which creates a dialog # box containing a bitmap, a message, and one or more buttons. # -# RCS: @(#) $Id: dialog.tcl,v 1.11 2001/08/09 00:47:09 dgp Exp $ +# RCS: @(#) $Id: dialog.tcl,v 1.12 2001/08/22 01:25:33 hobbs Exp $ # # Copyright (c) 1992-1993 The Regents of the University of California. # Copyright (c) 1994-1997 Sun Microsystems, Inc. @@ -71,7 +71,7 @@ proc ::tk_dialog {w title text bitmap default args} { frame $w.bot frame $w.top - if {[string equal $tcl_platform(platform) "unix"]} { + if {[string compare $tcl_platform(platform) "macintosh"]} { $w.bot configure -relief raised -bd 1 $w.top configure -relief raised -bd 1 } @@ -110,7 +110,8 @@ proc ::tk_dialog {w title text bitmap default args} { } else { $w.button$i configure -default normal } - grid $w.button$i -in $w.bot -column $i -row 0 -sticky ew -padx 10 + grid $w.button$i -in $w.bot -column $i -row 0 -sticky ew \ + -padx 10 -pady 4 grid columnconfigure $w.bot $i # We boost the size of some Mac buttons for l&f if {[string equal $tcl_platform(platform) "macintosh"]} { |