glimmer-dsl-swt 4.18.4.11 → 4.18.5.0

data/lib/ext/glimmer/config.rb

@@ -32,8 +32,7 @@ module Glimmer
       'org.eclipse.swt.custom',
       'org.eclipse.swt.dnd',
     ]
-    DEFAULT_AUTO_SYNC_EXEC = false
-    GUI_THREAD = Thread.current
+    DEFAULT_AUTO_SYNC_EXEC = true
     
     class << self
       # Tells Glimmer to import SWT packages into including class (default: true)
@@ -59,10 +58,6 @@ module Glimmer
       end
       alias auto_sync_exec? auto_sync_exec
       
-      def require_sync_exec?
-        Thread.current != GUI_THREAD
-      end
-      
       # Returns Logging Devices. Default is [:stdout, :syslog]
       def logging_devices
         unless defined? @@logging_devices
@@ -147,9 +142,10 @@ end
 Glimmer::Config.reset_logger! unless ENV['GLIMMER_LOGGER_ENABLED'].to_s.downcase == 'false'
 if ENV['GLIMMER_LOGGER_LEVEL']
   # if glimmer log level is being overridden for debugging purposes, then disable async logging making logging immediate
-  Glimmer::Config.logging_appender_options = Glimmer::Config.logging_appender_options.merge(async: false, auto_flushing: 1)
+  Glimmer::Config.logging_appender_options = Glimmer::Config.logging_appender_options.merge(async: false, auto_flushing: 1, immediate_at: [:unknown, :debug, :info, :error, :fatal])
   Glimmer::Config.logging_devices = [:stdout]
   begin
+    puts "Adjusting Glimmer logging level to #{ENV['GLIMMER_LOGGER_LEVEL']}"
     Glimmer::Config.logger.level = ENV['GLIMMER_LOGGER_LEVEL'].strip
   rescue => e
     puts e.message

data/lib/glimmer/data_binding/list_selection_binding.rb

@@ -1,5 +1,5 @@
 # Copyright (c) 2007-2021 Andy Maleh
-# 
+#
 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the
 # "Software"), to deal in the Software without restriction, including
@@ -7,10 +7,10 @@
 # distribute, sublicense, and/or sell copies of the Software, and to
 # permit persons to whom the Software is furnished to do so, subject to
 # the following conditions:
-# 
+#
 # The above copyright notice and this permission notice shall be
 # included in all copies or substantial portions of the Software.
-# 
+#
 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 # EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 # MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
@@ -50,17 +50,23 @@ module Glimmer
       # Initialize with list widget and property_type
       # property_type :string represents default list single selection
       # property_type :array represents list multi selection
-      def initialize(widget_proxy, property_type)
+      def initialize(widget_proxy, property_type, sync_exec: false, async_exec: false)
         property_type = :string if property_type.nil? or property_type == :undefined
         @widget_proxy = widget_proxy
         @property_type = property_type
-        @widget_proxy.on_widget_disposed do |dispose_event|
-          unregister_all_observables
+        @sync_exec = sync_exec
+        @async_exec = async_exec
+        Glimmer::SWT::DisplayProxy.instance.auto_exec(override_sync_exec: @sync_exec, override_async_exec: @async_exec) do
+          @widget_proxy.on_widget_disposed do |dispose_event|
+            unregister_all_observables
+          end
         end
       end
 
       def call(value)
-        PROPERTY_TYPE_UPDATERS[@property_type].call(@widget_proxy, value) unless evaluate_property == value
+        Glimmer::SWT::DisplayProxy.instance.auto_exec(override_sync_exec: @sync_exec, override_async_exec: @async_exec) do
+          PROPERTY_TYPE_UPDATERS[@property_type].call(@widget_proxy, value) unless evaluate_property == value
+        end
       end
 
       def evaluate_property

data/lib/glimmer/data_binding/table_items_binding.rb

