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

data/samples/caret/caret.rb

@@ -0,0 +1,293 @@
+#!/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
+
+# menu items
+Caret_set_blink_time = 3
+Caret_Move = 4
+
+# controls start here (the numbers are, of course, arbitrary)
+Caret_Text = 1000
+
+
+# MyCanvas is a canvas on which you can type
+class MyCanvas < ScrolledWindow
+  def initialize(parent)
+    super(parent, :style => SUNKEN_BORDER)
+
+    self.background_colour = WHITE
+
+    @font = Font.new(12, FONTFAMILY_TELETYPE,
+                     FONTSTYLE_NORMAL, FONTWEIGHT_NORMAL)
+
+    @x_caret = @y_caret = @x_chars = @y_chars = 0
+    @x_margin = @y_margin = 5
+    @text = nil
+
+    create_caret
+
+    evt_paint :on_paint
+    evt_size :on_size
+    evt_char :on_char
+  end
+
+  def [](x,y)
+    @text[x + @x_chars * y,1]
+  end
+
+  def []=(x,y,z)
+    @text[x + @x_chars * y,1] = z
+  end
+
+  # caret movement
+  def home_pos
+    @x_caret = 0
+  end
+
+  def end_pos
+    @x_caret = @x_chars - 1
+  end
+
+  def first_line
+    @y_caret = 0
+  end
+
+  def last_line
+    @y_caret = @y_chars - 1
+  end
+
+  def prev_char
+    if @x_caret == 0
+      end_pos
+      prev_line
+    else
+      @x_caret -= 1
+    end
+  end
+
+  def next_char
+    @x_caret += 1
+    if @x_caret == @x_chars
+      home_pos
+      next_line
+    end
+  end
+
+  def prev_line
+    if @y_caret == 0
+      last_line
+    else
+      @y_caret -= 1
+    end
+  end
+
+  def next_line
+    @y_caret += 1
+    if @y_caret == @y_chars
+      first_line
+    end
+  end
+
+  def create_caret
+    paint do | dc |
+      dc.font = @font
+      @height_char = dc.char_height
+      @width_char = dc.char_width
+
+      my_caret = Caret.new(self, Size.new(@width_char, @height_char))
+      self.caret = my_caret
+
+      caret.move [ @x_margin, @y_margin ]
+      caret.show
+    end
+  end
+
+  def move_caret(x,y)
+    @x_caret = x
+    @y_caret = y
+
+    do_move_caret
+  end
+
+  def do_move_caret
+    log_status("Caret is at (%d, %d)", @x_caret, @y_caret)
+
+    caret.move( [@x_margin + @x_caret * @width_char,
+                 @y_margin + @y_caret * @height_char])
+  end
+
+  def on_size(event)
+    @x_chars = (event.size.width - 2 * @x_margin) / @width_char
+    @y_chars = (event.size.height - 2 * @y_margin) / @height_char
+    if @x_chars <= 0
+      @x_chars = 1
+    end
+    if @y_chars <= 0
+      @y_chars = 1
+    end
+    if @x_caret >= @x_chars
+      @x_caret = @x_chars-1
+    end
+    if @y_caret >= @y_chars
+      @y_caret = @y_chars-1
+    end
+
+    @text = " " * @x_chars * @y_chars
+
+    if parent && parent.status_bar
+      msg = sprintf("Panel size is (%d, %d)", @x_chars, @y_chars)
+      parent.set_status_text(msg, 1)
+      parent.refresh
+    end
+    event.skip
+  end
+
+  def on_paint
+    if caret
+      caret.hide
+    end
+
+    paint do | dc |
+      dc.clear
+      dc.set_font(@font)
+
+      for y in 0 ... @y_chars
+        line = @text[@x_chars * y,@x_chars]
+        dc.draw_text( line, @x_margin, @y_margin + y * @height_char )
+      end
+    end
+
+    if caret
+      caret.show
+    end
+  end
+
+  def on_char(event)
+    case event.key_code
+    when K_LEFT, K_BACK
+      prev_char
+    when K_RIGHT
+      next_char
+    when K_UP
+      prev_line
+    when K_DOWN
+      next_line
+    when K_HOME
+      home_pos
+    when K_END
+      end_pos
+    when K_RETURN
+      home_pos
+      next_line
+    else
+      ch = event.key_code
+      if !event.alt_down and (ch >= K_SPACE) and (ch < K_DELETE)
+        self[@x_caret, @y_caret] = ch.chr
+        refresh
+        next_char
+      else
+        event.skip
+      end
+    end
+    do_move_caret
+  end
+end
+
+class MyFrame < Frame
+  def initialize(title, pos, size)
+    super(nil, -1, title, pos, size)
+    # set the frame icon
+    icon_file = File.join(File.dirname(__FILE__), 'mondrian.xpm')
+    self.icon = Icon.new(icon_file, BITMAP_TYPE_XPM)
+
+    # create a menu bar
+    menu_file = Menu.new
+
+    menu_file.append(Caret_set_blink_time, "&Blink time...\tCtrl-B")
+    menu_file.append(Caret_Move, "&Move caret\tCtrl-C")
+    menu_file.append_separator
+    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")
+
+    # now append the freshly created menu to the menu bar...
+    menu_bar = MenuBar.new
+    menu_bar.append(menu_file, "&File")
+
+    # ... and attach self menu bar to the frame
+    self.menu_bar = menu_bar
+
+    @canvas = MyCanvas.new(self)
+
+    # This is required to set focus so that key events are directed to
+    # this Window, on Linux/GTK in particular 
+    @canvas.set_focus
+
+    # create a status bar just for fun (by default with 1 pane only)
+    create_status_bar(2)
+    self.status_text = "Welcome to Windows!"
+
+    evt_menu Wx::ID_EXIT, :on_quit
+    evt_menu Wx::ID_ABOUT, :on_about
+    evt_menu Caret_set_blink_time, :on_set_blink_time
+    evt_menu Caret_Move, :on_caret_move
+  end
+  
+  def on_quit
+    # true is to force the frame to close
+    close(true)
+  end
+
+  def on_about
+    message_box("The caret Windows sample, adapted for WxRuby",
+                "About Caret", OK | ICON_INFORMATION, self)
+  end
+
+  def on_caret_move
+    @canvas.move_caret(10, 10)
+  end
+
+  def on_set_blink_time
+    blink_time = get_number_from_user(
+                   "The caret blink time is the time between two blinks",
+                   "Time in milliseconds:",
+                   "Caret sample",
+                   Caret::get_blink_time, 0, 10000,
+                   self)
+    if blink_time != -1
+      Caret::set_blink_time(blink_time)
+      @canvas.create_caret
+      log_status(self,"Blink time set to %d milliseconds.", blink_time)
+    end
+  end
+end
+
+module CaretSample
+
+  include WxRuby::Sample if defined? WxRuby::Sample
+
+  def self.describe
+    { file: __FILE__,
+      summary: 'wxRuby Caret example.',
+      description: 'wxRuby example demonstrating using and controlling a caret.' }
+  end
+
+  def self.run
+    execute(__FILE__)
+  end
+
+  if $0 == __FILE__
+    Wx::App.run do
+      frame = MyFrame.new("Caret Windows sample",
+                          Point.new(50, 50), Size.new(450, 340))
+      frame.show(true)
+    end
+  end
+
+end

