reflexion 0.5.3 → 0.7.0

data/lib/reflex/menu.rb

@@ -0,0 +1,92 @@
+require 'forwardable'
+require 'xot/setter'
+require 'xot/bit_flag_accessor'
+require 'xot/universal_accessor'
+require 'xot/hookable'
+require 'xot/block_util'
+require 'reflex/ext'
+require 'reflex/helper'
+
+
+module Reflex
+
+
+  class Menu
+
+    include Enumerable
+    include Xot::Setter
+    include Xot::Hookable
+
+    def initialize(label = nil, **options, &block)
+      super()
+      self.label = label if label
+      set(**options) unless options.empty?
+      Xot::BlockUtil.instance_eval_or_block_call self, &block if block
+    end
+
+    def add_child(child, index: nil)
+      add_child! child, index
+    end
+
+    alias add       add_child
+    alias remove remove_child
+
+    def enable(bool = true)
+      enable! bool
+    end
+
+    def disable()
+      enable! false
+    end
+
+    def check(bool = true)
+      check! bool
+    end
+
+    def uncheck()
+      check! false
+    end
+
+    def shortcut=(key_and_modifiers)
+      key, *mods = key_and_modifiers
+      self.shortcut_key       = key
+      self.shortcut_modifiers = mods
+    end
+
+    bit_flag_accessor :shortcut_modifiers, **SHORTCUT_MODIFIER_SYMBOLS
+
+    def shortcut_key=(key)
+      key = sym2key(key) if key.is_a? Symbol
+      set_shortcut_key! key
+    end
+
+    def shortcut_key()
+      Reflex.get_key_symbol! shortcut_key!
+    end
+
+    universal_accessor :label, :image, :shortcut_key, :shortcut_modifiers
+
+    def each(&block)
+      return enum_for :each unless block
+      each!(&block)
+    end
+
+    def children()
+      to_a
+    end
+
+    def inspect()
+      "#<Reflex::Menu label:#{label.inspect} size:#{size}>"
+    end
+
+    private
+
+    def sym2key(sym)
+      KEYS.find {sym == Reflex.get_key_symbol!(_1)} ||
+        raise(ArgumentError, "unknown shortcut key: #{sym.inspect}")
+    end
+
+  end# Menu
+
+
+end# Reflex

data/lib/reflex/model.rb

@@ -110,35 +110,35 @@ module Reflex
 
     private
 
-      INT_SYMS       = [:to_i, :to_int]
+    INT_SYMS       = [:to_i, :to_int]
 
-      FLOAT_SYMS     = [:to_f, :to_float]
+    FLOAT_SYMS     = [:to_f, :to_float]
 
-      STRING_SYMS    = [:to_s, :to_str, :to_string]
+    STRING_SYMS    = [:to_s, :to_str, :to_string]
 
-      ARRAY_GET_SYMS = [:[], :at]
+    ARRAY_GET_SYMS = [:[], :at]
 
-      ARRAY_SET_SYMS = [:[]=, :set_at]
+    ARRAY_SET_SYMS = [:[]=, :set_at]
 
-      ARRAY_SIZE_SYMS = [:size, :length]
+    ARRAY_SIZE_SYMS = [:size, :length]
 
-      def apply_filters(data)
-        return data unless @filters
-        @filters.each do |filter|
-          break if data.nil?
-          data = filter.call data
-        end
-        data
+    def apply_filters(data)
+      return data unless @filters
+      @filters.each do |filter|
+        break if data.nil?
+        data = filter.call data
       end
+      data
+    end
 
-      def call_symbols(symbols, *args)
-        if dat = data
-          symbols.each do |symbol|
-            return dat.send symbol, *args if dat.respond_to? symbol
-          end
+    def call_symbols(symbols, *args)
+      if dat = data
+        symbols.each do |symbol|
+          return dat.send symbol, *args if dat.respond_to? symbol
         end
-        nil
       end
+      nil
+    end
 
   end# Model
 

data/lib/reflex/note_event.rb

@@ -24,7 +24,7 @@ module Reflex
     end
 
     def inspect()
-      "#<Reflex::NoteEvent action:%s channel:%d note:%d vel:0f time:%f captured?:%s>" %
+      "#<Reflex::NoteEvent action:%s channel:%d note:%d vel:%f time:%f captured?:%s>" %
         [action, channel, note, velocity, time, captured?]
     end
 

data/lib/reflex/pin.rb

