kredki 0.1.0

data/lib/kredki/pads/table/cell.rb

@@ -0,0 +1,22 @@
+module Kredki
+  module Pads
+    module Table
+      # Table cell model.
+      class Cell < RectanglePad
+
+        # :section: LEVEL 2
+
+        def sketch
+          super
+
+          set_size 1r
+        end
+
+        def min_size_y
+          fit_size_y
+        end
+        
+      end
+    end
+  end
+end

data/lib/kredki/pads/table/column.rb

@@ -0,0 +1,63 @@
+module Kredki
+  module Pads
+    module Table
+      # Table column model.
+      class Column
+
+        # Set size.
+        def set_size size = @size
+          return send_bundle :set_size, yield(self.size) if block_given?
+          return if @size == size
+          @size = size
+          true
+        end
+
+        # See #set_size.
+        def size= param
+          send_bundle :set_size, param
+        end
+
+        # Get size.
+        def size
+          @size
+        end
+
+        # Set size limit.
+        def set_limit limit = @limit
+          return send_bundle :set_limit, yield(self.limit) if block_given?
+          return if @limit == limit
+          @limit = limit
+          true
+        end
+
+        # See #set_limit.
+        def limit= param
+          send_bundle :set_limit, param
+        end
+
+        # Get size limit.
+        def limit
+          @limit
+        end
+
+        # Set a feature recognized by its class.
+        def << feature
+          case feature
+          when Numeric
+            set_size feature
+          when Range
+            set_limit feature
+          else raise_ia feature
+          end
+        end
+
+        # :section: LEVEL 2
+
+        def initialize
+          @size = Auto
+          @limit = nil
+        end
+      end
+    end
+  end
+end

data/lib/kredki/pads/table/column_layout.rb

@@ -0,0 +1,88 @@
+module Kredki
+  module Pads
+    module Table
+      # Column layout.
+      class ColumnLayout < Layout::XWay
+        
+        # Add new column.
+        def column! ...
+          @columns << Column.new.set(...)
+        end
+        
+        # Set space between columns.
+        def set_space space = @space
+          return if @space == space
+          @space = space
+          true
+        end
+
+        # See #set_space.
+        def space= param
+          send_bundle :set_space, param
+        end
+
+        # Get space between columns.
+        def space
+          @space
+        end
+
+        # :section: LEVEL 2
+        
+        def initialize table, x, y
+          super(x, y)
+          @table = table
+          @columns = []
+          @measurement = nil
+          @spans = nil
+        end
+  
+        def arrange pad
+          @measurement ? proper_arrange(pad) : measure_arrange(pad)
+        end
+
+        def measure_arrange pad
+          csx = @table.clip_size_x
+
+          @spans = pad.pads_layoutic.zip(@columns, @spans).map do |p1, column, span|
+            n = get_span p1, column.size, column.limit, csx
+            span ? [n[0], a = [n[1], span[1]].max, [n[2], span[2]].min, a] : n
+          end
+        end
+
+        def proper_arrange pad
+          client_size_y = pad.clip_size_y
+          client_size_x = @table.clip_size_x
+          size_x = @size_x
+
+          pad.pads_layoutic.zip @measurement do |p1, measured|
+            if measured
+              sx = measured
+            else
+              sx = client_size_x - size_x
+              size_x = client_size_x
+            end
+            sy = p1.get_size_y client_size_y
+            p1.update_size sx, sy
+          end
+
+          arrange_pads pad.arranged_pads, size_x, client_size_x, client_size_y, @space || 0
+        end
+  
+        def prepare
+          @measurement = nil
+          @spans = []
+        end
+  
+        def designate
+          @measurement, @size_x = spans @spans, @table.clip_size_x, @space || 0
+        end
+  
+        def release
+          @measurement = nil
+          @spans = nil
+        end
+        
+      end
+    end
+  end
+end

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