@@ -24,6 +24,7 @@ require 'glimmer/data_binding/observable_model'
 require 'glimmer/data_binding/observable'
 require 'glimmer/data_binding/observer'
 require 'glimmer/swt/swt_proxy'
+require 'glimmer/swt/display_proxy'
 
 module Glimmer
   module DataBinding
@@ -37,33 +38,37 @@ module Glimmer
         @table = parent
         @model_binding = model_binding
         @read_only_sort = @model_binding.binding_options[:read_only_sort]
-        @table.swt_widget.data = @model_binding
-        @table.swt_widget.set_data('table_items_binding', self)
         @column_properties = column_properties
-        @table.on_widget_disposed do |dispose_event|
-          unregister_all_observables
-        end
         if @table.respond_to?(:column_properties=)
           @table.column_properties = @column_properties
         else # assume custom widget
           @table.body_root.column_properties = @column_properties
         end
-        @table_observer_registration = observe(model_binding)
-        call
+        Glimmer::SWT::DisplayProxy.instance.auto_exec(override_sync_exec: @model_binding.binding_options[:sync_exec], override_async_exec: @model_binding.binding_options[:async_exec]) do
+          @table.swt_widget.data = @model_binding
+          @table.swt_widget.set_data('table_items_binding', self)
+          @table.on_widget_disposed do |dispose_event|
+            unregister_all_observables
+          end
+          @table_observer_registration = observe(model_binding)
+          call
+        end
       end
 
       def call(new_model_collection=nil, internal_sort: false)
-        new_model_collection = model_binding_evaluated_property = @model_binding.evaluate_property unless internal_sort # this ensures applying converters (e.g. :on_read)
-        table_cells = @table.swt_widget.items.map {|item| @table.column_properties.size.times.map {|i| item.get_text(i)} }
-        model_cells = new_model_collection.to_a.map {|m| @table.cells_for(m)}
-        return if table_cells == model_cells
-        if new_model_collection and new_model_collection.is_a?(Array)
-          @table_items_observer_registration&.unobserve
-          @table_items_observer_registration = observe(new_model_collection, @column_properties)
-          add_dependent(@table_observer_registration => @table_items_observer_registration)
-          @model_collection = new_model_collection
+        Glimmer::SWT::DisplayProxy.instance.auto_exec(override_sync_exec: @model_binding.binding_options[:sync_exec], override_async_exec: @model_binding.binding_options[:async_exec]) do
+          new_model_collection = model_binding_evaluated_property = @model_binding.evaluate_property unless internal_sort # this ensures applying converters (e.g. :on_read)
+          table_cells = @table.swt_widget.items.map {|item| @table.column_properties.size.times.map {|i| item.get_text(i)} }
+          model_cells = new_model_collection.to_a.map {|m| @table.cells_for(m)}
+          return if table_cells == model_cells
+          if new_model_collection and new_model_collection.is_a?(Array)
+            @table_items_observer_registration&.unobserve
+            @table_items_observer_registration = observe(new_model_collection, @column_properties)
+            add_dependent(@table_observer_registration => @table_items_observer_registration)
+            @model_collection = new_model_collection
+          end
+          populate_table(@model_collection, @table, @column_properties, internal_sort: internal_sort)
         end
-        populate_table(@model_collection, @table, @column_properties, internal_sort: internal_sort)
       end
       
       def populate_table(model_collection, parent, column_properties, internal_sort: false)

data/lib/glimmer/data_binding/tree_items_binding.rb

@@ -43,29 +43,33 @@ module Glimmer
         else # assume custom widget
           @tree.body_root.tree_properties = @tree_properties
         end
-        call
-        model = model_binding.base_model
-        observe(model, model_binding.property_name_expression)
-        @tree.on_widget_disposed do |dispose_event|
-          unregister_all_observables
+        Glimmer::SWT::DisplayProxy.instance.auto_exec(override_sync_exec: @model_binding.binding_options[:sync_exec], override_async_exec: @model_binding.binding_options[:async_exec]) do
+          call
+          model = model_binding.base_model
+          observe(model, model_binding.property_name_expression)
+          @tree.on_widget_disposed do |dispose_event|
+            unregister_all_observables
+          end
         end
       end
 
       def call(new_value=nil)