@@ -0,0 +1,39 @@
+require 'xot/block_util'
+require 'reflex/ext'
+
+
+module Reflex
+
+
+  class Pin
+
+    def snap(*args, **options, &block)
+      setup__ snap!(*args), options, block
+    end
+
+    def link(*args, **options, &block)
+      setup__ link!(*args), options, block
+    end
+
+    def wheel(*args, **options, &block)
+      setup__ wheel!(*args), options, block
+    end
+
+    def chase(*args, **options, &block)
+      setup__ chase!(*args), options, block
+    end
+
+    alias pos position
+
+    private
+
+    def setup__(constraint, options, block)
+      constraint.set options unless options.empty?
+      Xot::BlockUtil.instance_eval_or_block_call constraint, &block if block
+      constraint
+    end
+
+  end# Pin
+
+
+end# Reflex

data/lib/reflex/pointer.rb

@@ -1,6 +1,7 @@
 require 'xot/bit_flag_accessor'
 require 'xot/const_symbol_accessor'
 require 'reflex/ext'
+require 'reflex/helper'
 
 
 module Reflex
@@ -29,9 +30,18 @@ module Reflex
       up:     UP,
       move:   MOVE,
       cancel: CANCEL,
+      enter:  ENTER,
+      leave:  LEAVE,
       stay:   STAY
     }
 
+    bit_flag_reader :modifiers, **MODIFIER_SYMBOLS
+    private alias_method :get_modifiers!, :modifiers
+
+    def modifiers(all: false)
+      all ? get_modifiers! : (get_modifiers!.select {SHORTCUT_MODIFIER_SYMBOLS.key? _1})
+    end
+
     def mouse?()
       (get_types & MOUSE) != 0
     end
@@ -76,6 +86,14 @@ module Reflex
       get_action == CANCEL
     end
 
+    def enter?()
+      get_action == ENTER
+    end
+
+    def leave?()
+      get_action == LEAVE
+    end
+
     def stay?()
       get_action == STAY
     end
@@ -95,7 +113,18 @@ module Reflex
     end
 
     def inspect()
-      "#<Reflex::Pointer id:#{id} #{types} #{action} (#{x.round 2}, #{y.round 2}) mod:#{modifiers} click:#{click_count} drag:#{drag?} time:#{time.round 2}>"
+      "#<Reflex::Pointer id:%d %p %p (%p, %p) mod:%p click:%d drag:%p time:%p>" %
+      [
+        id,
+        types,
+        action,
+        x.round(2),
+        y.round(2),
+        modifiers(all: true),
+        click_count,
+        drag?,
+        time.round(2)
+      ]
     end
 
   end# Pointer

data/lib/reflex/pointer_event.rb

@@ -15,7 +15,7 @@ module Reflex
       :id,
       :types, :mouse?, :touch?, :pen?,
       :mouse_left?, :left?, :mouse_right?, :right?, :mouse_middle?, :middle?,
-      :action, :down?, :up?, :move?, :cancel?, :stay?,
+      :action, :down?, :up?, :move?, :cancel?, :enter?, :leave?, :stay?,
       :position, :pos, :x, :y, :modifiers, :click_count, :drag?,
       :time, :prev, :down
 
@@ -24,7 +24,18 @@ module Reflex
     end
 
     def inspect()
-      "#<Reflex::PointerEvent id:#{id} #{types} #{action} (#{x.round 2}, #{y.round 2}) mod:#{modifiers} click:#{click_count} drag:#{drag?} time:#{time.round 2}>"
+      "#<Reflex::PointerEvent id:%d %p %p (%p, %p) mod:%p click:%d drag:%p time:%p>" %
+      [
+        id,
+        types,
+        action,
+        x.round(2),
+        y.round(2),
+        modifiers(all: true),
+        click_count,
+        drag?,
+        time.round(2)
+      ]
     end
 
   end# PointerEvent

data/lib/reflex/reflex.rb

@@ -19,6 +19,11 @@ module Reflex
       Window.new(*args, &block).tap {|w| w.show}
     end
 
+    def alert(message, title: nil)
+      utf8 = -> s {s.to_s.encode Encoding::UTF_8, invalid: :replace, undef: :replace}
+      alert! utf8[message], title&.then(&utf8)
+    end
+
     self
 
   end# ClassMethods

data/lib/reflex/shape.rb

@@ -39,20 +39,20 @@ module Reflex
 
     private
 
-      def on_contact!(*args)
-        call_contact!(*args)
-        owner&.delay {on_contact(*args)}# delay to avoid physics world lock
-      end
-
-      def on_contact_begin!(*args)
-        call_contact_begin!(*args)
-        owner&.delay {on_contact_begin(*args)}
-      end
-
-      def on_contact_end!(*args)
-        call_contact_end!(*args)
-        owner&.delay {on_contact_end(*args)}
-      end
+    def on_contact!(*args)
+      call_contact!(*args)
+      owner&.delay {on_contact(*args)}# delay to avoid physics world lock
+    end
+
+    def on_contact_begin!(*args)
+      call_contact_begin!(*args)
+      owner&.delay {on_contact_begin(*args)}
+    end
+
+    def on_contact_end!(*args)
+      call_contact_end!(*args)
+      owner&.delay {on_contact_end(*args)}
+    end
 
   end# Shape
 