data/samples/caret/mondrian.xpm

@@ -0,0 +1,44 @@
+/* XPM */
+static char *mondrian_xpm[] = {
+/* columns rows colors chars-per-pixel */
+"32 32 6 1",
+"  c Black",
+". c Blue",
+"X c #00bf00",
+"o c Red",
+"O c Yellow",
+"+ c Gray100",
+/* pixels */
+"                                ",
+" oooooo +++++++++++++++++++++++ ",
+" oooooo +++++++++++++++++++++++ ",
+" oooooo +++++++++++++++++++++++ ",
+" oooooo +++++++++++++++++++++++ ",
+" oooooo +++++++++++++++++++++++ ",
+" oooooo +++++++++++++++++++++++ ",
+" oooooo +++++++++++++++++++++++ ",
+"                                ",
+" ++++++ ++++++++++++++++++ .... ",
+" ++++++ ++++++++++++++++++ .... ",
+" ++++++ ++++++++++++++++++ .... ",
+" ++++++ ++++++++++++++++++ .... ",
+" ++++++ ++++++++++++++++++ .... ",
+" ++++++ ++++++++++++++++++      ",
+" ++++++ ++++++++++++++++++ ++++ ",
+" ++++++ ++++++++++++++++++ ++++ ",
+" ++++++ ++++++++++++++++++ ++++ ",
+" ++++++ ++++++++++++++++++ ++++ ",
+" ++++++ ++++++++++++++++++ ++++ ",
+" ++++++ ++++++++++++++++++ ++++ ",
+" ++++++ ++++++++++++++++++ ++++ ",
+" ++++++ ++++++++++++++++++ ++++ ",
+" ++++++ ++++++++++++++++++ ++++ ",
+" ++++++                    ++++ ",
+" ++++++ OOOOOOOOOOOO XXXXX ++++ ",
+" ++++++ OOOOOOOOOOOO XXXXX ++++ ",
+" ++++++ OOOOOOOOOOOO XXXXX ++++ ",
+" ++++++ OOOOOOOOOOOO XXXXX ++++ ",
+" ++++++ OOOOOOOOOOOO XXXXX ++++ ",
+" ++++++ OOOOOOOOOOOO XXXXX ++++ ",
+"                                "
+};

