summaryrefslogtreecommitdiffstats
path: root/library/demos/widget
diff options
context:
space:
mode:
Diffstat (limited to 'library/demos/widget')
-rw-r--r--library/demos/widget11
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]