Changeset 5029 for branches/uq/gui/scripts/numberentry.tcl

Timestamp:

Feb 17, 2015 5:49:36 PM (9 years ago)

Author:

mmh

Message:

puq integration snap

File:

• branches/uq/gui/scripts/numberentry.tcl (modified) (8 diffs)

branches/uq/gui/scripts/numberentry.tcl

@@ -1 @@
-# -*- mode: tcl; indent-tabs-mode: nil -*- 
+# -*- mode: tcl; indent-tabs-mode: nil -*-
 # ----------------------------------------------------------------------
 #  COMPONENT: NumberEntry - widget for entering numeric values
@@ -25 +25 @@
     public method label {}
     public method tooltip {}
-
     protected method _newValue {}
 
@@ -43 +42 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::NumberEntry::constructor {owner path args} {
+    puts "NumberEntry '$path' '$args'"
+    set varname [lindex [split $path ()] 1]
+
     if {[catch {$owner isa Rappture::ControlOwner} valid] != 0 || !$valid} {
         error "bad object \"$owner\": should be Rappture::ControlOwner"
@@ -48 +50 @@
     set _owner $owner
     set _path $path
-    
+
+    puts "LABEL=[label]"
     #
     # Figure out what sort of control to create
@@ -58 +61 @@
         lappend presets $value $label
     }
-    
+
     set class Rappture::Gauge
     set units [string trim [$_owner xml get $path.units]]
+    puts "units=$units"
     if {$units != ""} {
         set desc [Rappture::Units::description $units]
@@ -67 +71 @@
         }
     }
-    
+
     #
     # Create the widget and configure it properly based on other
@@ -73 +77 @@
     #
     itk_component add gauge {
-        $class $itk_interior.gauge -units $units -presets $presets -log $path
+        $class $itk_interior.gauge -units $units -presets $presets -log $path -varname $varname -label [label]
     }
     pack $itk_component(gauge) -expand yes -fill both
     bind $itk_component(gauge) <<Value>> [itcl::code $this _newValue]
-    
+
     set min [string trim [$_owner xml get $path.min]]
-    if {$min ne ""} { 
-        $itk_component(gauge) configure -minvalue $min 
-    }
-    
+    if {$min ne ""} {
+        $itk_component(gauge) configure -minvalue $min
+    }
+
     set max [string trim [$_owner xml get $path.max]]
-    if {$max ne ""} { 
-        $itk_component(gauge) configure -maxvalue $max 
+    if {$max ne ""} {
+        $itk_component(gauge) configure -maxvalue $max
     }
 
@@ -119 +123 @@
     #
     set str [string trim [$_owner xml get $path.default]]
-    if {$str ne ""} { 
-        $itk_component(gauge) value $str 
+    puts "Default=$str"
+    if {$str ne ""} {
+        $itk_component(gauge) value $str
     }
 }