wxruby3 0.9.0.pre.rc.3 → 0.9.0

data/lib/wx/core/config.rb

@@ -0,0 +1,303 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
+module Wx
+
+  class Config < Wx::ConfigBase
+
+    SEPARATOR = '/'.freeze
+
+    module Interface
+
+      def each(&block)
+        if block_given?
+          @data.each_pair(&block)
+        else
+          @data.each_pair
+        end
+      end
+
+      def each_entry(&block)
+        if block_given?
+          @data.keys.select { |k| !@data[k].is_a?(::Hash) }.each(&block)
+        else
+          ::Enumerator.new { |y| @data.keys.each { |k| y << k if !@data[k].is_a?(::Hash) } }
+        end
+      end
+
+      def each_group(&block)
+        if block_given?
+          @data.select { |_,g| g.is_a?(::Hash) }.each { |k,g| block.call(k, Group.new(self, self.path.dup.push(k), g)) }
+        else
+          ::Enumerator.new { |y| @data.each { |k,g| y << [k,Group.new(self, self.path.dup.push(k), g)] if g.is_a?(::Hash) } }
+        end
+      end
+
+      def number_of_entries(recurse: false)
+        if recurse
+          each_group.inject(each_entry.inject(0) { |c, _| c + 1 }) { |c, (_, g)| c + g.number_of_entries(recurse: true) }
+        else
+          each_entry.inject(0) { |c, _| c + 1 }
+        end
+      end
+
+      def number_of_groups(recurse: false)
+        if recurse
+          each_group.inject(0) { |c, (_,g)| c + 1 + g.number_of_groups(recurse: true) }
+        else
+          each_group.inject(0) { |c, _| c + 1 }
+        end
+      end
+
+      def has_entry?(path_str)
+        segments, abs = get_path(path_str)
+        return false if segments.empty?
+        entry = segments.pop
+        group_data = if segments.empty?
+                       @data
+                     else
+                       unless abs || root?
+                         segments = self.path + segments
+                       end
+                       get_group_at(segments)
+                     end
+        !!(group_data && group_data.has_key?(entry) && !group_data[entry].is_a?(::Hash))
+      end
+
+      def has_group?(path_str)
+        segments, abs = get_path(path_str)
+        return root? if segments.empty?
+        unless abs || root?
+          segments = self.path + segments
+        end
+        !!get_group_at(segments)
+      end
+
+      def get(key)
+        key = key.to_s
+        elem = @data[key]
+        if elem.is_a?(::Hash)
+          Group.new(self, self.path.dup.push(key), elem)
+        else
+          elem
+        end
+      end
+
+      def set(key, val)
+        key = key.to_s
+        exist = @data.has_key?(key)
+        elem = exist ? @data[key] : nil
+        if val.nil?
+          @data.delete(key) if exist
+          nil
+        elsif val.is_a?(::Hash)
+          raise ArgumentError, 'Cannot change existing value entry to group.' if exist && !elem.is_a?(::Hash)
+          elem  = @data[key] = {} unless elem
+          group = Group.new(self, self.path.dup.push(key), elem)
+          val.each_pair { |k, v| group.set(k, v) }
+          group
+        else
+          raise ArgumentError, 'Cannot change existing group to value entry.' if exist && elem.is_a?(::Hash)
+          @data[key] = sanitize_value(val)
+        end
+      end
+
+      def delete(key)
+        @data.delete(key.to_s)
+      end
+
+      def rename(old_key, new_key)
+        old_key = old_key.to_s
+        new_key = new_key.to_s
+        if @data.has_key?(old_key) && !@data.has_key?(new_key)
+          @data[new_key] = @data.delete(old_key)
+          true
+        else
+          false
+        end
+      end
+
+      def [](path_str)
+        segments, abs = get_path(path_str)
+        return nil if segments.empty?
+        last = segments.pop
+        group_data = if segments.empty?
+                       @data
+                     else
+                       unless abs || root?
+                         segments = self.path + segments
+                       end
+                       get_group_at(segments, create_missing_groups: true)
+                     end
+        raise ArgumentError, "Unable to resolve path #{segments+[last]}" unless group_data
+        elem = group_data[last]
+        if elem.is_a?(::Hash)
+          Group.new(self, segments.dup.push(last), elem)
+        else
+          elem
+        end
+      end
+
+      def []=(path_str, val)
+        segments, abs = get_path(path_str)
+        return false if segments.empty?
+        last = segments.pop
+        group_data = if segments.empty?
+                       @data
+                     else
+                       unless abs || root?
+                         segments = self.path + segments
+                       end
+                       get_group_at(segments, create_missing_groups: true)
+                     end
+        raise ArgumentError, "Unable to resolve path #{segments+[last]}" unless group_data
+        exist = group_data.has_key?(last)
+        elem = exist ? group_data[last] : nil
+        if val.nil?
+          group_data.delete(last) if exist
+          nil
+        elsif val.is_a?(::Hash)
+          raise ArgumentError, 'Cannot change existing value entry to group.' if exist && !elem.is_a?(::Hash)
+          elem  = group_data[last] = {} unless elem
+          group = Group.new(self, segments.dup.push(last), elem)
+          val.each_pair { |key, val| group.set(key, val) }
+          group
+        else
+          raise ArgumentError, 'Cannot change existing group to value entry.' if exist && elem.is_a?(::Hash)
+          group_data[last] = sanitize_value(val)
+        end
+      end
+
+      def to_s
+        SEPARATOR+self.path.join(SEPARATOR)
+      end
+
+      def to_h
+        @data
+      end
+
+      def get_path(path_str)
+        path_str = path_str.to_s
+        abs = path_str.start_with?(SEPARATOR)
+        segs = path_str.split(SEPARATOR)
+        segs.shift if abs
+        [segs, abs]
+      end
+      protected :get_path
+
+      def sanitize_value(val)
+        case val
+        when TrueClass, FalseClass, Numeric, String
+          val
+        else
+          if val.respond_to?(:to_int)
+            val.to_int
+          elsif val.respond_to?(:to_f)
+            val.to_f
+          else
+            val.to_s
+          end
+        end
+      end
+      protected :sanitize_value
+
+    end
+
+    class Group
+
+      include Interface
+
+      def initialize(parent, path, data)
+        @parent = parent
+        @path = path.freeze
+        @data = data
+      end
+
+      def root?
+        false
+      end
+
+      def root
+        @parent.root
+      end
+
+      def path
+        @path
+      end
+
+      def parent
+        @parent
+      end
+
+      def get_group_at(segments, create_missing_groups: false)
+        root.__send__(:get_group_at, segments)
+      end
+      protected :get_group_at
+
+    end
+
+    include Interface
+
+    def initialize(hash = nil)
+      @data = {}
+      replace(hash) if hash
+    end
+
+    def root?
+      true
+    end
+
+    def root
+      self
+    end
+
+    def path
+      []
+    end
+
+    def parent
+      nil
+    end
+
+    def replace(hash)
+      raise ArgumentError, 'Expected Hash' unless hash.is_a?(::Hash)
+      @data.clear
+      hash.each_pair { |k,v| self.set(k, v) }
+      self
+    end
+
+    def get_group_at(segments, create_missing_groups: false)
+      # prune segments (process relative segments)
+      segments = segments.inject([]) do |lst, seg|
+        case seg
+        when '..'
+          lst.pop # remove previous
+          # forget ..
+        when '.'
+          # forget
+        else
+          lst << seg
+        end
+        lst
+      end
+      # find group matching segments
+      segments.inject(@data) do |hsh, seg|
+        if hsh.has_key?(seg)
+          return nil unless hsh[seg].is_a?(::Hash)
+          hsh[seg]
+        else
+          return nil unless create_missing_groups
+          hsh[seg] = {}
+        end
+      end
+    end
+    protected :get_group_at
+
+  end
+
+end

