tk_component 0.1.0 → 0.1.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: '0588f1482fd807ba8c250d1e3098f2a0271bda795a0264fba9ccdced638cbdb5'
-  data.tar.gz: 2360a3b2cb6bb52aa9ae17815d3f345782da42f1f563c357d35685f13153d468
+  metadata.gz: 69cfe9e4f6243ca3e4e2c3fa10824a56b078450777e06d971e22c558ea84db94
+  data.tar.gz: 6a74e65f6d965dfc540bfc85090195d0857a4a9c0879e3774948629857d27cdd
 SHA512:
-  metadata.gz: 89b625e7097f5109bc4fbf903c098284c857ec6aece46fadb9f2d598004191ee9a5825010e05bd86342a515cea97f6b342d9d6f619f61f33d24ff93b192b5620
-  data.tar.gz: a647f65cc892c511cc5d6bd693b4d6865a3355b5839add9cd7c8fd1acde6e7a30ba0a5e73f2b456f32e3005b45ca025cf589a568a401d3607db94eaa3437b1bf
+  metadata.gz: 753418e59a8e68c868b6c221c21dd31c904b749b6403a4788313e6bdbc345a4f3e2cf3b3f5c2d306a87ec2278ddb9cc60863c9e263032ba7a1e94c341617d5ee
+  data.tar.gz: f741f628f87a923828d57cb9f3b1834f91f4d0ee36174d138059148c93d1570931b6549882dff8c3870176be3401bbc4d51e4811b8196778b37ff817b6ad55ff

data/Gemfile

@@ -4,3 +4,9 @@ git_source(:github) {|repo_name| "https://github.com/#{repo_name}" }
 
 # Specify your gem's dependencies in tk_component.gemspec
 gemspec
+
+group :development, :test do
+  gem 'pry'
+  gem 'pry-byebug'
+end
+

data/Gemfile.lock

@@ -1,7 +1,7 @@
 PATH
   remote: .
   specs:
-    tk_component (0.1.0)
+    tk_component (0.1.1)
       activesupport (~> 6.0.3)
       tk (~> 0.3.0)
 
@@ -14,11 +14,20 @@ GEM
       minitest (~> 5.1)
       tzinfo (~> 1.1)
       zeitwerk (~> 2.2, >= 2.2.2)
-    concurrent-ruby (1.1.7)
+    byebug (11.1.3)
+    coderay (1.1.3)
+    concurrent-ruby (1.1.8)
     diff-lcs (1.4.4)
-    i18n (1.8.5)
+    i18n (1.8.7)
       concurrent-ruby (~> 1.0)
-    minitest (5.14.2)
+    method_source (1.0.0)
+    minitest (5.14.3)
+    pry (0.13.1)
+      coderay (~> 1.1)
+      method_source (~> 1.0)
+    pry-byebug (3.9.0)
+      byebug (~> 11.0)
+      pry (~> 0.13.0)
     rake (10.5.0)
     rspec (3.10.0)
       rspec-core (~> 3.10.0)
@@ -35,7 +44,7 @@ GEM
     rspec-support (3.10.0)
     thread_safe (0.3.6)
     tk (0.3.0)
-    tzinfo (1.2.8)
+    tzinfo (1.2.9)
       thread_safe (~> 0.1)
     zeitwerk (2.4.2)
 
@@ -44,6 +53,8 @@ PLATFORMS
 
 DEPENDENCIES
   bundler (~> 1.16)
+  pry
+  pry-byebug
   rake (~> 10.0)
   rspec (~> 3.0)
   tk_component!

data/bin/browser_demo.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/env ruby
+
+require "bundler/setup"
+require "tk_component"
+require "pry"
+
+class DataSource
+  @@shared_data_source = nil
+
+  def self.shared
+    @@shared_data_source ||= self.new
+  end
+
+  def items_for_path(path)
+    path = [] if path.blank?
+    path_str = File.join(ENV['HOME'], *path)
+    return nil unless Dir.exist?(path_str)
+    Dir.children(path_str)
+  end
+
+  def title_for_path(path, items)
+    path.blank? ? ENV['HOME'] : path.last
+  end
+end
+  
+class DemoRoot < TkComponent::Base
+  def generate(parent_component, options = {})
+    parse_component(parent_component, options) do |p|
+      p.vframe(sticky: 'wens', x_flex: 1, y_flex: 1) do |f|
+        f.label(text: "Directory of #{DataSource.shared.title_for_path(nil, [])}")
+        f.insert_component(TkComponent::BrowserComponent, self,
+                           data_source: DataSource.shared,
+                           paned: true,
+                           sticky: 'nsew', x_flex: 1, y_flex: 1) do |bc|
+          bc.on_event'PathChanged', ->(e) do
+            puts "PathChanged: " + e.data_object.selected_path.to_s
+          end
+        end
+      end
+    end
+  end
+end
+
+@tk_root = TkComponent::Window.new(title: "BrowserComponent Demo", root: true)
+@main_component = DemoRoot.new
+@tk_root.place_root_component(@main_component)
+
+Tk.mainloop
+

