Changeset 382 for trunk/gsasmenu.tcl

Timestamp:

Dec 4, 2009 5:05:14 PM (13 years ago)

Author:

toby

Message:

# on 2001/04/17 22:45:54, toby did:
use same spelling for geometry program on all platforms

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)
-}