Home | History | Annotate | Download | only in snack
      1 #
      2 # Immediate loading of Snack because of item types etc.
      3 #
      4 # http://www.wjduquette.com/tcl/namespaces.html
      5 #
      6 
      7 set newdir $dir
      8 
      9 if {$::tcl_platform(wordSize) == 8} {
     10 	append newdir "/64"
     11 }
     12 
     13 package ifneeded snack 2.2 \
     14 	"[list load [file join $newdir libsnack.so]]; \
     15 	[list source [file join $dir snack.tcl]]"
     16 
     17 package ifneeded sound 2.2 [list load [file join $newdir libsound.so]]
     18