wxruby3 0.9.0.pre.beta.8-x64-mingw-ucrt

data/samples/treectrl/unchecked.xpm

@@ -0,0 +1,30 @@
+/* XPM */
+static const char * unchecked_xpm[] = {
+"13 13 14 1",
+" 	c None",
+".	c #CCCED3",
+"+	c #838793",
+"@	c #C4C7CF",
+"#	c #F5F5F5",
+"$	c #F6F6F6",
+"%	c #F7F7F7",
+"&	c #F9F9F9",
+"*	c #FAFAFA",
+"=	c #FBFBFB",
+"-	c #FCFCFC",
+";	c #FDFDFD",
+">	c #FEFEFE",
+",	c #FFFFFF",
+".+++++++++++.",
+"+@@@@@@@@@@@+",
+"+@##########+",
+"+@$$$$$$$$$$+",
+"+@%%%%%%%%%%+",
+"+@&&&&&&&&&&+",
+"+@**********+",
+"+@==========+",
+"+@----------+",
+"+@;;;;;;;;;;+",
+"+@>>>>>>>>>>+",
+"+@,,,,,,,,,,+",
+".+++++++++++."};

data/samples/xrc/custom_dialog.xrc

@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<resource xmlns="http://www.wxwindows.org/wxxrc">
+    <object class="wxDialog" subclass="CustomDialog" name="SAMPLE_DIALOG">
+        <style>wxCAPTION|wxRESIZE_BORDER|wxSYSTEM_MENU</style>
+        <size>400,300</size>
+        <title>Sample</title>
+        <centered>1</centered>
+        <object class="wxBoxSizer">
+            <orient>wxHORIZONTAL</orient>
+            <object class="sizeritem">
+                <flag>wxALIGN_CENTER_VERTICAL|wxALL</flag>
+                <border>5</border>
+                <object class="wxBoxSizer">
+                    <orient>wxVERTICAL</orient>
+                    <object class="sizeritem">
+                        <flag>wxALIGN_CENTER_HORIZONTAL|wxALL</flag>
+                        <border>5</border>
+                        <object class="wxButton" name="wxID_OK">
+                            <size>-1,-1</size>
+                            <style></style>
+                            <label>Ok</label>
+                        </object>
+                    </object>
+                    <object class="sizeritem">
+                        <flag>wxALIGN_CENTER_HORIZONTAL|wxALL</flag>
+                        <border>5</border>
+                        <object class="wxButton" name="wxID_CANCEL">
+                            <size>-1,-1</size>
+                            <style></style>
+                            <label>Cancel</label>
+                        </object>
+                    </object>
+                    <object class="sizeritem">
+                        <flag>wxALIGN_CENTER_HORIZONTAL|wxALL</flag>
+                        <border>5</border>
+                        <object class="wxButton" name="SAMPLE_MESSAGE">
+                            <size>-1,-1</size>
+                            <style></style>
+                            <label>Message...</label>
+                        </object>
+                    </object>
+                </object>
+            </object>
+        </object>
+    </object>
+</resource>

data/samples/xrc/custom_xrc_sample.rb

