wxruby3 0.9.1-x64-mingw-ucrt → 0.9.3-x64-mingw-ucrt

data/samples/etc/system_settings.rb

@@ -15,232 +15,239 @@ require 'wx'
 # about. To use it, run it and use the 'View' menu to list the different
 # groups of settings available.
 
-# A class to display system settings in a spreadsheet-like table.
-class SystemSettingsTable < Wx::Grid
-  def initialize(parent)
-    super(parent, -1)
-    max_length = [ COLOURS.length, FONTS.length, METRICS.length ].max
-    create_grid( max_length, 3)
-
-    set_row_label_size(0)
-    set_row_label_alignment(Wx::ALIGN_RIGHT, Wx::ALIGN_CENTRE)
-
-    set_col_label_value(0, 'Name')
-    set_col_size(0, 200)
-    set_col_label_value(1, 'Value')
-    set_col_size(1, 100)
-    set_col_label_value(2, 'Description')
-    set_col_size(2, 300)
-  end
+module SystemSettings
+
+  # A class to display system settings in a spreadsheet-like table.
+  class SystemSettingsTable < Wx::Grid
+    def initialize(parent)
+      super(parent, -1)
+      max_length = [ COLOURS.length, FONTS.length, METRICS.length ].max
+      create_grid( max_length, 3)
 
-  # blank out all row labels from +from_row+ to the end of the grid.
-  def tidy_row_labels(from_row = 0)
-    from_row.upto( get_number_rows - 1 ) do | row |
-      set_row_label_value(row, '')
+      set_row_label_size(0)
+      set_row_label_alignment(Wx::ALIGN_RIGHT, Wx::ALIGN_CENTRE)
+
+      set_col_label_value(0, 'Name')
+      set_col_size(0, 200)
+      set_col_label_value(1, 'Value')
+      set_col_size(1, 100)
+      set_col_label_value(2, 'Description')
+      set_col_size(2, 300)
     end
-  end
 
-  # display a settings constant name +const+, its value +value+ and a
-  # text description +desc+ of that setting in the row +row+
-  def list(row, const, val, desc)
-    set_cell_value(row, 0, const)
-    set_cell_value(row, 1, val.to_s )
-    set_cell_value(row, 2, desc)
-  end
+    # blank out all row labels from +from_row+ to the end of the grid.
+    def tidy_row_labels(from_row = 0)
+      from_row.upto( get_number_rows - 1 ) do | row |
+        set_row_label_value(row, '')
+      end
+    end
 
-  # List the elements of the system's colour scheme, giving each one's
-  # Wx constant name, its RGB value in hex, and the description of how it
-  # is used.
-  def list_colours
-    clear_grid
-    COLOURS.each_with_index do | item, i |
-      constant_name, description = *item
-      const = Wx::const_get(constant_name)
-      # obtain a Wx::Colour object for the named constantb
-      colour  = Wx::SystemSettings.get_colour(const)
-      colour_hex = '#%02X%02X%02X' % 
-                [ colour.red, colour.green, colour.blue ]
-      list( i, constant_name, colour_hex, description )
+    # display a settings constant name +const+, its value +value+ and a
+    # text description +desc+ of that setting in the row +row+
+    def list(row, const, val, desc)
+      set_cell_value(row, 0, const)
+      set_cell_value(row, 1, val.to_s )
+      set_cell_value(row, 2, desc)
     end
-    tidy_row_labels(COLOURS.length)
-  end
 
-  # List the standard system fonts, giving each one's Wx contant name,
-  # the font's platform descriptor, and a description of its use.
-  def list_fonts
-    clear_grid
-    FONTS.each_with_index do | item, i |
-      constant_name, description = *item
-      const = Wx::const_get(constant_name)
-      # obtain a standard system font
-      font  = Wx::SystemSettings.get_font(const)
-      font_desc = "%s %ipt" % 
-                             [ font.get_face_name, font.get_point_size ]
-      list( i, constant_name, font_desc, description )
+    # List the elements of the system's colour scheme, giving each one's
+    # Wx constant name, its RGB value in hex, and the description of how it
+    # is used.
+    def list_colours
+      clear_grid
+      COLOURS.each_with_index do | item, i |
+        constant_name, description = *item
+        const = Wx::const_get(constant_name)
+        # obtain a Wx::Colour object for the named constantb
+        colour  = Wx::SystemSettings.get_colour(const)
+        colour_hex = '#%02X%02X%02X' %
+                  [ colour.red, colour.green, colour.blue ]
+        list( i, constant_name, colour_hex, description )
+      end
+      tidy_row_labels(COLOURS.length)
     end
