wxruby 1.9.3-universal-darwin

data/samples/bigdemo/wxTextEntryDialog.rbw

@@ -0,0 +1,34 @@
+#!/usr/bin/env ruby
+
+begin
+  require 'wx'
+rescue LoadError => no_wx_err
+  begin
+    require 'rubygems'
+    require 'wx'
+  rescue LoadError
+    raise no_wx_err
+  end
+end
+
+module Demo
+    def Demo.run(frame, nb, log)
+        dlg = Wx::TextEntryDialog.new(frame, "What is your favorite programming language?", "Duh??", "Ruby")
+        dlg.set_value("Ruby is the best!")
+        if dlg.show_modal() == Wx::ID_OK
+            log.write_text("You entered: " + dlg.get_value().to_s + "\n")
+        end     
+        dlg.destroy()
+        return nil
+    end
+    
+    def Demo.overview
+        return "This dialog allows the user to input text"
+    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/wxToggleButton.rbw

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+
+begin
+  require 'wx'
+rescue LoadError => no_wx_err
+  begin
+    require 'rubygems'
+    require 'wx'
+  rescue LoadError
+    raise no_wx_err
+  end
+end
+
+class TestPanel < Wx::Panel
+    def initialize(parent, log)
+        super(parent, -1)
+        @log = log
+        panel = Wx::Panel.new(self, -1)
+        buttons = Wx::BoxSizer.new(Wx::HORIZONTAL)
+        "These are toggle buttons".split().each do |word|
+            b = Wx::ToggleButton.new(panel, -1, word)
+            evt_togglebutton(b.get_id()) {|event| on_toggle(event)}
+            buttons.add(b, 0, Wx::ALL, 5)
+        end
+        panel.set_sizer(buttons)
+        buttons.fit(panel)
+        panel.move(Wx::Point.new(50,50))
+    end
+    
+    def on_toggle(event)
+        @log.write_text("Button " + event.get_id().to_s() + " toggled")
+    end
+end
+
+module Demo
+    def Demo.run(frame,nb,log)
+        win = TestPanel.new(nb, log)
+        return win
+    end
+    
+    def Demo.overview
+        "Wx::ToggleButton is a button that stays pressed when clicked by the user. In other words, it is similar to Wx::CheckBox in functionality but looks like a Wx::Button."
+    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/wxToolBar.rbw

