Changeset 953 for trunk/expgui

Timestamp:

Mar 11, 2010 2:00:14 PM (11 years ago)

Author:

toby

Message:

remove NIST refs; review space in dir warn; use PGPLOT_DIR on win-NT, etc.; doc updates; tkcon problems on windows, add open console; move update menu from help

File:

• trunk/expgui (modified) (4 diffs)

trunk/expgui

@@ -80 +80 @@
 
 # location for web pages, if not found locally
-set expgui(website) www.ncnr.nist.gov/xtal/software/expgui
+set expgui(website) 11bm.xor.aps.anl.gov/expguidoc/
 # default for archive mode = on
 set expgui(archive) 1
@@ -695 +695 @@
 \n\n\
 Generalized Structure Analysis System\n(GSAS)\n\
-A. C. Larson and\n R. B. Von Dreele,\n LANSCE, Los Alamos\n\n\
+R. B. Von Dreele,\n 
+APS, Argonne National Laboratory\n
+and A. C. Larson, Los Alamos (retired)\n\n\
 " \
         info 0 OK
@@ -4165 +4167 @@
 $expgui(fm).help.menu add command -command "MakeWWWHelp menu" \
         -label "Help on menu"
-if {![catch {package require tkcon} errmsg]} {
-    $expgui(fm).help.menu add command -label "Open console" \
-        -command {tkcon show}
-} elseif {$tcl_platform(platform) == "windows"} {
+if {$tcl_platform(platform) == "windows"} {
     $expgui(fm).help.menu add command -label "Open console" \
         -command {console show}
 }
+if {![catch {package require tkcon} errmsg]} {
+    $expgui(fm).help.menu add command -label "Open tkcon console" \
+        -command {tkcon show}
+}
 # add update commands to buffer
 if [CheckUpdateImplemented $expgui(gsasdir)] {
-    $expgui(fm).help.menu add command -command CheckAndDoUpdate -label "Update GSAS/EXPGUI"
-#    $expgui(fm).help.menu add cascade -menu $expgui(fm).help.menu.track \
+    $expgui(fm).file.menu add command -command CheckAndDoUpdate -label "Update GSAS/EXPGUI"
+#    $expgui(fm).file.menu add cascade -menu $expgui(fm).file.menu.track \
 #       -label "Select EXPGUI version"
-#    menu $expgui(fm).help.menu.track 
-#    $expgui(fm).help.menu.track add radiobutton -command {SetSVNbranch trunk} -label Development -value trunk \
+#    menu $expgui(fm).file.menu.track 
+#    $expgui(fm).file.menu.track add radiobutton -command {SetSVNbranch trunk} -label Development -value trunk \
 #       -variable expgui(SVNversion)
-#    $expgui(fm).help.menu.track add radiobutton -command {SetSVNbranch stable} -label Standard -value stable \
+#    $expgui(fm).file.menu.track add radiobutton -command {SetSVNbranch stable} -label Standard -value stable \
 #       -variable expgui(SVNversion)
     # get info about the current CMPR version on the server. Someday we might want to compare this
@@ -4195 +4198 @@
     }
 } else {
-    $expgui(fm).help.menu add command -label "Show update problem" -command {
+    $expgui(fm).file.menu add command -label "Show update problem" -command {
         if {! [file exists [file join $expgui(gsasdir) .svn]]} {
             MyMessageBox -parent . -title "No .svn" \