Changeset 448


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

# on 2001/09/25 23:28:58, toby did:
add web error links
list only allowed histograms on submenu

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/excledt.tcl

    • Property rcs:date changed from 2001/09/04 22:55:55 to 2001/09/25 23:28:58
    • Property rcs:lines changed from +3 -3 to +54 -21
    • Property rcs:rev changed from 1.2 to 1.3
    r427 r448  
    945945            if {$graph(exclPrompt)} {
    946946                set ans [MyMessageBox -parent . -message $msg \
     947                        -helplink "expguierr.html ExcludeRegion" \
    947948                        -title "Delete region" -type okcancel]
    948949            } else {
     
    10411042    if {$graph(exclPrompt)} {
    10421043        set ans [MyMessageBox -parent . -message $msg -title "Exclude?"\
    1043                 -type okcancel]
    1044         # --helplink
     1044                -type okcancel -helplink "expguierr.html ExcludeRegion"]
    10451045    } else {
    10461046        set ans ok
     
    12291229    append msg "run POWPREF (& possibly GENLES with zero cycles)?"
    12301230    set ans [MyMessageBox -parent . -message $msg -title "Process limits?"\
    1231                 -type {Skip {Run POWPREF} {Run POWPREF & GENLES}}]
    1232 # --helplink
     1231            -helplink "expguierr.html ProcessRegions" \
     1232            -type {Skip {Run POWPREF} {Run POWPREF & GENLES}}]
    12331233    if {$ans == "skip"} {
    12341234        expwrite $expnam
     
    12921292        append msg "OK to make this change?"
    12931293        set ans [MyMessageBox -parent . -message $msg -title "Reset limits?"\
     1294                -helplink "expguierr.html RegionTooBig" \
    12941295                -type {OK Cancel}]
    1295 # --helplink
    12961296        if {$ans == "ok"} {
    12971297            set item [list [expr $max+$step] [lindex [lindex $exclist end] 1]]
     
    13191319    append msg "GENLES with zero cycles now?"
    13201320    set ans [MyMessageBox -parent . -message $msg -title "Process limits?"\
    1321                 -type {Skip {Run POWPREF} {Run POWPREF & GENLES}}]
    1322 # --helplink
     1321            -helplink "expguierr.html ProcessRegions" \
     1322            -type {Skip {Run POWPREF} {Run POWPREF & GENLES}}]
    13231323    global expgui env expnam
    13241324    if {$ans == "run powpref"} {
     
    16021602            -variable  peakinfo(flag$num)
    16031603}
    1604 .a.file.menu add cascade -label "Histogram" -menu .a.file.menu.hist
    1605 menu .a.file.menu.hist
    1606 for {set num 1} {$num < 99} {incr num 10} {
    1607     .a.file.menu.hist add cascade -label "$num-[expr $num+9]" \
    1608             -menu .a.file.menu.hist.$num
    1609     menu .a.file.menu.hist.$num
    1610     for {set num1 $num} {$num1 < 10+$num} {incr num1} {
    1611         .a.file.menu.hist.$num add radiobutton -label $num1 -value $num1 \
    1612                 -variable hst \
    1613                 -command {set cycle [getcycle];readdata .g}
    1614     }
    1615 }
     1604.a.file.menu add cascade -label Histogram -menu .a.file.menu.hist -state disabled
    16161605
    16171606.a.file.menu add command -label "Set Min/Max Range" -command setminormax
     
    17301719mapexp
    17311720
     1721# fill the histogram menu
     1722if {[llength $expmap(powderlist)] > 1} {
     1723    .a.file.menu entryconfigure Histogram -state normal
     1724    menu .a.file.menu.hist
     1725    if {[llength $expmap(powderlist)] > 15} {
     1726        set i 0
     1727        foreach num [lsort -integer $expmap(powderlist)] {
     1728            incr i
     1729            # for now include, but disable dummy histograms
     1730            set state disabled
     1731            if {[string trim [string range $expmap(htype_$num) 3 3]] != "D"} {
     1732                set state normal
     1733            }
     1734            if {$i == 1} {
     1735                set num1 $num
     1736                menu .a.file.menu.hist.$num1
     1737            }
     1738            .a.file.menu.hist.$num1 add radiobutton -label $num -value $num \
     1739                    -variable hst -state $state \
     1740                    -command {set cycle [getcycle];readdata .g}
     1741            if {$i >= 10} {
     1742                set i 0
     1743                .a.file.menu.hist add cascade -label "$num1-$num" \
     1744                        -menu .a.file.menu.hist.$num1
     1745            }
     1746        }
     1747        if {$i != 0} {
     1748            .a.file.menu.hist add cascade -label "$num1-$num" \
     1749                    -menu .a.file.menu.hist.$num1
     1750        }
     1751    } else {
     1752        foreach num [lsort -integer $expmap(powderlist)] {
     1753            # for now include, but disable dummy histograms
     1754            set state disabled
     1755            if {[string trim [string range $expmap(htype_$num) 3 3]] != "D"} {
     1756                set state normal
     1757            }
     1758            .a.file.menu.hist add radiobutton -label $num -value $num \
     1759                    -variable hst -state $state \
     1760                    -command {set cycle [getcycle];readdata .g}
     1761        }
     1762    }
     1763}
     1764
    17321765updateplot
    17331766trace variable peakinfo w plotdata
Note: See TracChangeset for help on using the changeset viewer.