@@ -0,0 +1,84 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Adapted for wxRuby3
+# Copyright (c) M.J.N. Corino, The Netherlands
+###
+
+require 'wx'
+
+# Basic Frame Class. This creates the dialog window
+class SimpleFrame < Wx::Frame 
+  def initialize
+    super nil, :title => "Custom XRC Dialog Sample", :pos => [50, 50], :size => [300, 300]
+
+    txt = "Choose 'Open Dialog' from the menu to see a dialog made with XRC"
+    Wx::StaticText.new self, :label => txt, :pos => [20, 20]
+
+    # Create a new menu
+    self.menu_bar = Wx::MenuBar.new
+    menu = Wx::Menu.new
+    menu.append Wx::ID_OPEN, "Open Dialog"
+    menu.append Wx::ID_EXIT, "Quit"
+    menu_bar.append(menu,"File")
+    
+    # Assign the menu events
+    evt_menu(Wx::ID_OPEN) { (dlg = $xml.load_dialog(self, 'SAMPLE_DIALOG').setup_dialog).show_modal; dlg.destroy }
+    evt_menu(Wx::ID_EXIT) { close }
+  end
+end
+
+# Dialog subclass. The components within the dialog are loaded from XRC.
+class CustomDialog < Wx::Dialog
+  def setup_dialog
+    # Get the buttons. The xrcid method turns a string identifier
+    # used in an xml file into a numeric identifier as used in
+    # wxruby. 
+    @ok      = find_window_by_id( Wx::xrcid('wxID_OK') )
+    @cancel  = find_window_by_id( Wx::xrcid('wxID_CANCEL') )
+    @message = find_window_by_id( Wx::xrcid('SAMPLE_MESSAGE') )
+
+    # Bind the buttons to event handlers
+    evt_button(@ok) { end_modal(Wx::ID_OK) }
+    evt_button(@cancel) { end_modal(Wx::ID_CANCEL) }
+    evt_button(@message) do
+      Wx::message_box("And now a message from our sponsors.")
+    end
+    self
+  end
+end
+
+class CustomDialogXmlFactory < Wx::XmlSubclassFactory
+  def create(subclass)
+    subclass == 'CustomDialog' ? CustomDialog.new : nil
+  end
+end
+
+module CustomXrcSample
+
+  include WxRuby::Sample if defined? WxRuby::Sample
+
+  def self.describe
+    { file: __FILE__,
+      summary: 'wxRuby XRC custom class example.',
+      description: 'wxRuby example showcasing a custom dialog class using XRC and a custom XmlSubclassFactory.',
+      thumbnail: 'tn_xrc_sample' }
+  end
+
+  def self.activate
+    # add the CustomDialog XML factory
+    Wx::XmlResource.add_subclass_factory(CustomDialogXmlFactory.new)
+    # Get a new resources object
+    xrc_file = File.join( File.dirname(__FILE__), 'custom_dialog.xrc' )
+    $xml = Wx::XmlResource.new(xrc_file)
+
+    # Show the main frame.
+    main = SimpleFrame.new
+    main.show(true)
+    main
+  end
+
+  if $0 == __FILE__
+    Wx::App.run { CustomXrcSample.activate }
+  end
+
+end

data/samples/xrc/samples.xrc

@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<resource xmlns="http://www.wxwindows.org/wxxrc">
+    <object class="wxDialog" name="SAMPLE_DIALOG">
+        <style>wxCAPTION|wxRESIZE_BORDER|wxSYSTEM_MENU</style>
+        <size>400,300</size>
+        <title>Sample</title>
+        <centered>1</centered>
+        <object class="wxBoxSizer">
+            <orient>wxHORIZONTAL</orient>
+            <object class="sizeritem">
+                <flag>wxALIGN_CENTER_VERTICAL|wxALL</flag>
+                <border>5</border>
+                <object class="wxBoxSizer">
+                    <orient>wxVERTICAL</orient>
+                    <object class="sizeritem">
+                        <flag>wxALIGN_CENTER_HORIZONTAL|wxALL</flag>
+                        <border>5</border>
+                        <object class="wxButton" name="wxID_OK">
+                            <size>-1,-1</size>
+                            <style></style>
+                            <label>Ok</label>
+                        </object>
+                    </object>
+                    <object class="sizeritem">
+                        <flag>wxALIGN_CENTER_HORIZONTAL|wxALL</flag>
+                        <border>5</border>
+                        <object class="wxButton" name="wxID_CANCEL">
+                            <size>-1,-1</size>
+                            <style></style>
+                            <label>Cancel</label>
+                        </object>
+                    </object>
+                    <object class="sizeritem">
+                        <flag>wxALIGN_CENTER_HORIZONTAL|wxALL</flag>
+                        <border>5</border>
+                        <object class="wxButton" name="SAMPLE_MESSAGE">
+                            <size>-1,-1</size>
+                            <style></style>
+                            <label>Message...</label>
+                        </object>
+                    </object>
+                </object>
+            </object>
+        </object>
+    </object>
+</resource>

data/samples/xrc/xrc_sample.rb

