kredki 0.1.0

data/lib/kredki/pads/list/tree/item.rb

@@ -0,0 +1,138 @@
+module Kredki
+  module Pads
+    module Tree
+      # Tree list item model.
+      class Item < List::Item
+
+        # Add new subitem.
+        def item! *a, **ka, &b
+          at = (lower.subitems(self).last || self).pad_index + 1
+          open = self.open
+          lower.item! *a, scenic: open, layoutic: open, size_x: 1r, at: at, level: level + 1, **ka, &b
+          set_leaf false if @leaf.nil?
+        end
+
+        # Set whether is opened.
+        def set_open value = true, &block
+          return if (c = open) == (value = block ? block[c] : value == Not ? !c : value)
+          update_open value
+          lower&.update_open
+          true
+        end
+
+        # See #set_open.
+        def open= param
+          send_bundle :set_open, param
+        end
+
+        # Get whether is opened.
+        def open
+          @open || @open.nil?
+        end
+
+        # Set whether is leaf.
+        def set_leaf value = true, &block
+          return if (c = leaf) == (value = block ? block[c] : value == Not ? !c : value)
+          @leaf = value
+          update_icon
+          true
+        end
+
+        # See #set_leaf.
+        def leaf= param
+          send_bundle :set_leaf, param
+        end
+
+        # Get whether is leaf.
+        def leaf
+          @leaf || @leaf.nil?
+        end
+
+        # Set level.
+        def set_level level
+          return if @level == level
+          @level = level
+          update_level
+          true
+        end
+
+        # See #set_level.
+        def level= param
+          send_bundle :set_level, param
+        end
+        
+        # Get level
+        def level
+          @level || 0
+        end
+
+        # :section: LEVEL 2
+
+        def initialize
+          super
+
+          @icon_space = put SpacePad, size: [:y, 1r]
+        end
+
+        def sketch
+          super
+
+          update_icon
+        end
+
+        def update_level
+          set_margin_xs 4 + level * get_size_y * 0.5
+        end
+
+        def update_open open
+          @open = open
+          update_icon
+        end
+
+        def update_icon
+          @icon_space.clear
+          if leaf
+            default_leaf_icon
+          elsif open
+            default_catalog_open_icon
+          else
+            default_catalog_icon
+          end
+        end
+
+        def default_leaf_icon
+          @icon_space.put Pad, size: 1r, fill: :text do
+            set_area do
+              ellipse 1/5r, 1/5r
+            end
+          end
+        end
+
+        def default_catalog_icon
+          @icon_space.put RectanglePad, :@catalog_icon, keyboardy: false, fill: 0, size: 1r do
+            set_stroke fill: :text, width: 2, cap: :round
+            set_mouse_cursor :pointer
+            set_area do |sx, sy|
+              jump sx * 0.4, sy * 0.35
+              line sx * 0.6, sy * 0.5
+              line sx * 0.4, sy * 0.65
+            end
+          end
+        end
+
+        def default_catalog_open_icon
+          @icon_space.put RectanglePad, :@catalog_icon, keyboardy: false, fill: 0, size: 1r do
+            set_stroke fill: :text, width: 2, cap: :round
+            set_mouse_cursor :pointer
+            set_area do |sx, sy|
+              jump sx * 0.35, sy * 0.4
+              line sx * 0.5, sy * 0.6
+              line sx * 0.65, sy * 0.4
+            end
+          end
+        end
+
+      end#Item
+    end#Tree
+  end#Pads
+end#Kredki

data/lib/kredki/pads/list/tree/item_group.rb