data/samples/controls/books.rb

@@ -0,0 +1,183 @@
+#!/usr/bin/env ruby
+# Copyright (c) M.J.N. Corino, The Netherlands
+###
+
+require 'wx'
+
+class BooksFrame < Wx::Frame
+
+  ID_NOTEBOOK = Wx::ID_HIGHEST+1
+  ID_CHOICEBOOK = Wx::ID_HIGHEST+2
+  ID_LISTBOOK = Wx::ID_HIGHEST+3
+  ID_TREEBOOK = Wx::ID_HIGHEST+4
+
+  PAGES = %w[Yet Another Way To Select Pages]
+
+  def initialize
+    super(nil, title: 'Book controls sample', size: [600, 450])
+
+    icon_file = File.join(__dir__,'..', 'art', "wxruby.png")
+    self.icon = Wx::Icon.new(icon_file)
+
+    if Wx.has_feature?(:USE_STATUSBAR)
+      create_status_bar()
+    end
+
+    # Make a menubar for the frame
+    self.menu_bar = Wx::MenuBar.new {
+
+      append Wx::Menu.new {
+        append Wx::ID_EXIT
+      }, '&File'
+
+      append Wx::Menu.new {
+        append ID_NOTEBOOK, 'Notebook'
+        append ID_CHOICEBOOK, 'Choicebook'
+        append ID_LISTBOOK, 'Listbook'
+        append ID_TREEBOOK, 'Treebook'
+      }, '&Books'
+
+      append Wx::Menu.new {
+        append Wx::ID_ABOUT
+      }, '&Help'
+
+    }
+
+    @main_panel = Wx::Panel.new(self, Wx::ID_ANY)
+    @main_panel.sizer = Wx::VBoxSizer.new
+    @book_ctrl = nil
+
+    evt_menu ID_NOTEBOOK, :show_notebook
+    evt_menu ID_CHOICEBOOK, :show_choicebook
+    evt_menu ID_LISTBOOK, :show_listbook
+    evt_menu ID_TREEBOOK, :show_treebook
+
+    evt_menu Wx::ID_EXIT, :on_quit
+    evt_menu Wx::ID_ABOUT, :on_about
+  end
+
+  def setup_book(ctrl_name, tree = false)
+    set_status_text("Using #{ctrl_name}")
+    if tree
+      PAGES.each_with_index do  |txt, ix|
+        win = Wx::Panel.new(@book_ctrl)
+        if ix == 0
+          Wx::StaticText.new(win, -1,
+                             "#{ctrl_name} is yet another way to switch between 'page' windows",
+                             Wx::Point.new(10, 10))
+        else
+          Wx::StaticText.new(win, -1, "Page: #{ix+1}", Wx::Point.new(10,10))
+        end
+
+        if (ix % 2) == 0
+          @book_ctrl.add_page(win, txt, ix == 0)
+        else
+          @book_ctrl.add_sub_page(win, txt)
+        end
+      end
+    else
+      PAGES.each_with_index do  |txt, ix|
+        win = Wx::Panel.new(@book_ctrl)
+        if ix == 0
+          Wx::StaticText.new(win, -1,
+                             "#{ctrl_name} is yet another way to switch between 'page' windows",
+                             Wx::Point.new(10, 10))
+        else
+          Wx::StaticText.new(win, -1, "Page: #{ix+1}", Wx::Point.new(10,10))
+        end
+
+        @book_ctrl.add_page(win, txt)
+      end
+    end
+  end
+  private :setup_book
+
+  def clear_book
+    if @book_ctrl
+      @main_panel.sizer.remove(0)
+      @book_ctrl.destroy
+      @book_ctrl = nil
+    end
+  end
+  private :clear_book
+
+  def show_notebook
+    clear_book
+    @book_ctrl = Wx::Notebook.new(@main_panel)
+    @main_panel.sizer.add(@book_ctrl, 1, Wx::GROW|Wx::ALL, 1)
+    setup_book('Wx::Notebook')
+    @main_panel.layout
+    refresh
+  end
+
+  def show_choicebook
+    clear_book
+    @book_ctrl = Wx::Choicebook.new(@main_panel)
+    @main_panel.sizer.add(@book_ctrl, 1, Wx::GROW|Wx::ALL, 1)
+    setup_book('Wx::Choicebook')
+    @main_panel.layout
+    refresh
+  end
+
+  def show_listbook
+    clear_book
+    @book_ctrl = Wx::Listbook.new(@main_panel)
+    @main_panel.sizer.add(@book_ctrl, 1, Wx::GROW|Wx::ALL, 1)
+    setup_book('Wx::Listbook')
+    @main_panel.layout
+    refresh
+  end
+
+  def show_treebook
+    clear_book
+    @book_ctrl = Wx::Treebook.new(@main_panel)
+    style = @book_ctrl.tree_ctrl.window_style
+    style &= ~Wx::TR_NO_LINES
+    @book_ctrl.tree_ctrl.window_style = style
+    @main_panel.sizer.add(@book_ctrl, 1, Wx::GROW|Wx::ALL, 1)
+    setup_book('Wx::Treebook', true)
+    @main_panel.layout
+    refresh
+  end
+
+  def on_about(event)
+    Wx.message_box(
+      "wxRuby Books sample\n" +
+        "Authors:\n" +
+        "   Martin Corino (c) 2023\n" +
+        'Usage: click Books and select a book control',
+      'About Books sample')
+  end
+
+  def on_quit(event)
+    close
+  end
+
+end
+
+module BooksSample
+
+  include WxRuby::Sample if defined? WxRuby::Sample
+
+  def self.describe
+    { file: __FILE__,
+      summary: 'wxRuby Book controls example.',
+      description: "wxRuby example showcasing the various common book controls.\n"+
+                   "  - Wx::NoteBook\n"+
+                   "  - Wx::ChoiceBook\n"+
+                   "  - Wx::ListBook\n"+
+                   "  - Wx::TreeBook\n"
+    }
+  end
+
+  def self.activate
+    frame = BooksFrame.new
+    frame.show
+    frame
+  end
+
+  if $0 == __FILE__
+    Wx::App.run { BooksSample.activate }
+  end
+
+end

