Changeset 952

Timestamp:

Mar 10, 2010 3:46:36 PM (15 years ago)

Author:

toby

Message:

fix about box

File:

• trunk/expgui (modified) (2 diffs)

trunk/expgui ¶

@@ -680 +680 @@
 proc About { } {
     global expgui expmap
+    set version "Revision [lindex $expgui(Revision) 1] (readexp.tcl [lindex $expmap(Revision) 1])"
+    catch {
+        set version "[GetSVNVersion $::expgui(gsasdir)]\ntrack: $::expgui(SVNversion)"
+    }
     tk_dialog .about {About...} \
 "EXPGUI\n\
@@ -685 +689 @@
 APS, Argonne National Laboratory\n\n\
 Not subject to copyright\n\n\
-Revision [lindex $expgui(Revision) 1] (readexp.tcl [lindex $expmap(Revision) 1])\n\n\
+$version\n\n\
 Cite: B. H. Toby, EXPGUI, a graphical\n\
 user interface for GSAS, J. Appl. Cryst.\n\