summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--library/demos/widget4
1 files 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 \