Changeset 451

Timestamp:

Dec 4, 2009 5:06:23 PM (14 years ago)

Author:

toby

Message:

# on 2001/09/25 23:34:32, toby did:
list only allowed histograms on submenu

File:

• trunk/liveplot (modified) (2 diffs, 3 props)

trunk/liveplot

@@ -1470 +1470 @@
             -command plotdata
 }
-.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 "Update Plot" \
         -command {set cycle [getcycle];readdata .g}
@@ -1642 +1631 @@
 if [file exists $fl] {source $fl}
 
-if {$program == "bkgedit"}  {
-    expload $expnam.EXP
-    mapexp
-
-#    bkghstInit
-}
+expload $expnam.EXP
+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 histograms
+            set state disabled
+            if {[string range $expmap(htype_$num) 3 3] != "*"} {
+                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 unprocessed histograms
+            set state disabled
+            if {[string range $expmap(htype_$num) 3 3] != "*"} {
+                set state normal
+            }
+            .a.file.menu.hist add radiobutton -label $num -value $num \
+                    -variable hst -state $state \
+                    -command {set cycle [getcycle];readdata .g}
+        }
+    }
+}
+
 updateifnew
 donewaitmsg