@@ -0,0 +1,86 @@
+module Kredki
+  module Pads
+    module Tree
+      class ItemGroup < Pads::ItemGroup
+
+        # Add new item.
+        def item!(...)
+          put(Item, __method__, ...)
+        end
+
+        # Get all items.
+        def items
+          each_upper(Tree::Item).to_a
+        end
+
+        # Get selected items.
+        def selected_items
+          each_upper(Tree::Item, selected: true).to_a
+        end
+          
+        # :section: LEVEL 2
+
+        def select_up_to pad
+          bound = 0
+          each_upper(Item).each do |it|
+            bound += 1 if it == pad
+            bound += 1 if it.keyboard_in
+            it.set_selected if bound > 0
+            break if bound > 1
+          end
+        end
+
+        def subitems item
+          each(Item).drop_while{|it| it != item }.drop(1).take_while{|it| it.level > item.level }
+        end
+
+        def update_open
+          hide_level = 0
+          each_upper(Item).each do |it|
+            level = it.level
+            if level <= hide_level
+              it.set_scenic true
+              it.set_layoutic true
+              hide_level = it.open ? level + 1 : level
+            else
+              it.set_scenic false
+              it.set_layoutic false
+              it.update_open false if it.open
+            end
+          end
+        end
+
+        def focus_previous
+          kb = nil
+          each_upper(Item, reverse: true).each do |it|
+            if kb
+              return focus it if it.displayed && !it.disabled
+            elsif it.keyboard_in
+              kb = it
+            end
+          end
+          return focus kb if kb
+          find_upper(Item, displayed: true, disabled: false)&.then{|it| focus it }
+        end
+
+        def focus_next
+          kb = nil
+          each_upper(Item).each do |it|
+            if kb
+              return focus it if it.displayed && !it.disabled
+            elsif it.keyboard_in
+              kb = it
+            end
+          end
+          return focus kb if kb
+          find_upper(Item, displayed: true, disabled: false)&.then{|it| focus it }
+        end
+
+        def focus item
+          item&.keyboard_request
+          item
+        end
+      end#ItemGroup
+    end#Tree
+  end#Pads
+end#Kredki

data/lib/kredki/pads/list/tree/pad.rb

@@ -0,0 +1,94 @@
+require_relative 'item_group'
+require_relative 'item'
+
+module Kredki
+  module Pads
+    module Tree
+      # Tree list pad.
+      class Pad < RectanglePad
+
+        # Add new item.
+        def item! *a, **ka, &b
+          @item_group.item! *a, size_x: 1r, **ka, &b
+        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
+
+        # Get all items.
+        def items
+          @item_group.items
+        end
+
+        # Get selected items.
+        def selected_items
+          @item_group.selected_items
+        end
+
+        # :section: LEVEL 2
+
+        def sketch
+          super
+
+          set keyboardy: true
+          set fill: :gray
+          set layout: :yss
+
+          @item_group = put ItemGroup
+        end
+
+        def behavior
+          super
+
+          on Item::SelectEvent do |it|
+            item = it.target
+            source = it.source
+            if source.is_a? KeyClickEvent
+              if source.key.id == :enter
+                item.set_open Not
+              else
+                if source.ctrl?
+                  item.set_selected Not
+                else
+                  each_upper(Item).each_set{|it| set_selected it == item }
+                end
+              end
+            else
+              kb = Kredki.keyboard
+              if kb.shift?
+                if kb.ctrl?
+                  item.set_open Not
+                else
+                  item.set_selected
+                end
+              elsif kb.ctrl?
+                item.set_selected Not
+              else
+                each_upper(Item).each{|it| it.set_selected it == item }
+                if source.target.is(:@catalog_icon) || layer.mouse_click_combo > 1
+                  item.set_open Not
+                end
+              end
+            end
+          end
+
+          on_focus_leave do
+            each_upper(Item).each_set selected: false
+          end
+        end
+
+        def put_pad pad, at = nil
+          super
+        end
+
+      end#List
+    end#Tree
+  end#Pads
+end#Kredki

data/lib/kredki/pads/module.rb

@@ -0,0 +1,11 @@
+require_relative 'service/event_queue'
+require_relative 'service/service'
+require_relative 'pad/pad'
+require_relative 'pad/shape_pad'
+require_relative 'pad/rectangle_pad'
+require_relative 'layer'
+require_relative 'application'
+require_relative 'window'
+require_relative 'pane'
+
+load Kredki::Pads.config

