blob: fea3edd1fd3d26dd3d6d531ed818f79293601824 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
diff -Nur saods9.orig/src/ds9.tcl saods9/src/ds9.tcl
--- saods9/src/ds9.tcl 2008-04-09 17:35:48.000000000 +0200
+++ saods9.new/src/ds9.tcl 2008-11-03 16:13:55.000000000 +0200
@@ -68,24 +68,34 @@
# initialize, depending on how we are running: choices are zvfs, or wish
# for now, its not possible to change the current work directory since
# all of the paths are relative
-if {![catch {package present zvfs}]} {
- set ds9(root) "zvfsmntpt"
+if {![catch {package present checkdns}]} {
+ 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
+
- 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
+ package require base64
+ package require log
+ package require ftp
+ package require textutil::repeat
+ package require textutil::tabify
- source $ds9(root)/tkcon2.5/tkcon.tcl
+ package require tkcon
- 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
|
GitWeb
