Changeset 75 for trunk/liveplot

Timestamp:

Dec 4, 2009 4:59:59 PM (14 years ago)

Author:

toby

Message:

# on 1999/04/05 18:14:24, toby did:
fix BLT element -show/-hide option
add timing debug option

File:

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

trunk/liveplot

@@ -57 +57 @@
 if [catch {set blt_version}] {set blt_version 0}
 # option for coloring markers: note that GH keeps changing how to do this!
+# also element -mapped => -show
 if {$blt_version < 2.3 || $blt_version >= 8.0} {
+    # version 8.0 is ~same as 2.3
     set graph(MarkerColorOpt) -fg 
+    # mapped is needed in 8.0, both are OK in 2.3
+    set graph(ElementShowOption) "-mapped 1"
+    set graph(ElementHideOption) "-mapped 0"
 } elseif {$blt_version >= 2.4} {
     set graph(MarkerColorOpt) -outline
+    set graph(ElementShowOption) "-hide 0"
+    set graph(ElementHideOption) "-hide 1"
 } else {
     set graph(MarkerColorOpt) -color
+    set graph(ElementShowOption) "-mapped 1"
+    set graph(ElementHideOption) "-mapped 0"
 }
 
@@ -135 +144 @@
     global expgui
     if [catch {
-        #puts [time {
+        set loadtime [time {
             if {$expgui(tcldump) == ""} {
                 readdata_hst $box
@@ -141 +150 @@
                 readdata_tcl $box
             }
-        #}]
+        }]
+        if $expgui(debug) {
+            tk_dialog .time "Timing info" \
+                    "Histogram loading took $loadtime" "" 0 OK
+        }
     } errmsg] {
-        if $expgui(debug) {error $errmsg}
+        if $expgui(debug) {
+            catch {console show}
+            error $errmsg
+        }
         $box config -title "Read error: $errmsg"
-        catch {console show}
         puts "error message: $errmsg"
         update
@@ -272 +287 @@
         $box config -title "(Error reading Histogram $hst)"
         foreach elem [$box element show] {
-           $box element config $elem -hide 1
+           eval $box element config $elem $graph(ElementHideOption)
         }
         return
     }
     foreach elem [$box element names] {
-        $box element config $elem -hide 0
+        eval $box element config $elem $graph(ElementShowOption)
     }
     xvec set $X