kredki 0.1.0

data/lib/kredki/pads/button.rb

@@ -0,0 +1,151 @@
+module Kredki
+  module Pads
+    class Button < RectanglePad
+
+      # Create and attach button click event reaction.
+      def on_click ...
+        on(ClickEvent, ...)
+      end
+
+      # See #on_click=.
+      def on_click= param
+        on_click do: param
+      end
+
+      # Set whether is pressed.
+      def set_pressed value = true, event = nil
+        return if (c = pressed) == (value = block_given? ? yield(c) : value == Not ? !c : value)
+        @pressed = value
+        report (@pressed ? PressEvent.new(event) : ReleaseEvent.new(event)) if event
+        true
+      end
+
+      # See #set_pressed.
+      def pressed= param
+        send_bundle :set_pressed, param
+      end
+
+      # Get whether is pressed.
+      def pressed
+        @pressed
+      end
+
+      # Set suit.
+      def set_suit *suit
+        return send_bundle :set_suit, yield(self.suit) if block_given?
+        suit = Util.uncover suit
+        return if @suit == suit && suit != :random
+        @suit = suit
+        repaint
+        true
+      end
+
+      # See #set_suit.
+      def suit= param
+        send_bundle :set_suit, param
+      end
+
+      # Get suit.
+      def suit
+        @suit
+      end
+
+      # Set a feature recognized by its class.
+      def << feature
+        case feature
+        when String
+          text?&.set feature or super
+          self.subject ||= feature
+        else
+          super
+        end
+      end
+
+      # :section: LEVEL 2
+
+      class ClickEvent < Event
+      end
+
+      class PressEvent < Event
+      end
+
+      class ReleaseEvent < Event
+      end
+
+      def sketch
+        super
+
+        set_keyboardy true
+        set_stroke_width 1
+        set_layout :xcc
+        set_size Fit
+        set_suit :gray
+        set_margin 2
+      end
+
+      def presence
+        super
+
+        Event.each(
+          on_focus_enter, 
+          on_focus_leave, 
+          on_mouse_enter, 
+          on_mouse_leave, 
+          on(PressEvent), 
+          on(ReleaseEvent),
+          do: method(:repaint)
+        )
+      end
+
+      def repaint event = nil
+        color = Kredki.color @suit
+        if in_disabled
+          set_opacity 3/4r
+          set_mouse_cursor nil
+          area.set_fill color
+          area.set_stroke_fill color.darken
+        else
+          set_opacity 1r
+          set_mouse_cursor :pointer
+          area.set_fill pressed ? color.darken : mouse_in ? color.lighten : color
+          area.set_stroke_fill keyboard_in ? :stroke_focus : color.darken
+        end
+      end
+
+      def behavior
+        super
+
+        Event.each on_mouse_press(:primary), on_key_press(:enter, :space) do |e|
+          set_pressed true, e
+        end
+
+        on_focus_leave do |e|
+          set_pressed false, e
+        end
+
+        on_mouse_release :primary do |e|
+          pressed = keyboard_in && ( Kredki.keyboard.pressed?(:space) || Kredki.keyboard.pressed?(:enter) )
+          report ClickEvent.new e if !pressed && set_pressed(false, e) && !e.drag && include_point(*layer.translate(*e.xy, self))
+        end
+
+        on_key_release :space do |e|
+          pressed = pin_top(:primary) || ( keyboard_in && Kredki.keyboard.pressed?(:enter) )
+          report ClickEvent.new e if !pressed && set_pressed(false, e)
+        end
+
+        on_click early: true do |e|
+          e.close if in_disabled
+        end
+      end
+
+      def default_text text
+        put TextPad, :text!, text do
+          set_mousy false
+          set_size_y Fit
+          set_verse_size Kredki.text_size
+          set_verse_layout :ycc
+        end
+      end
+    end
+  end
+end

data/lib/kredki/pads/checkbox/checkbox.rb

@@ -0,0 +1,68 @@
+require_relative 'checkbox_button'
+
+module Kredki
+  module Pads
+    # Checkbox.
+    class Checkbox < SpacePad
+
+      # Set whether is selected.
+      def set_selected ...
+        @button.set_selected(...)
+      end
+
+      # See #set_selected.
+      def selected= param
+        @button.selected = param
+      end
+
+      # Get whether is selected.
+      def selected
+        @button.selected
+      end
+
+      # Set a feature recognized by its class.
+      def << feature
+        case feature
+        when String
+          (find Label or default_label) << feature
+          self.subject ||= feature
+        else
+          super
+        end
+      end
+
+      # :section: LEVEL 2
+
+      def initialize
+        super
+
+        @button = default_checkbox_button
+      end
+
+      def sketch
+        super
+
+        set_size Fit
+        set_spacer 5
+        set_layout :xsc
+      end
+
+      def repaint event = nil
+        set_opacity in_disabled ? 3/4r : 1r
+      end
+
+      def default_checkbox_button
+        put CheckboxButton do
+          on_click do
+            set_selected Not
+          end
+        end
+      end
+
+      def default_label
+        put Label
+      end
+
+    end
+  end
+end

