Changeset 694 for trunk/addcmds.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:10:27 PM (11 years ago)
Author:
toby
Message:

# on 2003/05/22 21:39:30, toby did:
Add instrument parameter file editor

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    • Property rcs:date changed from 2003/04/10 21:59:03 to 2003/05/22 21:39:30
    • Property rcs:lines changed from +141 -38 to +20 -1
    • Property rcs:rev changed from 1.30 to 1.31
    r668 r694  
    274274            -command "getinstfile $np" \
    275275            ] -column 4 -row 5
     276    grid [button $np.edit -text "Edit file" \
     277            -command {EditInstFile $newhist(instfile)}] \
     278            -column 5 -row 5
    276279
    277280    grid [label $np.lset -text "Select set" -anchor w] -column 1 -row 6 -sticky w
     
    20962099    }
    20972100}
     2101
     2102proc EditInstFile {"filename {}"} {
     2103    global expgui
     2104    # on the first call, load the commands
     2105    if {[catch {
     2106        if {[info procs instMakeWindow] == ""} {
     2107            source [file join $expgui(scriptdir) instedit.tcl]
     2108        }
     2109    } errmsg]} {
     2110        MyMessageBox -parent . -title "Load error" \
     2111                -message "Unexpected error while sourcing file instedit.tcl: $errmsg" \
     2112                -icon error
     2113    }
     2114    instMakeWindow $filename
     2115}
     2116
    20982117# default
    20992118set newhist(insttype) {}
Note: See TracChangeset for help on using the changeset viewer.