glimmer-dsl-tk 0.0.1 → 0.0.6

data/VERSION

@@ -1 +1 @@
-0.0.1
+0.0.6

data/bin/girb

@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+
+GIRB_RUNNER="$(realpath $(dirname $0))/girb_runner.rb"
+
+irb $@ -r $GIRB_RUNNER
+
+if !(test -f ~/.girb_runner_exit); then
+  rm -rf ~/.girb_runner_exit
+  exec $0
+fi

data/bin/girb_runner.rb

@@ -0,0 +1,26 @@
+require 'puts_debuggerer'
+require 'fileutils'
+require 'etc'
+
+require_relative '../lib/glimmer-dsl-tk'
+
+include Glimmer
+
+GIRB_RUNNER_EXIT_FILE = "#{Etc.getpwuid.dir}/.girb_runner_exit"
+FileUtils.rm_rf GIRB_RUNNER_EXIT_FILE
+
+@exit_method = method(:exit)
+
+@exit_girb_block = lambda do
+  FileUtils.touch GIRB_RUNNER_EXIT_FILE
+end
+
+def self.exit(*args)
+  @exit_girb_block.call
+  @exit_method.call(*args)
+end
+
+def self.quit(*args)
+  @exit_girb_block.call
+  @exit_method.call(*args)
+end

data/lib/glimmer-dsl-tk.rb

@@ -23,9 +23,9 @@ $LOAD_PATH.unshift(File.expand_path('..', __FILE__))
 
 # External requires
 require 'glimmer'
-require 'logging'
-# require 'puts_debuggerer'
-require 'super_module'
+# require 'logging'
+require 'puts_debuggerer' if ENV['pd'].to_s.downcase == 'true'
+# require 'super_module'
 require 'tk'
 
 # Internal requires

data/lib/glimmer/data_binding/tk/list_selection_binding.rb

@@ -0,0 +1,75 @@
+# Copyright (c) 2020 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/data_binding/observable'
+require 'glimmer/data_binding/observer'
+
+module Glimmer
+  module DataBinding
+    module Tk
+      # Tk List widget selection binding
+      class ListSelectionBinding
+        include Glimmer
+        include Observable
+        include Observer
+  
+        attr_reader :widget_proxy
+  
+        PROPERTY_TYPE_UPDATERS = {
+          :string => lambda do |widget_proxy, value| 
+            widget_proxy.selection = value.to_s
+          end,
+          :array => lambda do |widget_proxy, value| 
+            widget_proxy.selection = (value || [])
+          end
+        }
+  
+        PROPERTY_EVALUATORS = {
+          :string => lambda do |selection_array|
+            return nil if selection_array.empty?
+            selection_array.map(&:text)[0]
+          end,
+          :array => lambda do |selection_array|
+            selection_array.map(&:text)
+          end
+        }
+  
+        # 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 = widget_proxy.selectmode == 'browse' ? :string : :array
+          @widget_proxy = widget_proxy
+          @property_type = property_type
+        end
+  
+        def call(value)
+          PROPERTY_TYPE_UPDATERS[@property_type].call(@widget_proxy, value) unless evaluate_property == value
+        end
+  
+        def evaluate_property
+          selection_array = @widget_proxy.tk.selection.to_a
+          PROPERTY_EVALUATORS[@property_type].call(selection_array)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/data_binding/tk/widget_binding.rb

@@ -0,0 +1,28 @@
+require 'glimmer/data_binding/observable'
+require 'glimmer/data_binding/observer'
+
+module Glimmer
+  module DataBinding
+    module Tk
+      class WidgetBinding
+        include Glimmer
+        include Observable
+        include Observer
+  
+        attr_reader :widget, :attribute
+        def initialize(widget, attribute)
+          @widget = widget
+          @attribute = attribute  
+        end
+        
+        def call(value)
+          @widget.set_attribute(@attribute, value) unless evaluate_attribute == value
+        end
+        
+        def evaluate_attribute
+          @widget.get_attribute(@attribute)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/tk/bind_expression.rb

@@ -0,0 +1,36 @@
+require 'glimmer/dsl/static_expression'
+require 'glimmer/data_binding/model_binding'
+
+module Glimmer
+  module DSL
+    module Tk
+      # Responsible for setting up the return value of the bind keyword (command symbol)
+      # as a ModelBinding. It is then used by another command handler like
+      # DataBindingCommandHandler for text and other attributes
+      class BindExpression < StaticExpression
+        def can_interpret?(parent, keyword, *args, &block)
+          (
+            keyword == 'bind' and
+              (
+                (
+                  (args.size == 2) and
+                    textual?(args[1])
+                ) ||
+                  (
+                    (args.size == 3) and
+                      textual?(args[1]) and
+                      (args[2].is_a?(Hash))
+                  )
+              )
+          )
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          binding_options = args[2] || {}
+          binding_options[:on_read] = binding_options.delete(:on_read) || binding_options.delete('on_read') || block
+          DataBinding::ModelBinding.new(args[0], args[1].to_s, binding_options)
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/tk/block_attribute_expression.rb

