Changeset 448 for trunk/excledt.tcl

Timestamp:

Dec 4, 2009 5:06:20 PM (14 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:

• trunk/excledt.tcl (modified) (7 diffs, 3 props)

trunk/excledt.tcl

@@ -945 +945 @@
             if {$graph(exclPrompt)} {
                 set ans [MyMessageBox -parent . -message $msg \
+                        -helplink "expguierr.html ExcludeRegion" \
                         -title "Delete region" -type okcancel]
             } else {
@@ -1041 +1042 @@
     if {$graph(exclPrompt)} {
         set ans [MyMessageBox -parent . -message $msg -title "Exclude?"\
-                -type okcancel]
-        # --helplink
+                -type okcancel -helplink "expguierr.html ExcludeRegion"]
     } else {
         set ans ok
@@ -1229 +1229 @@
     append msg "run POWPREF (& possibly GENLES with zero cycles)?"
     set ans [MyMessageBox -parent . -message $msg -title "Process limits?"\
-                -type {Skip {Run POWPREF} {Run POWPREF & GENLES}}]
-# --helplink
+            -helplink "expguierr.html ProcessRegions" \
+            -type {Skip {Run POWPREF} {Run POWPREF & GENLES}}]
     if {$ans == "skip"} {
         expwrite $expnam
@@ -1292 +1292 @@
         append msg "OK to make this change?"
         set ans [MyMessageBox -parent . -message $msg -title "Reset limits?"\
+                -helplink "expguierr.html RegionTooBig" \
                 -type {OK Cancel}]
-# --helplink
         if {$ans == "ok"} {
             set item [list [expr $max+$step] [lindex [lindex $exclist end] 1]]
@@ -1319 +1319 @@
     append msg "GENLES with zero cycles now?"
     set ans [MyMessageBox -parent . -message $msg -title "Process limits?"\
-                -type {Skip {Run POWPREF} {Run POWPREF & GENLES}}]
-# --helplink
+            -helplink "expguierr.html ProcessRegions" \
+            -type {Skip {Run POWPREF} {Run POWPREF & GENLES}}]
     global expgui env expnam
     if {$ans == "run powpref"} {
@@ -1602 +1602 @@
             -variable  peakinfo(flag$num)
 }
-.a.file.menu add cascade -label "Histogram" -menu .a.file.menu.hist
-menu .a.file.menu.hist
-for {set num 1} {$num < 99} {incr num 10} {
-    .a.file.menu.hist add cascade -label "$num-[expr $num+9]" \
-            -menu .a.file.menu.hist.$num
-    menu .a.file.menu.hist.$num
-    for {set num1 $num} {$num1 < 10+$num} {incr num1} {
-        .a.file.menu.hist.$num add radiobutton -label $num1 -value $num1 \
-                -variable hst \
-                -command {set cycle [getcycle];readdata .g}
-    }
-}
+.a.file.menu add cascade -label Histogram -menu .a.file.menu.hist -state disabled
 
 .a.file.menu add command -label "Set Min/Max Range" -command setminormax
@@ -1730 +1719 @@
 mapexp
 
+# fill the histogram menu
+if {[llength $expmap(powderlist)] > 1} {
+    .a.file.menu entryconfigure Histogram -state normal
+    menu .a.file.menu.hist
+    if {[llength $expmap(powderlist)] > 15} {
+        set i 0
+        foreach num [lsort -integer $expmap(powderlist)] {
+            incr i
+            # for now include, but disable dummy histograms
+            set state disabled
+            if {[string trim [string range $expmap(htype_$num) 3 3]] != "D"} {
+                set state normal
+            }
+            if {$i == 1} {
+                set num1 $num
+                menu .a.file.menu.hist.$num1
+            }
+            .a.file.menu.hist.$num1 add radiobutton -label $num -value $num \
+                    -variable hst -state $state \
+                    -command {set cycle [getcycle];readdata .g}
+            if {$i >= 10} {
+                set i 0
+                .a.file.menu.hist add cascade -label "$num1-$num" \
+                        -menu .a.file.menu.hist.$num1
+            }
+        }
+        if {$i != 0} {
+            .a.file.menu.hist add cascade -label "$num1-$num" \
+                    -menu .a.file.menu.hist.$num1
+        }
+    } else {
+        foreach num [lsort -integer $expmap(powderlist)] {
+            # for now include, but disable dummy histograms
+            set state disabled
+            if {[string trim [string range $expmap(htype_$num) 3 3]] != "D"} {
+                set state normal
+            }
+            .a.file.menu.hist add radiobutton -label $num -value $num \
+                    -variable hst -state $state \
+                    -command {set cycle [getcycle];readdata .g}
+        }
+    }
+}
+
 updateplot
 trace variable peakinfo w plotdata