data/bin/table_view_demo.rb

@@ -0,0 +1,66 @@
+#!/usr/bin/env ruby
+
+require "bundler/setup"
+require "tk_component"
+require "pry"
+
+TABLE_COLS = %w|name size|
+
+class DataSource
+  @@shared_data_source = nil
+
+  def self.shared
+    @@shared_data_source ||= self.new
+  end
+
+  def items_for_path(path)
+    path = [] if path.blank?
+    path_str = File.join(ENV['HOME'], *file_segments_for(path))
+    return nil unless Dir.exist?(path_str)
+    Dir.children(path_str).map do |f|
+      name = File.join(path_str, f)
+      {
+        name: f,
+        size: File.exist?(name) && !File.directory?(name) && File.size(name) || ''
+      }
+    end
+  end
+
+  def has_sub_items?(path)
+    path = [] if path.blank?
+    path_str = File.join(ENV['HOME'], *file_segments_for(path))
+    Dir.exist?(path_str)
+  end
+
+  private
+
+  def file_segments_for(path)
+    path.map { |p| p[:name] }
+  end
+end
+
+class DemoRoot < TkComponent::Base
+  def generate(parent_component, options = {})
+    parse_component(parent_component, options) do |p|
+      p.vframe(sticky: 'wens', x_flex: 1, y_flex: 1) do |f|
+        f.label(text: "Directory of #{ENV['HOME']}")
+        f.insert_component(TkComponent::TableViewComponent, self,
+                           data_source: DataSource.shared,
+                           columns: [
+                             { key: :name, text: 'Name' },
+                             { key: :size, text: 'Size' }
+                           ],
+                           nested: true,
+                           lazy: true,
+                           sticky: 'nsew', x_flex: 1, y_flex: 1)
+      end
+    end
+  end
+end
+
+@tk_root = TkComponent::Window.new(title: "TableView Demo", root: true)
+@main_component = DemoRoot.new
+@tk_root.place_root_component(@main_component)
+
+Tk.mainloop
+

data/bin/tiles_demo.rb

@@ -0,0 +1,48 @@
+#!/usr/bin/env ruby
+
+require "bundler/setup"
+require "tk_component"
+require "pry"
+
+class ColorBlock < TkComponent::Base
+  def generate(parent_component, options = {})
+    parse_component(parent_component, options) do |p|
+      p.canvas(background: options[:color], sticky: 'wens', x_flex: 1, y_flex: 1)
+    end
+  end
+end
+
+class DemoRoot < TkComponent::Base
+  COLORS = %w|red yellow green brown blue orange|
+  ROWS = 10
+  COLUMNS = 10
+  def generate(parent_component, options = {})
+    parse_component(parent_component, options) do |p|
+      p.frame(sticky: 'wens', x_flex: 1, y_flex: 1) do |f|
+        f.row(sticky: 'wens', x_flex: 1, y_flex: 1) do |r|
+          r.button(text: "Refresh", columnspan: COLUMNS, sticky: 'e') do |b|
+            b.on_click ->(e) { regenerate }
+          end
+        end
+        ROWS.times do
+          f.row(sticky: 'wens', x_flex: 1, y_flex: 1) do |r|
+            COLUMNS.times do
+              r.insert_component(ColorBlock, self, color: random_color, sticky: 'nsew', x_flex: 1, y_flex: 1)
+            end
+          end
+        end
+      end
+    end
+  end
+
+  def random_color
+    COLORS.sample
+  end
+end
+
+@tk_root = TkComponent::Window.new(title: "Demo")
+@main_component = DemoRoot.new
+@tk_root.place_root_component(@main_component)
+
+Tk.mainloop
+

