wxruby3 0.9.0.pre.rc.3-x64-mingw-ucrt → 0.9.0-x64-mingw-ucrt

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/events/evt_list.rb

@@ -611,6 +611,12 @@ class Wx::EvtHandler
       Wx::EVT_SPIN_DOWN,
       Wx::SpinEvent
     ] if Wx.const_defined?(:EVT_SPIN_DOWN)
+  # from wxSpinDoubleEvent
+  self.register_event_type EventType[
+      'evt_spinctrldouble', 1,
+      Wx::EVT_SPINCTRLDOUBLE,
+      Wx::SpinDoubleEvent
+    ] if Wx.const_defined?(:EVT_SPINCTRLDOUBLE)
   # from wxFontPickerEvent
   self.register_event_type EventType[
       'evt_fontpicker_changed', 1,
@@ -781,6 +787,7 @@ class Wx::EvtHandler
       Wx::EVT_LIST_ITEM_UNCHECKED,
       Wx::ListEvent
     ] if Wx.const_defined?(:EVT_LIST_ITEM_UNCHECKED)
+  # from wxHeaderCtrlEvent
   # from wxSplitterEvent
   self.register_event_type EventType[
       'evt_splitter_sash_pos_changing', 1,
@@ -1187,6 +1194,8 @@ class Wx::EvtHandler
       Wx::CommandEvent
     ] if Wx.const_defined?(:EVT_COMBOBOX_CLOSEUP)
   # from wxBitmapComboBox
+  # from wxComboCtrl
+  # from wxOwnerDrawnComboBox
   # from wxRadioBox
   # from wxPanel
   # from wxNotebook
@@ -1223,6 +1232,7 @@ class Wx::EvtHandler
       Wx::EVT_SPINCTRL,
       Wx::SpinEvent
     ] if Wx.const_defined?(:EVT_SPINCTRL)
+  # from wxSpinCtrlDouble
   # from wxBitmapButton
   # from wxRadioButton
   # from wxToolBar
@@ -1293,6 +1303,72 @@ class Wx::EvtHandler
   # from wxDirPickerCtrl
   # from wxFilePickerCtrl
   # from wxListCtrl
+  # from wxHeaderCtrl
+  self.register_event_type EventType[
+      'evt_header_click', 1,
+      Wx::EVT_HEADER_CLICK,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_CLICK)
+  self.register_event_type EventType[
+      'evt_header_right_click', 1,
+      Wx::EVT_HEADER_RIGHT_CLICK,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_RIGHT_CLICK)
+  self.register_event_type EventType[
+      'evt_header_middle_click', 1,
+      Wx::EVT_HEADER_MIDDLE_CLICK,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_MIDDLE_CLICK)
+  self.register_event_type EventType[
+      'evt_header_dclick', 1,
+      Wx::EVT_HEADER_DCLICK,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_DCLICK)
+  self.register_event_type EventType[
+      'evt_header_right_dclick', 1,
+      Wx::EVT_HEADER_RIGHT_DCLICK,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_RIGHT_DCLICK)
+  self.register_event_type EventType[
+      'evt_header_middle_dclick', 1,
+      Wx::EVT_HEADER_MIDDLE_DCLICK,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_MIDDLE_DCLICK)
+  self.register_event_type EventType[
+      'evt_header_separator_dclick', 1,
+      Wx::EVT_HEADER_SEPARATOR_DCLICK,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_SEPARATOR_DCLICK)
+  self.register_event_type EventType[
+      'evt_header_begin_resize', 1,
+      Wx::EVT_HEADER_BEGIN_RESIZE,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_BEGIN_RESIZE)
+  self.register_event_type EventType[
+      'evt_header_resizing', 1,
+      Wx::EVT_HEADER_RESIZING,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_RESIZING)
+  self.register_event_type EventType[
+      'evt_header_end_resize', 1,
+      Wx::EVT_HEADER_END_RESIZE,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_END_RESIZE)
+  self.register_event_type EventType[
+      'evt_header_begin_reorder', 1,
+      Wx::EVT_HEADER_BEGIN_REORDER,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_BEGIN_REORDER)
+  self.register_event_type EventType[
+      'evt_header_end_reorder', 1,
+      Wx::EVT_HEADER_END_REORDER,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_END_REORDER)
+  self.register_event_type EventType[
+      'evt_header_dragging_cancelled', 1,
+      Wx::EVT_HEADER_DRAGGING_CANCELLED,
+      Wx::HeaderCtrlEvent
+    ] if Wx.const_defined?(:EVT_HEADER_DRAGGING_CANCELLED)
   # from wxSplitterWindow
   self.register_event_type EventType[
       'evt_splitter_sash_pos_resize', 1,

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