From 1f36e4d449819ec2c6381221f9abbc41dcc2230c Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 20 Aug 2003 23:23:34 +0000
Subject: add sep frame to seecode/dismiss button frame

---
 library/demos/widget | 11 +++++++----
 1 file 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]
 
-- 
cgit v0.12