From: Ole Streicher <olebole@debian.org>
Date: Fri, 16 Dec 2016 09:23:38 +0100
Subject: [ds9] Don't load TclTk extensions as shared libs, but as packages

This allows one to start DS9 as a normal tk application without
special initialization.
---
 ds9/ds9             |  2 ++
 ds9/library/ds9.tcl | 20 +++++++++++++++-----
 2 files changed, 17 insertions(+), 5 deletions(-)
 create mode 100644 ds9/ds9

diff --git a/ds9/ds9 b/ds9/ds9
new file mode 100644
index 0000000..31d0bfe
--- /dev/null
+++ b/ds9/ds9
@@ -0,0 +1,2 @@
+#!/bin/sh
+exec /usr/bin/wish -f ${DS9_HOME-/usr/share/saods9}/library/ds9.tcl "$@"
diff --git a/ds9/library/ds9.tcl b/ds9/library/ds9.tcl
index d86d514..8e7589f 100644
--- a/ds9/library/ds9.tcl
+++ b/ds9/library/ds9.tcl
@@ -187,7 +187,7 @@ if {[catch {tk windowingsystem} ds9(wm)]} {
 }
 
 # ds9(app)
-set ds9(app) [file tail [info nameofexecutable]]
+set ds9(app) [file rootname [file tail [info script]]]
 
 # ds9(top)
 # need for load
@@ -197,8 +197,8 @@ set ds9(mb) .mb
 # pre package load
 switch $ds9(wm) {
     x11 {
-	set ds9(root) "[::tcl::zipfs::root]mntpt"
-	set auto_path [list $ds9(root) $ds9(root)/tcl8.6 $ds9(root)/tk8.6 $ds9(root)/tk8.6/ttk]
+	set ds9(root) [file normalize [file join [file dirname [info script]] ..]]
+	lappend auto_path $ds9(root)/library
     }
     aqua {
 	# set to absolute path
@@ -222,8 +222,18 @@ package require math::fuzzy
 package require tooltip
 
 package require tkcon
-package require Tkblt
-package require Tls
+package require tkblt
+package require tls
+package require tclfitsy
+package require tksao
+package require tkhtml1
+package require tkmpeg
+package require Img
+package require Tktable
+package require tclxpa
+package require tclsignal
+package require xml
+package require saoxmlrpc
 
 package require DS9