data/lib/wx/core/controlwithitems.rb

@@ -1,5 +1,14 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # Superclass of a variety of controls that display lists of items (eg
 # Choice, ListBox, CheckListBox)
+
 class Wx::ControlWithItems
 
   # Make these Ruby enumerables so find, find_all, map etc are available
@@ -127,7 +136,9 @@ class Wx::ControlWithItems
     end
     wx_set.bind(self).call(items)
     client_data_store.clear
-    items.each_with_index { |item, ix| set_client_data(item, data[ix]) }
+    if data
+      items.each_with_index { |item, ix| set_client_data(item, data[ix]) }
+    end
   end
 
   wx_clear = instance_method :clear

data/lib/wx/core/cursor.rb

@@ -1,10 +1,20 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
 
 module Wx
 
-  def self.Cursor(name, bmp_type = nil, *rest)
-    art_path = File.dirname(caller_path = caller_locations(1).first.absolute_path || caller_locations(1).first.path)
-    art_owner = File.basename(caller_path, '.*')
-    art_file = ArtLocator.find_art(name, art_type: :icon, art_path: art_path, art_section: art_owner, bmp_type: bmp_type)
+  def self.Cursor(name, bmp_type = nil, *rest, art_path: nil, art_section: nil)
+    unless art_path && art_section
+      caller_path = caller_locations(1).first.absolute_path || caller_locations(1).first.path
+      art_path = File.dirname(caller_path) unless art_path
+      art_section = File.basename(caller_path, '.*') unless art_section
+    end
+    art_file = ArtLocator.find_art(name, art_type: :cursor, art_path: art_path, art_section: art_section, bmp_type: bmp_type)
     ::Kernel.raise ArgumentError, "Cannot locate art file for #{name}:Cursor" unless art_file
     Cursor.new(art_file, bmp_type || Wx::Bitmap::BITMAP_TYPE_GUESS[File.extname(art_file).sub(/\A\./,'')], *rest)
   end

data/lib/wx/core/data_object.rb

@@ -1,3 +1,10 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
 
 module Wx
 

data/lib/wx/core/dataformat.rb

@@ -1,5 +1,14 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # Make this easier to use for multi-typed data objects. Comparison
 # doesn't work correctly in the SWIG binding
+
 class Wx::DataFormat
   def ==(other)
     if self.get_type > Wx::DataFormatId::DF_INVALID

