Changeset 350

Timestamp:

Dec 4, 2009 5:04:37 PM (14 years ago)

Author:

toby

Message:

# on 2000/11/21 21:25:31, toby did:
fix that geometry is spelled different on Windows

File:

• trunk/gsasmenu.tcl (modified) (1 diff, 3 props)

trunk/gsasmenu.tcl

@@ -372 +372 @@
         liveplot
 }       
+
+
+# convert geometry to geomtry for Windows
+if {$tcl_platform(platform) == "windows"} {
+    foreach name [array names expgui_menulist] {
+        while {[set pos [lsearch $expgui_menulist($name) geometry]] != -1} {
+            set expgui_menulist($name) \
+                    [lreplace $expgui_menulist($name) $pos $pos geomtry]
+        }
+    }
+    while {[set pos [lsearch $expgui(buttonlist) geometry]] != -1} {
+        set expgui_menulist($name) \
+                [lreplace $expgui(buttonlist) $pos $pos geomtry]
+    }
+    set expgui_cmdlist(geomtry) $expgui_cmdlist(geometry)
+    unset expgui_cmdlist(geometry)
+}