-    tidy_row_labels(FONTS.length)
-  end
 
-  # List various standard measurements of GUI elements and areas, such as
-  # the size of the screen, cursor, icons and window borders. For each
-  # one, the WxRuby constant name, the value (usually in pixels), and a
-  # short description of its use is given.
-  # 
-  # Not all metrics are implemented in Wx on all platforms; undefined
-  # values are shown as '-1'.
-  def list_metrics
-    clear_grid
-    METRICS.each_with_index do | item, i |
-      constant_name, description = *item
-      const = Wx::const_get(constant_name)
-      # obtain a standard system metric
-      metric = Wx::SystemSettings.get_metric(const)
-      list( i, constant_name, metric, description )
+    # List the standard system fonts, giving each one's Wx contant name,
+    # the font's platform descriptor, and a description of its use.
+    def list_fonts
+      clear_grid
+      FONTS.each_with_index do | item, i |
+        constant_name, description = *item
+        const = Wx::const_get(constant_name)
+        # obtain a standard system font
+        font  = Wx::SystemSettings.get_font(const)
+        font_desc = "%s %ipt" %
+                               [ font.get_face_name, font.get_point_size ]
+        list( i, constant_name, font_desc, description )
+      end
+      tidy_row_labels(FONTS.length)
     end
-    tidy_row_labels(METRICS.length)
-  end
 
