From a9f744a0a5216217fb940bfdc98443f82fdba260 Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Wed, 21 Jun 1995 21:07:11 +0000
Subject: [PATCH] Rename "Show Image" to "Display Image". Add update_self
method.
---
images_list.tcl | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/images_list.tcl b/images_list.tcl
index 95e2abd..b9ac8e7 100644
--- a/images_list.tcl
+++ b/images_list.tcl
@@ -10,10 +10,14 @@ widget images_list {
method create {} {
tkinspect_list:create $self
$slot(menu) add separator
- $slot(menu) add command -label "Show Image" -underline 5 \
- -command "$self show_image"
+ $slot(menu) add command -label "Display Image" -underline 0 \
+ -command "$self display_image"
}
method get_item_name {} { return image }
+ method update_self {target} {
+ $slot(main) windows_info update $target
+ $self update $target
+ }
method update {target} {
$self clear
foreach image [lsort [send $target image names]] {
@@ -34,7 +38,7 @@ widget images_list {
method send_filter {value} {
return $value
}
- method show_image {} {
+ method display_image {} {
set target [$slot(main) target]
if ![string length $slot(current_item)] {
tkinspect_failure \
--
2.23.0