-        @model_tree_root_node = @model_binding.evaluate_property
-        old_tree_items = @tree.all_tree_items
-        old_model_tree_nodes = old_tree_items.map(&:get_data)
-        new_model_tree_nodes = []
-        recursive_depth_first_search(@model_tree_root_node, @tree_properties, new_model_tree_nodes)
-        return if old_model_tree_nodes == new_model_tree_nodes && old_tree_items.map(&:text) == new_model_tree_nodes.map {|model_tree_node| model_tree_node.send(@tree_properties[:text])}
-        populate_tree(@model_tree_root_node, @tree, @tree_properties)
+        Glimmer::SWT::DisplayProxy.instance.auto_exec(override_sync_exec: @model_binding.binding_options[:sync_exec], override_async_exec: @model_binding.binding_options[:async_exec]) do
+          @model_tree_root_node = @model_binding.evaluate_property
+          old_tree_items = @tree.all_tree_items
+          old_model_tree_nodes = old_tree_items.map(&:get_data)
+          new_model_tree_nodes = []
+          recursive_depth_first_search(@model_tree_root_node, @tree_properties, new_model_tree_nodes)
+          return if old_model_tree_nodes == new_model_tree_nodes && old_tree_items.map(&:text) == new_model_tree_nodes.map {|model_tree_node| model_tree_node.send(@tree_properties[:text])}
+          populate_tree(@model_tree_root_node, @tree, @tree_properties)
+        end
       end
 
       def populate_tree(model_tree_root_node, parent, tree_properties)
         # TODO get rid of model_tree_root_node, parent, tree_properties as an argument given it is stored as an instance variable
         # TODO make it change things by delta instead of removing all
         old_tree_items = parent.all_tree_items
-        selected_tree_item_model = parent.swt_widget.getSelection.map(&:get_data).first
+        selected_tree_item_models = parent.swt_widget.getSelection.map(&:get_data)
         old_tree_item_expansion_by_data = old_tree_items.reduce({}) {|hash, ti| hash.merge(ti.getData => ti.getExpanded)}
         old_tree_items.each do |tree_item|
           tree_item.getData('observer_registrations').each(&:unregister)
@@ -74,8 +78,8 @@ module Glimmer
         parent.swt_widget.removeAll
         populate_tree_node(model_tree_root_node, parent.swt_widget, tree_properties)
         parent.all_tree_items.each { |ti| ti.setExpanded(!!old_tree_item_expansion_by_data[ti.getData]) }
-        tree_item_to_select = parent.depth_first_search {|ti| ti.getData == selected_tree_item_model}
-        parent.swt_widget.setSelection(tree_item_to_select)
+        selected_tree_items = parent.depth_first_search {|item| selected_tree_item_models.include?(item.get_data) }
+        parent.swt_widget.setSelection(selected_tree_items)
       end
 
       def populate_tree_node(model_tree_node, parent, tree_properties)

data/lib/glimmer/data_binding/widget_binding.rb

@@ -32,36 +32,27 @@ module Glimmer
       include Observer
 
       attr_reader :widget, :property
-      def initialize(widget, property, translator = nil, sync_exec: false, async_exec: false)
+      def initialize(widget, property, sync_exec: nil, async_exec: nil)
         @widget = widget
         @property = property
-        @translator = translator || proc {|value| value} #TODO check on this it doesn't seem used
         @sync_exec = sync_exec
         @async_exec = async_exec
-
-        if @widget.respond_to?(:on_widget_disposed)
-          @widget.on_widget_disposed do |dispose_event|
-            unregister_all_observables
+        SWT::DisplayProxy.instance.auto_exec(override_sync_exec: @sync_exec, override_async_exec: @async_exec) do
+          if @widget.respond_to?(:on_widget_disposed)
+            @widget.on_widget_disposed do |dispose_event|
+              unregister_all_observables
+            end
           end
         end
       end
       
       def call(value)
