Add tkinspect_{show,remove}_list. Rename tkinspect_value_text_window

to tkinspect_value_window.  Add tkinspect_value_text_widget.
Add tkinspect_display_image.

diff --git a/interface.tcl b/interface.tcl
index ca9b62a996dac860901ae1320db8815baf6c1c40..c85d5a0dbcf0d2dbf9730b52f558c1d5d9b58300 100644 (file)
--- a/interface.tcl
+++ b/interface.tcl
@@ -13,6 +13,16 @@ proc tkinspect_main_window {} {
     }
 }
 
+proc tkinspect_show_list {list} {
+    set main [tkinspect_main_window]
+    $main add_list ${list}_list
+}
+
+proc tkinspect_remove_list {list} {
+    set main [tkinspect_main_window]
+    $main.lists.${list}_list remove
+}
+
 proc tkinspect_set_target {target} {
     set main [tkinspect_main_window]
     $main set_target $target
@@ -20,6 +30,7 @@ proc tkinspect_set_target {target} {
 
 proc tkinspect_select {type thing} {
     set main [tkinspect_main_window]
+    if {$type == "canvas"} { set type canva } ;# terrible hack
     $main.lists.${type}s_list run_command $thing
 }
 
@@ -37,19 +48,29 @@ proc tkinspect_help {{topic ""}} {
     $main help $topic
 }
 
-proc tkinspect_value_text_window {} {
+proc tkinspect_value_window {} {
     return [tkinspect_main_window].value
 }
 
+proc tkinspect_value_text_widget {} {
+    return [tkinspect_main_window].value.t
+}
+
 proc tkinspect_send_value {} {
-    [tkinspect_value_text_window] send_value
+    [tkinspect_value_window] send_value
 }
 
 proc tkinspect_detach_value {} {
-    [tkinspect_value_text_window] detach
+    [tkinspect_value_window] detach
 }
 
 proc tkinspect_trace_global {var} {
     set main [tkinspect_main_window]
     create_variable_trace $main [$main target] $var
 }
+
+proc tkinspect_display_image {image} {
+    set main [tkinspect_main_window]
+    tkinspect_select image $image
+    $main.lists.images_list display_image
+}