From 30b0e0ee845c84e19f1fa9505e20245bea4f15d7 Mon Sep 17 00:00:00 2001 From: sls Date: Mon, 5 Jun 1995 08:47:15 +0000 Subject: [PATCH] Add new help topics, get rid of old ones. Add label to command entry. --- tkinspect.tcl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/tkinspect.tcl b/tkinspect.tcl index de4fb95..1074dc2 100644 --- a/tkinspect.tcl +++ b/tkinspect.tcl @@ -8,8 +8,10 @@ exec @wish@ -f "$0" ${1+"$@"} set tkinspect(counter) -1 set tkinspect(main_window_count) 0 set tkinspect(list_classes) "procs_list globals_list windows_list" -set tkinspect(help_topics) \ - "Intro Lists Procs Globals Windows Value Notes Contents" +set tkinspect(help_topics) { + Intro Value Lists Procs Globals Windows Value Miscellany Notes + WhatsNew ChangeLog +} wm withdraw . @@ -89,6 +91,8 @@ dialog tkinspect_main { -underline 0 } pack [set f [frame $self.buttons -bd 0]] -side top -fill x + label $f.cmd_label -text "Command:" + pack $f.cmd_label -side left entry $f.command -bd 2 -relief sunken bind $f.command "$self send_command \[%W get\]" pack $f.command -side left -fill x -expand 1 -- 2.23.0