data/lib/wx/core/datetime.rb

@@ -0,0 +1,14 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
+module Wx
+
+  DEFAULT_DATE_TIME = nil
+  DefaultDateTime = DEFAULT_DATE_TIME
+
+end

data/lib/wx/core/dc.rb

@@ -1,3 +1,10 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
 
 module Wx
   # Class for drawing primitives and bitmaps on various outputs (screen, paper)

data/lib/wx/core/dialog.rb

@@ -1,8 +1,25 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # WxRuby Extensions - Dialog functors for wxRuby3
-# Copyright (c) M.J.N. Corino, The Netherlands
 
 class Wx::Dialog
 
+  class << self
+
+    wx_set_layout_adapter = instance_method :set_layout_adapter
+    define_method :set_layout_adapter do |adapter|
+      prev_adapter = wx_set_layout_adapter.bind(self).call(adapter)
+      @adapter = adapter # cache here to prevent premature GC collection
+    end
+
+  end
+
   module Functor
     def self.included(klass)
       scope = klass.name.split('::')

data/lib/wx/core/enum.rb

@@ -1,3 +1,10 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
 
 class Wx::Enum
 

data/lib/wx/core/event.rb

@@ -1,3 +1,10 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
 
 require_relative './evthandler'
 

data/lib/wx/core/event_blocker.rb

@@ -1,3 +1,10 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
 
 module Wx
 

data/lib/wx/core/event_loop.rb

@@ -1,3 +1,10 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
 
 module Wx
 

data/lib/wx/core/evthandler.rb

@@ -1,3 +1,11 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # All classes which are capable of handling events inherit from
 # EvtHandler. This includes all Wx::Window subclasses and Wx::App.
 

data/lib/wx/core/ext.rb

@@ -1,3 +1,10 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
 
 module Wx
 

data/lib/wx/core/file_dialog.rb

@@ -0,0 +1,23 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+#
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
+# WxRuby Extensions - Dialog functors for wxRuby3
+
+module Wx
+
+  class FileDialog
+
+    wx_set_customize_hook = instance_method :set_customize_hook
+    define_method :set_customize_hook do |hook|
+      wx_set_customize_hook.bind(self).call(hook)
+      @hook = hook # cache hook to prevent premature GC collection
+    end
+
+  end
+
+end

data/lib/wx/core/find_replace_dialog.rb

@@ -1,3 +1,10 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
 
 module Wx
 

data/lib/wx/core/functions.rb

@@ -1,3 +1,11 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # Tweaks to the global module functions
 
 module Wx

data/lib/wx/core/gauge.rb

@@ -1,12 +1,21 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # Gauge : presents a progress bar
 #
 # On the C++ side, the actual class name of wxGauge under Windows is
 # wxGauge95. So when a Gauge is loaded from XRC, and we try to wrap the
 # object in a ruby class by calling obj->ClassInfo()->ClassName(), it
 # seeks for a ruby class (Wx::Gauge95) that doesn't exist (see
-# swig/shared/get_ruby_object.i). 
+# swig/shared/get_ruby_object.i).
 #
 # To fix this, make Wx::Gauge95 an alias.
+
 if Wx::PLATFORM == 'WXMSW'
   Wx::Gauge95 = Wx::Gauge
 end

data/lib/wx/core/genericdirctrl.rb

@@ -1,4 +1,13 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # Bottom-up implementation of a Directory lister
+
 class Wx::GenericDirCtrl
   module DirCtrlTree 
     # The TreeCtrl contained in a GenericDirCtrl already has C++ data

data/lib/wx/core/hboxsizer.rb

@@ -1,6 +1,22 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # Just a shortcut version for creating a horizontal box sizer
+
 class Wx::HBoxSizer < Wx::BoxSizer
   def initialize
     super(Wx::HORIZONTAL)
   end
 end
+
+# Just a shortcut version for creating a horizontal wrap sizer
+class Wx::HWrapSizer < Wx::WrapSizer
+  def initialize(flags=Wx::WRAPSIZER_DEFAULT_FLAGS)
+    super(Wx::HORIZONTAL)
+  end
+end

data/lib/wx/core/helpcontroller.rb

@@ -1,3 +1,11 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 class Wx::HelpController
   def self.instance(*args)
     @instance ||= new(*args)

data/lib/wx/core/helpcontrollerhelpprovider.rb

@@ -1,5 +1,14 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # Pure-ruby implementation of the corresponding Wx class. Shows a
 # relevant section of help, if available, or a native popup
+
 require_relative './simplehelpprovider'
 
 class Wx::HelpControllerHelpProvider < Wx::SimpleHelpProvider

data/lib/wx/core/helpprovider.rb

@@ -1,5 +1,14 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+# 
+# Some parts are
+# Copyright 2004-2007, wxRuby development team
+# released under the MIT-like wxRuby2 license
+
 # Base class for providing context-sensitive help. The main definition
-# is in SWIG/C++ 
+# is in SWIG/C++
+
 class Wx::HelpProvider
   class << self
     # We need to protect the currently set HelpProvider from GC as it is a