-  # copied from WxWidgets 2.6.2 documentation
-  COLOURS = [
-    [ 'SYS_COLOUR_SCROLLBAR', 'The scrollbar grey area.' ],
-    [ 'SYS_COLOUR_BACKGROUND', 'The desktop colour.' ],
-    [ 'SYS_COLOUR_ACTIVECAPTION', 'Active window caption.' ],
-    [ 'SYS_COLOUR_INACTIVECAPTION', 'Inactive window caption.' ],
-    [ 'SYS_COLOUR_MENU', 'Menu background.' ],
-    [ 'SYS_COLOUR_WINDOW', 'Window background.' ],
-    [ 'SYS_COLOUR_WINDOWFRAME', 'Window frame.' ],
-    [ 'SYS_COLOUR_MENUTEXT', 'Menu text.' ],
-    [ 'SYS_COLOUR_WINDOWTEXT', 'Text in windows.' ],
-    [ 'SYS_COLOUR_CAPTIONTEXT', 'Text in caption, size box and scrollbar arrow box.' ],
-    [ 'SYS_COLOUR_ACTIVEBORDER', 'Active window border.' ],
-    [ 'SYS_COLOUR_INACTIVEBORDER', 'Inactive window border.' ],
-    [ 'SYS_COLOUR_APPWORKSPACE', 'Background colour MDI applications.' ],
-    [ 'SYS_COLOUR_HIGHLIGHT', 'Item(s) selected in a control.' ],
-    [ 'SYS_COLOUR_HIGHLIGHTTEXT', 'Text of item(s) selected in a control.' ],
-    [ 'SYS_COLOUR_BTNFACE', 'Face shading on push buttons.' ],
-    [ 'SYS_COLOUR_BTNSHADOW', 'Edge shading on push buttons.' ],
-    [ 'SYS_COLOUR_GRAYTEXT', 'Greyed (disabled) text.' ],
-    [ 'SYS_COLOUR_BTNTEXT', 'Text on push buttons.' ],
-    [ 'SYS_COLOUR_INACTIVECAPTIONTEXT', 'Colour of text in active captions.' ],
-    [ 'SYS_COLOUR_BTNHIGHLIGHT', 'Highlight colour for buttons (same as wxSYS_COLOUR_3DHILIGHT).' ],
-    [ 'SYS_COLOUR_3DDKSHADOW', 'Dark shadow for three-dimensional display elements.' ],
-    [ 'SYS_COLOUR_3DLIGHT', 'Light colour for three-dimensional display elements.' ],
-    [ 'SYS_COLOUR_INFOTEXT', 'Text colour for tooltip controls.' ],
-    [ 'SYS_COLOUR_INFOBK', 'Background colour for tooltip controls.' ],
-    [ 'SYS_COLOUR_DESKTOP', 'Same as wxSYS_COLOUR_BACKGROUND.' ],
-    [ 'SYS_COLOUR_3DFACE', 'Same as wxSYS_COLOUR_BTNFACE.' ],
-    [ 'SYS_COLOUR_3DSHADOW', 'Same as wxSYS_COLOUR_BTNSHADOW.' ],
-    [ 'SYS_COLOUR_3DHIGHLIGHT', 'Same as wxSYS_COLOUR_BTNHIGHLIGHT.' ],
-    [ 'SYS_COLOUR_3DHILIGHT', 'Same as wxSYS_COLOUR_BTNHIGHLIGHT.' ],
-    [ 'SYS_COLOUR_BTNHILIGHT', 'Same as wxSYS_COLOUR_BTNHIGHLIGHT.' ]
-  ]
-
-  # copied from WxWidgets 2.6.2 documentation
-  FONTS = [
-    [ 'SYS_OEM_FIXED_FONT', 'Original equipment manufacturer dependent fixed-pitch font.' ],
-    [ 'SYS_ANSI_FIXED_FONT', 'Windows fixed-pitch font.' ],
-    [ 'SYS_ANSI_VAR_FONT', 'Windows variable-pitch (proportional) font.' ],
-    [ 'SYS_SYSTEM_FONT', 'System font.' ],
-    [ 'SYS_DEVICE_DEFAULT_FONT', 'Device-dependent font (Windows NT only).' ],
-    [ 'SYS_DEFAULT_GUI_FONT', 'Default font for user interface objects such as menus and dialog boxes.' ]
-  ]
-
-  # copied from WxWidgets 2.6.2 documentation
-  METRICS = [
-    [ 'SYS_MOUSE_BUTTONS', 'Number of buttons on mouse, or zero if no mouse was installed.' ],
-    [ 'SYS_BORDER_X', 'Width of single border.' ],
-    [ 'SYS_BORDER_Y', 'Height of single border.' ],
-    [ 'SYS_CURSOR_X', 'Width of cursor.' ],
-    [ 'SYS_CURSOR_Y', 'Height of cursor.' ],
-    [ 'SYS_DCLICK_X', 'Width in pixels of rectangle within which two successive mouse clicks must fall to generate a double-click.' ],
-    [ 'SYS_DCLICK_Y', 'Height in pixels of rectangle within which two successive mouse clicks must fall to generate a double-click.' ],
-    [ 'SYS_DRAG_X', 'Width in pixels of a rectangle centered on a drag point to allow for limited movement of the mouse pointer before a drag operation begins.' ],
-    [ 'SYS_DRAG_Y', 'Height in pixels of a rectangle centered on a drag point to allow for limited movement of the mouse pointer before a drag operation begins.' ],
-    [ 'SYS_EDGE_X', 'Width of a 3D border, in pixels.' ],
-    [ 'SYS_EDGE_Y', 'Height of a 3D border, in pixels.' ],
-    [ 'SYS_HSCROLL_ARROW_X', 'Width of arrow bitmap on horizontal scrollbar.' ],
-    [ 'SYS_HSCROLL_ARROW_Y', 'Height of arrow bitmap on horizontal scrollbar.' ],
-    [ 'SYS_HTHUMB_X', 'Width of horizontal scrollbar thumb.' ],
-    [ 'SYS_ICON_X', 'The default width of an icon.' ],
-    [ 'SYS_ICON_Y', 'The default height of an icon.' ],
-    [ 'SYS_ICONSPACING_X', 'Width of a grid cell for items in large icon view, in pixels. Each item fits into a rectangle of this size when arranged.' ],
-    [ 'SYS_ICONSPACING_Y', 'Height of a grid cell for items in large icon view, in pixels. Each item fits into a rectangle of this size when arranged.' ],
-    [ 'SYS_WINDOWMIN_X', 'Minimum width of a window.' ],
-    [ 'SYS_WINDOWMIN_Y', 'Minimum height of a window.' ],
-    [ 'SYS_SCREEN_X', 'Width of the screen in pixels.' ],
-    [ 'SYS_SCREEN_Y', 'Height of the screen in pixels.' ],
-    [ 'SYS_FRAMESIZE_X', 'Width of the window frame for a wxTHICK_FRAME window.' ],
-    [ 'SYS_FRAMESIZE_Y', 'Height of the window frame for a wxTHICK_FRAME window.' ],
-    [ 'SYS_SMALLICON_X', 'Recommended width of a small icon (in window captions, and small icon view).' ],
-    [ 'SYS_SMALLICON_Y', 'Recommended height of a small icon (in window captions, and small icon view).' ],
-    [ 'SYS_HSCROLL_Y', 'Height of horizontal scrollbar in pixels.' ],
-    [ 'SYS_VSCROLL_X', 'Width of vertical scrollbar in pixels.' ],
-    [ 'SYS_VSCROLL_ARROW_X', 'Width of arrow bitmap on a vertical scrollbar.' ],
-    [ 'SYS_VSCROLL_ARROW_Y', 'Height of arrow bitmap on a vertical scrollbar.' ],
-    [ 'SYS_VTHUMB_Y', 'Height of vertical scrollbar thumb.' ],
-    [ 'SYS_CAPTION_Y', 'Height of normal caption area.' ],
-    [ 'SYS_MENU_Y', 'Height of single-line menu bar.' ],
-    [ 'SYS_NETWORK_PRESENT', '1 if there is a network present, 0 otherwise.' ],
-    [ 'SYS_PENWINDOWS_PRESENT', '1 if PenWindows is installed, 0 otherwise.' ],
-    [ 'SYS_SHOW_SOUNDS', 'Non-zero if the user requires an application to present information visually in situations where it would otherwise present the information only in audible form; zero otherwise.' ],
-    [ 'SYS_SWAP_BUTTONS', 'Non-zero if the meanings of the left and right mouse buttons are swapped; zero otherwise.' ]
-  ]
-end
+    # List various standard measurements of GUI elements and areas, such as
+    # the size of the screen, cursor, icons and window borders. For each
+    # one, the WxRuby constant name, the value (usually in pixels), and a
+    # short description of its use is given.
+    #
+    # Not all metrics are implemented in Wx on all platforms; undefined
+    # values are shown as '-1'.
+    def list_metrics
+      clear_grid
+      METRICS.each_with_index do | item, i |
+        constant_name, description = *item
+        const = Wx::const_get(constant_name)
+        # obtain a standard system metric
+        metric = Wx::SystemSettings.get_metric(const)
+        list( i, constant_name, metric, description )
+      end
+      tidy_row_labels(METRICS.length)
+    end
 
