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

data/samples/controls/controls.rb

@@ -0,0 +1,1143 @@
+#!/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'
+
+include Wx
+
+CONTROLS_QUIT   = ID_EXIT
+CONTROLS_TEXT   = 101
+CONTROLS_ABOUT  = ID_ABOUT
+CONTROLS_CLEAR_LOG = 103
+# tooltip menu
+CONTROLS_SET_TOOLTIP_DELAY = 200
+CONTROLS_ENABLE_TOOLTIPS = 201
+# panel menu
+CONTROLS_ENABLE_ALL     = 202
+
+
+ID_NOTEBOOK          = 1000
+
+ID_LISTBOX           = 130
+ID_LISTBOX_SEL_NUM   = 131
+ID_LISTBOX_SEL_STR   = 132
+ID_LISTBOX_CLEAR     = 133
+ID_LISTBOX_APPEND    = 134
+ID_LISTBOX_DELETE    = 135
+ID_LISTBOX_FONT      = 136
+ID_LISTBOX_ENABLE    = 137
+ID_LISTBOX_SORTED    = 138
+
+ID_CHOICE            = 120
+ID_CHOICE_SEL_NUM    = 121
+ID_CHOICE_SEL_STR    = 122
+ID_CHOICE_CLEAR      = 123
+ID_CHOICE_APPEND     = 124
+ID_CHOICE_DELETE     = 125
+ID_CHOICE_FONT       = 126
+ID_CHOICE_ENABLE     = 127
+ID_CHOICE_SORTED     = 128
+
+ID_COMBO             = 140
+ID_COMBO_SEL_NUM     = 141
+ID_COMBO_SEL_STR     = 142
+ID_COMBO_CLEAR       = 143
+ID_COMBO_APPEND      = 144
+ID_COMBO_DELETE      = 145
+ID_COMBO_FONT        = 146
+ID_COMBO_ENABLE      = 147
+
+ID_RADIOBOX          = 160
+ID_RADIOBOX_SEL_NUM  = 161
+ID_RADIOBOX_SEL_STR  = 162
+ID_RADIOBOX_FONT     = 163
+ID_RADIOBOX_ENABLE   = 164
+
+ID_RADIOBUTTON_1     = 166
+ID_RADIOBUTTON_2     = 167
+
+ID_SET_FONT          = 170
+
+ID_GAUGE             = 180
+ID_SLIDER            = 181
+
+ID_SPIN              = 182
+ID_BTNPROGRESS       = 183
+ID_BUTTON_LABEL      = 184
+ID_SPINCTRL          = 185
+
+ID_BUTTON_TEST1      = 190
+ID_BUTTON_TEST2      = 191
+ID_BITMAP_BTN        = 192
+
+ID_CHANGE_COLOUR     = 200
+
+ID_SIZER_CHECK1      = 201
+ID_SIZER_CHECK2      = 202
+ID_SIZER_CHECK3      = 203
+ID_SIZER_CHECK4      = 204
+ID_SIZER_CHECK14     = 205
+ID_SIZER_CHECKBIG    = 206
+
+Image_List, Image_Choice, Image_Combo, Image_Text, Image_Radio, Image_Gauge, Image_Max = (0..6).to_a
+
+
+# a button which intercepts double clicks (for testing...)
+class MyButton < Button
+  def initialize(parent,id,label = EmptyString,pos = DEFAULT_POSITION,size = DEFAULT_SIZE)
+    super(parent,id,label,pos,size)
+
+    evt_left_dclick {|event| onDClick(event)}
+  end
+
+  def onDClick(event)
+    log_message("MyButton::OnDClick")
+    event.skip()
+  end
+
+end
+
+# a combo which intercepts chars (to test Windows behaviour)
+class MyComboBox < ComboBox
+  def initialize(parent,id,value = EmptyString,
+                  pos = DEFAULT_POSITION,
+                  size = DEFAULT_SIZE,
+                  choices = [],
+                  style = 0)
+    super(parent, id, value, pos, size, choices)#, style)
+
+    evt_char {|event| onChar(event)}
+    evt_key_down {|event| onKeyDown(event)}
+    evt_key_up {|event| onKeyUp(event)}
+
+    evt_set_focus {|event| onFocusGot(event)}
+  end
+
+  def onChar(event)
+    log_message("MyComboBox::OnChar")
+    if event.key_code() == ?w
+      log_message("MyComboBox: 'w' will be ignored.")
+    else
+      event.skip()
+    end
+  end
+
+  def onKeyDown(event)
+    log_message("MyComboBox::OnKeyDown")
+    if event.key_code() == ?w
+      log_message("MyComboBox: 'w' will be ignored.")
+    else
+      event.skip()
+    end
+  end
+
+  def onKeyUp(event)
+	#log_message("MyComboBox::OnKeyUp")
+    event.skip()
+  end
+
+  def onFocusGot(event)
+	  log_message("MyComboBox::OnFocusGot")
+    event.skip()
+  end
+
+end
+
+# a radiobox which handles focus set/kill (for testing)
+class MyRadioBox < RadioBox
+  def initialize(parent,
+                  id,title = EmptyString,
+                  pos = DEFAULT_POSITION,
+                  size = DEFAULT_SIZE,
+                  choices = [],
+                  majorDim = 1,
+                  style = RA_HORIZONTAL)
+    super(parent, id, title, pos, size, choices, majorDim,style)
+    set_foreground_colour(RED)
+
+    evt_set_focus {|event| onFocusGot(event)}
+    evt_kill_focus {|event| onFocusLost(event)}
+
+  end
+
+  def onFocusGot(event)
+    log_message("MyRadioBox::OnFocusGot")
+    event.skip()
+  end
+
+  def onFocusLost(event)
+    log_message("MyRadioBox::OnFocusLost")
+    event.skip()
+  end
+
+end
+
+
+class MyPanel < Panel
+
+  #    delete Log::set_active_target(@m_logTargetOld)
+  #    delete @m_notebook.GetImageList()
+  attr_reader   :m_text,:m_logTargetOld
+
+  def initialize(frame,x,y,w,h)
+    super( frame, -1, Point.new(x, y), Size.new(w, h) )
+
+    @s_colOld = NULL_COLOUR
+
+    @m_text = TextCtrl.new(self, -1, "This is the log window.\n",
+                            Point.new(0, 250), Size.new(100, 50), TE_MULTILINE)
+    @m_text.set_background_colour(Colour.new("wheat"))
+
+	  @m_logTargetOld = Log::set_active_target(LogTextCtrl.new(@m_text))
+
+    @m_notebook = Wx::Notebook.new(self, ID_NOTEBOOK, Point.new(0,0), Size.new(100,50))
+
+    choices = [
+      "This",
+      "is one of my",
+      "really",
+      "wonderful",
+      "examples."
+    ]
+
+    # fill the image list
+
+    imagelist = ImageList.new(16, 16)
+
+    imagelist.add( Bitmap.new( local_icon_file("list.xpm"), 
+                               Wx::BITMAP_TYPE_XPM))
+    imagelist.add( Bitmap.new( local_icon_file("choice.xpm"), 
+                               Wx::BITMAP_TYPE_XPM))
+    imagelist.add( Bitmap.new( local_icon_file("combo.xpm"), 
+                               Wx::BITMAP_TYPE_XPM))
+    imagelist.add( Bitmap.new( local_icon_file("text.xpm"), 
+                               Wx::BITMAP_TYPE_XPM))
+    imagelist.add( Bitmap.new( local_icon_file("radio.xpm"), 
+                               Wx::BITMAP_TYPE_XPM))
+    imagelist.add( Bitmap.new( local_icon_file("gauge.xpm"), 
+                               Wx::BITMAP_TYPE_XPM))
+
+    @m_notebook.set_image_list(imagelist)
+
+    panel = Panel.new(@m_notebook)
+    @m_listbox = ListBox.new( panel, ID_LISTBOX,
+                              Point.new(10,10), Size.new(120,70),
+                              choices, LB_ALWAYS_SB )
+
+    @m_listboxSorted = ListBox.new( panel, ID_LISTBOX_SORTED,
+                                    Point.new(10,90), Size.new(120,70),
+                                    choices, LB_SORT )
+
+
+    @m_listbox.set_cursor(CROSS_CURSOR)
+
+    @m_listbox.set_tool_tip( "This is a list box" )
+
+
+    @m_lbSelectNum = Button.new( panel, ID_LISTBOX_SEL_NUM, "Select #&2", Point.new(180,30), Size.new(140,30) )
+    @m_lbSelectThis = Button.new( panel, ID_LISTBOX_SEL_STR, "&Select 'This'", Point.new(340,30), Size.new(140,30) )
+    Button.new( panel, ID_LISTBOX_CLEAR, "&clear", Point.new(180,80), Size.new(140,30) )
+    MyButton.new( panel, ID_LISTBOX_APPEND, "&append 'Hi!'", Point.new(340,80), Size.new(140,30) )
+    Button.new( panel, ID_LISTBOX_DELETE, "D&elete selected item", Point.new(180,130), Size.new(140,30) )
+    button = MyButton.new( panel, ID_LISTBOX_FONT, "Set &Italic font", Point.new(340,130), Size.new(140,30) )
+
+    button.set_default()
+
+    button.set_foreground_colour(BLUE)
+
+    button.set_tool_tip( "Press here to set italic font" )
+
+    @m_checkbox = CheckBox.new( panel, ID_LISTBOX_ENABLE, "&Disable", Point.new(20,170) )
+    @m_checkbox.set_value(false)
+    @m_checkbox.set_tool_tip( "Click here to disable the listbox" )
+    @m_toggle_color = CheckBox.new( panel, ID_CHANGE_COLOUR, "&Toggle colour",
+                                    Point.new(110,170) )
+    panel.set_cursor(Cursor.new(CURSOR_HAND))
+    @m_notebook.add_page(panel, "ListBox", true, Image_List)
+
+    panel = Panel.new(@m_notebook)
+    @m_choice = Choice.new( panel, ID_CHOICE, Point.new(10,10), Size.new(120,-1), choices )
+    @m_choiceSorted = Choice.new( panel, ID_CHOICE_SORTED, Point.new(10,70), Size.new(120,-1),
+                                  choices, CB_SORT )
+
+    @m_choice.set_selection(2)
+    @m_choice.set_background_colour(Colour.new("red"))
+    Button.new( panel, ID_CHOICE_SEL_NUM, "Select #&2", Point.new(180,30), Size.new(140,30) )
+    Button.new( panel, ID_CHOICE_SEL_STR, "&Select 'This'", Point.new(340,30), Size.new(140,30) )
+    Button.new( panel, ID_CHOICE_CLEAR, "&clear", Point.new(180,80), Size.new(140,30) )
+    Button.new( panel, ID_CHOICE_APPEND, "&append 'Hi!'", Point.new(340,80), Size.new(140,30) )
+    Button.new( panel, ID_CHOICE_DELETE, "D&elete selected item", Point.new(180,130), Size.new(140,30) )
+    Button.new( panel, ID_CHOICE_FONT, "Set &Italic font", Point.new(340,130), Size.new(140,30) )
+    CheckBox.new( panel, ID_CHOICE_ENABLE, "&Disable", Point.new(20,130), Size.new(140,30) )
+
+    @m_notebook.add_page(panel, "Choice", false, Image_Choice)
+
+    panel = Panel.new(@m_notebook)
+    StaticBox.new( panel, -1, "&Box around combobox",
+                   Point.new(5, 5), Size.new(150, 100))
+    @m_combo = MyComboBox.new( panel, ID_COMBO, "This",
+                               Point.new(20,25), Size.new(120, -1),
+                               choices,TE_PROCESS_ENTER)
+    # CB_READONLY | PROCESS_ENTER)
+
+    @m_combo.set_tool_tip("This is a natural\ncombobox - can you believe me?")
+
+    Button.new( panel, ID_COMBO_SEL_NUM, "Select #&2", Point.new(180,30), Size.new(140,30) )
+    Button.new( panel, ID_COMBO_SEL_STR, "&Select 'This'", Point.new(340,30), Size.new(140,30) )
+    Button.new( panel, ID_COMBO_CLEAR, "&clear", Point.new(180,80), Size.new(140,30) )
+    Button.new( panel, ID_COMBO_APPEND, "&append 'Hi!'", Point.new(340,80), Size.new(140,30) )
+    Button.new( panel, ID_COMBO_DELETE, "D&elete selected item", Point.new(180,130), Size.new(140,30) )
+    Button.new( panel, ID_COMBO_FONT, "Set &Italic font", Point.new(340,130), Size.new(140,30) )
+    CheckBox.new( panel, ID_COMBO_ENABLE, "&Disable", Point.new(20,130), Size.new(140,30) )
+    @m_notebook.add_page(panel, "ComboBox", false, Image_Combo)
+
+    choices2 = ["First", "Second"]
+    # "Third",
+    #"Fourth", "Fifth", "Sixth",
+    #"Seventh", "Eighth", "Nineth", "Tenth" */
+
+    panel = Panel.new(@m_notebook)
+    MyRadioBox.new( panel, ID_RADIOBOX, "&That", Point.new(10,160), Size.new(-1,-1), choices2, 1, RA_SPECIFY_ROWS )
+    @m_radio = RadioBox.new( panel, ID_RADIOBOX, "T&his", Point.new(10,10), Size.new(-1,-1), choices, 1, RA_SPECIFY_COLS )
+    @m_radio.set_foreground_colour(RED)
+
+    @m_radio.set_tool_tip("Ever seen a radiobox?")
+
+    Button.new( panel, ID_RADIOBOX_SEL_NUM, "Select #&2", Point.new(180,30), Size.new(140,30) )
+    Button.new( panel, ID_RADIOBOX_SEL_STR, "&Select 'This'", Point.new(180,80), Size.new(140,30) )
+    @m_fontButton = Button.new( panel, ID_SET_FONT, "Set &more Italic font", Point.new(340,30), Size.new(140,30) )
+    Button.new( panel, ID_RADIOBOX_FONT, "Set &Italic font", Point.new(340,80), Size.new(140,30) )
+    CheckBox.new( panel, ID_RADIOBOX_ENABLE, "&Disable", Point.new(340,130), DEFAULT_SIZE )
+    rb = RadioButton.new( panel, ID_RADIOBUTTON_1, "Radiobutton1", Point.new(210,170), DEFAULT_SIZE, RB_GROUP )
+    rb.set_value( false )
+    RadioButton.new( panel, ID_RADIOBUTTON_2, "&Radiobutton2", Point.new(340,170), DEFAULT_SIZE )
+    @m_notebook.add_page(panel, "RadioBox", false, Image_Radio)
+
+    panel = Panel.new(@m_notebook)
+    StaticBox.new( panel, -1, "&Gauge and Slider", Point.new(10,10), Size.new(222,130) )
+    @m_gauge = Gauge.new( panel, -1, 200, Point.new(18,50), Size.new(155, 30), GA_HORIZONTAL|NO_BORDER )
+    @m_gauge.set_background_colour(GREEN)
+    @m_gauge.set_foreground_colour(RED)
+    @m_gaugeVert = Gauge.new( panel, -1, 100,
+                              Point.new(195,35), Size.new(30, 90),
+                              GA_VERTICAL | GA_SMOOTH | NO_BORDER )
+    @m_slider = Slider.new( panel, ID_SLIDER, 0, 0, 200, Point.new(18,90), Size.new(155,-1),
+                            SL_AUTOTICKS | SL_LABELS )
+    @m_slider.set_tick_freq(40)
+    @m_slider.set_tool_tip("This is a sliding slider")
+
+    StaticBox.new( panel, -1, "&Explanation",
+                   Point.new(230,10), Size.new(270,130),
+                   ALIGN_CENTER )
+
+    StaticText.new( panel, -1,
+                    "In order see the gauge (aka progress bar)\n"+
+                    "control do something you have to drag the\n"+
+                    "handle of the slider to the right.\n"+
+                    "\n"+
+                    "This is also supposed to demonstrate how\n"+
+                    "to use static controls.\n",
+                    Point.new(250,25),
+                    Size.new(240, 110))
+    initialSpinValue = -5
+    s = initialSpinValue.to_s
+    @m_spintext = TextCtrl.new( panel, -1, s, Point.new(20,160), Size.new(80,-1) )
+    @m_spinbutton = SpinButton.new( panel, ID_SPIN, Point.new(103,160), Size.new(80, -1) )
+    @m_spinbutton.set_range(-40,30)
+    @m_spinbutton.set_value(initialSpinValue)
+
+    @m_btnProgress = Button.new( panel, ID_BTNPROGRESS, "&Show progress dialog",
+                                 Point.new(300, 160) )
+
+    @m_spinctrl = SpinCtrl.new( panel, ID_SPINCTRL, "", Point.new(200, 160), Size.new(80, -1) )
+    @m_spinctrl.set_range(10,30)
+    @m_spinctrl.set_value(15)
+
+    @m_notebook.add_page(panel, "Gauge", false, Image_Gauge)
+
+    panel = Panel.new(@m_notebook)
+
+    icon = ArtProvider::get_icon(ART_INFORMATION)
+    StaticBitmap.new( panel, -1, icon, Point.new(10, 10) )
+
+    bitmap = Bitmap.new( 100, 100 )
+    bitmap.draw do | dc |
+      dc.clear()
+      dc.set_pen(GREEN_PEN)
+      dc.draw_ellipse(5, 5, 90, 90)
+      dc.draw_text("Bitmap", 30, 40)
+    end
+
+    BitmapButton.new(panel, ID_BITMAP_BTN, bitmap, Point.new(100, 20))
+
+    # test for masked bitmap display
+    bitmap = Bitmap.new( File.join(File.dirname(__FILE__), "test2.bmp"), 
+                         BITMAP_TYPE_BMP)
+    if bitmap.is_ok()
+      bitmap.set_mask(Mask.new(bitmap, BLUE))
+      StaticBitmap.new(panel, -1, bitmap, Point.new(300, 120))
+    end
+
+    bmp1 = ArtProvider::get_bitmap(ART_INFORMATION)
+    bmp2 = ArtProvider::get_bitmap(ART_WARNING)
+    bmp3 = ArtProvider::get_bitmap(ART_QUESTION)
+    bmpBtn = BitmapButton.new(panel, -1,
+                              bmp1,
+                              Point.new(30, 70))
+
+    bmpBtn.set_bitmap_current(bmp2)
+    bmpBtn.set_bitmap_pressed(bmp3)
+
+    ToggleButton.new(panel, ID_BUTTON_LABEL,
+                      "&Toggle label", Point.new(250, 20))
+    @m_label = StaticText.new(panel, -1, "Label with some long text",
+                               Point.new(250, 60), DEFAULT_SIZE,
+                               ALIGN_RIGHT)
+    @m_label.set_foreground_colour(BLUE )
+
+    @m_notebook.add_page(panel, "BitmapXXX")
+
+    # sizer
+
+    panel = Panel.new(@m_notebook)
+    panel.set_auto_layout( true )
+
+    sizer = BoxSizer.new( VERTICAL )
+
+    csizer =
+      StaticBoxSizer.new(sbox = StaticBox.new(panel, -1, "Show Buttons"),
+                          HORIZONTAL )
+
+    check1 = CheckBox.new(sbox, ID_SIZER_CHECK1, "1")
+    check1.set_value(true)
+    csizer.add(check1)
+    check2 = CheckBox.new(sbox, ID_SIZER_CHECK2, "2")
+    check2.set_value(true)
+    csizer.add(check2)
+    check3 = CheckBox.new(sbox, ID_SIZER_CHECK3, "3")
+    check3.set_value(true)
+    csizer.add(check3)
+    check4 = CheckBox.new(sbox, ID_SIZER_CHECK4, "4")
+    check4.set_value(true)
+    csizer.add(check4)
+    check14 = CheckBox.new(sbox, ID_SIZER_CHECK14, "1-4")
+    check14.set_value(true)
+    csizer.add(check14)
+    checkBig = CheckBox.new(sbox, ID_SIZER_CHECKBIG, "Big")
+    checkBig.set_value(true)
+    csizer.add(checkBig)
+
+    sizer.add(csizer)
+
+    @m_hsizer = BoxSizer.new( HORIZONTAL )
+
+    @m_buttonSizer = BoxSizer.new(VERTICAL)
+
+    @m_sizerBtn1 = Button.new(panel, -1, "Test Button &1" )
+    @m_buttonSizer.add( @m_sizerBtn1, 0, ALL, 10 )
+    @m_sizerBtn2 = Button.new(panel, -1, "Test Button &2" )
+    @m_buttonSizer.add( @m_sizerBtn2, 0, ALL, 10 )
+    @m_sizerBtn3 = Button.new(panel, -1, "Test Button &3" )
+    @m_buttonSizer.add( @m_sizerBtn3, 0, ALL, 10 )
+    @m_sizerBtn4 = Button.new(panel, -1, "Test Button &4" )
+    @m_buttonSizer.add( @m_sizerBtn4, 0, ALL, 10 )
+
+    @m_hsizer.add(@m_buttonSizer)
+    @m_hsizer.add( 20,20, 1 )
+    @m_bigBtn = Button.new(panel, -1, "Multiline\nbutton" )
+    @m_hsizer.add( @m_bigBtn , 3, GROW|ALL, 10 )
+
+    sizer.add(@m_hsizer, 1, GROW)
+
+    panel.set_sizer( sizer )
+
+    @m_notebook.add_page(panel, "Sizer")
+
+    evt_size {|event| onSize(event) }
+    evt_notebook_page_changing(ID_NOTEBOOK)  {|event| onPageChanging(event) }
+    evt_notebook_page_changed(ID_NOTEBOOK) {|event| onPageChanged(event) }
+    evt_listbox(ID_LISTBOX) {|event| onListBox(event) }
+    evt_listbox(ID_LISTBOX_SORTED) {|event| onListBox(event) }
+    evt_listbox_dclick(ID_LISTBOX) {|event| onListBoxDoubleClick(event) }
+    evt_button(ID_LISTBOX_SEL_NUM) {|event| onListBoxButtons(event) }
+    evt_button(ID_LISTBOX_SEL_STR) {|event| onListBoxButtons(event) }
+    evt_button(ID_LISTBOX_CLEAR) {|event| onListBoxButtons(event) }
+    evt_button(ID_LISTBOX_APPEND) {|event| onListBoxButtons(event) }
+    evt_button(ID_LISTBOX_DELETE) {|event| onListBoxButtons(event) }
+    evt_button(ID_LISTBOX_FONT) {|event| onListBoxButtons(event) }
+    evt_checkbox(ID_LISTBOX_ENABLE) {|event| onListBoxButtons(event) }
+    evt_choice(ID_CHOICE) {|event| onChoice(event) }
+    evt_choice(ID_CHOICE_SORTED) {|event| onChoice(event) }
+    evt_button(ID_CHOICE_SEL_NUM) {|event| onChoiceButtons(event) }
+    evt_button(ID_CHOICE_SEL_STR) {|event| onChoiceButtons(event) }
+    evt_button(ID_CHOICE_CLEAR) {|event| onChoiceButtons(event) }
+    evt_button(ID_CHOICE_APPEND) {|event| onChoiceButtons(event) }
+    evt_button(ID_CHOICE_DELETE) {|event| onChoiceButtons(event) }
+    evt_button(ID_CHOICE_FONT) {|event| onChoiceButtons(event) }
+    evt_checkbox(ID_CHOICE_ENABLE) {|event| onChoiceButtons(event) }
+    evt_combobox(ID_COMBO) {|event| onCombo(event) }
+    evt_text(ID_COMBO) {|event| onComboTextChanged(event) }
+    evt_text_enter(ID_COMBO) {|event| onComboTextEnter(event) }
+    evt_button(ID_COMBO_SEL_NUM) {|event| onComboButtons(event) }
+    evt_button(ID_COMBO_SEL_STR) {|event| onComboButtons(event) }
+    evt_button(ID_COMBO_CLEAR) {|event| onComboButtons(event) }
+    evt_button(ID_COMBO_APPEND) {|event| onComboButtons(event) }
+    evt_button(ID_COMBO_DELETE) {|event| onComboButtons(event) }
+    evt_button(ID_COMBO_FONT) {|event| onComboButtons(event) }
+    evt_checkbox(ID_COMBO_ENABLE) {|event| onComboButtons(event) }
+    evt_radiobox(ID_RADIOBOX) {|event| onRadio(event) }
+    evt_button(ID_RADIOBOX_SEL_NUM) {|event| onRadioButtons(event) }
+    evt_button(ID_RADIOBOX_SEL_STR) {|event| onRadioButtons(event) }
+    evt_button(ID_RADIOBOX_FONT) {|event| onRadioButtons(event) }
+    evt_checkbox(ID_RADIOBOX_ENABLE) {|event| onRadioButtons(event) }
+    evt_button(ID_SET_FONT) {|event| onSetFont(event) }
+    evt_slider(ID_SLIDER) {|event| onSliderupdate(event) }
+    evt_spin(ID_SPIN) {|event| onSpinupdate(event) }
+    evt_spin_up(ID_SPIN) {|event| onSpinUp(event) }
+    evt_spin_down(ID_SPIN) {|event| onSpinDown(event) }
+    evt_update_ui(ID_BTNPROGRESS) {|event| onupdateShowProgress(event) }
+    evt_button(ID_BTNPROGRESS) {|event| onShowProgress(event) }
+    evt_spinctrl(ID_SPINCTRL) {|event| onSpinCtrl(event) }
+    evt_spin_up(ID_SPINCTRL) {|event| onSpinCtrlUp(event) }
+    evt_spin_down(ID_SPINCTRL) {|event| onSpinCtrlDown(event) }
+    evt_text(ID_SPINCTRL) {|event| onSpinCtrlText(event) }
+    if (RUBY_PLATFORM =~ /mswin/)
+      evt_togglebutton(ID_BUTTON_LABEL) {|event| onupdateLabel(event) }
+    end
+    evt_checkbox(ID_CHANGE_COLOUR) {|event| onChangeColour(event) }
+    evt_button(ID_BUTTON_TEST1) {|event| onTestButton(event) }
+    evt_button(ID_BUTTON_TEST2) {|event| onTestButton(event) }
+    evt_button(ID_BITMAP_BTN) {|event| onBmpButton(event) }
+
+    evt_checkbox(ID_SIZER_CHECK1) {|event| onSizerCheck(event) }
+    evt_checkbox(ID_SIZER_CHECK2) {|event| onSizerCheck(event) }
+    evt_checkbox(ID_SIZER_CHECK3) {|event| onSizerCheck(event) }
+    evt_checkbox(ID_SIZER_CHECK4) {|event| onSizerCheck(event) }
+    evt_checkbox(ID_SIZER_CHECK14) {|event| onSizerCheck(event) }
+    evt_checkbox(ID_SIZER_CHECKBIG) {|event| onSizerCheck(event) }
+
+  end
+
+  # utility function to find an icon relative to this ruby script
+  def local_icon_file(icon_name)
+    File.join( __dir__, icon_name)
+  end
+
+
+  def onSize(event)
+    size = get_client_size()
+    x = size.get_width
+    y = size.get_height
+    if @m_notebook
+      @m_notebook.set_size( 2, 2, x-4, y*2/3-4 )
+    end
+    if @m_text
+      @m_text.set_size( 2, y*2/3+2, x-4, y/3-4 )
+    end
+  end
+
+  def onPageChanging(event)
+	
+    selOld = event.get_old_selection()
+    if selOld == 2
+      if message_box("This demonstrates how a program may prevent the\n"+
+                      "page change from taking place - if you select\n"+
+                      "[No] the current page will stay the third one\n",
+                      "Control sample",
+                      ICON_QUESTION | YES_NO, self) != YES
+        event.veto()
+        return nil
+      end
+    end
+    @m_text << "Notebook selection is being changed from " << selOld \
+    << " to " << event.get_selection()   \
+    << " (current page from notebook is "   \
+    << @m_notebook.get_selection() << ")\n"
+  end
+
+  def onPageChanged(event)
+    @m_text << "Notebook selection is now " << event.get_selection() \
+    << " (from notebook: " << @m_notebook.get_selection()    \
+    << ")\n"
+  end
+
+  def onTestButton(event)
+    log_message("Button %s clicked.",
+                 event.get_id() == ID_BUTTON_TEST1 ? '1' : '2')
+  end
+
+  def onBmpButton(event)
+    log_message("Bitmap button clicked.")
+  end
+
+  def onChangeColour(event)
+    # test panel colour changing and propagation to the subcontrols
+    if @s_colOld.is_ok()
+
+      set_background_colour(@s_colOld)
+      @s_colOld = NULL_COLOUR
+
+      @m_lbSelectThis.set_foreground_colour(Colour.new("red"))
+      @m_lbSelectThis.set_background_colour(Colour.new("white"))
+    else
+      @s_colOld = Colour.new("red")
+      set_background_colour(Colour.new("white"))
+
+      @m_lbSelectThis.set_foreground_colour(Colour.new("white"))
+      @m_lbSelectThis.set_background_colour(Colour.new("red"))
+    end
+
+    @m_lbSelectThis.refresh()
+    refresh()
+  end
+
+  def onListBox(event)
+    #    GetParent().Move(100, 100)
+    if event.get_int() == -1
+      @m_text.append_text( "ListBox has no selections anymore\n" )
+      return Qnil
+    end
+
+    listbox = (event.get_id() == ID_LISTBOX) ? @m_listbox : @m_listboxSorted
+
+    @m_text.append_text( "ListBox event selection string is: '" )
+    @m_text.append_text( event.get_string() )
+    @m_text.append_text( "'\n" )
+    @m_text.append_text( "ListBox control selection string is: '" )
+    @m_text.append_text( listbox.get_string_selection() )
+    @m_text.append_text( "'\n" )
+
+    # NOTE: get_client_data and set_client_data have been removed from wxRuby 0.4
+    # because they could cause crashes
+    #        obj = event.get_client_data()
+    #        @m_text.append_text( "ListBox event client data string is: '" )
+    #        if obj
+    #            @m_text.append_text( obj )
+    #        else
+    #            @m_text.append_text( "none" )
+    #        end
+
+    #        @m_text.append_text( "'\n" )
+    #        @m_text.append_text( "ListBox control client data string is: '" )
+    #        obj = listbox.get_client_data(listbox.get_selection())
+    #        if obj
+    #            @m_text.append_text( obj )
+    #        else
+    #            @m_text.append_text( "none" )
+    #        end
+    #        @m_text.append_text( "'\n" )
+  end
+
+  def onListBoxDoubleClick(event)
+    @m_text.append_text( "ListBox double click string is: " )
+    @m_text.append_text( event.get_string() )
+    @m_text.append_text( "\n" )
+  end
+
+  def onListBoxButtons(event)
+    case event.get_id()
+    when ID_LISTBOX_ENABLE
+      @m_text.append_text("Checkbox clicked.\n")
+      if event.get_int() != 0
+        @m_checkbox.set_tool_tip( "Click to enable listbox" )
+        @m_toggle_color.enable(false)
+      else
+        @m_checkbox.set_tool_tip( "Click to disable listbox" )
+        @m_toggle_color.enable(true)
+      end
+      @m_listbox.enable( event.get_int() == 0 )
+      @m_lbSelectThis.enable( event.get_int() == 0 )
+      @m_lbSelectNum.enable( event.get_int() == 0 )
+      @m_listboxSorted.enable( event.get_int() == 0 )
+      #w = Window::find_window_by_id(ID_CHANGE_COLOUR)
+      #if(w)
+      #    w.enable( event.get_int() == 0 )
+      #else
+      #    puts("Window ID_CHANGE_COLOR not found")
+      #end
+    when ID_LISTBOX_SEL_NUM
+      @m_listbox.set_selection( 2 )
+      @m_listboxSorted.set_selection( 2 )
+      @m_lbSelectThis.warp_pointer( 40, 14 )
+    when ID_LISTBOX_SEL_STR
+      @m_listbox.set_string_selection( "This" )
+      @m_listboxSorted.set_string_selection( "This" )
+      @m_lbSelectNum.warp_pointer( 40, 14 )
+    when ID_LISTBOX_CLEAR
+      @m_listbox.clear()
+      @m_listboxSorted.clear()
+    when ID_LISTBOX_APPEND
+      @m_listbox.append( "Hi!" )
+      @m_listboxSorted.append( "Hi!" )
+    when ID_LISTBOX_DELETE
+      idx = @m_listbox.get_selection()
+      if idx != NOT_FOUND
+        @m_listbox.delete( idx )
+      end
+      idx = @m_listboxSorted.get_selection()
+      if idx != NOT_FOUND
+        @m_listboxSorted.delete( idx )
+      end
+    when ID_LISTBOX_FONT
+      @m_listbox.set_font( ITALIC_FONT )
+      @m_listboxSorted.set_font( ITALIC_FONT )
+      @m_checkbox.set_font( ITALIC_FONT )
+    end
+  end
+
+
+  def onChoice(event)
+
+    choice = (event.get_id() == ID_CHOICE) ? @m_choice : @m_choiceSorted
+
+    @m_text.append_text( "Choice event selection string is: '" )
+    @m_text.append_text( event.get_string() )
+    @m_text.append_text( "'\n" )
+    @m_text.append_text( "Choice control selection string is: '" )
+    @m_text.append_text( choice.get_string_selection() )
+    @m_text.append_text( "'\n" )
+
+    # NOTE: get_client_data and set_client_data have been removed from wxRuby 0.4
+    # because they could cause crashes
+    #        obj = event.get_client_data()
+    #        @m_text.append_text( "Choice event client data string is: '" )
+
+    #        if obj
+    #           @m_text.append_text( obj )
+    #        else
+    #           @m_text.append_text( "none" )
+    #        end
+
+    #        @m_text.append_text( "'\n" )
+    #        @m_text.append_text( "Choice control client data string is: '" )
+
+    #        obj = choice.get_client_data(choice.get_selection())
+    #        if obj
+    #           @m_text.append_text( obj )
+    #        else
+    #           @m_text.append_text( "none" )
+    #        end
+    #        @m_text.append_text( "'\n" )
+  end
+
+  def onChoiceButtons(event)
+    case event.get_id()
+    when ID_CHOICE_ENABLE
+      @m_choice.enable( event.get_int() == 0 )
+      @m_choiceSorted.enable( event.get_int() == 0 )
+    when ID_CHOICE_SEL_NUM
+      @m_choice.set_selection( 2 )
+      @m_choiceSorted.set_selection( 2 )
+    when ID_CHOICE_SEL_STR
+      @m_choice.set_string_selection( "This" )
+      @m_choiceSorted.set_string_selection( "This" )
+    when ID_CHOICE_CLEAR
+      @m_choice.clear()
+      @m_choiceSorted.clear()
+    when ID_CHOICE_APPEND
+      @m_choice.append( "Hi!" )
+      @m_choiceSorted.append( "Hi!" )
+    when ID_CHOICE_DELETE
+      idx = @m_choice.get_selection()
+      if idx != NOT_FOUND
+        @m_choice.delete( idx )
+      end
+      idx = @m_choiceSorted.get_selection()
+      if idx != NOT_FOUND
+        @m_choiceSorted.delete( idx )
+      end
+    when ID_CHOICE_FONT
+      @m_choice.set_font( ITALIC_FONT )
+      @m_choiceSorted.set_font( ITALIC_FONT )
+    end
+  end
+
+  def onCombo(event)
+    @m_text.append_text( "ComboBox event selection string is: " )
+    @m_text.append_text( event.get_string() )
+    @m_text.append_text( "\n" )
+    @m_text.append_text( "ComboBox control selection string is: " )
+    @m_text.append_text( @m_combo.get_string_selection() )
+    @m_text.append_text( "\n" )
+  end
+
+  def onComboTextChanged(event)
+    str = sprintf( "Text in the combobox changed: now is '%s'.",
+                   event.get_string())
+    log_message( str )
+  end
+
+  def onComboTextEnter(event)
+    log_message("Enter pressed in the combobox: value is '%s'.",
+                 @m_combo.get_value())
+  end
+
+  def onComboButtons(event)
+    case event.get_id()
+    when ID_COMBO_ENABLE
+      @m_combo.enable( event.get_int() == 0 )
+    when ID_COMBO_SEL_NUM
+      @m_combo.set_selection( 2 )
+    when ID_COMBO_SEL_STR
+      @m_combo.set_string_selection( "This" )
+    when ID_COMBO_CLEAR
+      @m_combo.clear()
+    when ID_COMBO_APPEND
+      @m_combo.append( "Hi!" )
+    when ID_COMBO_DELETE
+      idx = @m_combo.get_selection()
+      @m_combo.delete( idx )
+    when ID_COMBO_FONT
+      @m_combo.set_font( ITALIC_FONT )
+    end
+  end
+
+  def onRadio(event)
+    @m_text.append_text( "RadioBox selection string is: " )
+    @m_text.append_text( event.get_string() )
+    @m_text.append_text( "\n" )
+  end
+
+  def onRadioButtons(event)
+    case event.get_id()
+    when ID_RADIOBOX_ENABLE
+      @m_radio.enable( event.get_int() == 0 )
+    when ID_RADIOBOX_SEL_NUM
+      @m_radio.set_selection( 2 )
+    when ID_RADIOBOX_SEL_STR
+      @m_radio.set_string_selection( "This" )
+    when ID_RADIOBOX_FONT
+      @m_radio.set_foreground_colour(GREEN)
+      @m_radio.set_font( ITALIC_FONT )
+    end
+  end
+
+  def onSetFont(event)
+    @m_fontButton.set_font( ITALIC_FONT )
+    @m_text.set_font( ITALIC_FONT )
+  end
+
+  def onupdateLabel(event)
+    @m_label.set_label(event.get_int() != 0 ? "Very very very very very long text." : "Shorter text.")
+  end
+
+  def onSliderupdate(event)
+    @m_gauge.set_value( @m_slider.get_value() )
+    @m_gaugeVert.set_value( @m_slider.get_value() / 2 )
+  end
+
+
+  def onSpinCtrlText(event)
+    if @m_spinctrl
+      s = sprintf( "Spin ctrl text changed: now %d (from event: %s)\n",
+                   @m_spinctrl.get_value(), event.get_string() )
+      @m_text.append_text(s)
+    end
+  end
+
+  def onSpinCtrl(event)
+    if @m_spinctrl
+      s = sprintf( "Spin ctrl changed: now %d (from event: %d)\n",
+                   @m_spinctrl.get_value(), event.get_int() )
+      @m_text.append_text(s)
+    end
+  end
+
+  def onSpinCtrlUp(event)
+    if @m_spinctrl
+      @m_text.append_text( sprintf(
+                                    "Spin up: %d (from event: %d)\n",
+                                    @m_spinctrl.get_value(), event.get_int() ) )
+    end
+  end
+
+  def onSpinCtrlDown(event)
+    if @m_spinctrl
+      @m_text.append_text( sprintf(
+                                    "Spin down: %d (from event: %d)\n",
+                                    @m_spinctrl.get_value(), event.get_int() ) )
+    end
+  end
+
+
+  def onSpinUp(event)
+    value = sprintf( "Spin control up: current = %d\n",
+                     @m_spinbutton.get_value())
+
+    if event.get_position() > 17
+      value += "Preventing the spin button from going above 17.\n"
+      event.veto()
+    end
+
+    @m_text.append_text(value)
+  end
+
+  def onSpinDown(event)
+    value = sprintf( "Spin control down: current = %d\n",
+                     @m_spinbutton.get_value())
+
+    if event.get_position() < -17
+      value += "Preventing the spin button from going below -17.\n"
+      event.veto()
+    end
+
+    @m_text.append_text(value)
+  end
+
+  def onSpinupdate(event)
+    value = sprintf( "%d", event.get_position() )
+    @m_spintext.set_value( value )
+
+    value = sprintf( "Spin control range: (%d, %d), current = %d\n",
+                     @m_spinbutton.get_min(), @m_spinbutton.get_max(),
+                     @m_spinbutton.get_value())
+
+    @m_text.append_text(value)
+  end
+
+  def onupdateShowProgress(event)
+    event.enable( @m_spinbutton.get_value() > 0 )
+  end
+
+  def onShowProgress(event)
+    max = @m_spinbutton.get_value()
+    if max <= 0
+      log_error("You must set positive range!")
+      return nil
+    end
+
+    cont = false
+    ProgressDialog("Progress dialog example",
+                   "An informative message",
+                   max, # range
+                   self, # parent
+                   PD_CAN_ABORT |
+                     PD_AUTO_HIDE |
+                     PD_APP_MODAL |
+                     PD_ELAPSED_TIME |
+                     PD_ESTIMATED_TIME |
+                     PD_REMAINING_TIME) do |dialog|
+      cont = true
+      0.upto(max) {|i|
+        break if !cont
+        sleep(1)
+        if i == max
+          cont = dialog.update(i, "That's all, folks!")
+        elsif i == max / 2
+          cont = dialog.update(i, "Only a half left (very long message)!")
+        else
+          cont = dialog.update(i)
+        end
+      }
+    end
+    if !cont
+      @m_text << "Progress dialog aborted!\n"
+    else
+      @m_text << "Countdown from " << max << " finished.\n"
+    end
+  end
+
+  def onSizerCheck(event)
+    case event.get_id()
+    when ID_SIZER_CHECK1
+      @m_buttonSizer.show(@m_sizerBtn1, event.is_checked())
+      @m_buttonSizer.layout()
+    when ID_SIZER_CHECK2
+      @m_buttonSizer.show(@m_sizerBtn2, event.is_checked())
+      @m_buttonSizer.layout()
+    when ID_SIZER_CHECK3
+      @m_buttonSizer.show(@m_sizerBtn3, event.is_checked())
+      @m_buttonSizer.layout()
+    when ID_SIZER_CHECK4
+      @m_buttonSizer.show(@m_sizerBtn4, event.is_checked())
+      @m_buttonSizer.layout()
+    when ID_SIZER_CHECK14
+      @m_hsizer.show(@m_buttonSizer, event.is_checked())
+      @m_hsizer.layout()
+    when ID_SIZER_CHECKBIG
+      @m_hsizer.show(@m_bigBtn, event.is_checked())
+      @m_hsizer.layout()
+    end
+  end
+end
+
+
+class MyFrame < Frame
+  def initialize(title,x,y)
+    super(nil, -1, title, Point.new(x, y), Size.new(500, 430))
+
+    @s_delay = 5000
+    @s_enabled = true
+    @s_enable2 = true
+    @s_windowFocus = nil
+    mondrian_icon = 
+      case Wx::PLATFORM
+      when  "WXMSW"
+        Icon.new( File.join( File.dirname(__FILE__), "mondrian.ico"),
+                  Wx::BITMAP_TYPE_ICO ) 
+      else
+        Icon.new( File.join( File.dirname(__FILE__), "mondrian.xpm"),
+                  Wx::BITMAP_TYPE_XPM ) 
+      end
+
+    set_icon(mondrian_icon)
+
+    file_menu = Menu.new
+
+    file_menu.append(CONTROLS_CLEAR_LOG, "&clear log\tCtrl-L")
+    file_menu.append_separator()
+    file_menu.append(CONTROLS_ABOUT, "&About\tF1")
+    file_menu.append_separator()
+    file_menu.append(CONTROLS_QUIT, "E&xit\tAlt-X", "Quit controls sample")
+
+    menu_bar = MenuBar.new
+    menu_bar.append(file_menu, "&File")
+
+    tooltip_menu = Menu.new
+    tooltip_menu.append(CONTROLS_SET_TOOLTIP_DELAY, "Set &delay\tCtrl-D")
+    tooltip_menu.append_separator()
+    tooltip_menu.append(CONTROLS_ENABLE_TOOLTIPS, "&Toggle tooltips\tCtrl-T",
+                         "enable/disable tooltips", ITEM_CHECK)
+    tooltip_menu.check(CONTROLS_ENABLE_TOOLTIPS, true)
+    menu_bar.append(tooltip_menu, "&Tooltips")
+
+    panel_menu = Menu.new
+    panel_menu.append(CONTROLS_ENABLE_ALL, "&Disable all\tCtrl-E",
+                       "enable/disable all panel controls", ITEM_CHECK)
+    menu_bar.append(panel_menu, "&Panel")
+
+    set_menu_bar(menu_bar)
+
+    create_status_bar(2)
+
+    @m_panel = MyPanel.new( self, 10, 10, 300, 100 )
+
+    set_size_hints( 500, 425 )
+
+    evt_menu(CONTROLS_QUIT) {|event| onQuit(event) }
+    evt_menu(CONTROLS_ABOUT) {|event| onAbout(event) }
+    evt_menu(CONTROLS_CLEAR_LOG) {|event| onClearLog(event) }
+    evt_menu(CONTROLS_SET_TOOLTIP_DELAY) {|event| onSetTooltipDelay(event) }
+    evt_menu(CONTROLS_ENABLE_TOOLTIPS) {|event| onToggleTooltips(event) }
+    evt_menu(CONTROLS_ENABLE_ALL) {|event| onenableAll(event) }
+
+    evt_size() {|event| onSize(event) }
+    evt_move() {|event| onMove(event) }
+    evt_idle() {|event| onIdle(event) }
+    evt_close() {|event| onClose(event) }
+  end
+
+  def onClose(event)
+    Log::set_active_target(@m_panel.m_logTargetOld)
+    destroy()
+  end
+
+  def onQuit(event)
+    close(true)
+  end
+
+  def onAbout(event)
+    BusyCursor.busy do
+      Wx.MessageDialog(self, "This is a control sample", "About Controls", OK) { |dlg| dlg.show_modal }
+    end
+  end
+
+  def onClearLog(event)
+    @m_panel.m_text.clear()
+  end
+
+  def onSetTooltipDelay(event)
+    delay = @s_delay.to_s
+
+    delay = get_text_from_user("Enter delay (in milliseconds)",
+                                "Set tooltip delay",
+                                delay,
+                                self)
+    if !delay
+      return Qnil # cancelled
+    end
+
+    @s_delay = delay.to_i
+
+    ToolTip::set_delay(@s_delay)
+
+    log_status(self, "Tooltip delay set to %d milliseconds", @s_delay)
+  end
+
+  def onToggleTooltips(event)
+    @s_enabled = ! @s_enabled
+    ToolTip::enable(@s_enabled)
+    log_status(self, "Tooltips %sabled", @s_enabled ? "en" : "dis" )
+  end
+
+  def onenableAll(event)
+    @s_enable2 = ! @s_enable2
+    @m_panel.enable(@s_enable2)
+  end
+
+  def onMove(event)
+    update_status_bar(event.get_position(), get_size())
+    event.skip()
+  end
+
+  def onSize(event)
+    update_status_bar(get_position(), event.get_size())
+    event.skip()
+  end
+
+  def onIdle(event)
+    # track the window which has the focus in the status bar
+    focus = Window::find_focus()
+    if focus && (focus != @s_windowFocus)
+      @s_windowFocus = focus
+      msg = sprintf( "Focus: %s, HWND = %08x",
+                       @s_windowFocus.wx_class,
+                       @s_windowFocus.get_handle )
+      set_status_text(msg)
+    end
+  end
+
+  def GetPanel()
+    @m_panel
+  end
+
+  def update_status_bar(pos,size)
+    if get_status_bar()
+      sizeAll = get_size()
+      sizeCl = get_client_size()
+      msg = sprintf("pos=(%d, %d), size=%dx%d or %dx%d (client=%dx%d)",
+                     pos.x, pos.y,
+                     size.width, size.height,
+                     sizeAll.width, sizeAll.height,
+                     sizeCl.width, sizeCl.height)
+      set_status_text(msg, 1)
+    end
+  end
+
+end
+
+module ControlsSample
+
+  include WxRuby::Sample if defined? WxRuby::Sample
+
+  def self.describe
+    { file: __FILE__,
+      summary: 'wxRuby controls example.',
+      description: 'wxRuby example demonstrating various common controls.' }
+  end
+
+  def self.activate
+    # Create the main frame window
+    frame = MyFrame.new("Controls Windows App", 50, 50)
+    frame.show(true)
+    frame
+  end
+
+  if $0 == __FILE__
+    Wx::App.run { !!ControlsSample.activate }
+  end
+
+end