wxruby3 0.9.0.pre.beta.8

data/samples/grid/gridtablebase.rb

@@ -0,0 +1,178 @@
+#!/usr/bin/env ruby
+# wxRuby2 Sample Code. Copyright (c) 2004-2009 wxRuby development team
+# Adapted for wxRuby3
+# Copyright (c) M.J.N. Corino, The Netherlands
+###
+
+require 'wx'
+
+# GridTableBase is an alternative way to provide data to a Wx::Grid. A
+# subclass of Wx::GridTableBase is created which is reqiured to provide
+# methods to report the total size of the Grid in rows and columns, and
+# the contents and style of individual cells.
+# 
+# Then, when creating the Grid, instead of calling create_grid and
+# set_value to populate it, the GridTableBase-derived class is
+# associated with the Grid, and provides these functions (see below)
+# 
+# This approach is typically useful for dealing with very large sets of
+# data, as each cell's value is only requested as it becomes visible.v
+class MyGridTable < Wx::GRID::GridTableBase
+  attr_reader :cols, :rows
+  def initialize(rows, cols)
+    super()
+    @rows = rows
+    @cols = cols
+    @number_col = 1
+  end
+
+  # Letter labels for columns
+  COLS = ('AA' .. 'ZZ').to_a
+
+  # Firstly, a GridTableBase must indicate the size of the grid in
+  # terms of rows ...
+  def get_number_rows
+    @rows
+  end
+
+  # ... and columns
+  def get_number_cols
+    @cols
+  end
+
+  def append_rows(n)
+    @rows += n
+    if get_view
+      msg = Wx::GRID::GridTableMessage.new(self, Wx::GRID::GRIDTABLE_NOTIFY_ROWS_APPENDED, n)
+      get_view.process_table_message(msg)
+    end
+  end
+
+  def append_cols(n)
+    @cols += n
+    if get_view
+      msg = Wx::GRID::GridTableMessage.new(self, Wx::GRID::GRIDTABLE_NOTIFY_COLS_APPENDED, n)
+      get_view.process_table_message(msg)
+    end
+  end
+
+  # Most importantly, it should be able to return any given cell's
+  # contents, given its row and column reference
+  def get_value(row, col)
+    if col == @number_col
+      (row * 5).to_s
+    else
+      "#{row}:#{COLS[col]}"
+    end
+  end 
+
+  # This is not needed if the cell contents are simply strings. However,
+  # if you wish to use custom GridCellRenderers and/or GridCellEditors,
+  # this should return a type name which has the correct renderer /
+  # editor defined for it in the Grid, using register_
+  def get_type_name(row, col)
+    if col == @number_col
+      "NUMBER"
+    else
+      "STRING"
+    end
+  end
+
+  # It should also return the attributes that should apply to any given
+  # cell; this example give alternate rows red text letters
+  def get_attr(row, col, attr_kind)
+    attr = Wx::GRID::GridCellAttr.new
+    if (row % 2).zero?
+      attr.text_colour = Wx::RED
+    end
+    attr
+  end
+
+  # It should indicate whether any given cell is empty
+  def is_empty_cell(row, col)
+    false
+  end
+
+  # It may also provide labels for the columns and rows
+  def get_col_label_value(col)
+    COLS[col]
+  end
+
+  # If the Grid is to support write as well as read operations,
+  # set_value should also be implemented. In this case, the change is
+  # merely echoed back and doesn't alter the underlying value; a real
+  # implementation could, for example, write back to a database
+  def set_value(x, y, val)
+    puts "Changing the value of cell (#{x}, #{y}) to '#{val}'"
+  end
+end
+
+class GridFrame < Wx::Frame
+  def initialize
+    super(nil, :title => 'GridTableBase demo', :size => [600, 300])
+    main_sizer = Wx::VBoxSizer.new
+    # Create a grid and associate an instance of the GridTable as the
+    # data provider for the grid
+    @grid = Wx::GRID::Grid.new(self)
+
+    # Define the renderers and editors used by the different data types
+    # displayed in this Grid. The type of a given cell is determined by
+    # calling the source's get_type_name method; see above.
+    @grid.register_data_type( "STRING", 
+                              Wx::GRID::GridCellStringRenderer.new,
+                              Wx::GRID::GridCellTextEditor.new )
+    @grid.register_data_type( "NUMBER", 
+                              Wx::GRID::GridCellNumberRenderer.new,
+                              Wx::GRID::GridCellNumberEditor.new(0, 500) )
+
+    # Set the data source
+    @grid.table = MyGridTable.new(10, 10)
+    
+
+    main_sizer.add(@grid, 1, Wx::EXPAND|Wx::ALL, 5)
+
+    # Add some buttons that can change the contents
+    butt_sizer = Wx::BoxSizer.new(Wx::HORIZONTAL)
+
+    butt_1 = Wx::Button.new(self, :label => "Add row")
+    # When resizing the grid to have a new number of rows or columns,
+    # just tell the table
+    evt_button(butt_1) do
+      @grid.append_rows(1)
+      @grid.force_refresh
+    end
+    butt_sizer.add(butt_1)
+
+    butt_2 = Wx::Button.new(self, :label => "Add column")
+    evt_button(butt_2) do
+      @grid.append_cols(1)
+      @grid.force_refresh
+    end
+    butt_sizer.add(butt_2)
+
+    main_sizer.add(butt_sizer, 0, Wx::EXPAND|Wx::ALL, 5)
+    self.sizer = main_sizer
+  end
+end
+
+module GridTableSample
+
+  include WxRuby::Sample if defined? WxRuby::Sample
+
+  def self.describe
+    { file: __FILE__,
+      summary: 'wxRuby GridTable example.',
+      description: 'wxRuby example showcasing a custom GridTable for a Grid control.' }
+  end
+
+  def self.activate
+    frame = GridFrame.new
+    frame.show
+    frame
+  end
+
+  if $0 == __FILE__
+    Wx::App.run { GridTableSample.activate }
+  end
+
+end