data/lib/kredki/pads/note.rb

@@ -0,0 +1,212 @@
+require_relative 'text/editable_text_verse'
+
+module Kredki
+  module Pads
+    # Control with text entry.
+    class Note < RectanglePad
+      include TextEdition
+
+      # Set text content.
+      def set_text text = ""
+        return send_bundle :set_text, yield(self.text) if block_given?
+        @verse.set_subject text
+      end
+
+      # See #set_text.
+      def text= param
+        send_bundle :set_text, param
+      end
+      
+      # Get text content.
+      def text
+        @verse.text
+      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 verse features.
+      def set_verse ...
+        send_branch(__method__, ...)
+      end
+
+      # See #set_verse.
+      def verse= param
+        send_bundle :set_verse, param
+      end
+      
+      # Set verse size.
+      def set_verse_size ...
+        @verse.set_verse_size(...)
+      end
+
+      # See #set_verse_size.
+      def verse_size= param
+        send_bundle :set_verse_size, param
+      end
+
+      # Get verse size.
+      def verse_size
+        @verse.verse_size
+      end
+
+      # Set verse font.
+      def set_verse_font ...
+        @verse.set_font(...)
+      end
+
+      # See #set_verse_font.
+      def verse_font= param
+        send_bundle :set_verse_font, param
+      end
+
+      # Get verse font.
+      def verse_font
+        @verse.font
+      end
+
+      # Set verse layout.
+      def set_verse_layout ...
+        @verse.set_verse_layout(...)
+      end
+
+      # See #set_verse_layout.
+      def verse_layout= param
+        send_bundle :set_verse_layout, param
+      end
+
+      # Get verse layout.
+      def verse_layout
+        @verse.verse_layout
+      end
+
+      # Set a feature recognized by its class.
+      def << feature
+        case feature
+        when String
+          set_text feature
+        else
+          super
+        end
+      end
+
+      # :section: LEVEL 2
+
+      class NoteLayout < Layout::XWay
+        def arrange_layoutic pad, clip_size_x, clip_size_y, cx
+          sx, sy = pad.area_size
+          px = pad.get_x clip_size_x, sx, cx
+          py = pad.get_y clip_size_y, sy, (get_y @y, clip_size_y, sy)
+          pad.arrange
+          pad.update_xy px, py
+          pad.update_margin
+          [sx, sy, px, py]
+        end
+      end
+
+      def initialize
+        super
+      
+        @verse = default_verse
+      end
+
+      attr :verse
+
+      def sketch
+        super
+
+        set_layout NoteLayout.new(Start, Center)
+        set_mousy
+        set_keyboardy
+        set_stroke_width 1
+        set_margin 2
+        set_suit :gray
+        set_size_y Fit
+
+        sketch_verse
+      end
+
+      def sketch_verse
+        text_edition @verse, false
+      end
+
+      def behavior
+        super
+
+        on_mouse_scroll do: method(:mouse_scroll)
+
+        on_mouse_press :scroll do |e|
+          start_drag e.xy, :scroll
+          e.close
+        end
+
+        on_mouse_move do |e|
+          if e.drag? && e.button == :scroll
+            @verse.process_drag e
+            e.close
+          end
+        end
+
+        on_edit early: true do |e|
+          e.close if in_disabled
+        end
+      end
+
+      def mouse_scroll event
+        x, y = Kredki.relative_scroll(*event.xy)
+        @verse.scroll x == 0 ? y : x, y
+      end
+
+      def presence
+        super
+
+        Event.each(
+          on_focus_enter, 
+          on_focus_leave, 
+          on_mouse_enter, 
+          on_mouse_leave,
+          do: method(:repaint)
+        )
+      end
+
+      def repaint event = nil
+        color = Kredki.color @suit
+        kb_top = keyboard_top
+
+        if in_disabled
+          set_opacity 3/4r
+          set_mouse_cursor nil
+          area.set_fill color
+          area.set_stroke_fill color
+        else
+          set_opacity 1r
+          set_mouse_cursor :text
+          area.set_fill kb_top ? color.darken : mouse_in ? color.lighten : color
+          area.set_stroke_fill kb_top ? :stroke_focus : color
+        end
+        verse.selection.each_paint{|it| it.set_fill kb_top ? :text_selection : :text_selection_inactive }
+      end
+
+      def default_verse
+        put EditableTextVerse, "", size_x: 1r, mousy: false, verse_size: Kredki.text_size
+      end
+    end
+  end
+end

