Changeset 1221 for branches/sandbox/expgui

Timestamp:

Sep 21, 2012 5:56:33 PM (11 years ago)

Author:

toby

Message:

more Fourier work; remove warning on R *3* H sg in CIF

File:

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

branches/sandbox/expgui

@@ -70 +70 @@
 set expgui(HistSelectList) {}
 # location for web pages, if not found locally
-set expgui(website) 11bm.xor.aps.anl.gov/expguidoc/
+set expgui(website) subversion.xray.aps.anl.gov/EXPGUI/trunk/doc/
 # default for archive mode = on
 set expgui(archive) 1
@@ -4452 +4452 @@
         CIFselect $expgui(expfile)
     }
+    $expgui(fm).graphs.menu add cascade \
+        -menu  $expgui(fm).graphs.menu.fourier \
+        -label "Fourier"
+    menu $expgui(fm).graphs.menu.fourier
+    foreach num {1 2 3 4 5 6 7 8 9} {
+        $expgui(fm).graphs.menu.fourier add command -label "Setup phase $num" \
+            -command "EditFourier $num"
+    }
+    $expgui(fm).graphs.menu.fourier add command -label "run fourier prog" \
+        -command {runGSASwEXP fourier}
+
     # add the commands in expgui_menulist 
     foreach menu [array names expgui_menulist ] {