From: sls <sls>
Date: Fri, 16 Jun 1995 08:19:16 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: r_5_1_4~47
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=98cc0e906a953845ae5df65d80075b1c46e1e1c2;p=tkinspect

Initial revision
---

diff --git a/images_list.tcl b/images_list.tcl
new file mode 100644
index 0000000..1cc0e3b
--- /dev/null
+++ b/images_list.tcl
@@ -0,0 +1,31 @@
+#
+# $Id$
+#
+# Contributed by Gero Kohnert (gero@marvin.franken.de) 1995
+#
+
+widget images_list {
+    object_include tkinspect_list
+    param title "Images"
+    method get_item_name {} { return image }
+    method update {target} {
+	$self clear
+	foreach image [lsort [send $target image names]] {
+	    $self append $image
+	}
+    }
+    method retrieve {target image} {
+	set result "# image configuration for [list $image]\n"
+	append result "# ([send $target image width $image]x[send $target image height $image] [send $target image type $image] image)\n"
+	append result "$image config"
+	foreach spec [send $target [list $image config]] {
+	    if {[llength $spec] == 2} continue
+	    append result " \\\n\t[lindex $spec 0] [list [lindex $spec 4]]"
+	}
+	append result "\n"
+	return $result
+    }
+    method send_filter {value} {
+	return $value
+    }
+}