@@ -0,0 +1,116 @@
+module Kredki
+  module Pads
+    module Table
+      class Pad < RectanglePad
+
+        # Add new column.
+        def column! ...
+          @column_layout.column!(...) and layer&.break_layout
+        end
+
+        # Get default row features.
+        def row
+          {
+            size_x: 1r,
+            size_y: Fit,
+            layout: @column_layout
+          }
+        end
+
+        # Add new row.
+        def row! ...
+          put(Row, :row!, row, ...)
+        end
+
+        # Set spacer in X axis.
+        def set_spacer_x ...
+          if @column_layout.set_space(...)
+            layer&.break_layout
+            true
+          end
+        end
+
+        # See #set_spacer_x.
+        def spacer_x= param
+          send_bundle :set_spacer_x, param
+        end
+
+        # Get spacer in X axis.
+        def spacer_x
+          @column_layout.space
+        end
+
+        # Set spacer in Y axis.
+        def set_spacer_y spacer_y = @spacer
+          return set_spacer_y yield @spacer if block_given?
+          return if Util.eqr @spacer, spacer_y
+          @spacer = spacer_y
+          layer&.break_layout
+          true
+        end
+
+        # See #set_spacer_y.
+        def spacer_y= param
+          send_bundle :set_spacer_y, param
+        end
+
+        # Get spacer in Y axis.
+        def spacer_y
+          @spacer
+        end
+
+        # Set spacer value.
+        def set_spacer spacer_x = @column_layout.space, spacer_y = spacer_x
+          return set_spacer yield(self.spacer) if block_given?
+          set_spacer_x(spacer_x) | set_spacer_y(spacer_y)
+        end
+
+        # See #set_spacer.
+        def spacer= param
+          send_bundle :set_spacer, param
+        end
+
+        # Get spacer value.
+        def spacer
+          spacer_y
+        end
+
+        # Add new scroll rows.
+        def scroll_rows! ...
+          put(ScrollRows, :scroll_rows!, spacer: spacer_y).set(...)
+        end
+
+        # :section: LEVEL 2
+
+        def initialize
+          super
+          
+          @column_layout = ColumnLayout.new self, 0, 0
+        end
+
+        def sketch
+          super 
+
+          set_fill false
+          set_layout :yss
+          set_size_y Fit
+        end
+
+        def arrange
+          @column_layout.prepare
+          super
+          @column_layout.designate
+          super
+          @column_layout.release
+        end
+
+      end#Pad
+
+      require_relative 'column'
+      require_relative 'column_layout'
+      require_relative 'cell'
+      require_relative 'row'
+      require_relative 'scroll_rows'
+    end#Table
+  end#Pads
+end#Kredki

data/lib/kredki/pads/table/row.rb

@@ -0,0 +1,24 @@
+module Kredki
+  module Pads
+    module Table
+      # Table row model.
+      class Row < RectanglePad
+
+        # Add new cell.
+        def cell! ...
+          put(Cell, __method__, ...)
+        end
+
+        # :section: LEVEL 2
+
+        def sketch
+          super
+
+          set_size 1r, Fit
+          set_fill false
+        end
+
+      end
+    end
+  end
+end

data/lib/kredki/pads/table/scroll_rows.rb

@@ -0,0 +1,50 @@
+module Kredki
+  module Pads
+    module Table
+
+      class ScrollCell < Cell
+        def fit_size_x
+          fit = super
+          if lower_pad.pads.last == self
+            slider_y = find_lower(ScrollRows)&.slider_y
+            fit += slider_y.get_size_x + lower_pad.margin_xe if slider_y.displayed
+          end
+          fit
+        end
+
+        def update_size x, y
+          if lower_pad.pads.last == self
+            slider_y = find_lower(ScrollRows)&.slider_y
+            return super(x - slider_y.get_size_x - lower_pad.margin_xe, y) if slider_y.displayed
+          end
+          super
+        end
+      end
+
+      class ScrollRow < Row
+        def cell! ...
+          put(ScrollCell, __method__, ...)
+        end
+      end
+
+      # Scrolled table row set.
+      class ScrollRows < ScrollPad
+
+        # Add new row.
+        def row! ...
+          put(ScrollRow, __method__, lower.row, ...)
+        end
+
+        # :section: LEVEL 2
+
+        def sketch
+          super
+
+          set_size_x 1r
+          set_layout :yss
+        end
+        
+      end
+    end
+  end
+end

data/lib/kredki/pads/text/editable_text_verse.rb