data/lib/kredki/pads/checkbox/checkbox_button.rb

@@ -0,0 +1,65 @@
+module Kredki
+  module Pads
+    # Control which state can be on or off.
+    class CheckboxButton < Button
+
+      # Set whether is selected.
+      def set_selected value = true
+        return if (c = selected) == (value = block_given? ? yield(c) : value == Not ? !c : value)
+        @check.set_scenic value
+        @selected = value
+        true
+      end
+
+      # See #set_selected.
+      def selected= param
+        send_bundle :set_selected, param
+      end
+
+      # Get whether is selected.
+      def selected
+        @selected
+      end
+
+      # :section: LEVEL 2
+
+      def initialize
+        super
+        
+        @check = default_check
+      end
+
+      def sketch
+        super
+
+        set_layout :zcc
+        set_size 16
+        set_margin 3
+      end
+
+      def repaint event = nil
+        color = Kredki.color @suit
+        if in_disabled
+          area.set_fill color
+          area.set_stroke_fill color.darken
+        else
+          area.set_fill pressed ? color.darken : mouse_in ? color.lighten : color
+          area.set_stroke_fill keyboard_in ? :stroke_focus : color.darken
+        end
+      end
+
+      def default_check
+        put RectanglePad, mousy: false, keyboardy: false, fill: 0, size: 1r do
+          set_stroke fill: :text, width: 3
+          set_area do
+            jump 0, 1/2r
+            line 1/2r, 1r
+            line 1r, 0
+          end
+          set_scenic false
+        end
+      end
+
+    end
+  end
+end

data/lib/kredki/pads/context/item.rb

@@ -0,0 +1,65 @@
+require_relative '../item/item_y'
+
+module Kredki
+  module Pads
+    module Context
+      class Item < ItemY
+
+        # Add new item.
+        def item!(...)
+          dropdown!.item_group.item!(...)
+        end
+
+        # Create/Update dropdown layer.
+        def dropdown! ...
+          (find SecondaryLayer or dropdown_enable).set(...)
+        end
+
+        # :section: LEVEL 2
+
+        def initialize
+          super
+          
+          @start = put SpacePad, size: [:y, 1r]
+          @end = put SpacePad, size: [:y, 1r], x: End
+        end
+
+        def behavior
+          super
+
+          on_key_press :right do |e|
+            layer = find SecondaryLayer
+            if layer
+              layer.load self
+              layer.find_upper(Item)&.keyboard_request and e.close
+            end
+          end
+
+        end
+
+        def mouse_enter e
+          super
+          layer = find SecondaryLayer
+          layer.update_keyboard_pad nil if layer&.loaded
+        end
+
+        def dropdown_enable
+          @end.put RectanglePad, mousy: false, keyboardy: false, fill: 0, size: 1r do
+            set_stroke fill: :text, width: 2, cap: :round
+            set_area do |sx, sy|
+              jump sx * 0.5, sy * 0.35
+              line sx * 0.65, sy * 0.5
+              line sx * 0.5, sy * 0.65
+            end
+          end
+          put SecondaryLayer
+        end
+
+        def default_text text
+          put TextPad, text, mousy: false, at: 1
+        end
+        
+      end#Item
+    end#Context
+  end#Pads
+end#Kredki

data/lib/kredki/pads/context/item_group.rb

@@ -0,0 +1,10 @@
+require_relative '../item/item_group'
+
+module Kredki
+  module Pads
+    module Context
+      class ItemGroup < Pads::ItemGroup
+      end
+    end
+  end
+end

data/lib/kredki/pads/context/layer.rb

@@ -0,0 +1,59 @@
+module Kredki
+  module Pads
+    module Context
+      # Base class for context layers.
+      class Layer < Pads::Layer
+
+        # :section: LEVEL 2
+
+        def unload
+          update_keyboard_pad nil
+          pad_detach
+        end
+
+        def loaded
+          !!@lower_pad
+        end
+
+        attr :items, :item_group
+
+        def initialize
+          super
+
+          @items = put Pad, fill: :dark_gray, margin: 1 do
+            # scene.drop_shadow color: :black # this is too expensive at the moment
+          end
+          @item_group = @items.put ItemGroup
+        end
+
+        def load_common x, y
+          @items.set_xy x, y
+          lower.pane.put self
+          break_layout
+        end
+
+        def behavior
+          super
+
+          on_key :up, :down do |e|
+            e.close
+          end
+
+          on Item::SelectEvent do |e|
+            if e.target.find_upper Item
+              e.close
+            else
+              pad_detach
+            end
+          end
+        end
+
+        def mouse_press e
+        end
+
+        def mouse_release e
+        end
+      end#Layer
+    end#Context
+  end#Pads
+end#Kredki