@@ -0,0 +1,86 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Adapted for wxRuby3
+# Copyright (c) M.J.N. Corino, The Netherlands
+###
+
+require 'wx'
+
+# Basic Frame Class. This creates the dialog window
+class SimpleFrame < Wx::Frame 
+  def initialize()
+    super nil, :title => "XRC Dialog Sample", :pos => [50, 50], :size => [300, 300]
+
+    txt = "Choose 'Open Dialog' from the menu to see a dialog made with XRC"
+    Wx::StaticText.new self, :label => txt, :pos => [20, 20]
+
+    # Create a new menu
+    self.menu_bar = Wx::MenuBar.new
+    menu = Wx::Menu.new
+    menu.append Wx::ID_OPEN, "Open Dialog"
+    menu.append Wx::ID_EXIT, "Quit"
+    menu_bar.append(menu,"File")
+    
+    # Assign the menu events
+    evt_menu(Wx::ID_OPEN) { SimpleDialog(self) }
+    evt_menu(Wx::ID_EXIT) { close }
+  end
+end
+
+# Dialog subclass. The components within the dialog are loaded from XRC.
+class SimpleDialog < Wx::Dialog
+  def initialize(parent)
+    # To load a layout defined in XRC into a Ruby subclass of Dialog,
+    # first call the empty constructor. All the details of size,
+    # title, position and so on are loaded from the XRC by the call to 
+    # load_frame_subclass. Using a non-empty constructor will cause
+    # errors on GTK.
+    super()
+    
+    # Load the dialog from XRC. We define $xml in on_init.
+    # We could use XmlResource.get() over and over again, but
+    # honestly, thats just too much work.
+    $xml.load_dialog_subclass(self,parent,'SAMPLE_DIALOG')
+
+    # Get the buttons. The xrcid method turns a string identifier
+    # used in an xml file into a numeric identifier as used in
+    # wxruby. 
+    @ok      = find_window_by_id( Wx::xrcid('wxID_OK') )
+    @cancel  = find_window_by_id( Wx::xrcid('wxID_CANCEL') )
+    @message = find_window_by_id( Wx::xrcid('SAMPLE_MESSAGE') )
+
+    # Bind the buttons to event handlers
+    evt_button(@ok) { end_modal(Wx::ID_OK) }
+    evt_button(@cancel) { end_modal(Wx::ID_CANCEL) }
+    evt_button(@message) do
+      Wx::message_box("And now a message from our sponsors.")
+    end
+  end
+end
+
+module XrcSample
+
+  include WxRuby::Sample if defined? WxRuby::Sample
+
+  def self.describe
+    { file: __FILE__,
+      summary: 'wxRuby XRC example.',
+      description: 'wxRuby example showcasing loading a dialog using XRC.' }
+  end
+
+  def self.activate
+    # Get a new resources object
+    xrc_file = File.join( File.dirname(__FILE__), 'samples.xrc' )
+    $xml = Wx::XmlResource.new(xrc_file)
+
+    # Show the main frame.
+    main = SimpleFrame.new()
+    main.show(true)
+    main
+  end
+
+  if $0 == __FILE__
+    Wx::App.run { XrcSample.activate }
+  end
+
+end

data/tests/test_basic.rb

@@ -0,0 +1,20 @@
+require 'test/unit'
+require 'wx'
+
+class BasicTests < Test::Unit::TestCase
+
+  def test_versions
+    assert_equal(Wx::WXRUBY_VERSION, "#{Wx::WXRUBY_MAJOR}.#{Wx::WXRUBY_MINOR}.#{Wx::WXRUBY_RELEASE}-#{Wx::WXRUBY_RELEASE_TYPE}")
+    assert_equal(Wx::WXWIDGETS_VERSION, "#{Wx::WXWIDGETS_MAJOR_VERSION}.#{Wx::WXWIDGETS_MINOR_VERSION}.#{Wx::WXWIDGETS_RELEASE_NUMBER}")
+  end
+
+  def test_platform
+    assert(/WX[A-Z]+/ =~ Wx::PLATFORM)
+  end
+
+end
+
+if $0 == __FILE__
+  require 'test/unit/ui/console/testrunner'
+  Test::Unit::UI::Console::TestRunner.run(BasicTests)
+end

data/tests/test_clipboard.rb