data/lib/reflex/snap_constraint.rb

@@ -0,0 +1,28 @@
+require 'reflex/ext'
+require 'reflex/constraint'
+
+
+module Reflex
+
+
+  class SnapConstraint < Constraint
+
+    def angle=(angle)
+      case angle
+      when nil     then clear_angle!
+      when Range   then set_angle! angle.begin, angle.end
+      when Numeric then set_angle! angle,       angle
+      else raise ArgumentError, "invalid angle: #{angle.inspect}"
+      end
+    end
+
+    def angle()
+      has_angle! ? Range.new(angle_min!, angle_max!) : nil
+    end
+
+    universal_accessor :angle, :motor, :force
+
+  end# SnapConstraint
+
+
+end# Reflex

data/lib/reflex/style.rb

@@ -110,23 +110,23 @@ module Reflex
 
     private
 
-      SYM2FLOW = {
-        none:  FLOW_NONE,
-        down:  FLOW_DOWN,
-        right: FLOW_RIGHT,
-        up:    FLOW_UP,
-        left:  FLOW_LEFT,
-      }
-
-      FLOW2SYM = SYM2FLOW.inject({}) {|h, (k, v)| h[v] = k; h}
-
-      def sym2flow(sym)
-        SYM2FLOW[sym] || FLOW_NONE
-      end
+    SYM2FLOW = {
+      none:  FLOW_NONE,
+      down:  FLOW_DOWN,
+      right: FLOW_RIGHT,
+      up:    FLOW_UP,
+      left:  FLOW_LEFT,
+    }
+
+    FLOW2SYM = SYM2FLOW.inject({}) {|h, (k, v)| h[v] = k; h}
+
+    def sym2flow(sym)
+      SYM2FLOW[sym] || FLOW_NONE
+    end
 
-      def flow2sym(flow)
-        FLOW2SYM[flow] || :none
-      end
+    def flow2sym(flow)
+      FLOW2SYM[flow] || :none
+    end
 
   end# Style
 

data/lib/reflex/text_event.rb

@@ -0,0 +1,40 @@
+require 'xot/const_symbol_accessor'
+require 'reflex/ext'
+
+
+module Reflex
+
+
+  class TextEvent < Event
+
+    alias get_action action
+
+    const_symbol_reader :action, **{
+      none:    ACTION_NONE,
+      preedit: PREEDIT,
+      commit:  COMMIT
+    }
+
+    def preedit?()
+      get_action == PREEDIT
+    end
+
+    def commit?()
+      get_action == COMMIT
+    end
+
+    def selection()
+      offset = selection_offset!
+      return nil if offset < 0
+      offset...(offset + selection_size!)
+    end
+
+    def inspect()
+      "#<Reflex::TextEvent action:%s text:'%s' selection:%s>" %
+        [action, text, selection || :nil]
+    end
+
+  end# TextEvent
+
+
+end# Reflex

data/lib/reflex/timer.rb

@@ -17,9 +17,9 @@ module Reflex
 
     private
 
-      def call_timer_block()
-        @block.call self if @block
-      end
+    def call_timer_block()
+      @block.call self if @block
+    end
 
   end# Timer
 

data/lib/reflex/view.rb

@@ -60,7 +60,7 @@ module Reflex
     end
 
     def timeout(seconds = 0, count: 1, &block)
-      timer = start_timer seconds, count
+      timer = start_timer! seconds, count
       timer.block = block if block
       timer
     end
@@ -73,6 +73,10 @@ module Reflex
       timeout seconds, &block
     end
 
+    def add_child(child, index: nil)
+      add_child! child, index
+    end
+
     def remove_self()
       parent.remove self if parent
     end
@@ -81,12 +85,22 @@ module Reflex
       find_children(*args).first
     end
 
+    def each_child(&block)
+      return enum_for :each_child unless block
+      each_child!(&block)
+    end
+
     def children()
-      to_enum :each_child
+      each_child.to_a
+    end
+
+    def each_style(&block)
+      return enum_for :each_style unless block
+      each_style!(&block)
     end
 
     def styles()
-      to_enum :each_style
+      each_style.to_a
     end
 
     def style(*args, &block)
@@ -95,8 +109,46 @@ module Reflex
       s
     end
 
+    def each_shape(&block)
+      return enum_for :each_shape unless block
+      each_shape!(&block)
+    end
+
+    def add_shape(shape, index: nil)
+      add_shape! shape, index
+    end
+
     def shapes()
