wxruby3 0.9.2 → 0.9.4

data/samples/widgets/editlbox.rb

@@ -0,0 +1,122 @@
+# 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 EditableListBox
+
+    class EditableListBoxPage < Widgets::Page
+
+      module ID
+        include Wx::IDHelper
+
+        Reset = self.next_id(Widgets::Frame::ID::Last)
+        Listbox = self.next_id
+        ContainerTests = self.next_id
+      end
+
+      def initialize(book, images)
+        super(book, images, :listbox)
+      end
+
+      Info = Widgets::PageInfo.new(self, 'EditableListbox', GENERIC_CTRLS)
+
+      def get_widget
+        @lbox.get_list_ctrl
+      end
+      def recreate_widget
+        create_lbox
+      end
+  
+      # lazy creation of the content
+      def create_content
+        # What we create here is a frame having 2 panes: style pane is the
+        # leftmost one and the pane containing the listbox itself to the right
+        sizerTop = Wx::HBoxSizer.new
+    
+        # left pane
+        sizerLeft = Wx::StaticBoxSizer.new(Wx::VERTICAL, self, '&Set listbox parameters')
+        sizerLeftBox = sizerLeft.get_static_box
+    
+        @chkAllowNew = create_check_box_and_add_to_sizer(sizerLeft, 'Allow new items', Wx::ID_ANY, sizerLeftBox)
+        @chkAllowEdit = create_check_box_and_add_to_sizer(sizerLeft, 'Allow editing items', Wx::ID_ANY, sizerLeftBox)
+        @chkAllowDelete = create_check_box_and_add_to_sizer(sizerLeft, 'Allow deleting items', Wx::ID_ANY, sizerLeftBox)
+        @chkAllowNoReorder = create_check_box_and_add_to_sizer(sizerLeft, 'Block user reordering', Wx::ID_ANY, sizerLeftBox)
+    
+        btn = Wx::Button.new(sizerLeftBox, ID::Reset, '&Reset')
+        sizerLeft.add(btn, 0, Wx::ALIGN_CENTRE_HORIZONTAL | Wx::ALL, 15)
+    
+        # right pane
+        sizerRight = Wx::VBoxSizer.new
+        @lbox = Wx::EditableListBox.new(self, ID::Listbox,
+                                        'Match these wildcards:',
+                                        style: 0)
+        sizerRight.add(@lbox, 1, Wx::GROW | Wx::ALL, 5)
+        sizerRight.set_min_size(150, 0)
+        @sizerLbox = sizerRight # save it to modify it later
+    
+        # the 3 panes panes compose the window
+        sizerTop.add(sizerLeft, 0, Wx::GROW | (Wx::ALL & ~Wx::LEFT), 10)
+        sizerTop.add(sizerRight, 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_checkbox(Wx::ID_ANY, :on_check_box)
+      end
+  
+      protected
+
+      # event handlers
+      def on_button_reset(event)
+        reset
+
+        create_lbox
+      end
+
+      def on_check_box(event)
+        create_lbox
+      end
+  
+      # reset the listbox parameters
+      def reset
+        @chkAllowNew.set_value(false)
+        @chkAllowEdit.set_value(false)
+        @chkAllowDelete.set_value(false)
+        @chkAllowNoReorder.set_value(false)
+      end
+  
+      # (re)create the listbox
+      def create_lbox
+        flags = get_attrs.default_flags
+
+        flags |= Wx::EL_ALLOW_NEW if @chkAllowNew.value
+        flags |= Wx::EL_ALLOW_EDIT if @chkAllowEdit.value
+        flags |= Wx::EL_ALLOW_DELETE if @chkAllowDelete.value
+        flags |= Wx::EL_NO_REORDER if @chkAllowNoReorder.value
+    
+        items = @lbox ? @lbox.get_strings : []
+        @lbox.destroy if @lbox
+
+        @lbox = Wx::EditableListBox.new(self, ID::Listbox,
+                                        'Match these wildcards:',
+                                        style: flags)
+    
+        @lbox.set_strings(items)
+        @sizerLbox.add(@lbox, 1, Wx::GROW | Wx::ALL, 5)
+        @sizerLbox.layout
+      end
+      
+    end
+
+  end
+
+end

data/samples/widgets/filectrl.rb

@@ -0,0 +1,216 @@
+# 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
+
+require 'date'
+
+module Widgets
+
+  module FileCtrl
+
+    class FileCtrlPage < Widgets::Page
+
+      module ID
+        include Wx::IDHelper
+
+        Reset = self.next_id(Widgets::Frame::ID::Last)
+        SetDirectory = self.next_id
+        SetPath = self.next_id
+        SetFilename = self.next_id
+        Ctrl = self.next_id
+
+        FileCtrlMode_Open = 0
+        FileCtrlMode_Save = 1
+      end
+
+      def initialize(book, images)
+        super(book, images, :dirctrl)
+      end
+
+      Info = Widgets::PageInfo.new(self, 'FileCtrl',
+                                   if Wx::PLATFORM == 'WXGTK'
+                                     NATIVE_CTRLS
+                                   else
+                                     GENERIC_CTRLS
+                                   end)
+
+      def get_widget
+        @fileCtrl
+      end
+      def recreate_widget 
+        create_file_ctrl
+      end
+  
+      # lazy creation of the content
+      def create_content
+        sizerTop = Wx::HBoxSizer.new
+    
+        # left pane
+        sizerLeft = Wx::VBoxSizer.new
+    
+        mode = %w{open save}
+        @radioFileCtrlMode = Wx::RadioBox.new(self, Wx::ID_ANY, 'wxFileCtrl mode',
+                                              choices: mode)
+    
+        sizerLeft.add(@radioFileCtrlMode,
+                        0, Wx::ALL | Wx::EXPAND , 5)
+
+        szr, @dir = create_sizer_with_text_and_button(ID::SetDirectory ,'Set &directory', Wx::ID_ANY)
+        sizerLeft.add(szr, 0, Wx::ALL | Wx::EXPAND, 5)
+        szr, @path = create_sizer_with_text_and_button(ID::SetPath,'Set &path', Wx::ID_ANY)
+        sizerLeft.add(szr, 0, Wx::ALL | Wx::EXPAND, 5)
+        szr, @filename = create_sizer_with_text_and_button(ID::SetFilename,'Set &filename', Wx::ID_ANY)
+        sizerLeft.add(szr, 0, Wx::ALL | Wx::EXPAND, 5)
+    
+        sizerFlags = Wx::StaticBoxSizer.new(Wx::VERTICAL, self, '&Flags')
+        sizerFlagsBox = sizerFlags.get_static_box
+    
+        @chkMultiple = create_check_box_and_add_to_sizer(sizerFlags,'Wx::FC_MULTIPLE', Wx::ID_ANY, sizerFlagsBox)
+        @chkNoShowHidden = create_check_box_and_add_to_sizer(sizerFlags,'Wx::FC_NOSHOWHIDDEN', Wx::ID_ANY, sizerFlagsBox)
+        sizerLeft.add(sizerFlags, Wx::SizerFlags.new.expand.border)
+    
+        sizerFilters = Wx::StaticBoxSizer.new(Wx::VERTICAL, self, '&Filters')
+        sizerFiltersBox = sizerFilters.get_static_box
+
+        @fltr = []
+        @fltr << create_check_box_and_add_to_sizer(sizerFilters,
+                                                   "all files (#{Wx::FILE_SELECTOR_DEFAULT_WILDCARD_STR})|#{Wx::FILE_SELECTOR_DEFAULT_WILDCARD_STR}",
+                                                   Wx::ID_ANY, sizerFiltersBox)
+        @fltr << create_check_box_and_add_to_sizer(sizerFilters,"Ruby files (*.rb *.rbw)|*.rb;*.rbw", Wx::ID_ANY, sizerFiltersBox)
+        @fltr << create_check_box_and_add_to_sizer(sizerFilters,"PNG images (*.png)|*.png", Wx::ID_ANY, sizerFiltersBox)
+        sizerLeft.add(sizerFilters, Wx::SizerFlags.new.expand.border)
+    
+        btn = Wx::Button.new(self, ID::Reset, '&Reset')
+        sizerLeft.add(btn, 0, Wx::ALIGN_CENTRE_HORIZONTAL | Wx::ALL, 15)
+    
+        # right pane
+        @fileCtrl = Wx::FileCtrl.new(self,
+                                     ID::Ctrl,
+                                     '',
+                                     '',
+                                     '',
+                                     style: Wx::FC_OPEN)
+
+        # the 3 panes panes compose the window
+        sizerTop.add(sizerLeft, 0, (Wx::ALL & ~Wx::LEFT), 10)
+        sizerTop.add(@fileCtrl, 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::SetDirectory, :on_button_set_directory)
+        evt_button(ID::SetPath, :on_button_set_path)
+        evt_button(ID::SetFilename, :on_button_set_filename)
+        evt_checkbox(Wx::ID_ANY, :on_check_box)
+        evt_radiobox(Wx::ID_ANY, :on_switch_mode)
+    
+        evt_filectrl_filterchanged(Wx::ID_ANY, :on_file_ctrl)
+        evt_filectrl_folderchanged(Wx::ID_ANY, :on_file_ctrl)
+        evt_filectrl_selectionchanged(Wx::ID_ANY, :on_file_ctrl)
+        evt_filectrl_fileactivated(Wx::ID_ANY, :on_file_ctrl)
+      end
+  
+      protected
+      
+      # event handlers
+      def on_button_set_directory(_event)
+        @fileCtrl.set_directory(@dir.value)
+      end
+
+      def on_button_set_path(_event)
+        @fileCtrl.set_path(@path.value)
+      end
+
+      def on_button_set_filename(_event)
+        @fileCtrl.set_filename(@filename.value)
+      end
+
+      def on_button_reset(_event)
+        reset
+
+        create_file_ctrl
+      end
+
+      def on_check_box(_event)
+        create_file_ctrl
+      end
+
+      def on_switch_mode(_event)
+        create_file_ctrl
+      end
+
+      def on_file_ctrl(event)
+        if event.get_event_type == Wx::EVT_FILECTRL_FOLDERCHANGED
+          Wx.log_message("Folder changed event, new folder: %s", event.directory)
+        elsif event.get_event_type == Wx::EVT_FILECTRL_FILEACTIVATED
+          Wx.log_message("File activated event: %s", event.files.join(' '))
+        elsif event.get_event_type == Wx::EVT_FILECTRL_SELECTIONCHANGED
+          Wx.log_message("Selection changed event: %s", event.files.join(' '))
+        elsif event.get_event_type == Wx::EVT_FILECTRL_FILTERCHANGED
+          Wx.log_message("Filter changed event: filter %d selected", event.filter_index + 1)
+        end
+      end
+  
+      # reset the control parameters
+      def reset
+        @dir.set_value(@fileCtrl.directory)
+        @radioFileCtrlMode.set_selection(Wx::FC_DEFAULT_STYLE.allbits?(Wx::FC_OPEN) ? ID::FileCtrlMode_Open : ID::FileCtrlMode_Save)
+      end
+  
+      # (re)create the m_fileCtrl
+      def create_file_ctrl
+        Wx::WindowUpdateLocker.update(self) do
+
+          style = get_attrs.default_flags
+
+          if @radioFileCtrlMode.selection == ID::FileCtrlMode_Open
+            style |= Wx::FC_OPEN
+            @chkMultiple.enable
+            style |= Wx::FC_MULTIPLE if @chkMultiple.is_checked
+          else
+            style |= Wx::FC_SAVE
+            # wxFC_SAVE is incompatible with wxFC_MULTIPLE
+            @chkMultiple.set_value(false)
+            @chkMultiple.enable(false)
+          end
+
+          style |= Wx::FC_NOSHOWHIDDEN if @chkNoShowHidden.is_checked
+
+          fileCtrl = Wx::FileCtrl.new(self,
+                                      ID::Ctrl,
+                                      wildcard: '',
+                                      style: style)
+
+          wildcard = @fltr.inject('') do |s, f|
+            if f.checked?
+              s << '|' unless s.empty?
+              s << f.label
+            end
+            s
+          end
+          fileCtrl.set_wildcard(wildcard)
+
+          # update sizer's child window
+          get_sizer.replace(@fileCtrl, fileCtrl, true)
+
+          # update our pointer
+          @fileCtrl.destroy
+          @fileCtrl = fileCtrl
+
+          # re-layout the sizer
+          get_sizer.layout
+        end
+      end
+
+    end
+
+  end
+
+end

data/samples/widgets/filepicker.rb

@@ -0,0 +1,214 @@
+# 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
+
+require 'date'
+
+module Widgets
+
+  module FilePicker
+
+    class FilePickerPage < Widgets::Page
+
+      module ID
+        include Wx::IDHelper
+
+        Reset = self.next_id(Widgets::Frame::ID::Last)
+        File = self.next_id
+        SetDir = self.next_id
+        CurrentPath = self.next_id
+
+
+        Mode_Open = 0
+        Mode_Save = 1
+      end
+
+      def initialize(book, images)
+        super(book, images, :filepicker)
+      end
+
+      Info = Widgets::PageInfo.new(self, 'FilePicker',
+                                   if Wx::PLATFORM == 'WXGTK'
+                                     NATIVE_CTRLS
+                                   else
+                                     GENERIC_CTRLS
+                                   end | PICKER_CTRLS)
+
+      def get_widget
+        @filePicker
+      end
+      def recreate_widget
+        recreate_picker
+      end
+  
+      # lazy creation of the content
+      def create_content
+        # left pane
+        leftSizer = Wx::VBoxSizer.new
+    
+        mode = %w{open save}
+        @radioFilePickerMode = Wx::RadioBox.new(self, Wx::ID_ANY, 'wxFilePicker mode',
+                                                choices: mode)
+        leftSizer.add(@radioFilePickerMode, 0, Wx::ALL|Wx::GROW, 5)
+    
+        styleSizer = Wx::StaticBoxSizer.new(Wx::VERTICAL, self, '&FilePicker style')
+        styleSizerBox = styleSizer.get_static_box
+    
+        @chkFileTextCtrl = create_check_box_and_add_to_sizer(styleSizer, 'With textctrl', Wx::ID_ANY, styleSizerBox)
+        @chkFileOverwritePrompt = create_check_box_and_add_to_sizer(styleSizer, 'Overwrite prompt', Wx::ID_ANY, styleSizerBox)
+        @chkFileMustExist = create_check_box_and_add_to_sizer(styleSizer, 'File must exist', Wx::ID_ANY, styleSizerBox)
+        @chkFileChangeDir = create_check_box_and_add_to_sizer(styleSizer, 'Change working dir', Wx::ID_ANY, styleSizerBox)
+        @chkSmall = create_check_box_and_add_to_sizer(styleSizer, '&Small version', Wx::ID_ANY, styleSizerBox)
+    
+        leftSizer.add(styleSizer, 0, Wx::ALL|Wx::GROW, 5)
+
+        szr, @textInitialDir = create_sizer_with_text_and_button(ID::SetDir,
+                                                                 '&Initial directory',
+                                                                 Wx::ID_ANY)
+        leftSizer.add(szr, Wx::SizerFlags.new.expand.border)
+    
+        leftSizer.add_spacer(10)
+    
+        leftSizer.add(Wx::Button.new(self, ID::Reset, '&Reset'),
+                      0, Wx::ALIGN_CENTRE_HORIZONTAL | Wx::ALL, 15)
+    
+        reset    # set checkboxes state
+    
+        # create the picker and the static text displaying its current value
+        @labelPath = Wx::StaticText.new(self, ID::CurrentPath, '')
+    
+        @filePicker = nil
+        create_picker
+    
+        # right pane
+        @sizer = Wx::VBoxSizer.new
+        @sizer.add_stretch_spacer
+        @sizer.add(@filePicker, Wx::SizerFlags.new.expand.border)
+        @sizer.add_stretch_spacer
+        @sizer.add(@labelPath, Wx::SizerFlags.new.expand.border)
+        @sizer.add_stretch_spacer
+    
+        # global pane
+        sz = Wx::HBoxSizer.new
+        sz.add(leftSizer, 0, Wx::GROW|Wx::ALL, 5)
+        sz.add(@sizer, 1, Wx::GROW|Wx::ALL, 5)
+    
+        set_sizer(sz)
+
+        # connect event handlers
+        evt_button(ID::Reset, :on_button_reset)
+        evt_button(ID::SetDir, :on_button_set_dir)
+    
+        evt_filepicker_changed(ID::File, :on_file_change)
+    
+        evt_checkbox(Wx::ID_ANY, :on_check_box)
+        evt_radiobox(Wx::ID_ANY, :on_check_box)
+    
+        evt_update_ui(ID::CurrentPath, :on_update_path)
+      end
+  
+      protected
+  
+      # called only once at first construction
+      def create_picker
+        @filePicker.destroy if @filePicker
+    
+        style = get_attrs.default_flags
+
+        style |= Wx::FLP_USE_TEXTCTRL if @chkFileTextCtrl.value
+        style |= Wx::FLP_OVERWRITE_PROMPT if @chkFileOverwritePrompt.value
+        style |= Wx::FLP_FILE_MUST_EXIST if @chkFileMustExist.value
+        style |= Wx::FLP_CHANGE_DIR if @chkFileChangeDir.value
+        style |= Wx::FLP_SMALL if @chkSmall.value
+        if @radioFilePickerMode.selection == ID::Mode_Open
+          style |= Wx::FLP_OPEN
+        else
+          style |= Wx::FLP_SAVE
+        end
+    
+        # pass an empty string as initial file
+        @filePicker = Wx::FilePickerCtrl.new(self, ID::File,
+                                             message: 'Hello!',
+                                             wildcard: '*',
+                                             style: style)
+      end
+  
+      # called to recreate an existing control
+      def recreate_picker
+        @sizer.remove(1)
+        create_picker
+        @sizer.insert(1, @filePicker, 0, Wx::EXPAND|Wx::ALL, 5)
+    
+        @sizer.layout
+      end
+  
+      # restore the checkboxes state to the initial values
+      def reset
+        @radioFilePickerMode.set_selection(Wx::FLP_DEFAULT_STYLE.allbits?(Wx::FLP_OPEN) ?
+                                             ID::Mode_Open : ID::Mode_Save)
+        @chkFileTextCtrl.set_value(Wx::FLP_DEFAULT_STYLE.allbits?(Wx::FLP_USE_TEXTCTRL))
+        @chkFileOverwritePrompt.set_value(Wx::FLP_DEFAULT_STYLE.allbits?(Wx::FLP_OVERWRITE_PROMPT))
+        @chkFileMustExist.set_value(Wx::FLP_DEFAULT_STYLE.allbits?(Wx::FLP_FILE_MUST_EXIST))
+        @chkFileChangeDir.set_value(Wx::FLP_DEFAULT_STYLE.allbits?(Wx::FLP_CHANGE_DIR))
+        @chkSmall.set_value(Wx::FLP_DEFAULT_STYLE.allbits?(Wx::FLP_SMALL))
+    
+        update_file_picker_mode
+      end
+  
+      # update filepicker radiobox
+      def update_file_picker_mode
+        case @radioFilePickerMode.selection
+        when ID::Mode_Open
+          @chkFileOverwritePrompt.set_value(false)
+          @chkFileOverwritePrompt.disable
+          @chkFileMustExist.enable
+        when ID::Mode_Save
+          @chkFileMustExist.set_value(false)
+          @chkFileMustExist.disable
+          @chkFileOverwritePrompt.enable
+        end
+      end
+  
+      # the pickers and the relative event handlers
+      def on_file_change(event)
+        Wx.log_message("The file changed to '%s' ! The current working directory is '%s'",
+                       event.path, Dir.getwd)
+      end
+      
+      def on_check_box(event)
+        if event.event_object == @chkFileTextCtrl ||
+           event.event_object == @chkFileOverwritePrompt ||
+           event.event_object == @chkFileMustExist ||
+           event.event_object == @chkFileChangeDir ||
+           event.event_object == @chkSmall
+          recreate_picker
+        elsif event.event_object == @radioFilePickerMode
+          update_file_picker_mode
+          recreate_picker
+        end
+      end
+      
+      def on_button_reset(_event)
+        reset
+
+        recreate_picker
+      end
+      
+      def on_button_set_dir(_event)
+        dir = @textInitialDir.value
+        @filePicker.set_initial_directory(dir)
+        Wx.log_message("Initial directory set to \"#{dir}\"")
+      end
+      
+      def on_update_path(event)
+        event.set_text('Current path: ' + @filePicker.path)
+      end
+      
+    end
+
+  end
+
+end

data/samples/widgets/fontpicker.rb

@@ -0,0 +1,135 @@
+# 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
+
+require 'date'
+
+module Widgets
+
+  module FontPicker
+
+    class FontPickerPage < Widgets::Page
+
+      module ID
+        include Wx::IDHelper
+
+        Reset = self.next_id(Widgets::Frame::ID::Last)
+        Font = self.next_id
+      end
+
+      def initialize(book, images)
+        super(book, images, :fontpicker)
+      end
+
+      Info = Widgets::PageInfo.new(self, 'FontPicker',
+                                   if Wx::PLATFORM == 'WXGTK'
+                                     NATIVE_CTRLS
+                                   else
+                                     GENERIC_CTRLS
+                                   end | PICKER_CTRLS)
+
+      def get_widget
+        @fontPicker
+      end
+      def recreate_widget
+        recreate_picker
+      end
+  
+      # lazy creation of the content
+      def create_content
+        # left pane
+        leftSizer = Wx::VBoxSizer.new
+        styleSizer = Wx::StaticBoxSizer.new(Wx::VERTICAL, self, '&FontPicker style')
+        styleSizerBox = styleSizer.get_static_box
+    
+        @chkFontTextCtrl = create_check_box_and_add_to_sizer(styleSizer, 'With textctrl', Wx::ID_ANY, styleSizerBox)
+        @chkFontDescAsLabel = create_check_box_and_add_to_sizer(styleSizer, 'Font desc as btn label', Wx::ID_ANY, styleSizerBox)
+        @chkFontUseFontForLabel = create_check_box_and_add_to_sizer(styleSizer, 'Use font for label', Wx::ID_ANY, styleSizerBox)
+        leftSizer.add(styleSizer, 0, Wx::ALL|Wx::GROW, 5)
+    
+        leftSizer.add(Wx::Button.new(self, ID::Reset, '&Reset'),
+                      0, Wx::ALIGN_CENTRE_HORIZONTAL | Wx::ALL, 15)
+    
+        reset    # set checkboxes state
+    
+        # create pickers
+        @fontPicker = nil
+        create_picker
+    
+        # right pane
+        @sizer = Wx::VBoxSizer.new
+        @sizer.add(1, 1, 1, Wx::GROW | Wx::ALL, 5) # spacer
+        @sizer.add(@fontPicker, 0, Wx::ALIGN_CENTER|Wx::ALL, 5)
+        @sizer.add(1, 1, 1, Wx::GROW | Wx::ALL, 5) # spacer
+    
+        # global pane
+        sz = Wx::HBoxSizer.new
+        sz.add(leftSizer, 0, Wx::GROW|Wx::ALL, 5)
+        sz.add(@sizer, 1, Wx::GROW|Wx::ALL, 5)
+    
+        set_sizer(sz)
+
+        # connect event handlers
+        evt_button(ID::Reset, :on_button_reset)
+
+        evt_fontpicker_changed(ID::Font, :on_font_change)
+
+        evt_checkbox(Wx::ID_ANY, :on_check_box)
+      end
+  
+      protected
+  
+      # called only once at first construction
+      def create_picker
+        @fontPicker.destroy if @fontPicker
+    
+        style = get_attrs.default_flags
+
+        style |= Wx::FNTP_USE_TEXTCTRL if @chkFontTextCtrl.value
+        style |= Wx::FNTP_USEFONT_FOR_LABEL if @chkFontUseFontForLabel.value
+        style |= Wx::FNTP_FONTDESC_AS_LABEL if @chkFontDescAsLabel.value
+    
+        @fontPicker = Wx::FontPickerCtrl.new(self, ID::Font,
+                                             Wx::SWISS_FONT,
+                                             style: style)
+      end
+  
+      # called to recreate an existing control
+      def recreate_picker
+        @sizer.remove(1)
+        create_picker
+        @sizer.insert(1, @fontPicker, 0, Wx::ALIGN_CENTER|Wx::ALL, 5)
+
+        @sizer.layout
+      end
+  
+      # restore the checkboxes state to the initial values
+      def reset
+        @chkFontTextCtrl.set_value(Wx::FNTP_DEFAULT_STYLE.allbits?(Wx::FNTP_USE_TEXTCTRL))
+        @chkFontUseFontForLabel.set_value(Wx::FNTP_DEFAULT_STYLE.allbits?(Wx::FNTP_USEFONT_FOR_LABEL))
+        @chkFontDescAsLabel.set_value(Wx::FNTP_DEFAULT_STYLE.allbits?(Wx::FNTP_FONTDESC_AS_LABEL))
+      end
+
+      def on_font_change(event)
+        Wx.log_message("The font changed to '#{event.font.face_name}' with size #{event.font.point_size} !")
+      end
+
+      def on_check_box(event)
+        recreate_picker if event.event_object == @chkFontTextCtrl ||
+                           event.event_object == @chkFontDescAsLabel ||
+                           event.event_object == @chkFontUseFontForLabel
+      end
+
+      def on_button_reset(_event)
+        reset
+        recreate_picker
+      end
+      
+    end
+
+  end
+
+end