Changeset 478 for trunk/expgui


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

# on 2001/10/31 20:06:10, toby did:
fix .Oxx bug when no files are found
add excledt support

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/expgui

    • Property rcs:date changed from 2001/10/18 23:22:57 to 2001/10/31 20:06:10
    • Property rcs:lines changed from +40 -127 to +16 -6
    • Property rcs:rev changed from 1.49 to 1.50
    r466 r478  
    136136# commands for preferred orientation
    137137source [file join $expgui(scriptdir) orient.tcl]
     138# setting data range/excluded regions
     139source [file join $expgui(scriptdir) exclinit.tcl]
    138140#---------------------------------------------------------------------------
    139141# override options with locally defined values
     
    254256        if {$ans != "use new name" && [file exists $expfile]} {
    255257            # get the last archived version
    256             set lastf [lindex [lsort [glob $expnam.{O\[0-9A-F\]\[0-9A-F\]}]] end]
     258            set lastf [lindex [lsort [glob -nocomplain $expnam.{O\[0-9A-F\]\[0-9A-F\]}]] end]
    257259            if {$lastf == ""} {
    258260                set num 01
     
    506508# save some of the global options in ~/.gsas_config
    507509proc SaveOptions {} {
    508     global expgui env tcl_platform
     510    global expgui env tcl_platform graph peakinfo
    509511    set fp [open [file join ~ .gsas_config] a]
    510     foreach item {archive asorttype hsorttype filesort disaglSeparateBox font autoexpload autoiconify} {
     512    foreach item {archive asorttype hsorttype filesort disaglSeparateBox \
     513            font autoexpload autoiconify autotick} {
    511514        puts $fp "set expgui($item) $expgui($item)"
    512515    }
    513516    if {$tcl_platform(platform) != "windows"} {
    514517        puts $fp "set env(GSASBACKSPACE) $env(GSASBACKSPACE)"
     518    }
     519    foreach v {printout legend outname outcmd autoraise color_excl \
     520            color_obs color_calc} {
     521        puts $fp "set graph($v) $graph($v)"
     522    }
     523    foreach v {obssym obssize exclsym exclsize} {
     524        puts $fp "set peakinfo($v) $peakinfo($v)"
    515525    }
    516526    close $fp
     
    12041214        3 "Select 1 or more\nAlpha 1,2 X-ray Histograms"
    12051215        4 "Select 1 or more\nmonochromatic X-ray Histograms"
    1206         5 "Select 1 or more Energy\nDisperive X-ray Histograms"
     1216        5 "Select 1 or more Energy\nDispersive X-ray Histograms"
    12071217        6 "Select 1 or more of\n any type Histograms"
    12081218    }
Note: See TracChangeset for help on using the changeset viewer.