Changeset 350 for trunk/gsasmenu.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:04:37 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsasmenu.tcl

    • Property rcs:date changed from 2000/08/04 18:18:18 to 2000/11/21 21:25:31
    • Property rcs:lines changed from +5 -2 to +19 -2
    • Property rcs:rev changed from 1.14 to 1.15
    r251 r350  
    372372        liveplot
    373373}       
     374
     375
     376# convert geometry to geomtry for Windows
     377if {$tcl_platform(platform) == "windows"} {
     378    foreach name [array names expgui_menulist] {
     379        while {[set pos [lsearch $expgui_menulist($name) geometry]] != -1} {
     380            set expgui_menulist($name) \
     381                    [lreplace $expgui_menulist($name) $pos $pos geomtry]
     382        }
     383    }
     384    while {[set pos [lsearch $expgui(buttonlist) geometry]] != -1} {
     385        set expgui_menulist($name) \
     386                [lreplace $expgui(buttonlist) $pos $pos geomtry]
     387    }
     388    set expgui_cmdlist(geomtry) $expgui_cmdlist(geometry)
     389    unset expgui_cmdlist(geometry)
     390}
Note: See TracChangeset for help on using the changeset viewer.