From: sls <sls>
Date: Wed, 21 Jun 1995 21:07:11 +0000 (+0000)
Subject: Rename "Show Image" to "Display Image".  Add update_self method.
X-Git-Tag: r_5_1_4~26
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=a9f744a0a5216217fb940bfdc98443f82fdba260;p=tkinspect

Rename "Show Image" to "Display Image".  Add update_self method.
---

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 \