wxruby3 0.9.2 → 0.9.3

data/samples/widgets/hyperlink.rb

@@ -0,0 +1,203 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+#
+# Adapted for wxRuby from wxWidgets widgets sample
+# Copyright (c) 2001 Vadim Zeitlin
+
+module Widgets
+
+  module Hyperlink
+
+    class HyperlinkPage < Widgets::Page
+
+      module ID
+        include Wx::IDHelper
+
+        Reset = self.next_id(Widgets::Frame::ID::Last)
+        SetLabel = self.next_id
+        SetURL = self.next_id
+        Ctrl = self.next_id
+
+        Align_Left = 0
+        Align_Centre = 1
+        Align_Right = 2
+        Align_Max = 3
+      end
+
+      def initialize(book, images)
+        super(book, images, :hyperlnk)
+      end
+
+      Info = Widgets::PageInfo.new(self, 'Hyperlink', GENERIC_CTRLS)
+
+      def get_widget
+        @hyperlink
+      end
+      def recreate_widget
+        create_hyperlink
+      end
+  
+      # lazy creation of the content
+      def create_content
+        sizerTop = Wx::HBoxSizer.new
+    
+        # left pane
+        sizerLeft = Wx::StaticBoxSizer.new(Wx::VERTICAL, self, 'Hyperlink details')
+        sizerLeftBox = sizerLeft.get_static_box
+    
+        szr, @label = create_sizer_with_text_and_button(ID::SetLabel,'Set &Label', Wx::ID_ANY, sizerLeftBox)
+        sizerLeft.add(szr, 0, Wx::ALL | Wx::ALIGN_RIGHT, 5)
+    
+        szr, @url = create_sizer_with_text_and_button(ID::SetURL,'Set &URL', Wx::ID_ANY, sizerLeftBox)
+        sizerLeft.add(szr, 0, Wx::ALL | Wx::ALIGN_RIGHT, 5)
+    
+        alignments = %w{&left &centre &right}
+    
+        @radioAlignMode = Wx::RadioBox.new(sizerLeftBox, Wx::ID_ANY, 'alignment',
+                                           choices: alignments)
+        @radioAlignMode.set_selection(1)  # start with "centre" selected since
+                                          # wxHL_DEFAULT_STYLE contains wxHL_ALIGN_CENTRE
+        sizerLeft.add(@radioAlignMode, 0, Wx::ALL|Wx::GROW, 5)
+    
+        # right pane
+        szHyperlinkLong = Wx::VBoxSizer.new
+        szHyperlink = Wx::HBoxSizer.new
+    
+        @visit = Wx::StaticText.new(self, Wx::ID_ANY, 'Visit ')
+    
+        @hyperlink = Wx::HyperlinkCtrl.new(self,
+                                           ID::Ctrl,
+                                           'wxRuby website',
+                                           'www.github.com/mcorino/wxRuby3')
+    
+        @fun = Wx::StaticText.new(self, Wx::ID_ANY, " for fun!")
+    
+        szHyperlink.add(0, 0, 1, Wx::CENTRE)
+        szHyperlink.add(@visit, 0, Wx::CENTRE)
+        szHyperlink.add(@hyperlink, 0, Wx::CENTRE)
+        szHyperlink.add(@fun, 0, Wx::CENTRE)
+        szHyperlink.add(0, 0, 1, Wx::CENTRE)
+        szHyperlink.set_min_size(150, 0)
+    
+        @hyperlinkLong = Wx::HyperlinkCtrl.new(self,
+                                               Wx::ID_ANY,
+                                               'This is a long hyperlink',
+                                               'www.github.com/mcorino/wxRuby3')
+
+        szHyperlinkLong.add(0, 0, 1, Wx::CENTRE)
+        szHyperlinkLong.add(szHyperlink, 0, Wx::CENTRE|Wx::GROW)
+        szHyperlinkLong.add(0, 0, 1, Wx::CENTRE)
+        szHyperlinkLong.add(@hyperlinkLong, 0, Wx::GROW)
+        szHyperlinkLong.add(0, 0, 1, Wx::CENTRE)
+    
+    
+        # the 3 panes panes compose the window
+        sizerTop.add(sizerLeft, 0, (Wx::ALL & ~Wx::LEFT), 10)
+        sizerTop.add(szHyperlinkLong, 1, Wx::GROW | (Wx::ALL & ~Wx::RIGHT), 10)
+    
+        # final initializations
+        reset
+    
+        set_sizer(sizerTop)
+
+        # connect event handlers
+        evt_button(ID::Reset, :on_button_reset)
+        evt_button(ID::SetLabel, :on_button_set_label)
+        evt_button(ID::SetURL, :on_button_set_url)
+    
+        evt_radiobox(Wx::ID_ANY, :on_alignment)
+      end
+  
+      protected
+      
+      # event handlers
+      def on_button_set_label(_event)
+        @hyperlink.set_label(@label.value)
+        create_hyperlink
+      end
+
+      def on_button_set_url(_event)
+        @hyperlink.set_url(@url.value)
+        create_hyperlink
+      end
+  
+      def on_button_reset(_event)
+        reset
+
+        create_hyperlink
+      end
+
+      def on_alignment(_event)
+        case @radioAlignMode.selection
+        when ID::Align_Left
+          addstyle = Wx::HL_ALIGN_LEFT
+        when ID::Align_Centre
+          addstyle = Wx::HL_ALIGN_CENTRE
+        when ID::Align_Right
+          addstyle = Wx::HL_ALIGN_RIGHT
+        else
+          ::Kernel.raise RuntimeError, 'unknown alignment'
+        end
+    
+        create_hyperlink_long(addstyle)
+      end
+
+      # reset the control parameters
+      def reset
+        @label.set_value(@hyperlink.label)
+        @url.set_value(@hyperlink.url)
+      end
+  
+      # (re)create the hyperlinkctrl
+      def create_hyperlink
+        label = @hyperlink.label
+        url = @hyperlink.url
+        style = get_attrs.default_flags
+    
+        style |= Wx::HL_DEFAULT_STYLE & ~Wx::BORDER_MASK
+    
+        hyp = Wx::HyperlinkCtrl.new(self,
+                                    ID::Ctrl,
+                                    label,
+                                    url,
+                                    style: style)
+
+        # update sizer's child window
+        get_sizer.replace(@hyperlink, hyp, true)
+    
+        # update our pointer
+        @hyperlink.destroy
+        @hyperlink = hyp
+    
+        # re-layout the sizer
+        get_sizer.layout
+      end
+
+      def create_hyperlink_long(align)
+        style = get_attrs.default_flags
+        style |= align
+        style |= Wx::HL_DEFAULT_STYLE & ~(Wx::HL_ALIGN_CENTRE | Wx::BORDER_MASK)
+    
+        hyp = Wx::HyperlinkCtrl.new(self,
+                                    Wx::ID_ANY,
+                                    'This is a long hyperlink',
+                                    'www.github.com/mcorino/wxRuby3',
+                                    style: style)
+
+        # update sizer's child window
+        get_sizer.replace(@hyperlinkLong, hyp, true)
+    
+        # update our pointer
+        @hyperlinkLong.destroy
+        @hyperlinkLong = hyp
+    
+        # re-layout the sizer
+        get_sizer.layout
+      end
+      
+    end
+
+  end
+
+end

