Changeset 2990

Timestamp:

May 2, 2012, 7:29:30 AM (12 years ago)

Author:

gah

Message:

 

Location:

branches/blt4/gui/scripts

Files:

• controls.tcl (modified) (1 diff)
• drawingcontrols.tcl (modified) (1 diff)
• drawingentry.tcl (modified) (5 diffs)

branches/blt4/gui/scripts/controls.tcl

@@ -267 +267 @@
     set _name2info($name-enable) $enable
 
+    set hidden [$_owner xml get $_name2info($name-path).hide]
+    if { $hidden != "" } {
+        set _name2info($name-enable) [expr !$hidden]
+    }
     $_owner widgetfor $path $w
 

branches/blt4/gui/scripts/drawingcontrols.tcl

@@ -89 +89 @@
         set controls $_controls
     }
-    foreach name $_controls {
+    foreach name $controls {
         set w $_frame.v$name
         destroy $w
+        if { [info exists _name2info($name-label)] } {
+            destroy $_frame.l$name
+        }
         set i [lsearch $_controls $name]
         set _controls [lreplace $_controls $i $i]

branches/blt4/gui/scripts/drawingentry.tcl

@@ -38 +38 @@
     private variable _yOffset 0
     private variable _yScale 1.0
+    private variable _cursor ""
 
     constructor {owner path args} { # defined below }
@@ -314 +315 @@
             set value [XmlGet $cpath.$attr]
             lappend _cname2controls($cname) $value
+            puts stderr "$_owner xml put $value.hide 1"
+            $_owner xml put $value.hide 1
         }
     }
@@ -323 +326 @@
     } 
     set c $itk_component(drawing)
-    set img [image create picture -file ~/Resize-Handle.png]
+    set img [image create picture -file ~/question_mark12.png]
     foreach { x1 y1 } $coords break
     set id [$itk_component(drawing) create image $x1 $y1]
@@ -332 +335 @@
     set _cname2id($cname) $id
     set _cname2image($cname) $img
-    #$c bind $id <Enter> [itcl::code $this Activate $cname]
-    #$c bind $id <Leave> [itcl::code $this Deactivate $cname]
+    $c bind $id <Enter> [itcl::code $this Activate $cname]
+    $c bind $id <Leave> [itcl::code $this Deactivate $cname]
     #$c bind $id <ButtonPress-1> [itcl::code $this Depress $cname]
     $c bind $id <ButtonRelease-1> [itcl::code $this Invoke $cname $x1 $y1]
@@ -832 +835 @@
 
 #
+# Activate -- 
+#
+itcl::body Rappture::DrawingEntry::Activate { cname } {
+    $itk_component(drawing) configure -cursor center_ptr
+}
+
+#
+# Deactivate -- 
+#
+itcl::body Rappture::DrawingEntry::Deactivate { cname } {
+    $itk_component(drawing) configure -cursor left_ptr
+}
+
+#
 # Invoke -- 
 #