@@ -0,0 +1,241 @@
+require 'test/unit'
+require 'test/unit/ui/console/testrunner'
+require 'wx'
+
+class TestTextData < Test::Unit::TestCase
+  # Using an in-built class
+  def test_text_data
+    td = Wx::TextDataObject.new('WXRUBY')
+    assert_equal("WXRUBY", td.text)
+
+    Wx::Clipboard.open do | clip |
+      assert clip.opened?
+      clip.clear
+      assert !clip.supported?(Wx::DF_BITMAP)
+      clip.place td
+      assert clip.supported?(Wx::DF_TEXT)
+      assert !clip.supported?(Wx::DF_BITMAP)
+    end
+
+    td_2 = Wx::TextDataObject.new
+    Wx::Clipboard.open do | clip |
+      clip.fetch td_2
+    end
+    assert_equal("WXRUBY", td_2.text)
+
+    Wx::Clipboard.open do | clip |
+      clip.clear
+    end
+
+    td_3 = Wx::TextDataObject.new
+    Wx::Clipboard.open do | clip |
+      clip.fetch td_3
+    end
+    assert_equal("", td_3.text)
+  end
+end
+
+class TestBitmapData < Test::Unit::TestCase
+  def test_bitmap_data
+    bmp = Wx::Bitmap.new(File.join(__dir__, '../samples/minimal/mondrian.png'))
+    height = bmp.height
+    width  = bmp.width
+    assert bmp.ok?, "Bitmap is OK"
+
+    d_obj = Wx::BitmapDataObject.new(bmp)
+    d_obj.bitmap = bmp
+
+    assert d_obj.bitmap.ok?, "DataObject's bitmap is OK"
+    Wx::Clipboard.open do | clip |
+      clip.clear
+      clip.place d_obj
+      assert clip.supported? Wx::DF_BITMAP
+    end
+
+    d_obj_2 = Wx::BitmapDataObject.new
+    Wx::Clipboard.open do | clip |
+      assert clip.supported? Wx::DF_BITMAP
+      clip.fetch d_obj_2
+    end
+
+    out_bmp = d_obj_2.bitmap
+    assert out_bmp.ok?, "Fetched out bitmap"
+    assert_equal height, out_bmp.height
+    assert_equal width, out_bmp.width
+  end
+end
+
+class TestDataObjectComposite < Test::Unit::TestCase
+  def test_data_object_composite
+    d_obj = Wx::DataObjectComposite.new
+    d_txt = Wx::TextDataObject.new
+    d_obj.add( d_txt )
+    bmp = Wx::Bitmap.new(File.join(__dir__, '../samples/minimal/mondrian.png'))
+
+    d_obj.add( Wx::BitmapDataObject.new )
+    if Wx::PLATFORM == 'WXMSW'
+      assert_equal( 1, d_txt.get_format_count(Wx::DataObject::Direction::Get) )
+      assert_equal( 2, d_obj.get_format_count(Wx::DataObject::Direction::Get) )
+    else
+      assert_equal( 2, d_txt.get_format_count(Wx::DataObject::Direction::Get) )
+      assert_equal( 3, d_obj.get_format_count(Wx::DataObject::Direction::Get) )
+    end
+
+    d_bmp = Wx::BitmapDataObject.new(bmp)
+    Wx::Clipboard.open do | clip |
+      clip.clear
+      clip.place d_bmp
+    end
+
+    Wx::Clipboard.open do | clip |
+      assert !clip.supported?( Wx::DF_TEXT )
+      assert clip.supported?( Wx::DF_BITMAP )
+
+      clip.fetch d_obj
+    end
+
+    if Wx::PLATFORM == 'WXMSW'
+      assert_equal d_obj.received_format.get_type, Wx::DF_DIB.get_type
+      d_bmp = d_obj.get_object(Wx::DF_DIB)
+    else
+      assert_equal d_obj.received_format.get_type, Wx::DF_BITMAP.get_type
+      d_bmp = d_obj.get_object(Wx::DF_BITMAP)
+    end
+    bmp_out = d_bmp.bitmap
+    assert bmp_out.ok?, "Read out bitmap OK"
+    assert_equal bmp.width, bmp_out.width
+    assert_equal bmp.height, bmp_out.height
+
+    d_txt = Wx::TextDataObject.new('THE TEXT')
+    Wx::Clipboard.open do | clip |
+      clip.clear
+      clip.place d_txt
+    end
+
+    d_obj_2 = Wx::DataObjectComposite.new
+    d_txt = Wx::TextDataObject.new
+    d_obj_2.add d_txt
+    d_obj_2.add Wx::BitmapDataObject.new
+
+    Wx::Clipboard.open do | clip |
+      assert clip.supported?( Wx::DF_TEXT )
+      assert clip.supported?( Wx::DF_UNICODETEXT )
+      assert !clip.supported?( Wx::DF_BITMAP )
+
+      clip.fetch d_obj_2
+    end
+
+    assert_equal d_obj_2.received_format.get_type, d_txt.get_preferred_format(Wx::DataObject::Direction::Set).get_type
+    if Wx::PLATFORM == 'WXMSW'
+      d_txt = d_obj_2.get_object(Wx::DF_UNICODETEXT)
+    else
+      d_txt = d_obj_2.get_object(Wx::DF_TEXT)
+    end
+    assert_equal d_txt.text, 'THE TEXT'
+  end
+end
+
+class TestDataObject < Test::Unit::TestCase
+  MY_CUSTOM_FORMAT = Wx::DataFormat.new('text/custom_format')
+
+  class MyBasicDataObject < Wx::DataObject
+    attr_reader :my_data
+
+    def initialize(the_data = '')
+      super()
+      # expect data in the preferred format initially
+      @my_data = the_data
+      @format = MY_CUSTOM_FORMAT.get_type
+    end
+
+    def get_as_text
+      if @my_data.nil? || @my_data.empty? || @format == Wx::DataFormatId::DF_TEXT
+        @my_data
+      else
+        @my_data.gsub(/<[^>]+>/, '') # not f(ul|oo)lproof, I know
+      end
+    end
+
+    def get_formatted
+      if @my_data.nil? || @my_data.empty? || @format != Wx::DataFormatId::DF_TEXT
+        @my_data
+      else
+        "<b>#{@my_data}</b>"
+      end
+    end
+    private :get_formatted
+
+    # List all the formats that we support. By default, the first is
+    # treated as the 'preferred' format; this can be overridden by
+    # providing a get_preferred format.
+    def get_all_formats(direction)
+      [ MY_CUSTOM_FORMAT, Wx::DF_TEXT  ]
+    end
+
+    # Do setting the data
+    def set_data(format, the_data)
+      case format.get_type
+      when MY_CUSTOM_FORMAT.get_type, Wx::DataFormatId::DF_TEXT
+        @my_data = the_data
+        @format = format.get_type
+        true
+      else
+        false
+      end
+    end
+
+    def get_data_size(format)
+      case format.get_type
+      when Wx::DataFormatId::DF_TEXT
+        get_as_text.to_s.size
+      when MY_CUSTOM_FORMAT.get_type
+        get_formatted.to_s.size
+      else
+        0
+      end
+    end
+
+    # Do getting the data
+    def get_data_here(format)
+      case format.get_type
+      when Wx::DataFormatId::DF_TEXT
+        get_as_text
+      when MY_CUSTOM_FORMAT.get_type
+        get_formatted
+      else
+        nil
+      end
+    end
+  end
+
+  def test_data_obj
+    d_obj = MyBasicDataObject.new
+    d_obj.set_data(Wx::DF_TEXT, 'HELLO')
+    assert_equal( 2, d_obj.get_format_count(0) )
+    assert_equal('HELLO', d_obj.get_data_here(Wx::DF_TEXT) )
+    assert_equal('<b>HELLO</b>', d_obj.get_data_here(MY_CUSTOM_FORMAT) )
+
+    Wx::Clipboard.open do | clip |
+      clip.place d_obj
+    end
+    
+    d_obj_2 = MyBasicDataObject.new
+    Wx::Clipboard.open do | clip |
+      assert clip.supported?( Wx::DF_TEXT )
+      assert clip.supported?( MY_CUSTOM_FORMAT )
+      clip.fetch d_obj_2
+    end
+    assert_equal('<b>HELLO</b>', d_obj_2.get_data_here(MY_CUSTOM_FORMAT) )
+
+    assert_equal('HELLO', d_obj_2.get_data_here(Wx::DF_TEXT) )
+  end
+end
+
+Wx::App.run do
+  # Must run whilst App is alive
+  Test::Unit::UI::Console::TestRunner.run(TestTextData)
+  Test::Unit::UI::Console::TestRunner.run(TestBitmapData)
+  Test::Unit::UI::Console::TestRunner.run(TestDataObjectComposite)
+  Test::Unit::UI::Console::TestRunner.run(TestDataObject)
+  false
+end

