From: sls <sls>
Date: Wed, 21 Jun 1995 09:39:21 +0000 (+0000)
Subject: Use just plain "wish .." instead of "wish -f ...".  Add menus_list.
X-Git-Tag: r_5_1_4~33
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=6138267005b264f657a25730a9341219f7600de7;p=tkinspect

Use just plain "wish .." instead of "wish -f ...".  Add menus_list.
Add windows_info.tcl and appropriate hooks.
---

diff --git a/tkinspect.tcl b/tkinspect.tcl
index d5db332..b1ac979 100644
--- a/tkinspect.tcl
+++ b/tkinspect.tcl
@@ -1,6 +1,6 @@
 #!/bin/sh
 #\
-exec @wish@ -f "$0" ${1+"$@"}
+exec @wish@ "$0" ${1+"$@"}
 #
 # $Id$
 #
@@ -12,6 +12,7 @@ set tkinspect(list_classes) {
     "globals_list Globals"
     "windows_list Windows"
     "images_list Images"
+    "menus_list Menus"
 }
 set tkinspect(help_topics) {
     Intro Value Lists Procs Globals Windows Value Miscellany Notes
@@ -39,6 +40,7 @@ proc tkinspect_widgets_init {} {
     foreach file {
 	lists.tcl procs_list.tcl globals_list.tcl windows_list.tcl
 	images_list.tcl about.tcl value.tcl help.tcl cmdline.tcl
+	windows_info.tcl menus_list.tcl
     } {
 	uplevel #0 source $tkinspect_library/$file
     }
@@ -57,6 +59,7 @@ dialog tkinspect_main {
     member lists ""
     member cmdline_counter -1
     member cmdlines ""
+    member windows_info
     method create {} {
 	global tkinspect
 	pack [frame $self.menu -bd 2 -relief raised] -side top -fill x
@@ -116,12 +119,16 @@ dialog tkinspect_main {
 	pack [frame $self.status] -side top -fill x
 	label $self.status.l -bd 2 -relief sunken -anchor w
 	pack $self.status.l -side left -fill x -expand 1
+	set slot(windows_info) [object_new windows_info]
 	wm iconname $self "Tkinspect"
 	wm title $self "Tkinspect: $slot(target)"
 	$self status "Ready."
     }
     method reconfig {} {
     }
+    method destroy {} {
+	object_delete $slot(windows_info)
+    }
     method close {} {
 	global tkinspect
 	after 0 destroy $self
@@ -138,6 +145,7 @@ dialog tkinspect_main {
     }
     method update_lists {} {
 	if {$slot(target) == ""} return
+	$slot(windows_info) update $slot(target)
 	foreach list $slot(lists) {
 	    $list update $slot(target)
 	}
@@ -238,6 +246,9 @@ dialog tkinspect_main {
 	}
 	$self.help show_topic $topic
     }
+    method windows_info {args} {
+	eval $slot(windows_info) $args
+    }
 }
 
 proc tkinspect_create_main_window {args} {