Changeset 19 for sans/utils/bt5


Ignore:
Timestamp:
Dec 13, 2006 10:39:32 AM (16 years ago)
Author:
ajj
Message:

Added catch to LoadTree? to avoid empty directory error.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/utils/bt5/bt5plot/bt5plot

    r18 r19  
    22 
    33package require BLT 
    4  
    5 # Set default directory 
    6  
    7 set defdir [pwd]  
    84 
    95set images(normal) [image create photo -format gif -data { 
     
    3329        set det5(0) 0 
    3430        set xvar(0) 0 
     31        set trans(0) 0 
    3532 
    3633        if [catch {open $fileName r} fileId] { 
     
    8784                set monvec [join "$elem _monvec" ""] 
    8885         
    89                 global $xvec $countvec $transvec $monvec 
     86                global $xvec $countvec $countratevec $transvec $monvec 
    9087         
    9188                blt::vector destroy $xvec 
     
    123120                set monvec [join "$filebase _monvec" ""] 
    124121         
    125                 global $xvec $countvec $transvec $monvec 
     122                global $xvec $countvec $countratevec $transvec $monvec 
    126123         
    127124                blt::vector create $xvec 
     
    170167 
    171168proc LoadTree { tree parentNode dir } { 
    172         set saved [pwd] 
    173169        cd $dir 
    174170        foreach f [lsort [glob *.bt5]] { 
    175171                set e [$tree insert $parentNode -label $f -data "Plot 0"] 
    176172        } 
    177         cd $saved 
    178173} 
    179174 
     
    185180         
    186181        global .tree  
    187         global defdir 
    188182         
    189183        set dir [tk_chooseDirectory -title "Set Data Directory"] 
     
    192186                EmptyTree .tree 
    193187                LoadTree .tree 0 $dir 
    194                 set defdir $dir  
     188                cd $dir 
    195189        }        
    196190} 
     
    199193 
    200194        global .tree 
    201         global defdir 
    202195 
    203196        EmptyTree .tree 
    204         LoadTree .tree 0 $defdir 
     197        LoadTree .tree 0 [pwd] 
    205198} 
    206199 
     
    209202         
    210203        global .tree 
    211         global defdir 
    212204 
    213205        resetTree 
     
    231223# Create tree 
    232224blt::tree create .tree 
    233 LoadTree .tree 0 $defdir  
     225catch { LoadTree .tree 0 [pwd] } result 
    234226 
    235227# Create view+plot frame 
Note: See TracChangeset for help on using the changeset viewer.