data/samples/controls/choice.xpm

@@ -0,0 +1,27 @@
+/* XPM */
+static char * choice_xpm[] = {
+/* width height ncolors chars_per_pixel */
+"16 16 5 1",
+/* colors */
+" 	s None	c None",
+".	c #000000",
+"+	c #c0c0c0",
+"@	c #808080",
+"#	c #ffffff",
+/* pixels */
+"@@@@@@@@@@@@@@@@",
+"@..............@",
+"@.########+++++@",
+"@.########.....@",
+"@.########+...+@",
+"@.########++.++@",
+"@.+++++++++++++@",
+"@@@@@@@@@@@@@@@@",
+"  ##############",
+"  ..............",
+"  .#########+.+.",
+"  .#########....",
+"  .#########+++.",
+"  .#########....",
+"  .#########+.+.",
+"  .............."};

data/samples/controls/combo.xpm

@@ -0,0 +1,27 @@
+/* XPM */
+static char * combo_xpm[] = {
+/* width height ncolors chars_per_pixel */
+"16 16 5 1",
+/* colors */
+" 	s None	c None",
+".	c #000000",
+"+	c #c0c0c0",
+"@	c #808080",
+"#	c #ffffff",
+/* pixels */
+"@@@@@@@@@@@@@@@@",
+"@..............@",
+"@....#####+++++@",
+"@.#.######.....@",
+"@.#.######+...+@",
+"@....#####++.++@",
+"@.+++++++++++++@",
+"@@@@@@@@@@@@@@@@",
+"  ##############",
+"  ..............",
+"  .#########+.+.",
+"  .#########....",
+"  .#########+++.",
+"  .#########....",
+"  .#########+.+.",
+"  .............."};