wxruby3 0.9.0.pre.beta.2-x64-mingw-ucrt-3.2-3.2.2

data/samples/bigdemo/wxToolBar.rbw

@@ -0,0 +1,131 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+begin
+  require 'rubygems' 
+rescue LoadError
+end
+require 'wx'
+
+
+
+class TestToolBar < Wx::Frame
+    # returns a Bitmap icon object
+    def xpm_bitmap(base_name)
+
+      xpm_file = File.join( File.dirname(__FILE__), 'icons', base_name )
+      Wx::Bitmap.new(xpm_file, Wx::BITMAP_TYPE_XPM)
+    end
+
+    def initialize(parent, log)
+        super(parent, -1, "Test ToolBar", Wx::DEFAULT_POSITION, Wx::Size.new(500,300))
+        @log = log
+        @timer = nil
+        evt_close {|event| on_close_window(event)}
+        
+        Wx::Window.new(self, -1).set_background_colour(Wx::WHITE)
+        
+        tb = create_tool_bar(Wx::TB_HORIZONTAL | Wx::NO_BORDER | Wx::TB_FLAT | Wx::TB_TEXT)
+        
+        create_status_bar
+        tb.add_tool(10, "New", xpm_bitmap('new.xpm'), "Long help for New")
+        evt_tool(10) {|event| on_tool_click(event)}
+        evt_tool_rclicked(10) {|event| on_tool_rclick(event)}
+        
+        tb.add_tool(20, "Open", xpm_bitmap('open.xpm'), "Long help for Open")
+        evt_tool(20) {|event| on_tool_click(event)}
+        evt_tool_rclicked(20) {|event| on_tool_rclick(event)}
+        
+        tb.add_separator
+        
+        tb.add_tool(30, "Copy", xpm_bitmap('copy.xpm'), "Long help for Copy")
+        evt_tool(30) {|event| on_tool_click(event)}
+        evt_tool_rclicked(30) {|event| on_tool_rclick(event)}
+        
+        tb.add_tool(40, "Paste", xpm_bitmap('paste.xpm'), "Long help for Paste")
+        evt_tool(40) {|event| on_tool_click(event)}
+        evt_tool_rclicked(40) {|event| on_tool_rclick(event)}
+        
+        tb.add_separator
+        
+        tb.add_check_tool(50, "", xpm_bitmap('tog1.xpm'),
+                          Wx::NULL_BITMAP, "Toggle this")
+        evt_tool(50) {|event| on_tool_click(event)}
+        
+        evt_tool_enter(-1) {|event| on_tool_enter(event)}
+        evt_tool_rclicked(-1) {|event| on_tool_rclick(event)}
+        evt_timer(5000) {|event| on_clear_sb(event)}
+        
+        tb.add_separator
+        cbID = 5000
+        choices = ["", "This", "is a", "wxComboBox"] 
+        
+        tb.add_control(Wx::ComboBox.new(tb, cbID, "", Wx::DEFAULT_POSITION, Wx::Size.new(150,-1), choices, 
+                        Wx::CB_DROPDOWN))
+        evt_combobox(cbID) {|event| on_combo(event)}
+        tb.add_control(Wx::TextCtrl.new(tb, -1, "ToolBar controls!!", Wx::DEFAULT_POSITION, Wx::Size.new(150,-1)))
+        
+        tb.realize
+    end
+    
+    def on_tool_click(event)
+        @log.write_text("tool " + event.get_id.to_s + " clicked")
+        tb = get_tool_bar
+        tb.enable_tool(10, tb.get_tool_enabled(10) ? false : true)
+    end
+    
+    def on_tool_rclick(event)
+        @log.write_text("tool " + event.get_id.to_s + " right-clicked")
+    end
+    
+    def on_combo(event)
+        @log.write_text("combobox item selected " + event.get_string)
+    end
+    
+    def on_tool_enter(event)
+        @log.write_text("on_tool_enter: " + event.get_id.to_s + ", " + event.get_int.to_s)
+        if @timer == nil
+            @timer = Wx::Timer.new(self, 5000)
+        end
+        if @timer != nil
+            @timer.stop
+        end
+        @timer.start(2000)
+        @timer.stop
+        @timer.start(2000)
+        event.skip
+    end
+    
+    def on_clear_sb(event) # called for the timer event handler
+        set_status_text("")
+        @timer.stop
+        @timer = nil
+    end
+    
+    def on_close_window(event)
+        if @timer != nil
+            @timer.stop
+            @timer = nil
+        end     
+        destroy
+    end
+end
+
+module Demo
+    def Demo.run(frame,nb,log)
+        win = TestToolBar.new(frame, log)
+        frame.otherWin = win
+        win.show
+    end
+    
+    def Demo.overview
+        "A toolbar is that familiar little rectangular strip below the menubar that hosts various 'buttons', which are usually shortcuts to menu commands."
+    end
+end
+
+
+if __FILE__ == $0
+  run_solo_lib = File.join( File.dirname(__FILE__), 'run.rb')
+  load run_solo_lib
+  run File.basename($0)
+end

