Changeset 1104 for branches/sandbox

Timestamp:

Dec 22, 2010 4:24:18 PM (13 years ago)

Author:

toby

Message:

for new .EXP files, bring users to the histogram or phase panels, as appropriate

File:

• branches/sandbox/expgui (modified) (10 diffs)

branches/sandbox/expgui

@@ -408 +408 @@
 }
 
-
 # [re]load all screens with current state of EXPGUI file
 proc PaintEXPGUIpages {} {
@@ -532 +531 @@
     if {$newexpfile == ""} return
 
-    # switch to the 1st page
-    RaisePage lsFrame
     set expgui(globalmode) 0
     loadexp $newexpfile
+
+    # switch to the appropriate 1st page
+    #StageTabUse
+    SetStartPanel
 
     # reset the phase selection
@@ -1036 +1037 @@
         DisplayRefFlags 0 0
         $expgui(atomlistbox) delete 0 end
+        $expgui(AddAtomBut)  config -state disabled
         return
     }
@@ -1064 +1066 @@
     DisplayRefFlags 0 0
     $expgui(EditingAtoms) config -text ""
+    $expgui(AddAtomBut)  config -state normal
 
     DisplayAllAtoms $crsPhase
@@ -3329 +3332 @@
     }
 }
+
+set expgui(startpanel) 2
 # procedure to disable tabs when phases or histograms are not defined
 proc StageTabUse {args} {
     global expgui
+    set expgui(startpanel) 2
     # reset everything
     foreach item [lrange $::expgui(notebookpagelist) 0 end] {
@@ -3356 +3362 @@
             .n itemconfigure $frm -state disabled
         }
+        set expgui(startpanel) 0
         return
     }
@@ -3374 +3381 @@
             .n itemconfigure $frm -state disabled
         }
+        set expgui(startpanel) 0
         return
     }
@@ -3383 +3391 @@
             .n itemconfigure $frm -state disabled
         }
+        set expgui(startpanel) 1
         return
     }
@@ -3396 +3405 @@
     .n see $nextpage
     .n raise $nextpage
+}
+
+proc SetStartPanel {} {
+    global expgui
+    if {$expgui(startpanel) == 0} {
+        RaisePage phaseFrame
+    } elseif {$expgui(startpanel) == 1} {
+        RaisePage histFrame
+    } else {
+        RaisePage lsFrame
+    }
 }
 
@@ -4484 +4504 @@
 LocateWindow "." $xpos $ypos $poscntr
 update
-RaisePage lsFrame
+SetStartPanel
 if {[CountHistory] > 200} {
     DeleteHistoryRecords "This .EXP file has [CountHistory] history records\nErasing most will speed EXPGUI"