diff options
| author | hobbs <hobbs> | 2003-08-20 23:23:34 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2003-08-20 23:23:34 (GMT) |
| commit | 1f36e4d449819ec2c6381221f9abbc41dcc2230c (patch) | |
| tree | 7291e43f00a59f899d6ed7f73453a5e5354acd87 /library/demos/widget | |
| parent | 6a6da6c8b1a75b929d188969a3ee3643e476f4a1 (diff) | |
| download | tk-1f36e4d449819ec2c6381221f9abbc41dcc2230c.zip tk-1f36e4d449819ec2c6381221f9abbc41dcc2230c.tar.gz tk-1f36e4d449819ec2c6381221f9abbc41dcc2230c.tar.bz2 | |
add sep frame to seecode/dismiss button frame
Diffstat (limited to 'library/demos/widget')
| -rw-r--r-- | library/demos/widget | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/library/demos/widget b/library/demos/widget index f9c5932..311ce6c 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -11,7 +11,7 @@ exec wish "$0" "$@" # ".tcl" files is this directory, which are sourced by this script # as needed. # -# RCS: @(#) $Id: widget,v 1.11 2003/08/20 23:02:18 hobbs Exp $ +# RCS: @(#) $Id: widget,v 1.12 2003/08/20 23:23:34 hobbs Exp $ eval destroy [winfo child .] package require msgcat @@ -313,6 +313,8 @@ focus .s proc addSeeDismiss {w show {vars {}}} { ## See Code / Dismiss buttons frame $w + frame $w.sep -height 2 -relief sunken -bd 2 + grid $w.sep -columnspan 4 -row 0 -sticky ew -pady 2 button $w.dismiss -text [mc "Dismiss"] \ -image ::img::refresh -compound left \ -command [list destroy [winfo toplevel $w]] @@ -323,9 +325,9 @@ proc addSeeDismiss {w show {vars {}}} { button $w.vars -text [mc "See Variables"] \ -image ::img::view -compound left \ -command [concat [list showVars $w.dialog] $vars] - grid x $w.vars $w.code $w.dismiss -padx 4 -pady {6 4} + grid x $w.vars $w.code $w.dismiss -padx 4 -pady 4 } else { - grid x $w.code $w.dismiss -padx 4 -pady {6 4} + grid x $w.code $w.dismiss -padx 4 -pady 4 } grid columnconfigure $w 0 -weight 1 return $w @@ -361,7 +363,8 @@ proc showVars {w args} { label $f.v$var -textvariable $var -anchor w grid $f.n$var $f.v$var -padx 2 -pady 2 -sticky w } - button $w.ok -text [mc "OK"] -command [list destroy $w] -default active + button $w.ok -width 8 -text [mc "OK"] \ + -command [list destroy $w] -default active bind $w <Return> [list $w.ok invoke] bind $w <Escape> [list $w.ok invoke] |