data/samples/bigdemo/wxTreeCtrl.rbw

@@ -0,0 +1,191 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2008 wxRuby development team
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+begin
+  require 'rubygems' 
+rescue LoadError
+end
+require 'wx'
+
+
+
+class MyTreeCtrl < Wx::TreeCtrl
+    def initialize(parent, id, pos, size, style, log)
+        super(parent,id,pos,size,style)
+        @log = log
+        
+        evt_left_dclick {|event| on_left_dclick(event)}
+        evt_right_down {|event| on_right_click(event)}
+        evt_right_up {|event| on_right_up(event)}
+    end
+    
+    def on_left_dclick(event)
+        pt = Wx::Point.new(event.get_x, event.get_y)
+        
+    end
+    
+    def on_right_click(event)
+        pt = Wx::Point.new(event.get_x, event.get_y)
+        id = hit_test(pt)
+        if id
+            @log.write_text("on_right_click: ")# + @tree.get_item_text(id))
+        end
+    end
+    
+    def on_right_up(event)
+        pt = Wx::Point.new(event.get_x, event.get_y)
+        id = hit_test(pt)
+        if id
+            @log.write_text("on_right_up: ")#+ @tree.get_item_text(id) + " (manually starting label edit)")
+        end
+    end
+    
+    def on_compare_items(item1, item2)
+        t1 = get_item_text(item1)
+        t2 = get_item_text(item2)
+        @log.write_text('compare: ' + t1 + ' <> ' + t2)
+        if t1 < t2 then return -1 end
+        if t1 == t2 then return 0 end
+        return 1
+    end
+end
+
+class TestTreeCtrlPanel < Wx::Panel
+    def initialize(parent, log)
+        # Use the WANTS_CHARS style so the panel doesn't eat the Return key
+        super(parent, -1, Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE, Wx::WANTS_CHARS)
+        evt_size {|event| on_size(event)}
+        
+        @log = log
+        tID = 5000
+        
+        @tree = MyTreeCtrl.new(self, tID, Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE, Wx::TR_HAS_BUTTONS | Wx::TR_EDIT_LABELS, @log)
+        
+        isz = Wx::Size.new(16,16)
+        il = Wx::ImageList.new(16,16)
+        bm = Wx::Bitmap.new
+        bm.copy_from_icon(Wx::ArtProvider::get_icon(Wx::ART_FOLDER, Wx::ART_OTHER, isz))
+        fldridx = il.add(bm)
+        bm.copy_from_icon(Wx::ArtProvider::get_icon(Wx::ART_FILE_OPEN, Wx::ART_OTHER, isz))
+        fldropenidx = il.add(bm)
+        bm.copy_from_icon(Wx::ArtProvider::get_icon(Wx::ART_FILE_OPEN, Wx::ART_OTHER, isz))
+        fileidx = il.add(bm)
+        bmp_file = File.join(File.dirname(__FILE__), 'icons', 'wxwin16x16.xpm')
+        smileidx = il.add(Wx::Bitmap.new(bmp_file))
+        
+        @tree.set_image_list(il)
+        @il = il
+        
+        @root = @tree.add_root("The Root Item")
+        @tree.set_item_image(@root, fldridx, Wx::TreeItemIcon::TreeItemIcon_Normal)
+        @tree.set_item_image(@root, fldropenidx, Wx::TreeItemIcon::TreeItemIcon_Expanded)
+        0.upto(15) do |x|
+            child = @tree.append_item(@root, "Item " + x.to_s)
+            @tree.set_item_image(child, fldridx, Wx::TreeItemIcon::TreeItemIcon_Normal)
+            @tree.set_item_image(child, fldropenidx, Wx::TreeItemIcon::TreeItemIcon_Expanded)
+            character = "a"
+            0.upto(4) do |y|
+                last = @tree.append_item(child, "item " + x.to_s + "-" + character)
+                @tree.set_item_image(last, fldridx, Wx::TreeItemIcon::TreeItemIcon_Normal)
+                @tree.set_item_image(last, fldropenidx, Wx::TreeItemIcon::TreeItemIcon_Expanded)
+                0.upto(4) do |z|
+                    item = @tree.append_item(last, "item " + x.to_s + "-" + character + "-" + z.to_s)
+                    @tree.set_item_image(item, fileidx, Wx::TreeItemIcon::TreeItemIcon_Normal)
+                    @tree.set_item_image(item, smileidx, Wx::TreeItemIcon::TreeItemIcon_Selected)
+                end
+                character.succ!
+            end
+        end
+        
+        @tree.expand(@root)
+        evt_tree_item_expanded(tID) {|event| on_item_expanded(event)}
+        evt_tree_item_collapsed(tID) {|event| on_item_collapsed(event)}
+        evt_tree_sel_changed(tID) {|event| on_sel_changed(event)}
+        evt_tree_begin_label_edit(tID) {|event| on_begin_edit(event)}
+        evt_tree_end_label_edit(tID) {|event| on_end_edit(event)}
+        evt_tree_item_activated(tID) {|event| on_activate(event)}
+        
+        
+    end
+    
+    
+    def on_begin_edit(event)
+        @log.write_text("on_begin_edit")
+        # show how to prevent edit
+        if @tree.get_item_text(event.get_item) == "The Root Item"
+            @log.write_text("You can't edit this one...")
+        
+            # Let's just see what's visible of its children
+            cookie = 0
+            root = event.get_item
+            child, cookie = @tree.get_first_child(root)
+            while child != nil
+                @log.write_text("Child [" + @tree.get_item_text(child) + "] visible = " + @tree.is_visible(child).to_s)
+                child,cookie = @tree.get_next_child(root, cookie)
+            end
+            event.veto
+        end
+    end
+    
+    def on_end_edit(event)
+        @log.write_text("on_end_edit")
+        #show how to reject edit, we'll not allow any digits
+        nums = ("0".."9").to_a
+        x = event.get_label
+        x.each_byte do |byte|
+            if nums.include?(byte.chr)
+                @log.write_text("You can't enter digits...")
+                event.veto
+                return
+            end
+        end
+    end
+    
+    def on_size(event)
+        size = get_client_size
+        @tree.set_size(0,0,size.width, size.height)
+    end
+    
+    def on_item_expanded(event)
+        item = event.get_item
+        @log.write_text("on_item_expanded: " + @tree.get_item_text(item))
+    end
+    
+    def on_item_collapsed(event)
+        item = event.get_item
+        @log.write_text("on_item_collapsed: " + @tree.get_item_text(item))
+    end
+    
+    def on_sel_changed(event)
+        @item = event.get_item
+        if @item.ok?
+            @log.write_text("on_sel_changed: " + @tree.get_item_text(@item))
+            # if Wx::PLATFORM == "WXMSW"
+                #@log.write_text("BoundingRect: " + @tree.get_bounding_rect(@item))
+            #end
+        end
+        event.skip
+    end
+    
+    def on_activate(event)
+        @log.write_text("on_activate: " + @tree.get_item_text(@item))
+    end
+end
+
+module Demo
+    def Demo.run(frame, nb, log)
+        win = TestTreeCtrlPanel.new(nb, log)
+        return win
+    end
+
+    def Demo.overview
+        return ""
+    end
+end
+    
+
+if __FILE__ == $0
+  run_solo_lib = File.join( File.dirname(__FILE__), 'run.rb')
+  load run_solo_lib
+  run File.basename($0)
+end

