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
|
From: Ole Streicher <olebole@debian.org>
Date: Mon, 26 Mar 2018 17:13:33 +0200
Subject: [Fv] Use 'require' for shared libraries
---
ftools/guis/fv/class/fvApp.tcl | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/ftools/guis/fv/class/fvApp.tcl b/ftools/guis/fv/class/fvApp.tcl
index 35acb12..555883d 100644
--- a/ftools/guis/fv/class/fvApp.tcl
+++ b/ftools/guis/fv/class/fvApp.tcl
@@ -199,10 +199,8 @@ itcl::body fvApp::_loadLibs { } {
}
} else {
if ![ info exist env(FV_ISEXEC) ] {
- set env(POW_LIBRARY) "$FITSVIEWER_LIBRARY/../pow"
- set env(POW_HELPDIR) $env(POW_LIBRARY)
- load [glob $FITSVIEWER_LIBRARY/../libfitstcl.{s\[ol\]*,dylib,dll}]
- load [glob $FITSVIEWER_LIBRARY/../libpow.{s\[ol\]*,dylib,dll}]
+ package require fitsTcl
+ package require POW
} else {
if ![info exist env(FV_HELPDIR)] {
set fullname [info nameofexecutable]
|