+    # copied from WxWidgets 2.6.2 documentation
+    COLOURS = [
+      [ 'SYS_COLOUR_SCROLLBAR', 'The scrollbar grey area.' ],
+      [ 'SYS_COLOUR_BACKGROUND', 'The desktop colour.' ],
+      [ 'SYS_COLOUR_ACTIVECAPTION', 'Active window caption.' ],
+      [ 'SYS_COLOUR_INACTIVECAPTION', 'Inactive window caption.' ],
+      [ 'SYS_COLOUR_MENU', 'Menu background.' ],
+      [ 'SYS_COLOUR_WINDOW', 'Window background.' ],
+      [ 'SYS_COLOUR_WINDOWFRAME', 'Window frame.' ],
+      [ 'SYS_COLOUR_MENUTEXT', 'Menu text.' ],
+      [ 'SYS_COLOUR_WINDOWTEXT', 'Text in windows.' ],
+      [ 'SYS_COLOUR_CAPTIONTEXT', 'Text in caption, size box and scrollbar arrow box.' ],
+      [ 'SYS_COLOUR_ACTIVEBORDER', 'Active window border.' ],
+      [ 'SYS_COLOUR_INACTIVEBORDER', 'Inactive window border.' ],
+      [ 'SYS_COLOUR_APPWORKSPACE', 'Background colour MDI applications.' ],
+      [ 'SYS_COLOUR_HIGHLIGHT', 'Item(s) selected in a control.' ],
+      [ 'SYS_COLOUR_HIGHLIGHTTEXT', 'Text of item(s) selected in a control.' ],
+      [ 'SYS_COLOUR_BTNFACE', 'Face shading on push buttons.' ],
+      [ 'SYS_COLOUR_BTNSHADOW', 'Edge shading on push buttons.' ],
+      [ 'SYS_COLOUR_GRAYTEXT', 'Greyed (disabled) text.' ],
+      [ 'SYS_COLOUR_BTNTEXT', 'Text on push buttons.' ],
+      [ 'SYS_COLOUR_INACTIVECAPTIONTEXT', 'Colour of text in active captions.' ],
+      [ 'SYS_COLOUR_BTNHIGHLIGHT', 'Highlight colour for buttons (same as wxSYS_COLOUR_3DHILIGHT).' ],
+      [ 'SYS_COLOUR_3DDKSHADOW', 'Dark shadow for three-dimensional display elements.' ],
+      [ 'SYS_COLOUR_3DLIGHT', 'Light colour for three-dimensional display elements.' ],
+      [ 'SYS_COLOUR_INFOTEXT', 'Text colour for tooltip controls.' ],
+      [ 'SYS_COLOUR_INFOBK', 'Background colour for tooltip controls.' ],
+      [ 'SYS_COLOUR_DESKTOP', 'Same as wxSYS_COLOUR_BACKGROUND.' ],
+      [ 'SYS_COLOUR_3DFACE', 'Same as wxSYS_COLOUR_BTNFACE.' ],
+      [ 'SYS_COLOUR_3DSHADOW', 'Same as wxSYS_COLOUR_BTNSHADOW.' ],
+      [ 'SYS_COLOUR_3DHIGHLIGHT', 'Same as wxSYS_COLOUR_BTNHIGHLIGHT.' ],
+      [ 'SYS_COLOUR_3DHILIGHT', 'Same as wxSYS_COLOUR_BTNHIGHLIGHT.' ],
+      [ 'SYS_COLOUR_BTNHILIGHT', 'Same as wxSYS_COLOUR_BTNHIGHLIGHT.' ]
+    ]
 
