From 46b0ed325cc684ce1aba765ef8815a117512d736 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Wed, 20 Aug 2003 23:47:44 +0000
Subject: use delete image for dismiss button

FossilOrigin-Name: 7322189aa26a4d8f8d70f0a1b74e5604ceacb1c3
---
 library/demos/widget | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/demos/widget b/library/demos/widget
index 311ce6c..eca5960 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.12 2003/08/20 23:23:34 hobbs Exp $
+# RCS: @(#) $Id: widget,v 1.13 2003/08/20 23:47:44 hobbs Exp $
 
 eval destroy [winfo child .]
 package require msgcat
@@ -316,7 +316,7 @@ proc addSeeDismiss {w show {vars {}}} {
     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 \
+	-image ::img::delete -compound left \
 	-command [list destroy [winfo toplevel $w]]
     button $w.code -text [mc "See Code"] \
 	-image ::img::view -compound left \
-- 
cgit v0.12