-      to_enum :each_shape
+      each_shape.to_a
+    end
+
+    def pin(*args)
+      Pin.new self, *args
+    end
+
+    def snap(*args, **options, &block)
+      pin.snap(*args, **options, &block)
+    end
+
+    def link(*args, **options, &block)
+      pin.link(*args, **options, &block)
+    end
+
+    def wheel(*args, **options, &block)
+      pin.wheel(*args, **options, &block)
+    end
+
+    def chase(*args, **options, &block)
+      pin.chase(*args, **options, &block)
+    end
+
+    def each_constraint(&block)
+      return enum_for :each_constraint unless block
+      each_constraint!(&block)
+    end
+
+    def constraints()
+      each_constraint.to_a
     end
 
     def capturing?(*args)
@@ -110,6 +162,21 @@ module Reflex
       end
     end
 
+    # true or false to force, nil to decide by the presence of an on_text handler.
+    def text_input=(state)
+      @text_input = state
+      set_text_input_flag! !!state
+    end
+
+    attr_reader :text_input
+
+    def accepts_text_input?()
+      return false if hidden?
+      return text_input_flag! unless @text_input.nil?
+      %i[on_text on_text_preedit on_text_commit]
+        .any? {|name| method(name).owner != Reflex::View}
+    end
+
     def on_contact(e)
     end
 
@@ -120,12 +187,12 @@ module Reflex
     end
 
     universal_accessor :shape, :name, :selector,
-      :frame, :angle, :pivot, :zoom, :capture,
+      :frame, :angle, :pivot, :zoom, :capture, :text_input,
       :density, :friction, :restitution,
       :linear_velocity, :angular_velocity, :gravity_scale,
       :gravity, :time_scale,
       clip:          {reader: :clip?},
-      cache:         {reader: :cache?},
+      draw_cache:    {reader: :draw_cache?},
       resize_to_fit: {reader: :resize_to_fit?},
       scroll_to_fit: {reader: :scroll_to_fit?},
       fix_angle:     {reader: :fix_angle?},
@@ -150,20 +217,20 @@ module Reflex
 
     private
 
-      def on_contact!(*args)
-        call_contact!(*args)
-        delay {on_contact(*args)}# delay to avoid physics world lock
-      end
+    def on_contact!(*args)
+      call_contact!(*args)
+      delay {on_contact(*args)}# delay to avoid physics world lock
+    end
 
-      def on_contact_begin!(*args)
-        call_contact_begin!(*args)
-        delay {on_contact_begin(*args)}
-      end
+    def on_contact_begin!(*args)
+      call_contact_begin!(*args)
+      delay {on_contact_begin(*args)}
+    end
 
-      def on_contact_end!(*args)
-        call_contact_end!(*args)
-        delay {on_contact_end(*args)}
-      end
+    def on_contact_end!(*args)
+      call_contact_end!(*args)
+      delay {on_contact_end(*args)}
+    end
 
   end# View
 

data/lib/reflex/wheel_constraint.rb

@@ -0,0 +1,28 @@
+require 'reflex/ext'
+require 'reflex/constraint'
+
+
+module Reflex
+
+
+  class WheelConstraint < Constraint
+
+    def range=(range)
+      case range
+      when nil     then clear_range!
+      when Range   then set_range! range.begin, range.end
+      when Numeric then set_range! range,       range
+      else raise ArgumentError, "invalid range: #{range.inspect}"
+      end
+    end
+
+    def range()
+      has_range! ? Range.new(range_min!, range_max!) : nil
+    end
+
+    universal_accessor :axis, :range, :motor, :force
+
+  end# WheelConstraint
+
+
+end# Reflex

data/lib/reflex/wheel_event.rb

@@ -1,4 +1,6 @@
+require 'xot/bit_flag_accessor'
 require 'reflex/ext'
+require 'reflex/helper'
 
 
 module Reflex
@@ -6,8 +8,24 @@ module Reflex
 
   class WheelEvent < Event
 
+    bit_flag_reader :modifiers, **MODIFIER_SYMBOLS
+    private alias_method :get_modifiers!, :modifiers
+
+    def modifiers(all: false)
+      all ? get_modifiers! : (get_modifiers!.select {SHORTCUT_MODIFIER_SYMBOLS.key? _1})
+    end
+
     def inspect()
-      "#<Reflex::WheelEvent x:#{x} y:#{y} z:#{z} dx:#{dx} dy:#{dy} dz:#{dz} mod:#{modifiers}>"
+      "#<Reflex::WheelEvent x:%p y:%p z:%p dx:%p dy:%p dz:%p mod:%p>" %
+      [
+        x.round(2),
+        y.round(2),
+        z.round(2),
+        dx.round(2),
+        dy.round(2),
+        dz.round(2),
+        modifiers(all: true)
+      ]
     end
 
   end# WheelEvent