Changeset 16 for sans/utils/bt5/bt5plot/bt5plot

Timestamp:

Dec 12, 2006 2:30:55 PM (16 years ago)

Author:

ajj

Message:

Removed variable and used cd to change to newly selected dir. Notice bug whereby changing directory created a new listing, but plot wouldn't work since cwd hadn't changed.

File:

• sans/utils/bt5/bt5plot/bt5plot (modified) (7 diffs)

sans/utils/bt5/bt5plot/bt5plot

@@ -2 +2 @@
 
 package require BLT
-
-# Set default directory
-
-set defdir [pwd] 
 
 set images(normal) [image create photo -format gif -data {
@@ -157 +153 @@
 
 proc LoadTree { tree parentNode dir } {
-        set saved [pwd]
         cd $dir
         foreach f [lsort [glob *.bt5]] {
                 set e [$tree insert $parentNode -label $f -data "Plot 0"]
         }
-        cd $saved
 }
 
@@ -172 +166 @@
         
         global .tree 
-        global defdir
         
         set dir [tk_chooseDirectory -title "Set Data Directory"]
@@ -179 +172 @@
                 EmptyTree .tree
                 LoadTree .tree 0 $dir
-                set defdir $dir 
+                cd $dir
         }       
 }
@@ -186 +179 @@
 
         global .tree
-        global defdir
 
         EmptyTree .tree
-        LoadTree .tree 0 $defdir
+        LoadTree .tree 0 [pwd]
 }
 
@@ -196 +188 @@
         
         global .tree
-        global defdir
 
         resetTree
@@ -218 +209 @@
 # Create tree
 blt::tree create .tree
-LoadTree .tree 0 $defdir 
+LoadTree .tree 0 [pwd]
 
 # Create view+plot frame