-# A simple frame that just shows a table with the System Settings in it.
-class SettingsFrame < Wx::Frame
+    # copied from WxWidgets 2.6.2 documentation
+    FONTS = [
+      [ 'SYS_OEM_FIXED_FONT', 'Original equipment manufacturer dependent fixed-pitch font.' ],
+      [ 'SYS_ANSI_FIXED_FONT', 'Windows fixed-pitch font.' ],
+      [ 'SYS_ANSI_VAR_FONT', 'Windows variable-pitch (proportional) font.' ],
+      [ 'SYS_SYSTEM_FONT', 'System font.' ],
+      [ 'SYS_DEVICE_DEFAULT_FONT', 'Device-dependent font (Windows NT only).' ],
+      [ 'SYS_DEFAULT_GUI_FONT', 'Default font for user interface objects such as menus and dialog boxes.' ]
+    ]
 
-  def initialize(title, pos = Wx::DEFAULT_POSITION, size = Wx::DEFAULT_SIZE)
-    super(nil, -1, title, pos, size)
-    sizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
-    @table = SystemSettingsTable.new(self)
-    sizer.add(@table, 1, Wx::GROW|Wx::ALL, 2)
-    self.set_sizer(sizer)
-    construct_menus
-    @table.list_colours
+    # copied from WxWidgets 2.6.2 documentation
+    METRICS = [
+      [ 'SYS_MOUSE_BUTTONS', 'Number of buttons on mouse, or zero if no mouse was installed.' ],
+      [ 'SYS_BORDER_X', 'Width of single border.' ],
+      [ 'SYS_BORDER_Y', 'Height of single border.' ],
+      [ 'SYS_CURSOR_X', 'Width of cursor.' ],
+      [ 'SYS_CURSOR_Y', 'Height of cursor.' ],
+      [ 'SYS_DCLICK_X', 'Width in pixels of rectangle within which two successive mouse clicks must fall to generate a double-click.' ],
+      [ 'SYS_DCLICK_Y', 'Height in pixels of rectangle within which two successive mouse clicks must fall to generate a double-click.' ],
+      [ 'SYS_DRAG_X', 'Width in pixels of a rectangle centered on a drag point to allow for limited movement of the mouse pointer before a drag operation begins.' ],
+      [ 'SYS_DRAG_Y', 'Height in pixels of a rectangle centered on a drag point to allow for limited movement of the mouse pointer before a drag operation begins.' ],
+      [ 'SYS_EDGE_X', 'Width of a 3D border, in pixels.' ],
+      [ 'SYS_EDGE_Y', 'Height of a 3D border, in pixels.' ],
+      [ 'SYS_HSCROLL_ARROW_X', 'Width of arrow bitmap on horizontal scrollbar.' ],
+      [ 'SYS_HSCROLL_ARROW_Y', 'Height of arrow bitmap on horizontal scrollbar.' ],
+      [ 'SYS_HTHUMB_X', 'Width of horizontal scrollbar thumb.' ],
+      [ 'SYS_ICON_X', 'The default width of an icon.' ],
+      [ 'SYS_ICON_Y', 'The default height of an icon.' ],
+      [ 'SYS_ICONSPACING_X', 'Width of a grid cell for items in large icon view, in pixels. Each item fits into a rectangle of this size when arranged.' ],
+      [ 'SYS_ICONSPACING_Y', 'Height of a grid cell for items in large icon view, in pixels. Each item fits into a rectangle of this size when arranged.' ],
+      [ 'SYS_WINDOWMIN_X', 'Minimum width of a window.' ],
+      [ 'SYS_WINDOWMIN_Y', 'Minimum height of a window.' ],
+      [ 'SYS_SCREEN_X', 'Width of the screen in pixels.' ],
+      [ 'SYS_SCREEN_Y', 'Height of the screen in pixels.' ],
+      [ 'SYS_FRAMESIZE_X', 'Width of the window frame for a wxTHICK_FRAME window.' ],
+      [ 'SYS_FRAMESIZE_Y', 'Height of the window frame for a wxTHICK_FRAME window.' ],
+      [ 'SYS_SMALLICON_X', 'Recommended width of a small icon (in window captions, and small icon view).' ],
+      [ 'SYS_SMALLICON_Y', 'Recommended height of a small icon (in window captions, and small icon view).' ],
+      [ 'SYS_HSCROLL_Y', 'Height of horizontal scrollbar in pixels.' ],
+      [ 'SYS_VSCROLL_X', 'Width of vertical scrollbar in pixels.' ],
+      [ 'SYS_VSCROLL_ARROW_X', 'Width of arrow bitmap on a vertical scrollbar.' ],
+      [ 'SYS_VSCROLL_ARROW_Y', 'Height of arrow bitmap on a vertical scrollbar.' ],
+      [ 'SYS_VTHUMB_Y', 'Height of vertical scrollbar thumb.' ],
+      [ 'SYS_CAPTION_Y', 'Height of normal caption area.' ],
+      [ 'SYS_MENU_Y', 'Height of single-line menu bar.' ],
+      [ 'SYS_NETWORK_PRESENT', '1 if there is a network present, 0 otherwise.' ],
+      [ 'SYS_PENWINDOWS_PRESENT', '1 if PenWindows is installed, 0 otherwise.' ],
+      [ 'SYS_SHOW_SOUNDS', 'Non-zero if the user requires an application to present information visually in situations where it would otherwise present the information only in audible form; zero otherwise.' ],
+      [ 'SYS_SWAP_BUTTONS', 'Non-zero if the meanings of the left and right mouse buttons are swapped; zero otherwise.' ]
+    ]
   end
 
