Changeset 1675 for branches/blt4/gui/scripts/controls.tcl

Timestamp:

Mar 28, 2010, 8:59:02 PM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/controls.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/controls.tcl

@@ -136 +136 @@
             bind $w <<Value>> [itcl::code $this _controlChanged $name]
         }
+        filechoice {
+            Rappture::FileChoiceEntry $w $_owner $path
+            bind $w <<Value>> [itcl::code $this _controlChanged $name]
+        }
         group {
             Rappture::GroupEntry $w $_owner $path
@@ -183 +187 @@
         }
     }
+
+    #
+    # If this element has an <enable> expression, then register
+    # its controlling widget here.
+    #
+    set notify [string trim [$_owner xml get $path.about.notify]]
 
     #