data/samples/calendar/calendar.rb

@@ -0,0 +1,363 @@
+#!/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'
+require 'date'
+
+include Wx
+
+Calendar_Cal_Monday = 200
+Calendar_Cal_Holidays = 201
+Calendar_Cal_Special = 202
+Calendar_Cal_Month = 203
+Calendar_Cal_Year = 204
+Calendar_Cal_SeqMonth = 205
+Calendar_Cal_SurroundWeeks = 206
+
+Calendar_DatePicker_AskDate = 300
+Calendar_DatePicker_ShowCentury = 301
+Calendar_DatePicker_DropDown = 302
+Calendar_DatePicker_AllowNone = 303
+Calendar_DatePicker_StartWithNone = 304
+
+class MyCalendar < CalendarCtrl
+  attr_reader :date
+
+  def initialize(parent, display_frame, initial_date, calendar_flags)
+    super( parent, 
+           :date  => initial_date, 
+           :style => calendar_flags | RAISED_BORDER)
+
+    @display = display_frame
+    @date = initial_date
+    @weekday_names = %w|Sun Mon Tue Wed Thu Fri Sat|
+
+    evt_calendar self, :on_calendar
+    evt_calendar_sel_changed self, :on_calendar_change
+    evt_calendar_weekday_clicked self, :on_calendar_weekday_click
+    evt_right_down :on_hit_test
+  end
+
+  def on_calendar(event)
+    @display.date = event.date
+  end
+
+  def on_calendar_change(event)
+    @date = event.date
+    log_status("Selected date: #{@date.strftime('%A %d %B %Y')}")
+  end
+
+  def on_calendar_weekday_click(event)
+    wday = event.week_day
+    log_status("Clicked on #{@weekday_names[wday]}")
+  end
+
+  def on_hit_test(event)
+    hit = hit_test(event.position)
+    case hit
+    when Time, DateTime
+      log_status("Hit-test: date #{hit}")
+    when Fixnum
+      log_status("Hit-test: weekday header #{hit}")
+    when NilClass
+      log_status("Hit-test: Nothing")      
+    end
+  end
+end
+
+class MyFrame < Frame
+  def initialize(title)
+    super(nil, -1, title)
+    @panel = Wx::Panel.new(self)
+    add_menu_bar
+    add_status_bar
+
+    @calendar_flags = CAL_MONDAY_FIRST | CAL_SHOW_HOLIDAYS
+
+    @calendar = MyCalendar.new(@panel, self, Time.now, @calendar_flags)
+
+    @sizer = BoxSizer.new(VERTICAL)
+    configure_window
+
+  	evt_menu Wx::ID_EXIT, :on_quit
+  	evt_menu Wx::ID_ABOUT, :on_about
+
+  	evt_menu Calendar_DatePicker_AskDate, :on_ask_date
+  	evt_update_ui Calendar_DatePicker_StartWithNone, :on_update_ui_start_with_none
+
+  	evt_menu Calendar_Cal_Monday, :on_cal_monday
+  	evt_menu Calendar_Cal_Holidays, :on_cal_holidays
+  	evt_menu Calendar_Cal_Special, :on_cal_special
+
+  	evt_menu Calendar_Cal_Month, :on_cal_allow_month
+  	evt_menu Calendar_Cal_Year, :on_cal_allow_year
+
+  	evt_menu Calendar_Cal_SeqMonth, :on_cal_seq_month
+  	evt_menu Calendar_Cal_SurroundWeeks, :on_cal_show_surrounding_weeks
+
+  	evt_update_ui Calendar_Cal_Year, :on_allow_year_update
+  end
+  
+  def add_menu_bar
+    # create a menu bar
+    menu_file = Menu.new
+
+    menu_file.append(Wx::ID_ABOUT, "&About...\tCtrl-A", "Show about dialog")
+    menu_file.append_separator
+    menu_file.append(Wx::ID_EXIT, "E&xit\tAlt-X", "Quit self program")
+
+    menu_cal = Menu.new
+    menu_cal.append(Calendar_Cal_Monday,
+                     "Monday &first weekday\tCtrl-F",
+                     "Toggle between Mon and Sun as the first week day",
+                     ITEM_CHECK)
+    menu_cal.append(Calendar_Cal_Holidays, "Show &holidays\tCtrl-H",
+                     "Toggle highlighting the holidays",
+                     ITEM_CHECK)
+    menu_cal.append(Calendar_Cal_Special, "Highlight &special dates\tCtrl-S",
+                     "Test custom highlighting",
+                     ITEM_CHECK)
+    menu_cal.append(Calendar_Cal_SurroundWeeks,
+                     "Show s&urrounding weeks\tCtrl-W",
+                     "Show the neighbouring weeks in the prev/next month",
+                     ITEM_CHECK)
+    menu_cal.append_separator
+    menu_cal.append(Calendar_Cal_SeqMonth,
+                     "To&ggle month selector style\tCtrl-G",
+                     "Use another style for the calendar controls",
+                     ITEM_CHECK)
+    menu_cal.append(Calendar_Cal_Month, "&Month can be changed\tCtrl-M",
+                     "Allow changing the month in the calendar",
+                     ITEM_CHECK)
+    menu_cal.append(Calendar_Cal_Year, "&Year can be changed\tCtrl-Y",
+                     "Allow changing the year in the calendar",
+                     ITEM_CHECK)
+
+    menu_date = Menu.new
+    menu_date.append_check_item(Calendar_DatePicker_ShowCentury, "Al&ways show century")
+    menu_date.append_check_item(Calendar_DatePicker_DropDown, "Use &drop down control")
+    menu_date.append_check_item(Calendar_DatePicker_AllowNone, "Allow &no date")
+    menu_date.append_check_item(Calendar_DatePicker_StartWithNone, "Start &with no date")
+    menu_date.append_separator
+    menu_date.append(Calendar_DatePicker_AskDate, "&Choose date...\tCtrl-D", "Show dialog with DatePickerCtrl")
+
+    # now append the freshly created menu to the menu bar...
+    menu_bar = MenuBar.new
+    menu_bar.append(menu_file, "&File")
+    menu_bar.append(menu_cal, "&Calendar")
+    menu_bar.append(menu_date, "&Date picker")
+
+    menu_bar.check(Calendar_Cal_Monday, true)
+    menu_bar.check(Calendar_Cal_Holidays, true)
+    menu_bar.check(Calendar_Cal_Month, true)
+    menu_bar.check(Calendar_Cal_Year, true)
+
+    menu_bar.check(Calendar_DatePicker_ShowCentury, true)
+
+    # ... and attach self menu bar to the frame
+    self.menu_bar = menu_bar
+  end
+
+  def add_status_bar
+    # create a status bar just for fun (by default with 1 pane only)
+    create_status_bar
+    set_status_text("Welcome to Windows!")
+  end
+  
+  def configure_window
+    @sizer.add(@calendar, 0, Wx::ALIGN_CENTRE|Wx::ALL, 5)
+    @sizer.size_hints = @panel
+    layout
+    @panel.sizer = @sizer
+  end
+  
+  def on_quit
+    # true is to force the frame to close
+    close(true)
+  end
+
+  def on_about
+    message_box("wxRuby CalendarCtrl sample\nby Kevin Smith\n" +
+                 "based on the wxWidgets version by Vadim Zeitlin",
+                 "About Calendar", OK | ICON_INFORMATION, self)
+  end
+
+  def on_cal_monday(event)
+    enable = get_menu_bar().is_checked(event.get_id())
+    toggle_cal_style(enable, CAL_MONDAY_FIRST)
+  end
+
+  def on_cal_holidays(event)
+    enable = get_menu_bar().is_checked(event.get_id())
+    @calendar.enable_holiday_display(enable)
+  end
+
+  def on_cal_special(event)
+    highlight_special(get_menu_bar().is_checked(event.get_id()))
+  end
+
+  def on_cal_allow_month(event)
+    allow = get_menu_bar().is_checked(event.get_id())
+    @calendar.enable_month_change(allow)
+  end
+
+  def on_cal_allow_year(event)
+    allow = get_menu_bar().is_checked(event.get_id())
+    @calendar.enable_year_change(allow)
+  end
+
+  def on_cal_seq_month(event)
+    allow = get_menu_bar().is_checked(event.get_id())
+    toggle_cal_style(allow, CAL_SEQUENTIAL_MONTH_SELECTION)
+  end
+
+  def on_cal_show_surrounding_weeks(event)
+    allow = get_menu_bar().is_checked(event.get_id())
+    toggle_cal_style(allow, CAL_SHOW_SURROUNDING_WEEKS)
+  end
+
+  def on_allow_year_update(event)
+    event.enable( get_menu_bar().is_checked(Calendar_Cal_Month))
+  end
+
+  def on_update_ui_start_with_none(event)
+    event.enable( get_menu_bar().is_checked(Calendar_DatePicker_AllowNone))
+  end
+
+  def on_ask_date(event)
+    dt = @calendar.get_date
+    
+    style = DP_DEFAULT
+    style |= DP_SHOWCENTURY if get_menu_bar.is_checked(Calendar_DatePicker_ShowCentury)
+    style |= DP_DROPDOWN if get_menu_bar.is_checked(Calendar_DatePicker_DropDown)
+    if get_menu_bar.is_checked(Calendar_DatePicker_AllowNone)
+      style |= DP_ALLOWNONE
+      dt = nil if get_menu_bar.is_checked(Calendar_DatePicker_StartWithNone)
+    end
+    
+    MyDialog(self, dt, style) do |dlg|
+      if dlg.show_modal == ID_OK
+        if dt = dlg.get_date
+          today = Time.now
+          if dt.day == today.day && dt.month == today.month
+            message_box("Happy birthday", "Calendar Sample")
+          end
+          @calendar.set_date(dt)
+          log_status("Changed the date to your input")
+        else
+          log_status("No date entered")
+        end
+      end
+    end
+  end
+
+  def toggle_cal_style(on,flag)
+    style = @calendar.get_window_style_flag
+    date = @calendar.date
+    @sizer.detach(@calendar)
+    @calendar.destroy
+    if  on
+      style |= flag
+    else
+      style &= ~flag
+    end
+    @calendar = MyCalendar.new(@panel, self, date, style)
+    @sizer.add(@calendar, 0, Wx::ALIGN_CENTRE|Wx::ALL, 5)
+    @panel.layout
+  end
+
+  def highlight_special(on)
+    if on
+      attr_red_circle = CalendarDateAttr.new(CAL_BORDER_ROUND, RED)
+      attr_green_square = CalendarDateAttr.new(CAL_BORDER_SQUARE, GREEN)
+      # This wraps correctly, but causes problems because the colour is freed
+      # when the attribute is reset.
+      #
+      # attr_header_like = CalendarDateAttr.new(BLUE, LIGHT_GREY)
+
+      @calendar.set_attr(17, attr_red_circle)
+      @calendar.set_attr(29, attr_green_square)
+      # @calendar.set_attr(13, attr_header_like)
+    else
+      @calendar.reset_attr(17)
+      @calendar.reset_attr(29)
+      # @calendar.reset_attr(13)
+    end
+    @calendar.refresh
+  end
+
+  def set_date(d)
+    str = "%s-%s-%s" % [ d.year, d.mon, d.day ]
+    Wx.MessageDialog( self, "The selected date is #{str}",
+                           "Date chosen" ) { |dlg| dlg.show_modal }
+  end
+  alias :date= :set_date
+  
+end
+
+class MyDialog < Dialog
+  def initialize(parent, dt, picker_style)
+    super(parent, :style => DEFAULT_DIALOG_STYLE|RESIZE_BORDER)
+    sizer_buttons = StdDialogButtonSizer.new
+    sizer_buttons.add_button(Button.new(self, ID_OK))
+    sizer_buttons.add_button(Button.new(self, ID_CANCEL))
+    sizer_buttons.realize
+    
+    sizer_text = BoxSizer.new(HORIZONTAL)
+    sizer_text.add(StaticText.new(self, ID_ANY, "Date in ISO format:"), 0, ALL|ALIGN_CENTRE_VERTICAL, 10)
+    @text = TextCtrl.new(self)
+    sizer_text.add(@text, 1, ALL|ALIGN_CENTRE_VERTICAL, 10)
+    
+    sizer_top = BoxSizer.new(VERTICAL)
+    sizer_top.add(StaticText.new(self, ID_ANY, "Enter your birthday date (not before 20th century):"), 0, ALL, 10)
+
+    @picker = DatePickerCtrl.new(self, ID_ANY, dt, DEFAULT_POSITION, DEFAULT_SIZE, picker_style)
+    @picker.set_range(DateTime.new(1900, 1, 1), nil)
+    sizer_top.add(@picker, 0, ALL|EXPAND, 10)
+    sizer_top.add_stretch_spacer(1)
+    sizer_top.add(sizer_text, 0, EXPAND)
+    
+    sizer_top.add(sizer_buttons, 0, ALL|ALIGN_CENTER, 10)
+    
+    set_sizer_and_fit(sizer_top)
+    layout
+    
+    evt_date_changed(@picker, :on_date_changed)
+  end
+
+  def get_date
+    @picker.get_value
+  end
+
+  def on_date_changed(event)
+    if dt = event.get_date
+      @text.set_value(dt.to_s)
+    else
+      @text.set_value("")
+    end
+  end
+
+end
+
+module CalendarSample
+
+  include WxRuby::Sample if defined? WxRuby::Sample
+
+  def self.describe
+    { file: __FILE__,
+      summary: 'wxRuby Calendar example.',
+      description: 'wxRuby example demonstrating the Wx::CalendarCtrl and Wx::DatePickerCtrl.' }
+  end
+
+  def self.run
+    execute(__FILE__)
+  end
+
+  if $0 == __FILE__
+    Wx::App.run { MyFrame.new("Calendar Windows sample").show(true) }
+  end
+
+end