Changeset 2241 for trunk/gui/scripts/loader.tcl

Timestamp:

May 16, 2011, 11:07:56 AM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/loader.tcl (modified) (3 diffs)

trunk/gui/scripts/loader.tcl

@@ -34 +34 @@
     protected method _downloadValues {}
     protected method _tooltip {}
+
+    private method SetDefaultValue { value } 
 
     private variable _owner ""    ;# thing managing this control
@@ -240 +242 @@
     #
     set str [$_owner xml get $path.default]
-    if {$str != ""} { after 1500 [itcl::code $this value $str] }
+    if { $str != "" } { 
+        bind $itk_component(hull) <Map> [itcl::code $this SetDefaultValue $str]
+    }
 }
 
@@ -314 +318 @@
     # query tooltip on-demand based on current choice
     return "@[itcl::code $this _tooltip]"
+}
+
+#
+# SetDefaultValue --
+#
+#       Sets the designated default value for the loader.  This must be done
+#       after the entire application is assembled, otherwise the default
+#       values set up by the loader will be overwritten by the various widgets
+#       themselves when they try to set their default values.  
+#
+#       This is called from a  <Map> event to the loader (combobox).  This
+#       will get trigger the first time the loader is displayed.  The binding
+#       is then removed.
+#
+itcl::body Rappture::Loader::SetDefaultValue { value } {
+    after idle [itcl::code $this value $value]
+    # We're done. Remove the binding.
+    bind $itk_component(hull) <Map> {}
 }