Changeset 3040 for trunk/gui/scripts

Timestamp:

Jun 13, 2012, 8:06:54 PM (12 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/drawingentry.tcl (modified) (6 diffs)

trunk/gui/scripts/drawingentry.tcl

@@ -72 +72 @@
     private method XmlGetSubst { path } 
     private method Withdraw {} 
+    private method WatchHotspot { w item x y } 
 }
 
@@ -596 +597 @@
         "font"          "-font"
         "color"         "-foreground"
+        "valuecolor"    "-valueforeground"
         "text"          "-text"
         "anchor"        "-anchor"
@@ -604 +606 @@
     array set options {
         -font {Arial 8}
+        -valuefont {Arial 8 bold}
+        -valueforeground blue3
         -text {}
         -fill {}
@@ -635 +639 @@
     set _cname2id($cname) $id
     eval $itk_component(drawing) itemconfigure $id [array get options]
+    foreach varName [Rappture::hotspot variables $itk_component(drawing) $id] {
+        if { [info exists _name2path($varName)] } {
+            set path $_name2path($varName)
+            $_owner xml put $path.hide 1
+        } else {
+            puts stderr "unknown varName=$varName"
+        }
+    }
+    $itk_component(drawing) bind $id <Motion> \
+        [itcl::code $this WatchHotspot %W $id %x %y]
+}
+
+
+itcl::body Rappture::DrawingEntry::WatchHotspot { w item x y } {
+    set x [$w canvasx $x]
+    set y [$w canvasy $y]
+    set varName  [Rappture::hotspot identify $w $item $x $y]
+    puts stderr "x=$x y=$y [$w itemcget $item -text] varName=$varName"
+    $w itemconfigure $item -activevalue $varName
 }
 
@@ -914 +937 @@
 itcl::body Rappture::DrawingEntry::XmlGet { path } {
     set value [$_owner xml get $path]
-    if { $_parser == "" } {
-        return $value
-    }
-    return $value
+    return [string trim $value]
 }
 
@@ -925 +945 @@
         return $value
     }
-    return [$_parser eval [list subst -nocommands $value]]
-}
+    return [string trim [$_parser eval [list subst -nocommands $value]]]
+}