wxruby-ruby19 1.9.8-x86-linux → 1.9.10-x86-linux

data/samples/dialogs/dialogs.rb

@@ -0,0 +1,797 @@
+#!/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'
+
+
+require 'wx'
+
+
+include Wx
+
+DIALOGS_CHOOSE_COLOUR = 1
+DIALOGS_CHOOSE_COLOUR_GENERIC = 2
+DIALOGS_CHOOSE_FONT = 3
+DIALOGS_CHOOSE_FONT_GENERIC = 4
+DIALOGS_MESSAGE_BOX = 5
+DIALOGS_SINGLE_CHOICE = 6
+DIALOGS_MULTI_CHOICE = 7
+DIALOGS_TEXT_ENTRY = 8
+DIALOGS_PASSWORD_ENTRY = 9
+DIALOGS_FILE_OPEN = 10
+DIALOGS_FILE_OPEN2 = 11
+DIALOGS_FILES_OPEN = 12
+DIALOGS_FILE_SAVE = 13
+DIALOGS_DIR_CHOOSE = 14
+DIALOGS_GENERIC_DIR_CHOOSE = 15
+DIALOGS_TIP = 16
+DIALOGS_NUM_ENTRY = 17
+DIALOGS_LOG_DIALOG = 18
+DIALOGS_MODAL = 19
+DIALOGS_MODELESS = 20
+DIALOGS_MODELESS_BTN = 21
+DIALOGS_PROGRESS = 22
+DIALOGS_BUSYINFO = 23
+DIALOGS_FIND = 24
+DIALOGS_REPLACE = 25
+DIALOGS_PREFS = 26
+
+$my_canvas = nil
+
+class MyModalDialog < Dialog
+  def initialize(parent)
+    super(parent, -1, "Modal dialog")
+
+    sizer_top = BoxSizer.new(HORIZONTAL)
+
+    @btn_focused = Button.new(self, -1, "Default button")
+    @btn_delete = Button.new(self, -1, "&Delete button")
+    btn_ok = Button.new(self, ID_CANCEL, "&Close")
+    sizer_top.add(@btn_focused, 0, ALIGN_CENTER | ALL, 5)
+    sizer_top.add(@btn_delete, 0, ALIGN_CENTER | ALL, 5)
+    sizer_top.add(btn_ok, 0, ALIGN_CENTER | ALL, 5)
+
+    set_auto_layout(true)
+    set_sizer(sizer_top)
+
+    sizer_top.set_size_hints(self)
+    sizer_top.fit(self)
+
+    @btn_focused.set_focus()
+    @btn_focused.set_default()
+
+    evt_button(-1) {|event| on_button(event) }
+  end
+
+  def on_button(event)
+    id = event.get_id
+    
+    if id == @btn_delete.get_id
+      @btn_focused.destroy
+      @btn_focused = nil
+
+      @btn_delete.disable()
+    elsif @btn_focused && id == @btn_focused.get_id
+      get_text_from_user("Dummy prompt", "Modal dialog called from dialog",
+                         "", self)
+    else
+      event.skip()
+    end
+  end
+end
+
+
+class MyModelessDialog < Dialog
+  def initialize(parent)
+    super(parent, -1, "Modeless dialog")
+
+    sizer_top = BoxSizer.new(VERTICAL)
+
+    btn = Button.new(self, DIALOGS_MODELESS_BTN, "Press me")
+    check = CheckBox.new(self, -1, "Should be disabled")
+    check.disable()
+
+    sizer_top.add(btn, 1, EXPAND | ALL, 5)
+    sizer_top.add(check, 1, EXPAND | ALL, 5)
+
+    set_auto_layout(true)
+    set_sizer(sizer_top)
+
+    sizer_top.set_size_hints(self)
+    sizer_top.fit(self)
+
+    evt_button(DIALOGS_MODELESS_BTN) {|event| on_button(event) }
+
+    evt_close() {|event| on_close(event) }
+
+  end
+
+  def on_button(event)
+    message_box("Button pressed in modeless dialog", "Info",
+                OK | ICON_INFORMATION, self)
+  end
+
+  def on_close(event)
+    if event.can_veto()
+      message_box("Use the menu item to close self dialog",
+                  "Modeless dialog",
+                  OK | ICON_INFORMATION, self)
+
+      event.veto()
+    end
+  end
+end
+
+# PropertySheetDialog is specialised for doing preferences dialogs; it
+# contains a BookCtrl of some sort
+class MyPrefsDialog < Wx::PropertySheetDialog
+  def initialize(parent)
+    # Using Book type other than Notebook needs two-step construction
+    super()
+    self.sheet_style = Wx::PROPSHEET_BUTTONTOOLBOOK
+    self.sheet_outer_border = 1
+    self.sheet_inner_border = 2
+    img_list = Wx::ImageList.new(32, 32)
+    img_list << std_bitmap(Wx::ART_NORMAL_FILE)
+    img_list << std_bitmap(Wx::ART_CDROM)
+    img_list << std_bitmap(Wx::ART_REPORT_VIEW)
+
+    create(parent, -1, "Preferences")
+    create_buttons(Wx::ID_OK|Wx::ID_CANCEL)
+    book_ctrl.image_list = img_list
+    book_ctrl.add_page(file_panel(book_ctrl), "File", false, 0)
+    book_ctrl.add_page(cdrom_panel(book_ctrl), "CD ROM", false, 1)
+
+    layout_dialog
+  end
+
+  # Gets one of the rather ugly standard bitmaps from ArtProvider
+  def std_bitmap(art_id)
+    Wx::ArtProvider.bitmap(art_id, Wx::ART_TOOLBAR, [32, 32])
+  end
+
+  def file_panel(book)
+    panel = Wx::Panel.new(book)
+    panel.sizer = Wx::VBoxSizer.new
+
+    cb1 = Wx::CheckBox.new(panel, :label => 'Show hidden files')
+    panel.sizer.add(cb1, 0, Wx::ALL, 5)
+
+    cb2 = Wx::CheckBox.new(panel, :label => 'Always show extensions')
+    panel.sizer.add(cb2, 0, Wx::ALL, 5)
+
+    cb3 = Wx::CheckBox.new(panel, :label => 'Show icons')
+    panel.sizer.add(cb3, 0, Wx::ALL, 5)
+
+    cb4 = Wx::CheckBox.new(panel, :label => 'Show owner')
+    panel.sizer.add(cb4, 0, Wx::ALL, 5)
+
+    st = Wx::StaticText.new(panel, :label => "Sort by:")
+    panel.sizer.add(st, 0, Wx::ALL, 5)
+
+    cb1 = Wx::Choice.new(panel, :choices => %w|Name Created Modified Size|)
+    panel.sizer.add(cb1, 0, Wx::ALL, 5)
+    panel
+  end
+
+  def cdrom_panel(book)
+    panel = Wx::Panel.new(book)
+    panel.sizer = Wx::VBoxSizer.new
+
+    choices = [ 'Show files', 'Play media', 'Run CD', 'Do nothing' ]
+    rb = Wx::RadioBox.new( panel, 
+                           :label => 'When opening CD',
+                           :choices => choices,
+                           :major_dimension => 1)
+    panel.sizer.add(rb, 0, Wx::GROW|Wx::ALL, 5)
+    panel
+  end
+end
+
+class MyCanvas < ScrolledWindow
+  def initialize(parent)
+    super(parent,-1,DEFAULT_POSITION,DEFAULT_SIZE, NO_FULL_REPAINT_ON_RESIZE)
+    evt_paint { |event| on_paint(event) }
+  end
+
+  def clear
+
+  end
+
+  def on_paint(event)
+    paint do |dc|
+      dc.set_text_foreground( get_app.canvas_text_colour )
+      dc.set_font( get_app.canvas_font )
+      dc.draw_text("Windows common dialogs test application", 10, 10)
+    end
+  end
+end
+
+class MyFrame < Frame
+  def initialize(parent,
+                 title,
+                 pos,
+                 size)
+    super(parent, -1, title, pos, size)
+
+    @dialog = nil
+
+    @dlg_find = nil
+    @dlg_replace = nil
+
+    @find_data = FindReplaceData.new
+
+    @ext_def = ""
+    @index = -1
+
+    @max = 10
+
+    create_status_bar()
+
+    evt_menu(DIALOGS_CHOOSE_COLOUR) {|event| on_choose_colour(event) }
+    evt_menu(DIALOGS_CHOOSE_FONT) {|event| on_choose_font(event) }
+    evt_menu(DIALOGS_LOG_DIALOG) {|event| on_log_dialog(event) }
+    evt_menu(DIALOGS_MESSAGE_BOX) {|event| on_message_box(event) }
+    evt_menu(DIALOGS_TEXT_ENTRY) {|event| on_text_entry(event) }
+    evt_menu(DIALOGS_PASSWORD_ENTRY) {|event| on_password_entry(event) }
+    evt_menu(DIALOGS_NUM_ENTRY) {|event| on_numeric_entry(event) }
+    evt_menu(DIALOGS_SINGLE_CHOICE) {|event| on_single_choice(event) }
+    evt_menu(DIALOGS_MULTI_CHOICE) {|event| on_multi_choice(event) }
+    evt_menu(DIALOGS_FILE_OPEN) {|event| on_file_open(event) }
+    evt_menu(DIALOGS_FILE_OPEN2) {|event| on_file_open2(event) }
+    evt_menu(DIALOGS_FILES_OPEN) {|event| on_files_open(event) }
+    evt_menu(DIALOGS_FILE_SAVE) {|event| on_file_save(event) }
+    evt_menu(DIALOGS_DIR_CHOOSE) {|event| on_dir_choose(event) }
+    evt_menu(DIALOGS_MODAL) {|event| on_modal_dlg(event) }
+    evt_menu(DIALOGS_MODELESS) {|event| on_modeless_dlg(event) }
+    evt_menu(DIALOGS_TIP) {|event| on_show_tip(event) }
+    evt_menu(DIALOGS_PROGRESS) {|event| on_show_progress(event) }
+    evt_menu(DIALOGS_BUSYINFO) {|event| on_show_busy_info(event) }
+    evt_menu(DIALOGS_PREFS) {|event| on_show_prefs(event) }
+    evt_menu(DIALOGS_FIND) {|event| on_show_find_dialog(event) }
+    evt_menu(DIALOGS_REPLACE) {|event| on_show_replace_dialog(event) }
+    evt_find(-1) {|event| on_find_dialog(event) }
+    evt_find_next(-1) {|event| on_find_dialog(event) }
+    evt_find_replace(-1) {|event| on_find_dialog(event) }
+    evt_find_replace_all(-1) {|event| on_find_dialog(event) }
+    evt_find_close(-1) {|event| on_find_dialog(event) }
+    evt_menu(ID_EXIT) {|event| on_exit(event) }
+
+  end
+
+  def on_choose_colour(event)
+
+    col = $my_canvas.get_background_colour()
+
+    data = ColourData.new
+    data.set_colour(col)
+    data.set_choose_full(true)
+    for i in 0 ... 16
+      colour = Colour.new(i*16, i*16, i*16)
+      data.set_custom_colour(i, colour)
+    end
+
+    dialog = ColourDialog.new(self, data)
+    dialog.set_title("Choose the background colour (not OS X)")
+    if dialog.show_modal() == ID_OK
+      retData = dialog.get_colour_data()
+      col = retData.get_colour()
+      $my_canvas.set_background_colour(col)
+      #$my_canvas.clear()
+      $my_canvas.refresh()
+    end
+  end
+
+
+  def on_choose_font(event)
+    data = FontData.new
+    data.set_initial_font(Wx::get_app.canvas_font)
+    data.set_colour(Wx::get_app.canvas_text_colour)
+
+    dialog = FontDialog.new(self, data)
+
+    if dialog.show_modal() == ID_OK
+      ret_data = dialog.get_font_data()
+      Wx::get_app.canvas_font = ret_data.get_chosen_font()
+      Wx::get_app.canvas_text_colour = ret_data.get_colour()
+      font   = ret_data.get_chosen_font
+      msg = "Font = %s, %i pt" % [ font.get_face_name,
+                                   font.get_point_size ]
+      dialog2 = MessageDialog.new(self, msg, "Got font")
+      dialog2.show_modal()
+      # $my_canvas.refresh()
+    end
+    #else: cancelled by the user, don't change the font
+  end
+
+
+  def on_log_dialog(event)
+
+    # calling yield() (as ~BusyCursor does) shouldn't result in messages
+    # being flushed -- test it
+
+    BusyCursor.busy() do
+      
+      log_message("This is some message - everything is ok so far.")
+      log_message("Another message...\n... self one is on multiple lines")
+      log_warning("And then something went wrong!")
+      
+      # and if ~BusyCursor doesn't do it, then call it manually
+      Wx::get_app.yield()
+      
+      log_error("Intermediary error handler decided to abort.")
+      log_error("DEMO: The top level caller detected an unrecoverable error.")
+      
+      Log::flush_active()
+      
+      log_message("And this is the same dialog but with only one message.")
+	  end
+  end
+
+  def on_message_box(event)
+
+    dialog = MessageDialog.new(nil, "This is a message box\nA long, long string to test out the message box properly",
+                               "Message box text", NO_DEFAULT|YES_NO|CANCEL|ICON_INFORMATION)
+
+    case dialog.show_modal()
+    when ID_YES
+      log_status("You pressed \"Yes\"")
+    when ID_NO
+      log_status("You pressed \"No\"")
+    when ID_CANCEL
+      log_status("You pressed \"Cancel\"")
+    else
+      log_error("Unexpected MessageDialog return code!")
+    end
+  end
+
+
+  def on_numeric_entry(event)
+
+    res = get_number_from_user( "This is some text, actually a lot of text.\n" +
+                                                                                "Even two rows of text.",
+                               "Enter a number:", "Numeric input test",
+                               50, 0, 100, self )
+
+    if res == -1
+      msg = "Invalid number entered or dialog cancelled."
+      icon = ICON_HAND
+    else
+      msg = sprintf("You've entered %d", res )
+      icon = ICON_INFORMATION
+    end
+
+    message_box(msg, "Numeric test result", OK | icon, self)
+  end
+
+  def on_password_entry(event)
+
+    pwd = get_password_from_user("Enter password:",
+                                 "Password entry dialog",
+                                 "", self)
+    if pwd
+      message_box(sprintf("Your password is '%s'", pwd),
+                  "Got password", OK | ICON_INFORMATION, self)
+    end
+  end
+
+
+  def on_text_entry(event)
+
+    dialog = TextEntryDialog.new(self,
+                                 "This is a small sample\n" +
+                                                             "A long, long string to test out the text entrybox",
+                                 "Please enter a string",
+                                 "Default value",
+                                 OK | CANCEL)
+
+    if dialog.show_modal() == ID_OK
+      dialog2 = MessageDialog.new(self, dialog.get_value(), "Got string")
+      dialog2.show_modal()
+    end
+  end
+
+  def on_single_choice(event)
+
+    choices = ["One", "Two", "Three", "Four", "Five"]
+
+    dialog = SingleChoiceDialog.new(self,
+                                    "This is a small sample\n" +
+                                                                "A single-choice convenience dialog",
+                                    "Please select a value",
+                                    choices, nil, OK | CANCEL)
+
+    dialog.set_selection(2)
+
+    if dialog.show_modal() == ID_OK
+      dialog2 = MessageDialog.new(self, dialog.get_string_selection(), "Got string")
+      dialog2.show_modal()
+    end
+  end
+
+
+  def on_multi_choice(event)
+
+    choices = [
+      "One", "Two", "Three", "Four", "Five",
+      "Six", "Seven", "Eight", "Nine", "Ten",
+      "Eleven", "Twelve", "Seventeen"]
+
+    selections = get_multiple_choices("This is a small sample\n" +
+                                                                  "A multi-choice convenience dialog",
+                                      "Please select a value",
+                                      choices,
+                                      self)
+    if selections
+      msg = sprintf("You selected %d items:\n", selections.length)
+      for n in 0 ... selections.length
+        msg += sprintf("\t%d: %d (%s)\n", n, selections[n],
+                       choices[selections[n]])
+      end
+      log_message(msg)
+    end
+    #else: cancelled or nothing selected
+  end
+
+
+  def on_file_open(event)
+
+    dialog = FileDialog.new(
+                             self,
+                             "Testing open file dialog",
+                             "",
+                             "",
+                             "C++ files (*.h;*.cpp)|*.h;*.cpp"
+                           )
+
+    dialog.set_directory(get_home_dir())
+
+    if dialog.show_modal() == ID_OK
+      info = sprintf("Full file name: %s\n" +
+                                             "Path: %s\n" +
+                                             "Name: %s",
+                     dialog.get_path(),
+                     dialog.get_directory(),
+                     dialog.get_filename())
+      dialog2 = MessageDialog.new(self, info, "Selected file")
+      dialog2.show_modal()
+    end
+  end
+
+
+  # this shows how to take advantage of specifying a default extension in the
+  # call to FileSelector: it is remembered after each new call and the next
+  # one will use it by default
+  def on_file_open2(event)
+
+    path = file_selector(
+                          "Select the file to load",
+                          "", "",
+                          @ext_def,
+                          "Waveform (*.wav)|*.wav|Plain text (*.txt)|*.txt|All files (*.*)|*.*",
+                          CHANGE_DIR,
+                          self
+                        )
+
+    if path == nil
+      return nil
+    end
+
+    # it is just a sample, would use SplitPath in real program
+    @ext_def = path[/[^\.]*$/]
+
+    log_message("You selected the file '%s', remembered extension '%s'",
+                path, @ext_def)
+  end
+
+
+  def on_files_open(event)
+
+    dialog = FileDialog.new(self, "Testing open multiple file dialog",
+                            "", "", FILE_SELECTOR_DEFAULT_WILDCARD_STR,
+                            MULTIPLE)
+
+    if dialog.show_modal() == ID_OK
+
+      paths = dialog.get_paths()
+      filenames = dialog.get_filenames()
+
+      count = paths.length
+      msg = ""
+      for n in 0 ... count
+        s = sprintf("File %d: %s (%s)\n",
+                    n, paths[n], filenames[n])
+        msg += s
+      end
+
+      dialog2 = MessageDialog.new(self, msg, "Selected files")
+      dialog2.show_modal()
+    end
+  end
+
+
+  def on_file_save(event)
+
+    dialog = FileDialog.new(self,
+                            "Testing save file dialog",
+                            "",
+                            "myletter.doc",
+                            "Text files (*.txt)|*.txt|Document files (*.doc)|*.doc",
+                            SAVE|OVERWRITE_PROMPT)
+
+    dialog.set_filter_index(1)
+
+    if dialog.show_modal() == ID_OK
+
+      log_message("%s, filter %d",
+                  dialog.get_path(), dialog.get_filter_index())
+    end
+  end
+
+  def on_dir_choose(event)
+
+    # pass some initial dir to DirDialog
+    dir_home = get_home_dir()
+
+    dialog = DirDialog.new(self, "Testing directory picker", dir_home)
+
+    if dialog.show_modal() == ID_OK
+      log_message("Selected path: %s", dialog.get_path())
+    end
+  end
+
+
+  def on_modal_dlg(event)
+    dlg = MyModalDialog.new(self)
+    dlg.show_modal()
+  end
+
+  def on_modeless_dlg(event)
+    show = get_menu_bar().is_checked(event.get_id())
+    if show
+      if !@dialog
+        @dialog = MyModelessDialog.new(self)
+      end
+      @dialog.show(true)
+    else # hide
+      @dialog.hide()
+    end
+  end
+
+
+  def on_show_tip(event)
+
+    if @index == -1
+      @index = rand(5)
+    end
+    
+    tip_src = File.join( File.dirname(__FILE__), 'tips.txt')
+    tip_provider = create_file_tip_provider(tip_src, @index)
+
+    show_at_startup = show_tip(self, tip_provider)
+
+    if show_at_startup
+      message_box("Will show tips on startup", "Tips dialog",
+                  OK | ICON_INFORMATION, self)
+    end
+
+    @index = tip_provider.get_current_tip()
+
+  end
+
+  def on_exit(event)
+    close(true)
+  end
+
+
+  def on_show_prefs(event)
+    dialog = MyPrefsDialog.new(self)
+    dialog.show_modal
+  end
+
+  def on_show_progress(event)
+
+    dialog = ProgressDialog.new("Progress dialog example",
+                                "An informative message",
+                                @max,    # range
+                                self,   # parent
+                                PD_CAN_ABORT|PD_APP_MODAL|
+                                PD_ELAPSED_TIME|PD_ESTIMATED_TIME|
+                                PD_REMAINING_TIME)
+
+    cont = true
+    for i in 0 .. @max
+      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
+
+      if !cont
+        if message_box("Do you really want to cancel?",
+                       "Progress dialog question",  # caption
+                       YES_NO | ICON_QUESTION) == YES
+          dialog.end_modal(ID_CANCEL)
+          break
+        end
+        dialog.resume()
+      end
+    end
+
+
+    if !cont
+      log_status("Progress dialog aborted!")
+    else
+      log_status("Countdown from %d finished", @max)
+    end
+  end
+
+  def on_show_busy_info(event)
+    WindowDisabler.disable(self) do
+      info = BusyInfo.busy("Working, please wait...", self) do
+        
+        for i in 0 ... 18
+          Wx::get_app.yield()
+        end
+        sleep(2)
+      end
+	end
+  end
+
+  def on_show_replace_dialog(event)
+
+    if @dlg_replace
+      #@dlg_replace.destroy
+      @dlg_replace = nil
+    else
+      @dlg_replace = FindReplaceDialog.new(
+                                             self,
+                                             @find_data,
+                                             "Find and replace dialog",
+                                             FR_REPLACEDIALOG
+                                           )
+
+      @dlg_replace.show(true)
+    end
+  end
+
+  def on_show_find_dialog(event)
+
+    if @dlg_find
+      @dlg_find.destroy
+      @dlg_find = nil
+    else
+      @dlg_find = FindReplaceDialog.new(
+                                          self,
+                                          @find_data,
+                                          "Find dialog",  # just for testing
+                                          FR_NOWHOLEWORD
+                                        )
+
+      @dlg_find.show(true)
+    end
+  end
+
+  def decode_find_dialog_event_flags(flags)
+    str = ""
+    str << ((flags & FR_DOWN) != 0 ? "down" : "up") << ", "  \
+    << ((flags & FR_WHOLEWORD) != 0 ? "whole words only, " : "") \
+    << ((flags & FR_MATCHCASE) != 0 ? "" : "not ")   \
+    << "case sensitive"
+
+    return str
+  end
+
+  def on_find_dialog(event)
+
+    type = event.get_event_type()
+
+    if type == EVT_COMMAND_FIND || type == EVT_COMMAND_FIND_NEXT
+      log_message("Find %s'%s' (flags: %s)",
+                  type == EVT_COMMAND_FIND_NEXT ? "next " : "",
+                  event.get_find_string(),
+                  decode_find_dialog_event_flags(event.get_flags()))
+    elsif type == EVT_COMMAND_FIND_REPLACE || type == EVT_COMMAND_FIND_REPLACE_ALL
+      log_message("Replace %s'%s' with '%s' (flags: %s)",
+                  type == EVT_COMMAND_FIND_REPLACE_ALL ? "all " : "",
+                  event.get_find_string(),
+                  event.get_replace_string(),
+                  decode_find_dialog_event_flags(event.get_flags()))
+    elsif type == EVT_COMMAND_FIND_CLOSE
+      dlg = event.get_dialog()
+      if dlg == @dlg_find
+        txt = "Find"
+        id_menu = DIALOGS_FIND
+        @dlg_find = nil
+      elsif dlg == @dlg_replace
+        txt = "Replace"
+        id_menu = DIALOGS_REPLACE
+        @dlg_replace = nil
+      else
+        txt = "Unknown"
+        id_menu = -1
+        log_error("unexpected event")
+      end
+
+      log_message("%s dialog is being closed.", txt)
+
+      if id_menu != -1
+        get_menu_bar().check(id_menu, false)
+      end
+
+      dlg.destroy()
+    else
+      log_error("Unknown find dialog event!")
+    end
+  end
+
+end
+
+
+class MyApp < App
+  attr_accessor :canvas_text_colour, :canvas_font
+  
+  def on_init()
+    self.canvas_text_colour = Wx::Colour.new("BLACK")
+    self.canvas_font        = Wx::NORMAL_FONT
+    # Create the main frame window
+    frame = MyFrame.new(nil, "Windows dialogs example", 
+                        Point.new(20, 20), Size.new(400, 300))
+
+    # Make a menubar
+    file_menu = Menu.new
+
+    file_menu.append(DIALOGS_CHOOSE_COLOUR, "&Choose colour")
+    file_menu.append_separator()
+    file_menu.append(DIALOGS_CHOOSE_FONT, "Choose &font")
+    file_menu.append_separator()
+    file_menu.append(DIALOGS_LOG_DIALOG, "&Log dialog\tCtrl-L")
+    file_menu.append(DIALOGS_MESSAGE_BOX, "&Message box\tCtrl-M")
+    file_menu.append(DIALOGS_TEXT_ENTRY,  "Text &entry\tCtrl-E")
+    file_menu.append(DIALOGS_PASSWORD_ENTRY,  "&Password entry\tCtrl-P")
+    file_menu.append(DIALOGS_NUM_ENTRY, "&Numeric entry\tCtrl-N")
+    file_menu.append(DIALOGS_SINGLE_CHOICE,  "&Single choice\tCtrl-C")
+    file_menu.append(DIALOGS_MULTI_CHOICE,  "M&ultiple choice\tCtrl-U")
+    file_menu.append_separator()
+    file_menu.append(DIALOGS_TIP,  "&Tip of the day\tCtrl-T")
+    file_menu.append_separator()
+    file_menu.append(DIALOGS_FILE_OPEN,  "&Open file\tCtrl-O")
+    file_menu.append(DIALOGS_FILE_OPEN2,  "&Second open file\tCtrl-2")
+    file_menu.append(DIALOGS_FILES_OPEN,  "Open &files\tShift-Ctrl-O")
+    file_menu.append(DIALOGS_FILE_SAVE,  "Sa&ve file\tCtrl-S")
+    file_menu.append(DIALOGS_DIR_CHOOSE,  "&Choose a directory\tCtrl-D")
+    file_menu.append(DIALOGS_PROGRESS, "Pro&gress dialog\tCtrl-G")
+    file_menu.append(DIALOGS_BUSYINFO, "&Busy info dialog\tCtrl-B")
+    file_menu.append(DIALOGS_PREFS, "Propert&y sheet dialog\tCtrl-Y")
+    file_menu.append(DIALOGS_FIND, "&Find dialog\tCtrl-F", "", ITEM_CHECK)
+    file_menu.append(DIALOGS_REPLACE, "Find and &replace dialog\tShift-Ctrl-F", "", ITEM_CHECK)
+
+    file_menu.append_separator()
+    file_menu.append(DIALOGS_MODAL, "Mo&dal dialog\tCtrl-W")
+    file_menu.append(DIALOGS_MODELESS, "Modeless &dialog\tCtrl-Z", "", ITEM_CHECK)
+    file_menu.append_separator()
+    file_menu.append(ID_EXIT, "E&xit\tAlt-X")
+    menu_bar = MenuBar.new
+    menu_bar.append(file_menu, "&File")
+    frame.set_menu_bar(menu_bar)
+
+    $my_canvas = MyCanvas.new(frame)
+    $my_canvas.set_background_colour(WHITE)
+
+    frame.centre(BOTH)
+
+    # Show the frame
+    frame.show()
+  end
+end
+
+app = MyApp.new()
+app.main_loop()
+