@@ -0,0 +1,77 @@
+require_relative 'text_edition'
+
+module Kredki
+  module Pads
+    class EditableTextVerse < NavigableTextPad
+
+      # :section: LEVEL 2
+
+      def paste pasted
+        new_content = content_after_edit pasted, @selection_start, @selection_end
+        report TextEdition::EditEvent.new @selection_start, @selection_end, new_content, pasted, :paste
+      end
+
+      def backspace
+        if any_selected
+          new_content = content_after_edit "", @selection_start, @selection_end
+          report TextEdition::EditEvent.new @selection_start, @selection_end, new_content, "", :backspace
+        elsif @cursor_position > 0
+          new_content = content_after_edit "", @cursor_position - 1, @cursor_position
+          report TextEdition::EditEvent.new @cursor_position - 1, @cursor_position, new_content, "", :backspace
+        end
+      end
+
+      def delete
+        length = text.length
+        if any_selected
+          new_content = content_after_edit "", @selection_start, @selection_end
+          report TextEdition::EditEvent.new @selection_start, @selection_end, new_content, "", :delete
+        elsif @cursor_position < length
+          new_content = content_after_edit "", @cursor_position, @cursor_position + 1
+          report TextEdition::EditEvent.new @cursor_position, @cursor_position + 1, new_content, "", :delete
+        elsif length > 0
+          backspace
+        end
+      end
+
+      def set_subject subject = @subject, cursor_position = 0, &b
+        super("#{subject}\n".each_line(chomp: true).to_a.join, cursor_position, &b)
+      end
+
+      def edit new_content, new_cursor_position
+        v = @verses.first
+        initial_size_x = v.size_x
+        set_subject new_content, new_cursor_position
+        case @verse_layout
+        when :yss, :ysc, :yse
+          nil
+        when :yes, :yec, :yee
+          v = @verses.first
+          @scene.x = area_x >= 0 && v.size_x > area_size_x ? @scene.x + v.size_x - initial_size_x : 0
+        when :ycs, :ycc, :yce
+          @scene.x = 0
+        else raise_is @verse_layout
+        end
+      end
+
+      def drop_move x, y
+        cursor_position = cursor_position_for_coordinates x, y
+        if @cursor_position != cursor_position && @selection_start == @selection_end
+          @selection_start = @selection_end = @cursor_position = cursor_position
+          layer&.break_layout
+        end
+      end
+
+      def content_after_edit inset, from, to
+        string = text.to_s
+        if string == ""
+          inset
+        elsif to < string.length
+          string[...from] + inset + string[to..]
+        else
+          string[...from] + inset
+        end
+      end
+    end
+  end
+end

data/lib/kredki/pads/text/editable_text_verses.rb

@@ -0,0 +1,59 @@
+require_relative 'text_edition'
+
+module Kredki
+  module Pads
+    class EditableTextVerses < NavigableTextPad
+
+      # :section: LEVEL 2
+
+      def paste pasted
+        new_content = content_after_edit pasted, @selection_start, @selection_end
+        report TextEdition::EditEvent.new @selection_start, @selection_end, new_content, pasted, :paste
+      end
+
+      def backspace
+        if any_selected
+          new_content = content_after_edit "", @selection_start, @selection_end
+          report TextEdition::EditEvent.new @selection_start, @selection_end, new_content, "", :backspace
+        elsif @cursor_position > 0
+          new_content = content_after_edit "", @cursor_position - 1, @cursor_position
+          report TextEdition::EditEvent.new @cursor_position - 1, @cursor_position, new_content, "", :backspace
+        end
+      end
+
+      def delete
+        length = subject.length
+        if any_selected
+          new_content = content_after_edit "", @selection_start, @selection_end
+          report TextEdition::EditEvent.new @selection_start, @selection_end, new_content, "", :delete
+        elsif @cursor_position < length
+          new_content = content_after_edit "", @cursor_position, @cursor_position + 1
+          report TextEdition::EditEvent.new @cursor_position, @cursor_position + 1, new_content, "", :delete
+        end
+      end
+
+      def edit new_content, new_cursor_position
+        set_subject new_content, new_cursor_position
+      end
+
+      def drop_move x, y
+        cursor_position = cursor_position_for_coordinates x, y
+        if @cursor_position != cursor_position && @selection_start == @selection_end
+          @selection_start = @selection_end = @cursor_position = cursor_position
+          layer&.break_layout
+        end
+      end
+
+      def content_after_edit inset, from, to
+        string = text
+        if string == ""
+          inset
+        elsif to < string.length
+          string[...from] + inset + string[to..]
+        else
+          string[...from] + inset
+        end
+      end
+    end
+  end
+end