data/lib/kredki/pads/context/menu.rb

@@ -0,0 +1,77 @@
+
+require_relative 'pad'
+require_relative 'item_group'
+require_relative 'layer'
+require_relative 'primary_layer'
+require_relative 'secondary_layer'
+require_relative 'item'
+
+module Kredki
+  module Pads
+    module Context
+
+      # Reopen class to avoid circular depedency.
+      class ItemGroup
+
+        # Add new item.
+        def item!(...)
+          put(Item, :item!, size_x: 1r).set(...)
+        end
+      end
+      
+      # Context menu service.
+      class Menu < Service
+
+        attr :context_layer
+
+        def items
+          @context_layer.items
+        end
+
+        # Add new item.
+        def item! ...
+          @context_layer.item_group.item!(...)
+        end
+
+        # Create and attach select event reaction.
+        def on_select ...
+          on(Item::SelectEvent, ...)
+        end
+
+        # See #on_select.
+        def on_select= param
+          on_select do: param
+        end
+
+        # :section: LEVEL 2
+
+        def initialize
+          super
+        
+          @context_layer = put PrimaryLayer
+        end
+
+        def update_lower lower, at = nil
+          if super
+            @lower_events&.each{ _1.cancel }
+
+            secondary_mouse_click = lower.on_mouse_click :secondary do |e|
+              @context_layer.load *e.xy
+              @context_layer.find_upper(Item)&.keyboard_request
+              e.close
+            end
+      
+            context_key = lower.on_key :context do |e|
+              @context_layer.load *lower.translate(lower.area_x / 2, lower.area_y / 2)
+              @context_layer.find_upper(Item)&.keyboard_request
+              e.close
+            end
+
+            @lower_events = [secondary_mouse_click, context_key]
+          end
+        end
+
+      end#Menu
+    end#Context
+  end#Pads
+end#Kredki

data/lib/kredki/pads/context/pad.rb

@@ -0,0 +1,26 @@
+module Kredki
+  module Pads
+    module Context
+      # Context menu items container pad.
+      class Pad < RectanglePad
+
+        # :section: LEVEL 2
+
+        def mouse_enter e
+          e.close
+        end
+
+        def mouse_move e
+          e.close
+        end
+
+        def sketch
+          super
+
+          set_size Fit
+          set_layout :yss
+        end
+      end
+    end
+  end#Pads
+end#Kredki

data/lib/kredki/pads/context/primary_layer.rb

@@ -0,0 +1,51 @@
+require_relative 'layer'
+
+module Kredki
+  module Pads
+    module Context
+      class PrimaryLayer < Layer
+
+        # :section: LEVEL 2
+
+        def load x, y
+          arrange
+          window_sx, window_sy = lower.window.size
+          x_max = window_sx - @items.area_size_x
+          x = [x_max, 0].max if x > x_max
+          sy = @items.area_size_y
+          y = [y - sy, 0].max if y + sy > window_sy
+          load_common x, y
+        end
+
+        def behavior
+          super
+
+          on_key_press :escape do |e|
+            pad_detach
+            e.close
+          end
+
+          on_mouse_press do |e|
+            pad_detach
+          end
+        end
+
+        def mouse_enter e
+          super
+          e.close
+        end
+
+        def mouse_leave e
+          super
+          e.close
+        end
+
+        def mouse_move e
+          super
+          e.close
+        end
+
+      end#PrimaryLayer
+    end#Context
+  end#Pads
+end#Kredki

data/lib/kredki/pads/context/secondary_layer.rb

@@ -0,0 +1,60 @@
+require_relative 'layer'
+
+module Kredki
+  module Pads
+    module Context
+      # Deeper context layer.
+      class SecondaryLayer < Layer
+
+        # :section: LEVEL 2
+
+        def load item
+          item.layer&.arrange
+          arrange
+          window_sx, window_sy = lower.window.size
+          x, y = *item.translate(item.area_size_x, -1)
+          if x + @items.area_size_x > window_sx
+            x = [x - item.area_size_x - @items.area_size_x, 0].max
+          end
+          if y + @items.area_size_y > window_sy
+            y = [window_sy - @items.area_size_y, 0].max
+          end
+          load_common x, y
+        end
+
+        def behavior
+          super
+          
+          on_key_press :left do |e|
+            if loaded
+              unload
+              e.close
+            end
+          end
+        end
+
+        def update_lower lower, at = nil
+          if super
+            @lower_events&.each{|it| it.cancel }
+
+            focus_enter = lower.on_focus_enter do |e|
+              load lower
+            end
+
+            focus_leave = lower.on_focus_leave do |e|
+              unload if loaded
+            end
+
+            @lower_events = [focus_enter, focus_leave]
+          end
+        end
+
+        def lower_pad_detached
+          super
+          unload if loaded
+        end
+
+      end#SecondaryLayer
+    end#Context
+  end#Pads
+end#Kredki