Changeset 267

Timestamp:

Dec 4, 2009 5:03:12 PM (13 years ago)

Author:

toby

Message:

# on 2000/08/17 23:48:03, toby did:
implement Replace Phase
error trace on error in a *info command

File:

• trunk/expgui (modified) (4 diffs, 3 props)

trunk/expgui

@@ -68 +68 @@
 set expgui(disaglSeparateBox) 1
 set expgui(DefaultPeakType) 0
+# default: keep current atoms when replacing a phase
+set expgui(DeleteAllAtoms) 0
 #=============================================================================
 #----------------------------------------------------------------
@@ -357 +359 @@
                 after idle {DisplayAllAtoms noreset}
             }
-        } errmsg] {puts "entvartrace error: $errmsg"}   
+        } errmsg] {error $errmsg}       
     }
 }
@@ -2677 +2679 @@
             -column 1 -row 0 -rowspan 2
     if [file executable $expgui(exptool)] {
-        button $frameLatt.newp -text Replace\nPhase \
-                -command MakeReplacePhaseBox -state disabled
-        grid $frameLatt.newp -column 0 -row 0 -rowspan 2 -sticky w
+        grid [button $frameLatt.newp -text Replace\nPhase \
+                -command MakeReplacePhaseBox] \
+                -column 0 -row 0 -rowspan 2 -sticky w
     }
     grid columnconfig $frameLatt  1 -weight 1
@@ -2724 +2726 @@
             -column 0 -row 0 -padx 2 -pady 3 -columnspan 10 -sticky w
     if [file executable $expgui(exptool)] {
-        button $frame3.newa -text "Add New Atom" \
+        button $frame3.newa -text "Add New Atoms" \
                 -command {MakeAddAtomsBox $expgui(curPhase)}
         grid $frame3.newa -column 11 -row 0