-  ID_SHOW_COLOURS = 1
-  ID_SHOW_FONTS   = 2
-  ID_SHOW_METRICS = 3
-  def construct_menus
-    menu_bar = Wx::MenuBar.new
-
-    menu_file = Wx::Menu.new
-    menu_file.append(Wx::ID_EXIT, "E&xit\tAlt-X", "Quit this program")
-    menu_bar.append(menu_file, "&File")
-    evt_menu(Wx::ID_EXIT) { on_quit }
-
-    menu_view = Wx::Menu.new
-    menu_view.append(ID_SHOW_COLOURS, 
-                     "Show &Colours", "Show system colours")
-    evt_menu(ID_SHOW_COLOURS) { @table.list_colours }
-    menu_view.append(ID_SHOW_FONTS, 
-                     "Show &Fonts", "Show system fonts")
-    evt_menu(ID_SHOW_FONTS) { @table.list_fonts }
-    menu_view.append(ID_SHOW_METRICS, 
-                     "Show &Metrics", "Show system metrics")
-    evt_menu(ID_SHOW_METRICS) { @table.list_metrics }
-    menu_bar.append(menu_view, "&View")
-
-    menu_help = Wx::Menu.new
-    menu_help.append(Wx::ID_ABOUT, "&About...\tF1", "Show about dialog")
-    evt_menu(Wx::ID_ABOUT) { on_about }
-    menu_bar.append(menu_help, "&Help")
-
-    set_menu_bar(menu_bar)
-  end
 
-  def on_quit
-    close(true)
-  end
+  # A simple frame that just shows a table with the System Settings in it.
+  class SettingsFrame < Wx::Frame
+
+    def initialize(title, pos = Wx::DEFAULT_POSITION, size = Wx::DEFAULT_SIZE)
+      super(nil, -1, title, pos, size)
 
