diff -ur saods9/src/ds9.tcl saods9.new/src/ds9.tcl --- saods9/src/ds9.tcl 2009-09-11 00:19:00.000000000 +0200 +++ saods9.new/src/ds9.tcl 2010-03-30 11:23:46.000000000 +0200 @@ -34,24 +34,32 @@ option add {*Label*BorderWidth} 2 # initialize -set ds9(root) "zvfsmntpt" +set ds9(root) "/usr/share/ds9" -source $ds9(root)/tcl8.4/msgcat1.3/msgcat.tcl -source $ds9(root)/tcl8.4/http2.5/http.tcl +package require msgcat +package require http -source $ds9(root)/tk8.4/tearoff.tcl +package require base64 +package require log +package require ftp +package require textutil::repeat +package require textutil::tabify -source $ds9(root)/tcllib1.10/base64/base64.tcl -source $ds9(root)/tcllib1.10/log/log.tcl -source $ds9(root)/tcllib1.10/ftp/ftp.tcl -source $ds9(root)/tcllib1.10/textutil/repeat.tcl -source $ds9(root)/tcllib1.10/textutil/tabify.tcl - -source $ds9(root)/tkcon2.5/tkcon.tcl +package require tkcon source $ds9(root)/xmlrpc0.3/xmlrpc.tcl -source $ds9(root)/blt2.4/graph.tcl -source $ds9(root)/blt2.4/tabset.tcl +package require BLT +package require Tktable +package require tclxpa +package require img::base +package require img::jpeg +package require img::tiff +package require img::png +package require img::gif +package require img::ppm +package require img::bmp +package require img::xbm +package require img::window source $ds9(root)/src/source.tcl