Changeset 6311 for branches/1.6/gui

Timestamp:

May 4, 2016 11:24:57 AM (8 years ago)

Author:

gah

Message:

fixes for binary data in putFile, defer loader setting default value

File:

• branches/1.6/gui/scripts/loader.tcl (modified) (2 diffs)

branches/1.6/gui/scripts/loader.tcl

@@ -246 +246 @@
     set str [string trim [$_owner xml get $path.default]]
     if { $str != "" } {
-        bind $itk_component(hull) <Map> [itcl::code $this SetDefaultValue $str]
+        SetDefaultValue $str
     }
 }
@@ -326 +326 @@
 # 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.
+#   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> {}
+    after 100 [itcl::code $this value $value]
 }