kredki 0.1.0

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

@@ -0,0 +1,41 @@
+module Kredki
+  module Pads
+    module Toolbar
+      # Base class for toolbar layers.
+      class Layer < Pads::Layer
+
+        # :section: LEVEL 2
+
+        def initialize
+          super
+
+          @context_pad = put Context::Pad, stroke: [1, :dark_gray], margin: 1
+          @item_group = @context_pad.put Context::ItemGroup
+        end
+
+        attr :context_pad, :item_group
+
+        def load_common x, y
+          @context_pad.set_xy x, y
+          lower.pane.put self
+          break_layout
+        end
+        
+        def unload
+          update_keyboard_pad nil
+          pad_detach
+        end
+
+        def loaded
+          !!@lower_pad
+        end
+
+        def mouse_press e
+        end
+
+        def mouse_release e
+        end
+      end#Layer
+    end#Toolbar
+  end#Pads
+end#Kredki

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

@@ -0,0 +1,51 @@
+require_relative '../context/menu'
+require_relative 'layer'
+require_relative 'primary_layer'
+require_relative 'item'
+require_relative 'item_group'
+
+module Kredki
+  module Pads
+    module Toolbar
+      # Root pad of toolbar menu.
+      class Pad < RectanglePad
+
+        # Add menu item.
+        def item!(...)
+          find(ItemGroup).item!(...)
+        end
+
+        # Create and attach item 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
+
+          set_size 1r, Fit
+          set_layout :xsc
+          set_fill :gray
+        
+          put ItemGroup
+        end
+
+        def behavior
+          super
+
+          on_select do |e|
+            keyboard_dispose unless e.target.find_upper Context::Item
+          end
+        end
+
+      end#Pad
+    end#Toolbar
+  end#Pads
+end#Kredki

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

@@ -0,0 +1,64 @@
+module Kredki
+  module Pads
+    module Toolbar
+      # Basic toolbar layer.
+      class PrimaryLayer < Layer
+
+        # :section: LEVEL 2
+
+        def load item
+          arrange
+          wsx, wsy = lower.window.size
+          x, y = *item.translate(0, item.area_size_y)
+          if x + @context_pad.area_size_x > wsx
+            x = [wsc - @context_pad.area_size_x, 0].max
+          end
+          if y + @context_pad.area_size_y > wsy
+            y = [wsy - @context_pad.area_size_y, 0].max
+          end
+          load_common x, y
+        end
+
+        def behavior
+          super
+
+          on Item::SelectEvent do |e|
+            if e.target.find_upper Item
+              e.close
+            else
+              lower.report e
+              pad_detach
+            end
+          end
+        
+          on_key :escape do |e|
+            pad_detach
+            e.close
+          end
+
+          on_mouse_press do |e|
+            pad_detach
+          end
+        end
+
+        def update_lower lower, at = nil
+          if super
+            @lower_events&.each{ _1.cancel }
+            @lower_events = []
+
+
+            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
+      end#PrimaryLayer
+    end#Toolbar
+  end#Pads
+end#Kredki

data/lib/kredki/pads/window.rb

@@ -0,0 +1,11 @@
+module Kredki
+  module Pads
+    # Window of Pads module.
+    class Window < Kredki::Window
+      
+      def default_pane
+        Pane.new
+      end
+    end
+  end
+end

data/lib/kredki/script.rb

@@ -0,0 +1,29 @@
+require 'forwardable'
+require_relative 'module'
+
+if defined? IRB
+  require_relative 'irb'
+else
+  MainLayer = Kredki.app.open hidden: true
+  module Kredki
+    module Extend
+      extend Forwardable
+
+      (MainLayer.methods - Object.instance_methods).each do |it|
+          def_delegator :MainLayer, it
+      end
+    end
+  end
+  extend Kredki::Extend
+  include Kredki
+  include Kredki::Pads
+
+  window.set do
+    set_resizable true
+    set_text_input true
+    pane.set_fill 20, 70, 20
+    pane.close_on_esc
+    set_title $0
+  end
+  MainLayer.carry_focus_on_tab
+end

data/lib/kredki/setup.rb

@@ -0,0 +1,2 @@
+require_relative 'core/setup'
+require_relative 'pads/setup'

data/lib/kredki/test.rb

@@ -0,0 +1,35 @@
+require_relative 'module'
+require 'minitest/autorun'
+require 'forwardable'
+
+module Kredki
+  class Test < Minitest::Test
+    extend Forwardable
+
+    (Pads::Layer.instance_methods - Object.instance_methods).each do |it|
+      def_delegator :@layer, it
+    end
+
+    def setup
+      @layer = Kredki.app.open hidden: true
+    end
+
+    def assert_png
+      local_path = dir.delete_prefix("#{Kredki.dir}/test/").gsub("/", "__")
+      path = "#{Kredki.dir}/test/output/#{local_path}__#{name}.png"
+      @layer.window.to_png path
+      expected = File.expand_path "#{dir}/#{name}.png"
+      of = File.new path, "rb"
+      ef = File.new expected, "rb"
+      loop do
+        oc = of.readpartial(1024) rescue nil
+        ec = ef.readpartial(1024) rescue nil
+        return assert false if oc != ec
+        return assert true if !oc
+      end
+    end
+  end
+end
+
+include Kredki
+include Kredki::Pads

data/lib/kredki.rb

@@ -0,0 +1,10 @@
+run_at_exit = !defined?(Kredki::Pastele) && !defined?(IRB)
+
+require_relative 'kredki/script'
+
+if run_at_exit
+  at_exit do
+    window.show
+    app.run
+  end
+end

data/lib/readme.md

@@ -0,0 +1,31 @@
+What's here:
+
+- `kredki/core` - core source code; drawing features, basic event processing, job api
+- `kredki/pads` - pads module source code; advanced event processing, gui elements
+- `kredki/core.rb` - core only run mode (no gui)
+- `kredki/hide.rb` - default run mode but don't display window on start
+- `kredki/irb.rb` - interactive session run mode
+- `kredki/module.rb` - core + pads run mode without including module at top level
+- `kredki/script.rb` - core + pads run mode with including module at top level
+- `kredki/setup.rb` - load only bootstrap elements, allows deeper customization like replacing binaries or config files
+- `kredki/test.rb` - run mode used in tests
+- `kredki.rb` - default run mode, application is started `on_exit`
+
+How to use run selected mode:
+```
+require 'kredki/module'
+
+Kredki.app do
+  text! "Hello"
+end
+```
+
+
+How to use setup:
+```
+require 'kredki/setup'
+Kredki.sdl = "/path_to/custom_binaries/libSDL3.so"
+require 'kredki'
+
+button! "OK"
+```