data/lib/tk_component.rb

@@ -1,6 +1,11 @@
 require "tk_component/version"
 require "active_support/all"
 
+require_relative 'tk_component/basic_component'
 require_relative 'tk_component/base'
+require_relative 'tk_component/browser_component'
+require_relative 'tk_component/r_browser_component'
+require_relative 'tk_component/table_view_component'
 require_relative 'tk_component/window'
 require_relative 'tk_component/builder'
+require_relative 'tk_component/turtle'

data/lib/tk_component/base.rb

@@ -10,6 +10,8 @@ module TkComponent
     attr_accessor :children
     attr_accessor :node
 
+    include BasicComponent
+
     def initialize(options = {})
       @parent = options[:parent]
       @parent_node = options[:parent_node]
@@ -27,21 +29,65 @@ module TkComponent
       @node = @node.sub_nodes.first # Get rid of the dummy top node
     end
 
+    def parse_nodes(parent_node, options = {})
+      old_sub_nodes = parent_node.sub_nodes.dup
+      yield(parent_node)
+      new_sub_nodes = parent_node.sub_nodes - old_sub_nodes
+      new_sub_nodes.each { |n| n.prepare_option_events(self) }
+      parent_node.prepare_grid
+      new_sub_nodes
+    end
+
     def build(parent_component)
       @node.build(@parent_node, parent_component)
       component_did_build
       children.each do |c|
         c.build(self)
+        TkGrid.columnconfigure c.parent_node.tk_item.native_item, 0, weight: 1
+        TkGrid.rowconfigure c.parent_node.tk_item.native_item, 0, weight: 1
+        TkGrid.columnconfigure c.node.tk_item.native_item, 0, weight: 1
+        TkGrid.rowconfigure c.node.tk_item.native_item, 0, weight: 1
       end
     end
 
     def regenerate
       old_node = @node
+      old_children = @children
+      @children = []
       generate(parent)
       rebuild(old_node)
-      children.each do |c|
-        c.regenerate
+      @children.each do |c|
+        c.generate(self)
+        c.build(self)
+      end
+    end
+
+    def regenerate_from_node(node, parent_node, options = {}, &block)
+      regenerate_from_index(parent_node, parent_node.sub_nodes.index(node), options, &block)
+    end
+
+    def regenerate_after_node(node, parent_node, options = {}, &block)
+      return if parent_node.sub_nodes.index(node).nil?
+      regenerate_from_index(parent_node, parent_node.sub_nodes.index(node) + 1, options, &block)
+    end
+
+    def regenerate_from_index(parent_node, index, options = {}, &block)
+      old_children = @children.dup
+      to_remove = parent_node.sub_nodes.slice!(index..-1)
+      to_remove.each do |n|
+        n.remove
+      end
+      new_sub_nodes = parse_nodes(parent_node, options, &block)
+      new_children = @children - old_children
+      new_sub_nodes.each do |n|
+        n.build(parent_node, self)
+      end
+      new_children.each do |c|
+        c.generate(self)
+        c.build(self)
       end
+      parent_node.apply_grid
+      parent_node.built
     end
 
     def rebuild(old_node)
@@ -53,7 +99,7 @@ module TkComponent
     end
 
     def emit(event_name)
-      TkComponent::Builder::Event.emit('ParamChanged', parent_node.native_item, self.object_id)
+      TkComponent::Builder::Event.emit(event_name, parent_node.native_item, self.object_id)
     end
 
     def component_did_build

data/lib/tk_component/basic_component.rb

@@ -0,0 +1,8 @@
+module TkComponent
+  module BasicComponent
+    def focus
+      self.tk_item.focus
+    end
+  end
+end
+

data/lib/tk_component/browser_column_component.rb

