Changeset 3186 for trunk/gui/scripts/numberentry.tcl

Timestamp:

Oct 18, 2012 9:03:17 PM (12 years ago)

Author:

mmc

Message:

Added the Rappture::Logger facility and updated many (not all)
of the input/output controls to use it. This logs user activity
so you can see how they are interacting with the widgets during
the course of a session. If the RAPPTURE_LOG variable is set to
a directory (like /tmp), then Rappture creates a unique log file
in this directory for each tool session and writes logging info
into that file. The middleware ensures that the file is write-only
so that private activity information doesn't get out to people who
try to snoop around.

File:

• trunk/gui/scripts/numberentry.tcl (modified) (4 diffs)

trunk/gui/scripts/numberentry.tcl

@@ -72 +72 @@
     #
     itk_component add gauge {
-        $class $itk_interior.gauge -units $units -presets $presets
+        $class $itk_interior.gauge -units $units -presets $presets -log $path
     }
     pack $itk_component(gauge) -expand yes -fill both
@@ -78 +78 @@
 
     set min [$_owner xml get $path.min]
-    if {"" != $min} { $itk_component(gauge) configure -minvalue $min }
+    if {$min ne ""} { $itk_component(gauge) configure -minvalue $min }
 
     set max [$_owner xml get $path.max]
-    if {"" != $max} { $itk_component(gauge) configure -maxvalue $max }
-
-    if {$class == "Rappture::Gauge" && "" != $min && "" != $max} {
+    if {$max ne ""} { $itk_component(gauge) configure -maxvalue $max }
+
+    if {$class == "Rappture::Gauge" && $min ne "" && $max ne ""} {
         set color [$_owner xml get $path.about.color]
         if {$color == ""} {
@@ -105 +105 @@
     # if the control has an icon, plug it in
     set str [$_owner xml get $path.about.icon]
-    if {$str != ""} {
+    if {$str ne ""} {
         $itk_component(gauge) configure -image [image create photo -data $str]
     }
@@ -115 +115 @@
     #
     set str [$_owner xml get $path.default]
-    if {"" != $str != ""} { $itk_component(gauge) value $str }
+    if {$str ne ""} { $itk_component(gauge) value $str }
 }