Changeset 1160 for branches/sandbox


Ignore:
Timestamp:
Jul 26, 2011 6:03:52 PM (9 years ago)
Author:
toby
Message:

disable autoiconify on Win7

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/expgui

    r1157 r1160  
    43024302    $expgui(fm).option.menu  add checkbutton -label "Prompt after GSAS run" \
    43034303            -variable expgui(execprompt)
    4304     $expgui(fm).option.menu  add checkbutton -label "Iconify during GSAS" \
     4304    if {$tcl_platform(platform) == "windows" && \
     4305            $tcl_platform(osVersion) == 6.1} {
     4306        set expgui(autoiconify) 0
     4307        $expgui(fm).option.menu  add checkbutton -label "Iconify during GSAS" \
     4308            -variable expgui(autoiconify) -state disabled
     4309    } else {
     4310        $expgui(fm).option.menu  add checkbutton -label "Iconify during GSAS" \
    43054311            -variable expgui(autoiconify)
     4312    }
    43064313    if {$tcl_platform(platform) == "windows" && \
    43074314            $tcl_platform(os) == "Windows 95"} {
Note: See TracChangeset for help on using the changeset viewer.