data/samples/html/8859_2.htm

@@ -0,0 +1,14 @@
+<html>
+  <head>
+    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
+    <title>ISO_8859-2 document</title>
+  </head>
+  <body>
+    Hi, this document is encoded in ISO_8859-2:
+    <p>
+    <b>P��li� �lu�ou�k� k�� �p�l ��belsk� �dy.</b>
+    <p>
+    The sentence above should look like this:
+    <p align=center><img src="i18n.gif">    
+  </body>
+</html>

data/samples/html/cp1250.htm

@@ -0,0 +1,19 @@
+<html>
+  <head>
+    <meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
+    <title>CP1250 document</title>
+  </head>
+  <body>
+    Hi, this document is encoded in CP1250:
+    <p>
+    <b>P��li� �lu�ou�k� k�� �p�l ��belsk� �dy.</b>
+    <p>
+    And now in forced arial face:
+    <p><font face="Arial,arial">
+    <b>P��li� �lu�ou�k� k�� �p�l ��belsk� �dy.</b>
+    </font>
+    <p>
+    The sentence above should look like this:
+    <p align=center><img src="i18n.gif">
+  </body>
+</html>

data/samples/html/html.rb

@@ -0,0 +1,278 @@
+#!/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 'net/http'
+require 'uri'
+
+ID_PageOpen,
+  ID_DefaultLocalBrowser,
+  ID_DefaultWebBrowser,
+  ID_Back,
+  ID_Forward,
+  ID_Processor,
+  ID_DrawCustomBg = (Wx::ID_HIGHEST..Wx::ID_HIGHEST+7).to_a
+
+
+class MyHtmlFilter < Wx::HTML::HtmlFilter
+  def can_read(fsfile)
+    return /\.foobar\Z/ =~ fsfile.location
+  end
+
+  def read_file(fsfile)
+    uri = URI.parse(fsfile.location)
+    if uri.scheme == 'file' && File.exist?(uri.path)
+      return File.read(uri.path)
+    else
+      "<html><body><b>Cannot locate #{fsfile.location}</b></body></html>"
+    end
+  end
+end
+
+class MyHtmlWindow < Wx::HTML::HtmlWindow
+  BLUE_PEN = Wx::Pen.new
+  attr_reader :html_src
+  def initialize(*args)
+    super
+    @draw_custom_bg = false
+    evt_erase_background :on_erase_bg_event
+
+    BLUE_PEN.set_colour(Wx::BLUE)
+  end
+
+  def draw_custom_bg(val)
+    @draw_custom_bg = !!val
+    refresh
+  end
+
+  def on_opening_url(_type, url)
+    related_frame.set_status_text(url + " lately opened", 1)
+    Wx::HTML_OPEN
+  end
+
+  def on_erase_bg_event(event)
+    unless @draw_custom_bg
+      event.skip
+      return
+    end
+
+    # draw a background grid to show that this handler is indeed executed
+    paint do |dc|
+      dc.pen = BLUE_PEN
+      dc.clear
+
+      vx, vy = get_virtual_size
+      (vx / 15).times { |i| x = i*15; dc.draw_line(x, 0, x, vy) }
+      (vy / 15).times { |i| y = i*15; dc.draw_line(0, y, vx, y) }
+    end
+  end
+
+end
+
+# The frame or self-contained window for this application
+class HtmlFrame < Wx::Frame
+  attr_reader :html_win
+
+  def initialize(title, pos, size, style = Wx::DEFAULT_FRAME_STYLE)
+    # A main application frame has no parent (nil)
+    # -1 means this frame will be supplied a default id
+    super(nil, -1, title, pos, size, style)
+    setup_menus
+    create_status_bar(2)
+    self.icon = Wx::Icon.new(local_icon_file('../sample.xpm'))
+    setup_panel
+    self.status_text = "Welcome to wxRuby!"
+
+    evt_html_link_clicked Wx::ID_ANY, :on_html_link_clicked
+    evt_html_cell_hover Wx::ID_ANY, :on_html_cell_hover
+    evt_html_cell_clicked Wx::ID_ANY, :on_html_cell_clicked
+  end
+
+  def setup_panel
+    panel = Wx::Panel.new(self, -1)
+
+    @html_win = MyHtmlWindow.new(panel, -1)
+    @html_win.set_related_frame(self, 'HTML : %s')
+    @html_win.set_related_status_bar(1)
+
+    @html_win.load_file('samples/html/test.htm')
+
+    text = Wx::TextCtrl.new(panel, Wx::ID_ANY, "",
+                            Wx::DEFAULT_POSITION, Wx::DEFAULT_SIZE,
+                            Wx::TE_MULTILINE)
+    Wx::Log.set_active_target(Wx::LogTextCtrl.new(text))
+
+    sizer = Wx::BoxSizer.new(Wx::VERTICAL)
+    sizer.add(@html_win, 3, Wx::GROW)
+    sizer.add(text, 1, Wx::GROW)
+    panel.set_sizer(sizer)
+  end
+
+  def setup_menus
+    menu_file = Wx::Menu.new
+    menu_nav = Wx::Menu.new
+    menu_help = Wx::Menu.new
+
+
+    menu_file.append(ID_PageOpen, "&Open HTML page...\tCtrl-O")
+    menu_file.append(ID_DefaultLocalBrowser, "&Open current page with default browser")
+    menu_file.append(ID_DefaultWebBrowser, "Open a &web page with default browser")
+    # menu_file.append_separator
+    # menu_file.append(ID_Processor, "&Remove bold attribute",
+    #                  '', Wx::ITEM_CHECK)
+    menu_file.append_separator
+    menu_file.append_check_item(ID_DrawCustomBg, "&Draw custom background")
+    menu_file.append_separator
+    menu_file.append(Wx::ID_EXIT, "&Close frame")
+
+    menu_nav.append(ID_Back, "Go &BACK")
+    menu_nav.append(ID_Forward, "Go &FORWARD")
+    
+    # Using Wx::ID_ABOUT default id means the menu item will be placed
+    # in the correct platform-specific place
+    menu_help.append(Wx::ID_ABOUT, "&About...\tF1", "Show about dialog")
+
+    menu_bar = Wx::MenuBar.new
+    menu_bar.append(menu_file, "&File")
+    menu_bar.append(menu_nav, "&Navigate")
+    menu_bar.append(menu_help, "&Help")
+    # Assign the menus to this frame
+    self.menu_bar = menu_bar
+
+    if Wx.has_feature?(:USE_ACCEL)
+      accel_entries = [
+        Wx::AcceleratorEntry.new(Wx::ACCEL_ALT, Wx::K_LEFT, ID_Back),
+        Wx::AcceleratorEntry.new(Wx::ACCEL_ALT, Wx::K_RIGHT, ID_Forward)
+      ]
+      set_accelerator_table(Wx::AcceleratorTable.new(accel_entries))
+    end
+
+    # handle menu events
+    evt_menu ID_PageOpen, :on_open_page
+    evt_menu ID_DefaultLocalBrowser, :on_default_local_browser
+    evt_menu ID_DefaultWebBrowser, :on_default_web_browser
+    evt_menu ID_Back, :on_back
+    evt_menu ID_Forward, :on_forward
+    evt_menu ID_DrawCustomBg, :on_draw_custom_bg
+    evt_menu Wx::ID_EXIT, :on_quit
+    evt_menu Wx::ID_ABOUT, :on_about
+  end
+
+  # end the application
+  def on_quit(_evt)
+    close(true)
+  end
+
+  def on_open_page(_evt)
+    if Wx.has_feature?(:USE_FILEDLG)
+      p = Wx.file_selector("Open HTML document", '',
+                           '', '', 'HTML files|*.htm;*.html');
+      unless p.empty?
+        tm = Time.now
+        if html_win.load_file(p)
+          Wx.log_status("Loaded \"#{p}\" in #{Time.now-tm}sec")
+        end
+      end
+    end
+  end
+
+  def on_default_local_browser(_evt)
+    page = html_win.get_opened_page
+    Wx.launch_default_browser(page) unless page.empty?
+  end
+
+  def on_default_web_browser(_evt)
+    page = html_win.get_opened_page
+    Wx.launch_default_browser('http://www.google.com') unless page.empty?
+  end
+
+  def on_back(_evt)
+    Wx.message_box('You reached prehistory era!') unless html_win.history_back
+  end
+
+  def on_forward(_evt)
+    Wx.message_box('No more items in history!') unless html_win.history_forward
+  end
+
+  def on_draw_custom_bg(event)
+    html_win.draw_custom_bg(event.checked?)
+  end
+
+  # show an 'About' dialog
+  def on_about(_evt)
+    msg =  sprintf("This is the About dialog of the HTML sample.\n" \
+                   "Welcome to wxRuby, version %s", Wx::WXRUBY_VERSION)
+
+    # create a simple message dialog with OK button
+    Wx::MessageDialog(self, msg, 'About WxRuby HTML',
+                      Wx::OK | Wx::ICON_INFORMATION)
+  end
+
+  def on_html_link_clicked(event)
+    Wx.log_message("The url '%s' has been clicked!", event.link_info.href)
+
+    # skipping this event the default behaviour (load the clicked URL)
+    # will happen...
+    event.skip
+  end
+
+  def on_html_cell_hover(event)
+    Wx.log_message("Mouse moved over cell %p at %d;%d",
+                 event.cell, event.point.x, event.point.y)
+  end
+
+  def on_html_cell_clicked(event)
+    Wx.log_message("Click over cell %p at %d;%d",
+                 event.cell, event.point.x, event.point.y)
+
+    # if we don't skip the event, OnHtmlLinkClicked won't be called!
+    event.skip
+  end
+
+  # utility function to find an icon relative to this ruby script
+  def local_icon_file(icon_name)
+    File.join( File.dirname(__FILE__), icon_name) 
+  end
+end
+
+# Wx::App is the container class for any wxruby app - only a single
+# instance is required
+class HtmlApp < Wx::App
+  def on_init
+    Wx::HTML::HtmlWindow.add_filter(MyHtmlFilter.new)
+
+    set_vendor_name("wxRuby")
+    set_app_name("Wx::HtmlTest")
+
+    frame = HtmlFrame.new("Wx::HtmlWindow testing application",
+                             Wx::Point.new(50, 50), 
+                             Wx::Size.new(450, 340))
+    set_app_name('HtmlDemo')
+    # required
+    frame.show
+  end
+end
+
+module HTMLSample
+
+  include WxRuby::Sample if defined? WxRuby::Sample
+
+  def self.describe
+    { file: __FILE__,
+      summary: 'wxRuby HTML example.',
+      description: 'wxRuby example showcasing HTML framework.' }
+  end
+
+  def self.run
+    execute(__FILE__)
+  end
+
+  if $0 == __FILE__
+    HtmlApp.run
+  end
+
+end