-        converted_value = translated_value = @translator.call(value)
-      
-        update_operation = lambda do
+        SWT::DisplayProxy.instance.auto_exec(override_sync_exec: @sync_exec, override_async_exec: @async_exec) do
           if @widget.respond_to?(:disposed?) && @widget.disposed?
             unregister_all_observables
             return
           end
-          @widget.set_attribute(@property, converted_value) unless evaluate_property == converted_value
-        end
-        if @sync_exec || Config.auto_sync_exec? && Config.require_sync_exec?
-          SWT::DisplayProxy.instance.sync_exec(&update_operation)
-        elsif @async_exec
-          SWT::DisplayProxy.instance.async_exec(&update_operation)
-        else
-          update_operation.call
+          @widget.set_attribute(@property, value) unless evaluate_property == value
         end
       end
       
@@ -70,16 +61,7 @@ module Glimmer
           unregister_all_observables
           return
         end
-        read_operation = lambda do
-          @widget.get_attribute(@property)
-        end
-        if @sync_exec || Config.auto_sync_exec? && Config.require_sync_exec?
-          SWT::DisplayProxy.instance.sync_exec(&read_operation)
-        elsif @async_exec
-          SWT::DisplayProxy.instance.async_exec(&read_operation)
-        else
-          read_operation.call
-        end
+        @widget.get_attribute(@property)
       end
     end
   end

data/lib/glimmer/dsl/swt/auto_exec_expression.rb

@@ -0,0 +1,36 @@
+# Copyright (c) 2007-2021 Andy Maleh
+#
+# Permission is hereby granted, free of charge, to any person obtaining
+# a copy of this software and associated documentation files (the
+# "Software"), to deal in the Software without restriction, including
+# without limitation the rights to use, copy, modify, merge, publish,
+# distribute, sublicense, and/or sell copies of the Software, and to
+# permit persons to whom the Software is furnished to do so, subject to
+# the following conditions:
+#
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+# LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+# OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+require 'glimmer/dsl/static_expression'
+require 'glimmer/dsl/swt/exec_expression'
+
+module Glimmer
+  module DSL
+    module SWT
+      # Automatically executes code block against the SWT Event Loop
+      # with sync_exec if needed (inside a thread other than GUI thread)
+      # to manipulate SWT UI objects on the UI thread safely
+      class AutoExecExpression < StaticExpression
+        include ExecExpression
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/swt/checkbox_group_selection_data_binding_expression.rb

@@ -22,6 +22,7 @@
 require 'glimmer/dsl/expression'
 require 'glimmer/data_binding/model_binding'
 require 'glimmer/data_binding/widget_binding'
+require 'glimmer/swt/display_proxy'
 
 module Glimmer
   module DSL
@@ -36,23 +37,25 @@ module Glimmer
             args[0].is_a?(DataBinding::ModelBinding) and
             args[0].evaluate_options_property.is_a?(Array)
         end
-  
+
         def interpret(parent, keyword, *args, &block)
           model_binding = args[0]
   
           #TODO make this options observer dependent and all similar observers in widget specific data binding handlers
           # TODO consider delegating some of this work
-          widget_binding = DataBinding::WidgetBinding.new(parent, 'items')
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'items', sync_exec: model_binding.binding_options[:sync_exec], async_exec: model_binding.binding_options[:async_exec])
           widget_binding.call(model_binding.evaluate_options_property)
           model = model_binding.base_model
           widget_binding.observe(model, model_binding.options_property_name)
   
-          widget_binding = DataBinding::WidgetBinding.new(parent, 'selection')
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'selection', sync_exec: model_binding.binding_options[:sync_exec], async_exec: model_binding.binding_options[:async_exec])
           widget_binding.call(model_binding.evaluate_property)