-  def on_about
-    msg =  sprintf("This is the About dialog of the minimal sample.\n" \
-                    "Welcome to %s", Wx::WXWIDGETS_VERSION)
-    Wx::message_box(msg, "About Minimal", Wx::OK|Wx::ICON_INFORMATION, self)
+      self.icon = Wx.Icon(:sample, Wx::BITMAP_TYPE_XPM, art_path: File.join(__dir__, '..'))
+
+      sizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+      @table = SystemSettingsTable.new(self)
+      sizer.add(@table, 1, Wx::GROW|Wx::ALL, 2)
+      self.set_sizer(sizer)
+      construct_menus
+      @table.list_colours
+    end
+
+    ID_SHOW_COLOURS = 1
+    ID_SHOW_FONTS   = 2
+    ID_SHOW_METRICS = 3
+    def construct_menus
+      menu_bar = Wx::MenuBar.new
+
+      menu_file = Wx::Menu.new
+      menu_file.append(Wx::ID_EXIT, "E&xit\tAlt-X", "Quit this program")
+      menu_bar.append(menu_file, "&File")
+      evt_menu(Wx::ID_EXIT) { on_quit }
+
+      menu_view = Wx::Menu.new
+      menu_view.append(ID_SHOW_COLOURS,
+                       "Show &Colours", "Show system colours")
+      evt_menu(ID_SHOW_COLOURS) { @table.list_colours }
+      menu_view.append(ID_SHOW_FONTS,
+                       "Show &Fonts", "Show system fonts")
+      evt_menu(ID_SHOW_FONTS) { @table.list_fonts }
+      menu_view.append(ID_SHOW_METRICS,
+                       "Show &Metrics", "Show system metrics")
+      evt_menu(ID_SHOW_METRICS) { @table.list_metrics }
+      menu_bar.append(menu_view, "&View")
+
+      menu_help = Wx::Menu.new
+      menu_help.append(Wx::ID_ABOUT, "&About...\tF1", "Show about dialog")
+      evt_menu(Wx::ID_ABOUT) { on_about }
+      menu_bar.append(menu_help, "&Help")
+
+      set_menu_bar(menu_bar)
+    end
+
+    def on_quit
+      close(true)
+    end
+
+    def on_about
+      msg =  sprintf("This is the About dialog of the minimal sample.\n" \
+                      "Welcome to %s", Wx::WXWIDGETS_VERSION)
+      Wx::message_box(msg, "About Minimal", Wx::OK|Wx::ICON_INFORMATION, self)
+    end
   end
+
 end
 
 module SystemSettingsSample
@@ -254,7 +261,7 @@ module SystemSettingsSample
   end
 
   def self.activate
