From 6138267005b264f657a25730a9341219f7600de7 Mon Sep 17 00:00:00 2001 From: sls Date: Wed, 21 Jun 1995 09:39:21 +0000 Subject: [PATCH] Use just plain "wish .." instead of "wish -f ...". Add menus_list. Add windows_info.tcl and appropriate hooks. --- tkinspect.tcl | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) 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} { -- 2.23.0