data/tests/test_dialog.rb

@@ -0,0 +1,28 @@
+require 'test/unit'
+require 'test/unit/ui/console/testrunner'
+require 'wx'
+
+class DialogTests < Test::Unit::TestCase
+
+  class TestDialog < Wx::Dialog
+    def initialize
+      super()
+    end
+  end
+
+  def test_dialog_inheritance
+    dlg = TestDialog.new
+    assert_kind_of(Wx::Dialog, dlg)
+    assert_kind_of(Wx::Window, dlg)
+  end
+end
+
+class TestApp < Wx::App
+  def on_init
+    Test::Unit::UI::Console::TestRunner.run(DialogTests)
+    false
+  end
+end
+
+app = TestApp.new
+app.run

data/tests/test_event_handling.rb

@@ -0,0 +1,103 @@
+require 'test/unit'
+require 'test/unit/ui/console/testrunner'
+require 'wx'
+
+class EventHandlingTests < Test::Unit::TestCase
+
+  class TestEvent < Wx::Event
+    EVT_TEST_EVENT = Wx::EvtHandler.register_class(self, nil, 'evt_test_event', 0)
+    def initialize(id=0)
+      super(EVT_TEST_EVENT, id)
+    end
+  end
+
+  class TestCmdEvent < Wx::CommandEvent
+    EVT_TEST_CMD_EVENT = Wx::EvtHandler.register_class(self, nil, 'evt_test_cmd_event', 0)
+    def initialize(id=0)
+      super(EVT_TEST_CMD_EVENT, id)
+    end
+  end
+
+  class TestFrame < Wx::Frame
+
+    class Child < Wx::Window
+      def initialize(parent)
+        super(parent)
+        @test_event = false
+        @test_cmd_event = false
+
+        evt_test_event { |evt| @test_event = true; evt.skip if evt.id > 0 }
+        evt_test_cmd_event { |evt| @test_cmd_event = true; evt.skip if evt.id > 0 }
+      end
+      attr_reader :test_event, :test_cmd_event
+
+      def reset
+        @test_event = false
+        @test_cmd_event = false
+      end
+    end
+
+    def initialize
+      super(nil, size: [300,300])
+      @child = Child.new(self)
+      @test_event = false
+      @test_cmd_event = false
+
+      evt_test_event { |evt| @test_event = true }
+      evt_test_cmd_event { |evt| @test_cmd_event = true }
+    end
+
+    attr_reader :child
+    attr_reader :test_event, :test_cmd_event
+
+    def reset
+      @test_event = false
+      @test_cmd_event = false
+      child.reset
+    end
+  end
+
+  def test_event
+    win = TestFrame.new
+    assert_boolean(!win.test_event)
+    assert_boolean(!win.child.test_event)
+    win.child.event_handler.process_event(TestEvent.new)
+    assert_boolean(!win.test_event)
+    assert_boolean(win.child.test_event)
+    win.reset
+    win.child.event_handler.process_event(TestEvent.new(1))
+    assert_boolean(!win.test_event)
+    assert_boolean(win.child.test_event)
+    win.reset
+    win.event_handler.process_event(TestEvent.new)
+    assert_boolean(win.test_event)
+    assert_boolean(!win.child.test_event)
+  end
+
+  def test_cmd_event
+    win = TestFrame.new
+    assert_boolean(!win.test_cmd_event)
+    assert_boolean(!win.child.test_cmd_event)
+    win.child.event_handler.process_event(TestCmdEvent.new)
+    assert_boolean(!win.test_cmd_event)
+    assert_boolean(win.child.test_cmd_event)
+    win.reset
+    win.child.event_handler.process_event(TestCmdEvent.new(1))
+    assert_boolean(win.test_cmd_event)
+    assert_boolean(win.child.test_cmd_event)
+    win.reset
+    win.event_handler.process_event(TestCmdEvent.new)
+    assert_boolean(win.test_cmd_event)
+    assert_boolean(!win.child.test_cmd_event)
+  end
+end
+
+class TestApp < Wx::App
+  def on_init
+    Test::Unit::UI::Console::TestRunner.run(EventHandlingTests)
+    false
+  end
+end
+
+app = TestApp.new
+app.run