cvs -d:pserver:anonymous@cvs.tkcon.sourceforge.net:/cvsroot/tkcon login just hit enter at the password prompt cvs -d:pserver:anonymous@cvs.tkcon.sourceforge.net:/cvsroot/tkcon co tkinspector you can download tar and zip files from the latest file releases from http://prdownloads.sf.net/tkcon
The current file release (June 2003) is 5.1.6p10 which incorporates support for use under windows (using dde or comm instead of send ), support for incr Tcl 3.2 and a number of bug fixes.Some people have found having to get tkinspect via cvs to be more difficult than they prefer. For these people as well as for those who are used to using tclkit, a Starkit version of tkinspect is available at http://tcl.tk/starkits/tkinspect.kit (as well as at the above sf.net download page).Bug reports, patches and feature requests should all be submitted to the tkcon project tracker please [2].HistoryTkinspect [3] has quite a history in the Tcl/Tk environment. Created by Sam Shen, tkinspect provides the ability to examine and modify the procs and variables of any Tcl/Tk application with a working "send" command.Later, Sam moved on and a few other people have since made modifications. John Robert LoVerso [4] modified tkinspect so that it used comm instead of send. This allowed one to run tkinspect under any operating system which supports sockets.Paul Healy then wrote a patch so that tkinspect knows about Tcl 8 namespaces [5].[Tako Schotanus] wrote a patch for TkInspect so it worked with incr Tcl [6].Pat Thoyts integrated the above patches and is now maintaining the code at SourceForge.Mike Clarkson overhauled its GUI and included it in TixApps.
Current version of Tkinspect:
| What: | tkinspect (Thoyts) |
| Where: | http://tkcon.sf.net/ http://prdownloads.sf.net/tkcon/tkinspect-5.1.6p10.kit http://tkcon.sourceforge.net/tkinspect/ |
| Description: | Allow browsing/inspection of running Tk applications. Based on Tkinspect 5.1.6, with patches from various people over the years so that incr tcl is supported, comm communications is supported, etc. This version works with Tk 8.3 or better. Note that a Tclkit based Scripted document of tkinspect is available - see the prdownloads url above. |
| Currently considered version 5.1.6p10 | |
| Updated: | 21/Jun/2003 |
| Contact: | See the web site |
| What: tkinspect (LoVerso) |
| Where: http://www.schooner.com/%7Eloverso/tcl-tk/ |
| Description: Modified version of tkinspect so that it uses comm. This allows tkinspect to run under Windows. tkinspect-lite contains just the pieces of tkinspect-full that differ from the authority version of tkinspect. |
| Updated: 12/1998 |
| Contact: mailto:John@LoVerso.Southborough.MA.US (John Robert LoVerso) |
| What: tkinspect (Shen) |
| Where: ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/sorted//packages-7.6/devel/tkinspect-5.1.6.tar.gz http://huizen.dds.nl/%7Equintess/pub/tkinspect_itcl.patch.tar.gz ftp://ftp.tcl.tk/pub/tcl/mirror/ftp.procplace.com/sorted//packages-7.6/devel/tkinspect-5.1.6p3.patch.tar.gz |
| Description: Allow browsing/inspection of running Tk applications. This version works with Tk 4.0b4 or better. Paul Healy has written a patch to v5.1.6 so that it is compatible with Tk 8, with introspection for Tcl 8 namespaces. |
| Updated: 12/1997 |
| Contact: mailto:slshen@lbl.gov (Sam Shen) mailto:sls@aero.org (Sam Shen) |
Discussion about generalizing the send command moved to Transport independent send
The Tcl Dev Kit provides an enhanced version of TkInspect.Perhaps some of these enhancements might get submitted back the the tkinspect project? (hint hint) -PTJH - the TDK Inspector was originally an enhanced TkInspect, but we completely rewrote it. No more home-brew object system, different widgets used (ttk required), etc. While they provide similar features, any enhancements can't be simply pruned from the underlying code.
TkInspect: a simple example. [PT]Let's fire up wish and do something simple. Now Windows Tk doesn't have a send command, so we need to help it along a little by using a substitute. Either dde, winsend or comm can help here - Tcl provides dde by default.
package require dde
dde servername TestApp
proc main {} {
set dlg [toplevel .dlg]
set but [button ${dlg}.b -text "OK" -command [list destroy $dlg]]
pack $but -side bottom
tkwait window .dlg
}Now we have this evaluated in our shell, let's fire up tkinspect. The starkit is a handy way to get this. If you set up some file associations under Windows you can launch it very simply:assoc .kit=TclkitFile ftype TclkitFile=tclkit.exe %1 %*By using winsend or dde, tkinspect can automatically find your other Tk applications. Under X Windows it'll do this anyway. Go to the File->Select interpreter (send) menu item and select TestApp. You are now connected to your Test App interpreter.The default view has Namespaces, Procs and Globals views. In Namespaces, select the :: item at the top. The lower window should now be filled with lots of tcl's predefined variables and their values. If you scroll down a bit you will find a list of procedure defined in the global namespace.Now in the Procs view, select your main procedure. You should see the source as above. Hmm. Let's edit this a bit. Replace the text in the window with this
proc main {} {
set dlg [toplevel .dlg]
set but [button ${dlg}.b -text "OK" -command [list destroy $dlg]]
set can [button ${dlg}.c -text "Cancel" -command [list destroy $dlg]]
pack $but $can -side left
tkwait window .dlg
}Now press the Send Value button at the top right, near the menu bar. It should say 'Value sent' in the status bar. As we don't want to bother switching windows, type 'main' in the Command entry and press the Send Command. Your other application should now pop up a dialog with OK and Cancel buttons. If you close this and enter 'info body main' in your wish shell, you'll see the body has indeed been changed.While we are in the TestApp - lets create a variable. Enter 'set A 0' and then switch back to tkinspect.The Globals view in tkinspect displays the global variables defined in the remote interpreter. You'll notice that your variable doesn't appear yet. Right click and select Update this list or select the Globals->Update this list menu item and it should appear. If you select this now, the value window will display the value as a set statement.This is fine but it's much more interesting to monitor for changes in our variables. For this we can set a trace by selecting the variable name and using 'Globals->Trace variable'. This will pop up a dialog labelled 'Trace Scalar:TestApp/A' with the current value displayed in the dialog. If we now change the variable in the TestApp, the new value is printed below. The same is true of array variables.GUI enhancement for Tkinspect - using panedwindow for lists instead of frameI added a few changes to the files tkinspect.tcl and lists.tcl that allow Tkinspect to use the new pane widget from Tk8.4 instead of frames. It also adds a horizontal scrollbar to the bottom of each listbox. This allows you to resize the width of the lists in Tkinspect. This makes it much more pleasant to use when you have a bunch of very long widget names or a long variable names that don't fit in the width of the normal list boxes in Tkinspect,which are fixed in width and become very narrow if you have several lists displayed. I added some code that detects which version of Tk it is running under, so it reverts to the old frame widget if the panedwindow widget is not available. These were created from modified CVS files on June 21 2003. The changes look like this: in the file tkinspect.tcl in the method:create proc I added:
button $f.send_value -text "Send Value" \
-command "$self.value send_value"
pack $f.send_command $f.send_value -side left
# the lines above are not changed
# lines below changed to use a panedwindow instead of a frame
if {[llength [split $tk_patchLevel "."]] == 3
&& [lindex [split $tk_patchLevel "."] 0] >= 8
&& [lindex [split $tk_patchLevel "."] 1] >= 4} {
pack [panedwindow $self.lists -showhandle 1] -side top -fill both
} else {
pack [frame $self.lists -bd 0] -side top -fill both
}
# end of change to use panedwindow instead of frame
value $self.value -main $self
pack $self.value -side top -fill both -expand 1
foreach list_class $tkinspect(default_lists) {
$self add_list $list_class
set slot(${list_class}_is_on) 1In the file lists.tcl I added these changes in the method:create proc to add a horizontal scrollbar to the listboxes: scrollbar $self.sb -command "$self.list yview" -relief sunken -bd 1
# adds a horizontal scrollbar
scrollbar $self.sb2 -command "$self.list xview" -relief sunken -bd 1 -orient horizontal
listbox $self.list -relief sunken -exportselection 0 \
-yscroll "$self.sb set" -selectmode single \
-xscroll "$self.sb2 set" ;# links horizontal scrollbar to the listbox
bind $self.list <1> "$self click %x %y; continue"Problem - I noticed the panes don't seem to be resizable by dragging the handles for some reason. I must have some thing not quite right.The changed files are available at:tkinspect.tcl [7]lists.tcl [8]Alex CaldwellPT 05-Jul-2003: These enhancements have been merged into the Tkinspect CVS tree.dzach 10-Sep-2005: I kept getting these can't modify -container option after widget is created errors whenever I tried to send a value containing a -container option. So here is a change to the windows_list.tcl file that adds a send filter for the -container option:At line 46 insert: $slot(menu) add checkbutton \
-variable [object_slotname filter_window_container] \
-label "Filter Window -container Options"and then just before the return at the end: if $slot(filter_window_container) {
regsub -all "(\n)\[ \t\]*-container\[ \t\]+\[^ \\\n\]*\n?" $value \
"\\1" value
}dzach 16-Sep-2005: It may have been documented elswhere (I cannot find any reference though) but it is useful to know that there is a way to customize the default filters for Procs and Globals (and other lists too). To do it: * Open file defaults.tcl in the tkinspect directory
* Edit/Add the following for filtering Procs
option add *Procs_list.patterns {
^tkPriv.*
^auto_.*
^tk.*
# add more filters here...
}
* Edit/Add the following for filtering Globals
option add *Globals_list.patterns {
^tkPriv.*
^auto_.*
^tk.*
# add more filters here...
}
* Add other options as needed[DeClarke] - 2014-01-12 19:41:34I've been retired a few years and am now doing a bit of Tcl/Tk hacking just for fun and brain-fitness. Tkinspect was my favourite debug/devel tool back in the day, so I'd like to get it working in my new environment. Unfortunately (or not) that environment is OSX 10.6.8 (with X11 of course). I have AS Tcl kit installed with various extensions, all working fine; but Tkinspect for some reason cannot see any other interps. I'm trying to recall a teasing memory fragment about X11 and some kind of access control/config option that permitted dialogue between windows on the same desktop... I'll keep googling and try to puzzle it out, but if anyone can hand me a shortcut, my aging brain could do with a bit of a nudge.