-          widget_binding.observe(model, model_binding.property_name_expression)
+          widget_binding.observe(model_binding)
   
-          parent.on_widget_selected do
-            model_binding.call(widget_binding.evaluate_property)
+          Glimmer::SWT::DisplayProxy.instance.auto_exec(override_sync_exec: model_binding.binding_options[:sync_exec], override_async_exec: model_binding.binding_options[:async_exec]) do
+            parent.on_widget_selected do
+              model_binding.call(widget_binding.evaluate_property)
+            end
           end
         end
       end

data/lib/glimmer/dsl/swt/combo_selection_data_binding_expression.rb

@@ -1,5 +1,5 @@
 # Copyright (c) 2007-2021 Andy Maleh
-# 
+#
 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the
 # "Software"), to deal in the Software without restriction, including
@@ -7,10 +7,10 @@
 # distribute, sublicense, and/or sell copies of the Software, and to
 # permit persons to whom the Software is furnished to do so, subject to
 # the following conditions:
-# 
+#
 # The above copyright notice and this permission notice shall be
 # included in all copies or substantial portions of the Software.
-# 
+#
 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 # EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 # MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
@@ -22,6 +22,7 @@
 require 'glimmer/dsl/expression'
 require 'glimmer/data_binding/model_binding'
 require 'glimmer/data_binding/widget_binding'
+require 'glimmer/swt/display_proxy'
 
 module Glimmer
   module DSL
@@ -44,21 +45,22 @@ module Glimmer
   
           #TODO make this options observer dependent and all similar observers in widget specific data binding handlers
           # TODO consider delegating some of this work
-          widget_binding = DataBinding::WidgetBinding.new(parent, 'items')
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'items', sync_exec: model_binding.binding_options[:sync_exec], async_exec: model_binding.binding_options[:async_exec])
           widget_binding.call(model_binding.evaluate_options_property)
-          model = model_binding.base_model
-          widget_binding.observe(model, model_binding.options_property_name)
+          widget_binding.observe(model_binding.model, model_binding.options_property_name)
   
-          widget_binding = DataBinding::WidgetBinding.new(parent, 'text')
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'text', sync_exec: model_binding.binding_options[:sync_exec], async_exec: model_binding.binding_options[:async_exec])
           widget_binding.call(model_binding.evaluate_property)
-          widget_binding.observe(model, model_binding.property_name_expression)
+          widget_binding.observe(model_binding)
   
-          parent.on_widget_selected do
-            model_binding.call(widget_binding.evaluate_property)
-          end
-          
-          parent.on_modify_text do
-            model_binding.call(widget_binding.evaluate_property)
+          Glimmer::SWT::DisplayProxy.instance.auto_exec(override_sync_exec: model_binding.binding_options[:sync_exec], override_async_exec: model_binding.binding_options[:async_exec]) do
+            parent.on_widget_selected do
+              model_binding.call(widget_binding.evaluate_property)
+            end
+            
+            parent.on_modify_text do
+              model_binding.call(widget_binding.evaluate_property)
+            end
           end
         end
       end

data/lib/glimmer/dsl/swt/data_binding_expression.rb

@@ -42,8 +42,7 @@ module Glimmer
   
         def interpret(parent, keyword, *args, &block)
           model_binding = args[0]
-          widget_binding_parameters = [parent, keyword, {async_exec: model_binding.binding_options[:async_exec], sync_exec: model_binding.binding_options[:sync_exec]}]
-          widget_binding = DataBinding::WidgetBinding.new(*widget_binding_parameters)
+          widget_binding = DataBinding::WidgetBinding.new(parent, keyword, sync_exec: model_binding.binding_options[:sync_exec], async_exec: model_binding.binding_options[:async_exec])
           widget_binding.call(model_binding.evaluate_property)
           #TODO make this options observer dependent and all similar observers in widget specific data binding handlers
           widget_binding.observe(model_binding)

