Ignore:
Timestamp:
May 4, 2016 11:27:36 AM (7 years ago)
Author:
gah
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.7/gui/scripts/loader.tcl

    r6024 r6313  
    246246    set str [string trim [$_owner xml get $path.default]]
    247247    if { $str != "" } {
    248         bind $itk_component(hull) <Map> [itcl::code $this SetDefaultValue $str]
     248        SetDefaultValue $str
    249249    }
    250250}
     
    326326# SetDefaultValue --
    327327#
    328 #       Sets the designated default value for the loader.  This must be done
    329 #       after the entire application is assembled, otherwise the default
    330 #       values set up by the loader will be overwritten by the various widgets
    331 #       themselves when they try to set their default values.
    332 #
    333 #       This is called from a  <Map> event to the loader (combobox).  This
    334 #       will get trigger the first time the loader is displayed.  The binding
    335 #       is then removed.
     328#   Sets the designated default value for the loader.  This must be done
     329#   after the entire application is assembled, otherwise the default values
     330#   set up by the loader will be overwritten by the various widgets
     331#   themselves when they try to set their default values.
    336332#
    337333itcl::body Rappture::Loader::SetDefaultValue { value } {
    338     after idle [itcl::code $this value $value]
    339     # We're done. Remove the binding.
    340     bind $itk_component(hull) <Map> {}
     334    after 100 [itcl::code $this value $value]
    341335}
    342336
Note: See TracChangeset for help on using the changeset viewer.