data/samples/widgets/itemcontainer.rb

@@ -0,0 +1,185 @@
+# Copyright (c) 2023 M.J.N. Corino, The Netherlands
+#
+# This software is released under the MIT license.
+#
+# Adapted for wxRuby from wxWidgets widgets sample
+# Copyright (c) 2001 Vadim Zeitlin
+
+module Widgets
+
+  module ItemContainer
+
+    class Page < Widgets::Page
+
+      # Help track client data objects in wxItemContainer instances.
+      class TrackedClientData
+        def initialize(tracker, value)
+          @tracker = tracker
+          @value = value
+          @tracker.__send__(:start_tracking_data)
+        end
+
+        def client_data_unlinked
+          @tracker.__send__(:stop_tracking_data)
+        end
+
+        def get_value
+          @value
+        end
+      end
+
+      def initialize(book, images, icon)
+        super(book, images, icon)
+        @trackedDataObjects = 0
+        @items = %w[This is a List of strings]
+        @container = nil
+      end
+
+      def on_button_test_item_container(event)
+        @container = get_container
+        ::Kernel.raise RuntimeError, 'Widget must have a test widget' unless @container
+
+        Wx.log_message('wxItemContainer test for %s, %s:',
+                       get_widget.class.name,
+                       @container.is_sorted ? 'Sorted' : 'Unsorted')
+    
+        expected_result = @container.sorted? ? self.sorted_items : @items
+    
+        start_test('Append one item')
+        item = @items.first
+        @container.append(item)
+        end_test([item])
+    
+        start_test("Append some items")
+        @container.append(@items)
+        end_test(expected_result)
+    
+        start_test('Append some items with data')
+        objects = []
+        @items.size.times { |i| objects << create_client_data(i) }
+        @container.append(@items, objects)
+        end_test(expected_result)
+        objects = nil
+    
+        start_test('Append some items with data, one by one')
+        @items.each_with_index { |item, i| @container.append(item, create_client_data(i)) }
+        end_test(expected_result)
+    
+        unless @container.sorted?
+          start_test('Insert in reverse order with data, one by one')
+          @items.reverse.each_with_index do |item, i|
+            @container.insert(item, 0, create_client_data(@items.size-(i+1)))
+          end
+          end_test(expected_result)
+        end
+      end
+
+      def get_container
+        ::Kernel.raise NotImplementedError
+      end
+
+      private
+
+      def start_test(label)
+        @container.clear
+        Wx.log_message("Test - #{label}:")
+      end
+
+      def end_test(items)
+        count = @container.count
+    
+        ok = (count == items.size)
+        ::Kernel.raise RuntimeError, 'Item count does not match.' unless ok
+
+        count.times do |i|
+          str = @container.get_string(i)
+          if str != items[i]
+            Wx.log_error("Wrong string \"#{str}\" at position #{i} (expected \"#{items[i]}\")")
+            ok = false
+            break
+          end
+
+          if @container.has_client_data?
+            data = @container.get_client_data(i)
+            if data && !verify_client_data(data.get_value, str)
+              ok = false
+              break
+            end
+          end
+        end
+
+        Wx.log_message(dump_container_data(items)) unless ok
+
+        @container.clear
+        ok &= verify_all_client_data_destroyed
+    
+        Wx.log_message("...%s", ok ? "passed" : "failed")
+      end
+
+      # Track client data in wxItemContainer instances
+      def create_client_data(value)
+        TrackedClientData.new(self, value)
+      end
+
+      def  start_tracking_data
+        @trackedDataObjects += 1
+      end
+
+      def stop_tracking_data
+        @trackedDataObjects -= 1
+      end
+
+      def verify_all_client_data_destroyed
+        if @trackedDataObjects > 0
+          message = 'Bug in managing wxClientData: '
+          if @trackedDataObjects > 0
+            message << @trackedDataObjects.to_s << ' lost objects'
+          else
+            message << (-@trackedDataObjects).to_s << ' extra deletes'
+          end
+          ::Kernel.raise RuntimeError, message
+        else
+          true
+        end
+      end
+
+      def verify_client_data(i, str)
+        if i > @items.size || @items[i] != str
+          Wx.log_error("Client data for '%s' does not match.", str)
+          false
+        else
+          true
+        end
+      end
+
+      def dump_container_data(expected)
+        str = "Current content:\n"
+
+        @container.each_string.each_with_index do |s, i|
+          str << " - " << s << " ["
+          if @container.has_client_data?
+              data = @container.get_client_data(i)
+              str << data.get_value.to_s if data
+          end
+          str << "]\n"
+        end
+
+        str << "Expected content:\n"
+        expected.each do |item|
+          str << " - " << item << "["
+          str << @items.find_index(item).to_s
+          str << "]\n"
+        end
+
+        return str
+      end
+
+      def sorted_items
+        @items.sort { |a,b| a.casecmp(b) }
+      end
+
+    end
+
+  end
+
+end