summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2003-08-20 23:47:44 (GMT)
committerhobbs <hobbs>2003-08-20 23:47:44 (GMT)
commit608715b5922ad871cc733c564a2ed81041e34a59 (patch)
treef44236400817e3cbf8b11abc4e8c852ac98677b4
parent1558f43ed3ca561ade785b869e42c0108f52d6a5 (diff)
downloadtk-608715b5922ad871cc733c564a2ed81041e34a59.zip
tk-608715b5922ad871cc733c564a2ed81041e34a59.tar.gz
tk-608715b5922ad871cc733c564a2ed81041e34a59.tar.bz2
use delete image for dismiss button
-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 \