By default starkits are read-only.  You must give the -writeable flag to sdx when doing the wrap for (i.e. creating) your starkit if yo want it to be writeable.  

You make your starkit writeable by doing it at wrap time:
  sdx wrap app.kit -writeable

"-writeable" starkits automatically commit changes every 5 seconds.

----
[TR] Here is an example of a program that modifies its own contents using a writeable starkit. It is like 'tar'. Just download the script below and do

 sdx qwrap TarKit.tcl
 sdx unwrap TarKit.kit
 sdx wrap TarKit -writable

This produces the starkit named 'TarKit'.

----
  package require Tk 8.4

 # this is the list of files in the archive:
 set myFiles [list]

 # this is the directory where we store the files:
 if {! [file exists [file join $starkit::topdir data]]} {
         file mkdir [file join $starkit::topdir data]
 }

 # copy a file into the starkit vfs:
 proc FileStore {} {
         global myFiles
         set data {}
         set file [tk_getOpenFile]
         if {[string length $file]} {
                 file copy $file [file join $starkit::topdir data]
                 # update the listbox contents:
                 lappend myFiles [file tail $file]
                 set myFiles [lsort $myFiles]
         }
 }

 # copy a file from the starkit vfs back into the real world:
 proc FileExtract {} {
         set index [.archive.lst curselection]
         if {[llength $index] == 0} {
                 tk_messageBox -title "Ups" \
                 -message "You must select a file for this action." \
                 -type ok -icon info
                 return
         }
         set file [.archive.lst get $index]
         if {[string length $file]} {
                 set destination [tk_getSaveFile -initialfile $file]
                 if {[string length $destination]} {
                         file copy [file join $starkit::topdir data $file] $destination
                 }
         }
 }

 wm title . "TarKit"

 # list the conents of the archive here:
 labelframe .archive -text "File archive"
 pack .archive -side right -padx 5 -pady 5 -fill both -expand 1
 listbox .archive.lst -listvar myFiles
 pack .archive.lst -padx 2 -pady 2 -fill both -expand 1

 # these are the possible actions:
 labelframe .actions -text "Actions"
 pack .actions -side left -padx 5 -pady 5 -fill both -expand 1
 foreach {btn cmd text} {
         store FileStore "Add a file"
         extract FileExtract "Extract selected file"
         quit exit "Quit"
 } {
         button .actions.$btn -command $cmd -text $text -width 20
         pack .actions.$btn -padx 5 -pady 2
 }

 # initialize the listbox with the currently stores files:
 foreach file [lsort [glob -nocomplain [file join $starkit::topdir data *]]] {
         lappend myFiles [file tail $file]
 }
----
Hmm, after having used that a bit, I thought it was time for something more useful --> [TarKit].
----

 #! tclkit
 package require mk4vfs
 mk4vfs::mount mykit mykit.kit
 cd mykit
 glob *
 cd lib/app-mykit
 # Can I just update the file here?

----
What is the above code trying to accomplish?  What is the glob for?

----

05Feb03 [Jeff Smith] - "HeadsUp" [http://www.freewebs.com/headsup] is an example of single-file website - i.e. tclhttpd wrapped up as starkit, with user data inside.

----

[male] 2004-09-03:

Using the option -writable with sdx is no problem with starkits, but what about starpacks?

They seem not to work!

Any hint, suggestion, ...?

Thanks!
----

[df] Can you use this to write metakit data right into the StarKit?  Currently I'm keeping external metakit databases for the information my program needs.  I'd like to wrap that all up in the StarKit and make any changes needed at run-time.  Can someone give an example of this?
----

[Sexy Starkits]

[Category Tclkit]