data/samples/html/imagemap.htm

@@ -0,0 +1,20 @@
+<html>
+<head>
+<title>ImageMap Test</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+</head>
+
+<body bgcolor="#FFFFFF" text="#FFFFFF">
+This is test.
+<img src="imagemap.png" width="269" height="249" border="0" usemap="#mymap"> 
+<map name="mymap">
+  <area shape="poly" coords="187,85,160,121,163,153,180,129,166,225,241,223,230,155,201,121,187,86" href="test.htm">
+  <area shape="circle" coords="96,89,36" href="fft.html">
+  <area shape="rect" coords="43,168,124,213" href="tables.htm">
+</map>
+
+
+<img src="imagemap.png" usemap="#mymap"> 
+
+</body>
+</html>

data/samples/html/listtest.htm

@@ -0,0 +1,28 @@
+<html>
+<body>
+<ul>
+  <li>This is line one, try to make page width very small</li>
+  <li>Same with line 2</li>
+</ul>
+------
+<table>
+  <tr>
+    <td>
+      <ul><li>Simple list in a table. This table cell may wrap.</li></ul>
+    </td>
+    <td>
+      Second column, unimportant
+    </td>
+  <tr>
+  <tr>
+    <td nowrap>
+      <ul><li>List in a table, this cell should not wrap</li></ul>
+    </td>
+    <td>
+      Second column, unimportant
+    </td>
+  <tr>
+</table>
+
+</body>
+</html>

