Changeset 694

Timestamp:

Dec 4, 2009 5:10:27 PM (14 years ago)

Author:

toby

Message:

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

File:

• trunk/addcmds.tcl (modified) (2 diffs, 3 props)

trunk/addcmds.tcl

@@ -274 +274 @@
             -command "getinstfile $np" \
             ] -column 4 -row 5
+    grid [button $np.edit -text "Edit file" \
+            -command {EditInstFile $newhist(instfile)}] \
+            -column 5 -row 5
 
     grid [label $np.lset -text "Select set" -anchor w] -column 1 -row 6 -sticky w
@@ -2096 +2099 @@
     }
 }
+
+proc EditInstFile {"filename {}"} {
+    global expgui
+    # on the first call, load the commands
+    if {[catch {
+        if {[info procs instMakeWindow] == ""} {
+            source [file join $expgui(scriptdir) instedit.tcl]
+        }
+    } errmsg]} {
+        MyMessageBox -parent . -title "Load error" \
+                -message "Unexpected error while sourcing file instedit.tcl: $errmsg" \
+                -icon error
+    }
+    instMakeWindow $filename
+}
+
 # default
 set newhist(insttype) {}