diff options
| author | hobbs <hobbs@noemail.net> | 2003-08-20 23:23:33 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2003-08-20 23:23:33 (GMT) |
| commit | f2fef7f8cf6058b590f6d25922dbfc6c368aea0e (patch) | |
| tree | 7291e43f00a59f899d6ed7f73453a5e5354acd87 /library | |
| parent | 8c04170579b94d40825fde7fc8a68c11f54c316e (diff) | |
| download | tk-f2fef7f8cf6058b590f6d25922dbfc6c368aea0e.zip tk-f2fef7f8cf6058b590f6d25922dbfc6c368aea0e.tar.gz tk-f2fef7f8cf6058b590f6d25922dbfc6c368aea0e.tar.bz2 | |
add sep frame to seecode/dismiss button frame
FossilOrigin-Name: 6bf0ac6ba2638e65215895f025561b4acd215c13
Diffstat (limited to 'library')
| -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] |