[Arjen Markus] (16 march 2005) While ''[tclkit]'' comes with [Itcl] out-of-the-box, it does not include [Itk] or [Iwidgets]. So to wrap an application that uses Iwidgets I needed to copy all the relevant script files and binary libraries into the app-xxx directory. 

But there was a further complication: I had Itcl etc. version 3.2 as part of my [Tcl] [distribution], ''tclkit'' comes with Itcl 3.3! This made Itk complain ... and I know of no way to drop a (binary) package ...

The solution is a bit tricky:

    * Create a child interpreter
    * Load Itcl 3.2, Itk 3.2 and Iwidgets 4.0.2 (those seem to match) into the child interpreter

That made the [starkit] start and complain about the creation of the [tabnotebook] rather than about the incompatible versions of the various packages. One down, one to go. 

I do not know why, but for some reason I needed to ''source'' two *.itk files explicitly - and then it worked! 

The code below is embellished a bit, but this is what I use to start the application instead of the original script (called "interface.tcl"):

======
 # Trick to force tclkit to use Itcl 3.2 instead of 3.3
 #
 package provide app-interface 1.0

 set scriptname [info script]
 set libname    [file dirname [info script]]
 set applib     [file dirname [file dirname [info script]]]
 set startup [string map [list SCRIPT $scriptname APP $applib LIBX $libname] {
     package require Tk
     lappend auto_path APP
     set env(ITCL_LIBRARY) LIBX
     set env(ITK_LIBRARY) LIBX
     package require -exact Itcl 3.2
     package require -exact Itk 3.2
     package require -exact Iwidgets 4.0.2
     source [file join [file dirname SCRIPT] "Archetype.itk"]
     source [file join [file dirname SCRIPT] "Widget.itk"]
     source [file join [file dirname SCRIPT] "interface.tcl"]
 }]

 interp create INTERFACE
 interp eval INTERFACE $startup 
======

Notes:
   * I needed to adjust the pkgIndex.tcl file for the application to load via the new file instead of "interface.tcl"
   * I need to require the ''exact'' package versions, because otherwise Itcl 3.3 is picked up again.

----
[dqkit] includes [IWidgets]

[Eric Amundsen] 03/16/05 as does [Kitten], which can be a lot to haul around.  However, I have had good luck unwrapping the [Kitten] and just taking the pieces I need and wrapping it all back up again.
----
[Cyan Ogilvie] After some playing around I got Itk 3.3 working in tclkit by copying in the lib dir and adding "set ::env(ITK_LIBRARY) $dir" at the top of the pkgIndex.tcl.  This seems to be what [kitten] does to get it to work.

<<categories>> Deployment | Tclkit