data/lib/glimmer/dsl/swt/exec_expression.rb

@@ -41,7 +41,7 @@ module Glimmer
         end
   
         def interpret(parent, keyword, *args, &block)
-          Glimmer::SWT::DisplayProxy.instance.swt_display.send(exec_operation, *args) do |*args|
+          Glimmer::SWT::DisplayProxy.instance.send(exec_operation, *args) do |*args|
             begin
               block.call(*args)
             rescue => e

data/lib/glimmer/dsl/swt/image_expression.rb

@@ -34,8 +34,15 @@ module Glimmer
         include ParentExpression
         
         def can_interpret?(parent, keyword, *args, &block)
+          options = args.last.is_a?(Hash) ? args.last : {}
           (keyword == 'image') and
-            (parent.nil? or parent.respond_to?('image=') or args.first.is_a?(Numeric))
+            (
+              options.keys.include?(:top_level) or
+              (
+                !parent.is_a?(Glimmer::SWT::Custom::Shape) and
+                (parent.nil? or parent.respond_to?('image=') or args.first.is_a?(Numeric))
+              )
+            )
         end
   
         def interpret(parent, keyword, *args, &block)

data/lib/glimmer/dsl/swt/list_selection_data_binding_expression.rb

@@ -1,5 +1,5 @@
 # Copyright (c) 2007-2021 Andy Maleh
-# 
+#
 # Permission is hereby granted, free of charge, to any person obtaining
 # a copy of this software and associated documentation files (the
 # "Software"), to deal in the Software without restriction, including
@@ -7,10 +7,10 @@
 # distribute, sublicense, and/or sell copies of the Software, and to
 # permit persons to whom the Software is furnished to do so, subject to
 # the following conditions:
-# 
+#
 # The above copyright notice and this permission notice shall be
 # included in all copies or substantial portions of the Software.
-# 
+#
 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 # EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 # MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
@@ -23,6 +23,7 @@ require 'glimmer/dsl/expression'
 require 'glimmer/data_binding/model_binding'
 require 'glimmer/data_binding/widget_binding'
 require 'glimmer/data_binding/list_selection_binding'
+require 'glimmer/swt/display_proxy'
 
 module Glimmer
   module DSL
@@ -42,7 +43,7 @@ module Glimmer
   
         def interpret(parent, keyword, *args, &block)
           model_binding = args[0]
-          widget_binding = DataBinding::WidgetBinding.new(parent, 'items')
+          widget_binding = DataBinding::WidgetBinding.new(parent, 'items', sync_exec: model_binding.binding_options[:sync_exec], async_exec: model_binding.binding_options[:async_exec])
           widget_binding.call(model_binding.evaluate_options_property)
           model = model_binding.base_model
           #TODO make this options observer dependent and all similar observers in widget specific data binding interpretrs
@@ -50,13 +51,15 @@ module Glimmer
   
           property_type = :string
           property_type = :array if parent.has_style?(:multi)
-          list_selection_binding = DataBinding::ListSelectionBinding.new(parent, property_type)
+          list_selection_binding = DataBinding::ListSelectionBinding.new(parent, property_type, sync_exec: model_binding.binding_options[:sync_exec], async_exec: model_binding.binding_options[:async_exec])
           list_selection_binding.call(model_binding.evaluate_property)
           #TODO check if nested data binding works for list widget and other widgets that need custom data binding
-          list_selection_binding.observe(model, model_binding.property_name_expression)
+          list_selection_binding.observe(model_binding)
   
-          parent.on_widget_selected do
-            model_binding.call(list_selection_binding.evaluate_property)
+          Glimmer::SWT::DisplayProxy.instance.auto_exec(override_sync_exec: model_binding.binding_options[:sync_exec], override_async_exec: model_binding.binding_options[:async_exec]) do
+            parent.on_widget_selected do
+              model_binding.call(list_selection_binding.evaluate_property)
+            end
           end
         end
       end