@@ -0,0 +1,133 @@
+#!/usr/bin/env ruby
+
+begin
+  require 'wx'
+rescue LoadError => no_wx_err
+  begin
+    require 'rubygems'
+    require 'wx'
+  rescue LoadError
+    raise no_wx_err
+  end
+end
+
+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,192 @@
+#!/usr/bin/env ruby
+
+begin
+  require 'wx'
+rescue LoadError => no_wx_err
+  begin
+    require 'rubygems'
+    require 'wx'
+  rescue LoadError
+    raise no_wx_err
+  end
+end
+
+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::TREE_ITEM_ICON_NORMAL)
+        @tree.set_item_image(@root, fldropenidx, Wx::TREE_ITEM_ICON_EXPANDED)
+        
+        0.upto(15) do |x|
+            child = @tree.append_item(@root, "Item " + x.to_s())
+            @tree.set_item_image(child, fldridx, Wx::TREE_ITEM_ICON_NORMAL)
+            @tree.set_item_image(child, fldropenidx, Wx::TREE_ITEM_ICON_EXPANDED)
+            0.upto(4) do |y|
+                last = @tree.append_item(child, "item " + x.to_s() + "-" + (?a + y).chr)
+                @tree.set_item_image(last, fldridx, Wx::TREE_ITEM_ICON_NORMAL)
+                @tree.set_item_image(last, fldropenidx, Wx::TREE_ITEM_ICON_EXPANDED)
+                0.upto(4) do |z|
+                    item = @tree.append_item(last, "item " + x.to_s() + "-" + (?a + y).chr + "-" + z.to_s())
+                    @tree.set_item_image(item, fileidx, Wx::TREE_ITEM_ICON_NORMAL)
+                    @tree.set_item_image(item, smileidx, Wx::TREE_ITEM_ICON_SELECTED)
+                end
+            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_dimensions(0,0,size.x, size.y)
+    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.nonzero?
+            @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,275 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2006 Kevin B. Smith
+# Freely reusable code: see SAMPLES-LICENSE.TXT for details
+
+begin
+  require 'wx'
+rescue LoadError => no_wx_err
+  begin
+    require 'rubygems'
+    require 'wx'
+  rescue LoadError
+    raise no_wx_err
+  end
+end
+include Wx
+
+require 'date'
+
+
+Calendar_File_About = ID_ABOUT
+Calendar_File_Quit = ID_EXIT
+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
+
+
+def format_date(d)
+    return "#{d.year}-#{d.mon}-#{d.day}"
+end
+
+class MyCalendar < CalendarCtrl
+    def initialize(parent, display_frame, initial_date, calendar_flags)
+        super(parent, -1, 
+                    initial_date,
+                    DEFAULT_POSITION,
+                    DEFAULT_SIZE,
+                    calendar_flags | RAISED_BORDER)
+
+        @display = display_frame
+        @date = initial_date
+        @weekday_names = ['Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat']
+
+        id = get_id
+    evt_calendar(id) {|event| on_calendar(event)}
+    evt_calendar_month(id) {on_cal_month_change}
+    evt_calendar_year(id) {on_cal_year_change}
+    evt_calendar_sel_changed(id) {|event| on_calendar_change(event)}
+    evt_calendar_weekday_clicked(id) {|event| on_calendar_weekday_click(event)}
+    end
+
+  def on_calendar(event)
+        @date = event.get_date
+        @display.set_date(@date)
+    end
+
+  def on_calendar_change(event)
+        @date = event.get_date
+        log_status("Selected date: #{format_date(@date)}")
+    end
+
+  def on_cal_month_change
+        log_status("Calendar month changed")
+    end
+
+  def on_cal_year_change
+        log_status("Calendar year changed")
+    end
+
+  def on_calendar_weekday_click(event)
+        wday = event.get_week_day
+        log_status("Clicked on #{@weekday_names[wday]}")
+    end
+    
+    attr_reader :date
+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
+
+        now = DateTime.now
+        @calendar = MyCalendar.new(@panel, self, now, @calendar_flags)
+
+        @sizer = BoxSizer.new(VERTICAL)
+        configure_window
+
+  	evt_menu(Calendar_File_Quit) {on_quit}
+  	evt_menu(Calendar_File_About) {on_about}
+
+  	evt_menu(Calendar_Cal_Monday) {|event| on_cal_monday(event)}
+  	evt_menu(Calendar_Cal_Holidays) {|event| on_cal_holidays(event)}
+  	evt_menu(Calendar_Cal_Special) {|event| on_cal_special(event)}
+
+  	evt_menu(Calendar_Cal_Month) {|event| on_cal_allow_month(event)}
+  	evt_menu(Calendar_Cal_Year) {|event| on_cal_allow_year(event)}
+
+  	evt_menu(Calendar_Cal_SeqMonth) {|event| on_cal_seq_month(event)}
+  	evt_menu(Calendar_Cal_SurroundWeeks) {|event| on_cal_show_surrounding_weeks(event)}
+
+  	evt_update_ui(Calendar_Cal_Year) {|event| on_allow_year_update(event)}
+    end
+    
+    def add_menu_bar
+        # create a menu bar
+    menu_file = Menu.new
+
+    menu_file.append(Calendar_File_About, "&About...\tCtrl-A", "Show about dialog")
+    menu_file.append_separator()
+    menu_file.append(Calendar_File_Quit, "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)
+
+        # 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.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)
+
+        # ... and attach self menu bar to the frame
+    set_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.set_size_hints(@panel)
+        layout
+        @panel.set_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 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.new( self, "The selected date is #{str}", 
+                             "Date chosen" ).show_modal
+    end
+    
+end
+
+
+class RbApp < App
+    def on_init()
+  	    frame = MyFrame.new("Calendar Windows sample")
+    frame.show(true)
+    end
+end
+
+a = RbApp.new
+a.main_loop()