data/samples/html/regres.htm

@@ -0,0 +1,20 @@
+<html>
+<head><title>Regression Tests</title></head>
+<body background="pic.png" bgcolor="#ffffff">
+
+<B>wxString</B> <B>FindFirst</B>(was there a space between 'g' and 'F'?)<P>
+
+<font size="+2">Unbre</font>akable word<P>
+
+<pre width="50%">
+&lt;pre&gt; text, 50% wide
+</pre>
+
+
+<script>
+some meaningless script < is this > </is> FIXME: write real jscript here
+</script>
+text after script <b>in bold</b>
+
+</body>
+</html>

data/samples/html/subsup.html

@@ -0,0 +1,42 @@
+<html>
+<body>
+
+The quick brown fox jumps over the lazy dog H<sub>2</sub>O The quick brown fox jumps over the lazy dog
+The quick brown fox jumps over the lazy dog H<sub>2</sub>O The quick brown fox jumps over the lazy dog
+The quick brown fox jumps over the lazy dog H<sup><img src="foo.png"></img></sup>O The quick brown fox jumps over the lazy dog
+H<sub>The quick brown fox jumps over the lazy dog</sub>O The quick brown <sup>fox <sup>jumps over</sup> the</sup> lazy dog
+<br>
+The quick brown fox jumps over the lazy dog H<sub>2<sup>4<sup>5</sup></sup></sub>O The quick brown fox jumps over the lazy dog
+The quick brown fox jumps over the lazy dog H<sub>2<sup>5</sup></sub>O The quick brown fox jumps over the lazy dog
+The quick brown fox jumps over the lazy dog H<sub><img src="foo.png"></sub>O The quick brown fox jumps over the lazy dog
+The quick brown fox jumps over the lazy dog H<sub>2<sub>4</sub></sub>O The quick brown fox jumps over the lazy dog
+
+<br>
+
+<br>
+
+<img src="foo.png"><sup>tm</sup>
+
+<br>
+1<sup>2<sup>3<sup><a href="foo.html">link</a></sup></sup></sup>
+<br>
+x<sup>2</sup> + y<sup>2</sup> = r<sup>2</sup>
+<br>
+e<sup>sqrt(x<sup>2</sup> + y<sup>2</sup>)</sup>
+<br>
+log<sub>2</sub>5 = y<sup>3</sup>
+<br>
+Intel<sup>tm</sup>
+<br>
+Windows<sup>&copy;</sup>
+<br>
+tst<sup>test</sup> me
+<br>
+<br>
+
+<font size=36>tst<sub>tst<sub>tst</sub></sub> me</font>
+
+<br>
+
+</body>
+</html>