-    frame = SettingsFrame.new("System Settings",
+    frame = SystemSettings::SettingsFrame.new("System Settings",
                               Wx::DEFAULT_POSITION,
                               Wx::Size.new(600, 400) )
     frame.show(true)

data/samples/event/activation.rb

@@ -17,92 +17,97 @@ require 'wx'
 # the frame gainin focus. An event is also generated when a whole wxRuby
 # app starts or stops being the current focussed desktop application.
 
-class MinimalFrame < Wx::Frame
-  def initialize(title, pos, size, style = Wx::DEFAULT_FRAME_STYLE)
-    super(nil, -1, title, pos, size, style)
+module Activation
 
+  class MinimalFrame < Wx::Frame
+    def initialize(title, pos, size, style = Wx::DEFAULT_FRAME_STYLE)
+      super(nil, -1, title, pos, size, style)
 
-    menuFile = Wx::Menu.new
-    helpMenu = Wx::Menu.new
-    helpMenu.append(Wx::ID_ABOUT, "&About...\tF1", "Show about dialog")
-    menuFile.append(Wx::ID_EXIT, "E&xit\tAlt-X", "Quit this program")
-    menuBar = Wx::MenuBar.new
-    menuBar.append(menuFile, "&File")
-    menuBar.append(helpMenu, "&Help")
-    set_menu_bar(menuBar)
+      self.icon = Wx.Icon(:sample, Wx::BITMAP_TYPE_XPM, art_path: File.join(__dir__, '..'))
 
-    create_status_bar(2)
-    set_status_text("Welcome to wxRuby!")
+      menuFile = Wx::Menu.new
+      helpMenu = Wx::Menu.new
+      helpMenu.append(Wx::ID_ABOUT, "&About...\tF1", "Show about dialog")
+      menuFile.append(Wx::ID_EXIT, "E&xit\tAlt-X", "Quit this program")
+      menuBar = Wx::MenuBar.new
+      menuBar.append(menuFile, "&File")
+      menuBar.append(helpMenu, "&Help")
+      set_menu_bar(menuBar)
 
-    evt_close { on_quit }
+      create_status_bar(2)
+      set_status_text("Welcome to wxRuby!")
 
-    evt_menu(Wx::ID_EXIT) { on_quit }
-    evt_menu(Wx::ID_ABOUT) { on_about }
+      evt_close { on_quit }
 
-    evt_activate { | e | on_activate(e) }
-    evt_iconize  { | e | on_iconize(e) }
-  end
+      evt_menu(Wx::ID_EXIT) { on_quit }
+      evt_menu(Wx::ID_ABOUT) { on_about }
+
+      evt_activate { | e | on_activate(e) }
+      evt_iconize  { | e | on_iconize(e) }
+    end
 
 
-  def on_iconize(event)
-    if event.iconized
-      puts "Frame '#{get_title}' was iconized"
-    else
-      puts "Frame '#{get_title}' was restored"
+    def on_iconize(event)
+      if event.iconized
+        puts "Frame '#{get_title}' was iconized"
+      else
+        puts "Frame '#{get_title}' was restored"
+      end
     end
-  end
 
-  def on_activate(event)
-    return if Wx::get_app.destroying
-    if event.get_active
-      puts "Frame '#{get_title}' became activated"
-      set_status_text 'Active'
-    else
-      puts "Frame '#{get_title}' became deactivated"
-      set_status_text 'Inactive'
+    def on_activate(event)
+      return if Wx::get_app.destroying
+      if event.get_active
+        puts "Frame '#{get_title}' became activated"
+        set_status_text 'Active'
+      else
+        puts "Frame '#{get_title}' became deactivated"
+        set_status_text 'Inactive'
+      end
+      event.skip # important
     end
-    event.skip # important
-  end
 
-  def on_quit
-    Wx::get_app.close_all
-  end
+    def on_quit
+      Wx::get_app.close_all
+    end
 
-  def on_about
-    msg =  sprintf("This is the About dialog of the activate sample.\n" \
-                    "Welcome to wxRuby, version %s", Wx::WXRUBY_VERSION)
-    Wx::message_box(msg, "About Activate", Wx::OK|Wx::ICON_INFORMATION, self)
+    def on_about
+      msg =  sprintf("This is the About dialog of the activate sample.\n" \
+                      "Welcome to wxRuby, version %s", Wx::WXRUBY_VERSION)
+      Wx::message_box(msg, "About Activate", Wx::OK|Wx::ICON_INFORMATION, self)
+    end
   end
-end
 
-class RbApp < Wx::App
-  def on_init
-    @frame_1 = MinimalFrame.new("Tall window",
-                                Wx::Point.new(50, 50), 
-                                Wx::Size.new(150, 240))
-    @frame_2 = MinimalFrame.new("Wide window",
-                                Wx::Point.new(100, 100), 
-                                Wx::Size.new(300, 180))
-    evt_activate_app { | e | on_activate_app(e) }
-    @frame_1.show
-    @frame_2.show
-  end
+  class RbApp < Wx::App
+    def on_init
+      @frame_1 = MinimalFrame.new("Tall window",
+                                  Wx::Point.new(50, 50),
+                                  Wx::Size.new(150, 240))
+      @frame_2 = MinimalFrame.new("Wide window",
+                                  Wx::Point.new(100, 100),
+                                  Wx::Size.new(300, 180))
+      evt_activate_app { | e | on_activate_app(e) }
+      @frame_1.show
+      @frame_2.show
+    end
 
-  attr_reader :destroying
+    attr_reader :destroying
 
-  def on_activate_app(event)
-    if event.get_active
-      puts "The app became active"
-    else
-      puts "The app became inactive"
+    def on_activate_app(event)
+      if event.get_active
+        puts "The app became active"
+      else
+        puts "The app became inactive"
+      end
+      event.skip # important
     end
-    event.skip # important
-  end
 
-  def close_all
-    @frame_1.destroy
-    @frame_2.destroy
+    def close_all
+      @frame_1.destroy
+      @frame_2.destroy
+    end
   end
+
 end
 
 module ActivationSample
@@ -128,7 +133,7 @@ module ActivationSample
   end
 
   if $0 == __FILE__
-    RbApp.run
+    Activation::RbApp.run
   end
 
 end