@@ -0,0 +1,41 @@
+# Copyright (c) 2020 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/expression'
+
+module Glimmer
+  module DSL
+    module Tk
+      class BlockAttributeExpression < Expression
+        def can_interpret?(parent, keyword, *args, &block)
+          block_given? and
+            args.size == 0 and
+            parent.respond_to?("#{keyword}_block=")
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          parent.send("#{keyword}_block=", block)
+          nil
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,33 @@
+require 'glimmer/dsl/expression'
+require 'glimmer/data_binding/model_binding'
+require 'glimmer/data_binding/tk/widget_binding'
+
+module Glimmer
+  module DSL
+    module Tk
+      # Responsible for wiring two-way data-binding.
+      # Does so by using the output of the bind(model, property) command in the form
+      # of a ModelBinding, which is then connected to an anonymous widget observer
+      #
+      # Depends on BindCommandHandler
+      class DataBindingExpression < Expression
+        def can_interpret?(parent, keyword, *args, &block)
+          args.size == 1 and
+            args[0].is_a?(DataBinding::ModelBinding)
+        end
+  
+        def interpret(parent, keyword, *args, &block)
+          parent.class
+          model_binding = args[0]
+          widget_binding_parameters = [parent, keyword]
+          widget_binding = DataBinding::Tk::WidgetBinding.new(*widget_binding_parameters)
+          #TODO make this options observer dependent and all similar observers in widget specific data binding handlers
+          widget_binding.observe(model_binding)
+          # TODO simplify this logic and put it where it belongs
+          parent.add_observer(model_binding, keyword) if parent.respond_to?(:add_observer, [model_binding, keyword])
+          widget_binding.call(model_binding.evaluate_property)
+        end        
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/tk/dsl.rb

@@ -36,6 +36,9 @@ module Glimmer
       Engine.add_dynamic_expressions(
         Tk,
         %w[
+          list_selection_data_binding
+          data_binding
+          block_attribute
           attribute
           widget
         ]

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

@@ -0,0 +1,60 @@
+# Copyright (c) 2020 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/expression'
+require 'glimmer/data_binding/model_binding'
+require 'glimmer/data_binding/tk/widget_binding'
+require 'glimmer/data_binding/tk/list_selection_binding'
+
+module Glimmer
+  module DSL
+    module Tk
+      class ListSelectionDataBindingExpression < Expression
+        def can_interpret?(parent, keyword, *args, &block)
+          keyword == 'selection' and
+            block.nil? and
+            parent.is_a?(Glimmer::Tk::ListProxy) and
+            args.size == 1 and
+            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]
+          widget_binding = DataBinding::Tk::WidgetBinding.new(parent, 'items')
+          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
+          widget_binding.observe(model, model_binding.options_property_name)
+  
+          list_selection_binding = DataBinding::Tk::ListSelectionBinding.new(parent)
+          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)
+  
+          parent.tk.bind('<TreeviewSelect>') do
+            model_binding.call(list_selection_binding.evaluate_property)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/glimmer/dsl/tk/widget_expression.rb

@@ -33,12 +33,12 @@ module Glimmer
   
         def can_interpret?(parent, keyword, *args, &block)
           !EXCLUDED_KEYWORDS.include?(keyword) and
-            parent.respond_to?(:tk_widget) and
+            parent.respond_to?(:tk) and
             Glimmer::Tk::WidgetProxy.widget_exists?(keyword)
         end
   
         def interpret(parent, keyword, *args, &block)
-          Glimmer::Tk::WidgetProxy.new(keyword, parent, args, &block)
+          Glimmer::Tk::WidgetProxy.create(keyword, parent, args, &block)
         end
         
         def add_content(parent, &block)
@@ -52,3 +52,9 @@ module Glimmer
 end
 
 require 'glimmer/tk/widget_proxy'
+require 'glimmer/tk/notebook_proxy'
+require 'glimmer/tk/frame_proxy'
+require 'glimmer/tk/button_proxy'
+require 'glimmer/tk/label_proxy'
+require 'glimmer/tk/list_proxy'
+require 'glimmer/tk/entry_proxy'

data/lib/glimmer/tk/button_proxy.rb

@@ -0,0 +1,35 @@
+# Copyright (c) 2020 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/tk/widget_proxy'
+
+module Glimmer
+  module Tk    
+    # Proxy for Tk::Tile::Button
+    #
+    # Follows the Proxy Design Pattern
+    class ButtonProxy < WidgetProxy
+      def command_block=(proc)
+        tk.command(proc)
+      end
+    end
+  end
+end

data/lib/glimmer/tk/entry_proxy.rb

@@ -0,0 +1,38 @@
+# Copyright (c) 2020 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/tk/widget_proxy'
+
+module Glimmer
+  module Tk    
+    # Proxy for Tk::Tile::TEntry
+    #
+    # Follows the Proxy Design Pattern
+    class EntryProxy < WidgetProxy
+      def validatecommand_block=(proc)
+        tk.validatecommand(proc)
+      end
+      def invalidcommand_block=(proc)
+        tk.invalidcommand(proc)
+      end
+    end
+  end
+end