@@ -0,0 +1,70 @@
+module TkComponent
+  class BrowserColumnComponent < TkComponent::Base
+
+    attr_accessor :browser
+    attr_accessor :column_index
+
+    def initialize(options = {})
+      super
+      @browser = options[:browser]
+      @column_index = options[:column_index] || 0
+    end
+
+    def generate(parent_component, options = {})
+      parse_component(parent_component, options) do |p|
+        if @column_index <= @browser.selected_path.size
+          current_item = @browser.selected_path[@column_index]
+          path_so_far = @browser.selected_path.slice(0, @column_index)
+          items = @browser.data_source.items_for_path(path_so_far)
+          items ||= []
+        else
+          items = []
+          current_item = nil
+        end
+        command = @browser.paned ? :hpaned : :hframe
+        p.send(command, sticky: 'nsew', x_flex: 1, y_flex: 1) do |f|
+          @tree = f.tree(sticky: 'nsew', x_flex: 1, y_flex: 1,
+                         on_select: :select_item,
+                         scrollers: 'y', heading: @browser.data_source.title_for_path(path_so_far, items)) do |t|
+            items.each do |item|
+              t.tree_node(at: 'end',
+                          text: item,
+                          selected: item == current_item)
+            end
+          end
+          if (@browser.max_columns.blank? || @browser.max_columns > @column_index + 1) &&
+             (@column_index < @browser.selected_path.size || items.present?)               
+            f.hframe(sticky: 'nsew', x_flex: 1, y_flex: 1) do |hf|
+              @next_column = hf.insert_component(TkComponent::BrowserColumnComponent, self,
+                                                 browser: @browser,
+                                                 column_index: @column_index + 1,
+                                                 sticky: 'nsew', x_flex: 1, y_flex: 1) do |bc|
+                bc.on_event 'ItemSelected', ->(e) do
+                  emit('ItemSelected')
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+
+    def component_did_build
+      show_current_selection
+    end
+
+    def show_current_selection
+      @tree.tk_item.scroll_to_selection
+    end
+
+    def select_item(e)
+      item = e.sender.native_item.selection&.first.text.to_s
+      return if @browser.selected_path[@column_index] == item
+      @browser.selected_path[@column_index] = item
+      @browser.selected_path.slice!(@column_index + 1..-1) if @column_index < @browser.selected_path.size - 1
+      puts "New selected path: #{@browser.selected_path}"
+      @next_column&.regenerate
+      emit('ItemSelected')
+    end
+  end
+end

data/lib/tk_component/browser_component.rb

@@ -0,0 +1,66 @@
+module TkComponent
+  class BrowserComponent < TkComponent::Base
+
+    attr_accessor :data_source
+    attr_accessor :selected_path
+
+    def initialize(options = {})
+      super
+      @data_source = options[:data_source]
+      @selected_path = options[:selected_path] || []
+      @paned = !!options[:paned]
+      @trees_container = nil
+      @trees = []
+    end
+
+    def generate(parent_component, options = {})
+      parse_component(parent_component, options) do |p|
+        partial_path = []
+        @trees = []
+        p.vframe(sticky: 'nsew', x_flex: 1, y_flex: 1) do |vf|
+          command = @paned ? :hpaned : :hframe
+          @trees_container = vf.send(command, sticky: 'nsew', x_flex: 1, y_flex: 1) do |f|
+            generate_from_level(f, 0)
+          end
+        end
+      end
+    end
+
+    def show_current_selection
+      @trees.each { |t| t.tk_item.scroll_to_selection }
+    end
+
+    def generate_from_level(container, start_index)
+      (start_index..selected_path.size).each do |idx|
+        next_in_path = selected_path[idx]
+        partial_path = selected_path.slice(0, idx)
+        items = data_source.items_for_path(partial_path)
+        title = items.nil? ? '' : data_source.title_for_path(partial_path, items)
+        @trees << container.tree(sticky: 'nsew', x_flex: 1, y_flex: 1,
+                                 scrollers: 'y', heading: title) do |t|
+          items&.each do |item|
+            t.tree_node(at: 'end', text: item, selected: item == next_in_path)
+          end
+          t.on_select ->(e) { select_item(e.sender, idx) }
+        end
+      end
+    end
+
+    def select_item(sender, index)
+      # If we don't do this update sometimes the selection is not
+      # updated until some later event, like a mouse drag
+      Tk.update
+      item = sender.native_item.selection&.first.text.to_s
+      return if selected_path[index] == item
+      selected_path[index] = item
+      selected_path.slice!(index + 1..-1) if index < selected_path.size - 1
+      @trees.slice!(index + 1..-1)
+      regenerate_after_node(@trees[index], @trees_container) do |container|
+        generate_from_level(container, index + 1)
+      end
+      Tk.update
+      emit('PathChanged')
+      Tk.update
+    end
+  end
+end