diff options
| author | hobbs <hobbs> | 2003-08-20 23:47:44 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2003-08-20 23:47:44 (GMT) |
| commit | 608715b5922ad871cc733c564a2ed81041e34a59 (patch) | |
| tree | f44236400817e3cbf8b11abc4e8c852ac98677b4 | |
| parent | 1558f43ed3ca561ade785b869e42c0108f52d6a5 (diff) | |
| download | tk-608715b5922ad871cc733c564a2ed81041e34a59.zip tk-608715b5922ad871cc733c564a2ed81041e34a59.tar.gz tk-608715b5922ad871cc733c564a2ed81041e34a59.tar.bz2 | |
use delete image for dismiss button
| -rw-r--r-- | library/demos/widget | 4 |
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 \ |