data/lib/kredki/pads/notes.rb

@@ -0,0 +1,32 @@
+require_relative 'text/editable_text_verses'
+
+module Kredki
+  module Pads
+    # A multiline text control.
+    class Notes < Note
+
+      # :section: LEVEL 2
+
+      def sketch
+        super
+
+        set_size_y 64
+        set_verse_size Kredki.text_size
+        set_verse_layout :yss
+      end
+
+      def sketch_verse
+        text_edition @verse, true
+      end
+
+      def mouse_scroll event
+        @verse.scroll *Kredki.relative_scroll(*event.xy)
+      end
+
+      def default_verse
+        put EditableTextVerses, size: 1r, mousy: false
+      end
+
+    end
+  end
+end

data/lib/kredki/pads/option/option.rb

@@ -0,0 +1,121 @@
+require_relative '../note'
+require_relative 'option_layer'
+
+module Kredki
+  module Pads
+    # Control to select option from list.
+    class Option < Pad
+
+      # Add new item.
+      def item! ...
+        dropdown!.item!(size_x: 1r).set(...)
+      end
+
+      # Create/Update dropdown.
+      def dropdown! ...
+        @dropdown ||= default_dropdown_layer
+        @dropdown.set(...)
+      end
+
+      # Get dropdown.
+      def dropdown
+        @dropdown
+      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
+
+        @note = put Note, size: 1r
+        @arrow = default_arrow_button
+      end
+
+      def sketch
+        super
+        
+        set_size_y 24
+        dropdown!
+      end
+
+      def behavior
+        super
+
+        on_key :enter do |e|
+          p e
+          p @dropdown.loaded
+          if @dropdown.loaded
+            item?(keyboard_in: true)&.report_selected e
+          else
+            @dropdown.load self
+          end
+        end
+
+        on_mouse_click :primary do
+          @dropdown.load self unless @dropdown.loaded
+        end
+
+        @arrow.on_mouse_click :primary do |e|
+          if @dropdown.loaded
+            @dropdown.unload
+          else
+            @dropdown.load self
+          end
+          e.close
+        end
+
+        @arrow.on_mouse_move do |it|
+          if it.drag?
+            it.close
+          end
+        end
+
+        on_select do |e|
+          @dropdown.unload
+          subject = e.target.find_upper(TextPad).subject
+          set_subject subject
+          @note.set_text subject
+          @note.verse.update_cursor subject.to_s.length
+        end
+
+        @dropdown.on_key :escape do |it|
+          @dropdown.unload
+          it.close
+        end
+
+        on_focus_leave do
+          @dropdown.unload
+        end
+      end
+
+      def default_dropdown_layer
+        put OptionLayer
+      end
+
+      def default_arrow_button
+        @note.put Button, size: [20, 1r] do
+          set stroke_width: 0
+          set keyboardy: false
+          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.2, sy * 0.35
+              line sx * 0.5, sy * 0.65
+              line sx * 0.8, sy * 0.35
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/kredki/pads/option/option_item.rb

@@ -0,0 +1,15 @@
+require_relative '../item/item_y'
+
+module Kredki
+  module Pads
+    # Option item.
+    class OptionItem < ItemY
+
+      # :section: LEVEL 2
+
+      def behavior_on_key
+      end
+
+    end#OptionItem
+  end#Pads
+end#Kredki