From: sls <sls>
Date: Wed, 21 Jun 1995 22:03:48 +0000 (+0000)
Subject: Add tkinspect_{show,remove}_list.  Rename tkinspect_value_text_window
X-Git-Tag: r_5_1_4~21
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=fce713fa36c37eece5caa5959c47712f6f82b23d;p=tkinspect

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 ca9b62a..c85d5a0 100644
--- 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
+}