Initial revision

diff --git a/images_list.tcl b/images_list.tcl
new file mode 100644 (file)
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
+    }
+}