[Starkit] Building a fresh starkit

[Larry W. Virden]

With simple tcl scripts, a simple
sdx qwrap
possibly followed by a 
sdx unwrap
put other scripts in the *vfs/lib/ directory and
sdx wrap

creates a kit that works okay.

I've got a case where the main script tries to figure out
the directory its in so that it can source in other
files from that same directory.

Right now, the code reads:

# Determine where cbrowser really lives
set link $argv0 
while {![catch {file readlink $link} result]} {
  set link [file join [file dirname $link] $result]
}
set sourcedir [file dirname $link]
# Set up the auto_path to find things in the directory where this lives.
lappend auto_path $sourcedir
 
# Load the utility library
source [file join $sourcedir ftcllib.tcl]


and that doesn't work.  I presume that I have to make some kind of
change here to let tcl know I want files inside the .kit file.
I'm just not certain what changes I'm needing.  

My preference would have been for there to have been no changes
to the original code.  That may not be possible.

Any ideas?
-- 
Tcl - The glue of a new generation.  <URL: http://wiki.tcl.tk/ >
Larry W. Virden <mailto:lvirden at cas.org > <URL: http://www.purl.org/NET/lvirden/ >
Even if explicitly stated to the contrary, nothing in this posting should 
be construed as representing my employer's opinions.
-><-