Changeset 4162

Timestamp:

Jan 30, 2014, 11:01:59 PM (11 years ago)

Author:

ldelgass

Message:

Fix nanovis test script environment

File:

• trunk/gui/apps/nanovis-test (modified) (3 diffs)

trunk/gui/apps/nanovis-test

@@ -19 +19 @@
 #\
 bindir=`dirname $0` ; \
+. $bindir/rappture.env ; \
 exec $bindir/wish "$0" "$@"
 # ----------------------------------------------------------------------
 # wish executes everything from here on...
-
-set installdir [file root $argv0]
-set libdir [file join $installdir "lib"]
-
-lappend auto_path $libdir $libdir/vtk $libdir/vtk/tcl
-
 package require Itcl
 package require Rappture
@@ -348 +343 @@
 .mbar add cascade -label "Flow" -underline 0 -menu .mbar.flow
 
-
-
 . configure -menu .mbar
-
 
 Rappture::Panes .main -sashwidth 4 -sashrelief raised -sashpadding 4 \
@@ -362 +354 @@
 pack $f.viewer -expand yes -fill both
 set widgets(nanovis) $f.viewer
-
-puts stderr [winfo class $widgets(nanovis)]
 
 $f.viewer configure \