fxruby 1.6.14-universal-darwin-9

data/examples/splitter.rb

@@ -0,0 +1,211 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class SplitterWindow < FXMainWindow
+
+  # Convenience function to load & construct an icon
+  def makeIcon(filename)
+    begin
+      filename = File.join("icons", filename)
+      icon = nil
+      File.open(filename, "rb") do |f|
+        icon = FXPNGIcon.new(getApp(), f.read)
+      end
+      icon
+    rescue
+      raise RuntimeError, "Couldn't load icon: #{filename}"
+    end
+  end
+
+
+  def initialize(app)
+    # Do base class initialize first
+    super(app, "Splitter Test", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Construct some icons we'll use
+    folder_open   = makeIcon("minifolderopen.png")
+    folder_closed = makeIcon("minifolder.png")
+    doc           = makeIcon("minidoc.png")
+
+    # Menu bar
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+    
+    # Status bar
+    status = FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+    
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "Quit\tCtl-Q", nil, getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+    
+    # Main window interior
+    @splitter = FXSplitter.new(self, (LAYOUT_SIDE_TOP|LAYOUT_FILL_X|
+      LAYOUT_FILL_Y|SPLITTER_REVERSED|SPLITTER_TRACKING))
+    group1 = FXVerticalFrame.new(@splitter,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y, :padding => 0)
+    group2 = FXVerticalFrame.new(@splitter,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    group3 = FXVerticalFrame.new(@splitter,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  
+    # Mode menu
+    modemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(modemenu, "Reverse\t\tReverse split order").connect(SEL_COMMAND) {
+      @splitter.splitterStyle |= SPLITTER_REVERSED
+    }
+    FXMenuCommand.new(modemenu, "Normal\t\tNormal split order").connect(SEL_COMMAND) {
+      @splitter.splitterStyle &= ~SPLITTER_REVERSED
+    }
+    FXMenuCommand.new(modemenu, "Horizontal\t\tHorizontal split").connect(SEL_COMMAND) {
+      @splitter.splitterStyle &= ~SPLITTER_VERTICAL
+    }
+    FXMenuCommand.new(modemenu, "Vertical\t\tVertical split").connect(SEL_COMMAND) {
+      @splitter.splitterStyle |= SPLITTER_VERTICAL
+    }
+    trackingBtn = FXMenuCheck.new(modemenu, "Tracking\t\tToggle continuous tracking mode")
+    trackingBtn.connect(SEL_COMMAND, method(:onCmdTracking))
+    trackingBtn.connect(SEL_UPDATE, method(:onUpdTracking))
+    FXMenuCheck.new(modemenu, "Toggle pane 1", group1, FXWindow::ID_TOGGLESHOWN)
+    FXMenuCheck.new(modemenu, "Toggle pane 2", group2, FXWindow::ID_TOGGLESHOWN)
+    FXMenuCheck.new(modemenu, "Toggle pane 3", group3, FXWindow::ID_TOGGLESHOWN)
+   
+    FXMenuTitle.new(menubar, "&Mode", nil, modemenu)
+      
+    tree = FXTreeList.new(group1,
+      :opts => (LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_RIGHT|TREELIST_SHOWS_LINES|
+      TREELIST_SHOWS_BOXES|TREELIST_ROOT_BOXES|TREELIST_EXTENDEDSELECT))
+  
+    topmost = tree.appendItem(nil, "Top", folder_open, folder_closed)
+    tree.expandTree(topmost)
+      tree.appendItem(topmost, "First", doc, doc)
+      tree.appendItem(topmost, "Second", doc, doc)
+      tree.appendItem(topmost, "Third", doc, doc)
+      branch = tree.appendItem(topmost, "Fourth", folder_open, folder_closed)
+      tree.expandTree(branch)
+        tree.appendItem(branch, "Fourth-First", doc, doc)
+        tree.appendItem(branch, "Fourth-Second", doc, doc)
+        twig = tree.appendItem(branch, "Fourth-Third",
+                                folder_open, folder_closed)
+          tree.appendItem(twig, "Fourth-Third-First", doc, doc)
+          tree.appendItem(twig, "Fourth-Third-Second", doc, doc)
+          tree.appendItem(twig, "Fourth-Third-Third", doc, doc)
+          leaf = tree.appendItem(twig, "Fourth-Third-Fourth",
+                                  folder_open, folder_closed)
+          leaf.setEnabled(false)
+            tree.appendItem(leaf, "Fourth-Third-Fourth-First", doc, doc)
+            tree.appendItem(leaf, "Fourth-Third-Fourth-Second", doc, doc)
+            tree.appendItem(leaf, "Fourth-Third-Fourth-Third", doc, doc)
+        twig = tree.appendItem(branch, "Fourth-Fourth",
+                                folder_open, folder_closed)
+          tree.appendItem(twig, "Fourth-Fourth-First", doc, doc)
+          tree.appendItem(twig, "Fourth-Fourth-Second", doc, doc)
+          tree.appendItem(twig, "Fourth-Fourth-Third", doc, doc)
+          0.upto(9) { |i| tree.appendItem(twig, i.to_s, doc, doc) }
+        twig = tree.appendItem(branch, "Fourth-Fifth",
+                                folder_open, folder_closed)
+        tree.expandTree(twig)
+          tree.appendItem(twig, "Fourth-Fifth-First", doc, doc)
+          tree.appendItem(twig, "Fourth-Fifth-Second", doc, doc)
+          tree.appendItem(twig, "Fourth-Fifth-Third", doc, doc)
+          0.upto(9) { |i| tree.appendItem(twig, i.to_s, doc, doc) }
+      tree.appendItem(topmost, "Fifth", doc, doc)
+      tree.appendItem(topmost, "Sixth", doc, doc)
+      branch = tree.appendItem(topmost, "Seventh", folder_open, folder_closed)
+        tree.appendItem(branch, "Seventh-First", doc, doc)
+        tree.appendItem(branch, "Seventh-Second", doc, doc)
+        tree.appendItem(branch, "Seventh-Third", doc, doc)
+      tree.appendItem(topmost, "Eighth", doc, doc)
+    
+    FXLabel.new(group2, "Matrix", nil, LAYOUT_CENTER_X)
+    FXHorizontalSeparator.new(group2, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+    matrix = FXMatrix.new(group2, 2, MATRIX_BY_COLUMNS|LAYOUT_FILL_X)
+    
+    FXLabel.new(matrix, "Alpha:", nil,
+      JUSTIFY_RIGHT|LAYOUT_FILL_X|LAYOUT_CENTER_Y)
+    FXTextField.new(matrix, 2, nil, 0, (FRAME_SUNKEN|FRAME_THICK|
+      LAYOUT_FILL_X|LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN))
+    FXLabel.new(matrix, "Beta:", nil,
+      JUSTIFY_RIGHT|LAYOUT_FILL_X|LAYOUT_CENTER_Y)
+    FXTextField.new(matrix, 2, nil, 0, (FRAME_SUNKEN|FRAME_THICK|
+      LAYOUT_FILL_X|LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN))
+    FXLabel.new(matrix, "Gamma:", nil,
+      JUSTIFY_RIGHT|LAYOUT_FILL_X|LAYOUT_CENTER_Y)
+    FXTextField.new(matrix, 2, nil, 0, (FRAME_SUNKEN|FRAME_THICK|
+      LAYOUT_FILL_X|LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN))
+   
+    continuousCheck = FXCheckButton.new(group2,
+      "Continuous Tracking\tSplitter continuously tracks split changes")
+    continuousCheck.connect(SEL_COMMAND, method(:onCmdTracking))
+    continuousCheck.connect(SEL_UPDATE, method(:onUpdTracking))
+    
+    FXLabel.new(group3, "Quite a Stretch", nil, LAYOUT_CENTER_X)
+    FXHorizontalSeparator.new(group3, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+    mat = FXMatrix.new(group3, 3, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    FXButton.new(mat, "One\nStretch the row\nStretch in Y\nStretch in X\t" +
+      "The possibilities are endless..", nil, nil, 0,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_FILL_ROW)
+    FXButton.new(mat, "Two\nStretch in X\tThe possibilities are endless..", nil,
+      nil, 0, FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X)
+    FXButton.new(mat, "Three\nStretch the row\nStretch in Y\nStretch in X\t" +
+      "The possibilities are endless..", nil, nil, 0,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_FILL_ROW)
+    
+    FXButton.new(mat, "Four\nStretch the column\nStretch the row\n" +
+      "Stretch in Y\nStretch in X\tThe possibilities are endless..", nil,
+      nil, 0, (FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|
+      LAYOUT_FILL_ROW|LAYOUT_FILL_COLUMN))
+    FXButton.new(mat, "Five\nStretch the column\nStretch in Y\n" +
+      "Stretch in X\tThe possibilities are endless..", nil, nil, 0,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_FILL_COLUMN)
+    FXButton.new(mat, "Six\nStretch the column\nStretch the row\n" +
+      "Stretch in Y\nStretch in X\tThe possibilities are endless..", nil,
+      nil, 0, (FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y|
+      LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW))
+    
+    FXButton.new(mat, "Seven\nStretch the column\nStretch the row\n" +
+      "Center in Y\nCenter in X\tThe possibilities are endless..", nil,
+      nil, 0, (FRAME_RAISED|FRAME_THICK|LAYOUT_CENTER_Y|LAYOUT_CENTER_X|
+      LAYOUT_FILL_ROW|LAYOUT_FILL_COLUMN))
+    FXButton.new(mat,
+      "Eight\nStretch the column\tThe possibilities are endless..",nil,
+      nil, 0, FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_COLUMN)
+    FXButton.new(mat, "Nine\nStretch the column\nStretch the row\n" +
+      "Stretch in Y\tThe possibilities are endless..", nil, nil, 0,
+      (FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_FILL_Y|
+      LAYOUT_FILL_ROW|LAYOUT_FILL_COLUMN))
+    
+    # Make a tool tip
+    FXToolTip.new(getApp(), 0)
+  end
+
+  def onCmdTracking(sender, sel, ptr)
+    @splitter.splitterStyle ^= SPLITTER_TRACKING
+    return 1
+  end
+
+  def onUpdTracking(sender, sel, ptr)
+    if (@splitter.splitterStyle & SPLITTER_TRACKING) != 0
+      sender.handle(self, FXSEL(SEL_COMMAND, ID_CHECK), nil)
+    else
+      sender.handle(self, FXSEL(SEL_COMMAND, ID_UNCHECK), nil)
+    end
+    return 1
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  application = FXApp.new("Splitter", "FoxTest")
+  SplitterWindow.new(application)
+  application.create
+  application.run
+end

data/examples/styledtext.rb

@@ -0,0 +1,82 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/colors'
+
+include Fox
+
+PREAMBLE = <<EOM
+We the people of the United States, in order to form a more perfect union,
+establish justice, insure domestic tranquility, provide for the common defense,
+promote the general welfare, and secure the blessings of liberty to ourselves and
+our posterity, do ordain and establish this Constitution for the United States of America.
+EOM
+ 
+class StyledTextWindow < FXMainWindow
+  def initialize(app)
+    # Call the base class initialize() first
+    super(app, "Styled Text Test")
+    self.width = 400
+    self.height = 300
+
+    # Menu bar, along the top
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+  
+    # Button bar along the bottom
+    buttons = FXHorizontalFrame.new(self, LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X)
+    
+    # The frame takes up the rest of the space
+    textframe = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK)
+    
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q\tQuit the application.", nil,
+      getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+    
+    # Text window
+    text = FXText.new(textframe, nil, 0,
+      TEXT_READONLY|TEXT_WORDWRAP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    # Construct some hilite styles
+    hs1 = FXHiliteStyle.from_text(text)
+    hs1.normalForeColor = FXColor::Red
+    hs1.normalBackColor = FXColor::Blue
+    hs1.style = FXText::STYLE_BOLD
+
+    hs2 = FXHiliteStyle.from_text(text)
+    hs2.normalForeColor = FXColor::Blue
+    hs2.normalBackColor = FXColor::Yellow
+    hs2.style = FXText::STYLE_UNDERLINE
+    
+    # Enable the style buffer for this text widget
+    text.styled = true
+    
+    # Set the styles
+    text.hiliteStyles = [hs1, hs2]
+    
+    # Set the text
+    text.text = PREAMBLE.gsub!(/\n/, "")
+    
+    # Change the style for this phrase to hs1 [index 1]
+    phrase = "a more perfect union"
+    text.changeStyle(PREAMBLE.index(phrase), phrase.length, 1)
+
+    # Change the style for this phrase to hs2 [index 2]
+    phrase = "United States of America"
+    text.changeStyle(PREAMBLE.index(phrase), phrase.length, 2)
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  application = FXApp.new("StyledText", "FoxTest")
+  StyledTextWindow.new(application)
+  application.create
+  application.run
+end

data/examples/tabbook.rb

@@ -0,0 +1,165 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class TabBookWindow < FXMainWindow
+
+  def initialize(app)
+    # Call the base class initializer first
+    super(app, "Tab Book Test", :opts => DECOR_ALL, :width => 600, :height => 400)
+
+    # Make a tooltip
+    FXToolTip.new(getApp())
+
+    # Menubar appears along the top of the main window
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+
+    # Separator
+    FXHorizontalSeparator.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|SEPARATOR_GROOVE)
+
+    # Contents
+    contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|FRAME_NONE|LAYOUT_FILL_X|LAYOUT_FILL_Y|PACK_UNIFORM_WIDTH)
+  
+    # Switcher
+    @tabbook = FXTabBook.new(contents,:opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_RIGHT)
+  
+    # First item is a list
+    @tab1 = FXTabItem.new(@tabbook, "&Simple List", nil)
+    listframe = FXHorizontalFrame.new(@tabbook, FRAME_THICK|FRAME_RAISED)
+    simplelist = FXList.new(listframe, :opts => LIST_EXTENDEDSELECT|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    simplelist.appendItem("First Entry")
+    simplelist.appendItem("Second Entry")
+    simplelist.appendItem("Third Entry")
+    simplelist.appendItem("Fourth Entry")
+      
+    # Second item is a file list
+    @tab2 = FXTabItem.new(@tabbook, "F&ile List", nil)
+    @fileframe = FXHorizontalFrame.new(@tabbook, FRAME_THICK|FRAME_RAISED)
+    filelist = FXFileList.new(@fileframe, :opts => ICONLIST_EXTENDEDSELECT|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    # Third item is a directory list
+    @tab3 = FXTabItem.new(@tabbook, "T&ree List", nil)
+    dirframe = FXHorizontalFrame.new(@tabbook, FRAME_THICK|FRAME_RAISED)
+    dirlist = FXDirList.new(dirframe,
+      :opts => DIRLIST_SHOWFILES|TREELIST_SHOWS_LINES|TREELIST_SHOWS_BOXES|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    # File Menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "&Simple List", nil,
+      @tabbook, FXTabBar::ID_OPEN_FIRST+0)
+    FXMenuCommand.new(filemenu, "F&ile List", nil,
+      @tabbook, FXTabBar::ID_OPEN_FIRST+1)
+    FXMenuCommand.new(filemenu, "T&ree List", nil,
+      @tabbook, FXTabBar::ID_OPEN_FIRST+2)
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q", nil,
+      getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+    
+    # Tab side
+    tabmenu = FXMenuPane.new(self)
+    hideShow = FXMenuCheck.new(tabmenu, "Hide/Show Tab 2")
+    hideShow.connect(SEL_COMMAND) {
+      if @tab2.shown?
+        @tab2.hide
+        @fileframe.hide
+      else
+        @tab2.show
+        @fileframe.show
+      end
+      @tab2.recalc
+      @fileframe.recalc
+    }
+    hideShow.connect(SEL_UPDATE) { hideShow.check = @tab2.shown? }
+    
+    FXMenuSeparator.new(tabmenu)
+    
+    topTabsCmd = FXMenuRadio.new(tabmenu, "&Top Tabs")
+    topTabsCmd.connect(SEL_COMMAND) do
+      @tabbook.tabStyle = TABBOOK_TOPTABS
+      @tab1.tabOrientation = TAB_TOP
+      @tab2.tabOrientation = TAB_TOP
+      @tab3.tabOrientation = TAB_TOP
+    end
+    topTabsCmd.connect(SEL_UPDATE) do |sender, sel, ptr|
+      sender.check = (@tabbook.tabStyle == TABBOOK_TOPTABS)
+    end
+    
+    bottomTabsCmd = FXMenuRadio.new(tabmenu, "&Bottom Tabs")
+    bottomTabsCmd.connect(SEL_COMMAND) do
+      @tabbook.tabStyle = TABBOOK_BOTTOMTABS
+      @tab1.tabOrientation = TAB_BOTTOM
+      @tab2.tabOrientation = TAB_BOTTOM
+      @tab3.tabOrientation = TAB_BOTTOM
+    end
+    bottomTabsCmd.connect(SEL_UPDATE) do |sender, sel, ptr|
+      sender.check = (@tabbook.tabStyle == TABBOOK_BOTTOMTABS)
+    end
+    
+    leftTabsCmd = FXMenuRadio.new(tabmenu, "&Left Tabs")
+    leftTabsCmd.connect(SEL_COMMAND) do
+      @tabbook.tabStyle = TABBOOK_LEFTTABS
+      @tab1.tabOrientation = TAB_LEFT
+      @tab2.tabOrientation = TAB_LEFT
+      @tab3.tabOrientation = TAB_LEFT
+    end
+    leftTabsCmd.connect(SEL_UPDATE) do |sender, sel, ptr|
+      sender.check = (@tabbook.tabStyle == TABBOOK_LEFTTABS)
+    end
+    
+    rightTabsCmd = FXMenuRadio.new(tabmenu, "&Right Tabs")
+    rightTabsCmd.connect(SEL_COMMAND) do
+      @tabbook.tabStyle = TABBOOK_RIGHTTABS
+      @tab1.tabOrientation = TAB_RIGHT
+      @tab2.tabOrientation = TAB_RIGHT
+      @tab3.tabOrientation = TAB_RIGHT
+    end
+    rightTabsCmd.connect(SEL_UPDATE) do |sender, sel, ptr|
+      sender.check = (@tabbook.tabStyle == TABBOOK_RIGHTTABS)
+    end
+    
+    FXMenuSeparator.new(tabmenu)
+    
+    addTabCmd = FXMenuCommand.new(tabmenu, "Add Tab")
+    addTabCmd.connect(SEL_COMMAND) do
+      FXTabItem.new(@tabbook, "New Tab")
+      FXHorizontalFrame.new(@tabbook, FRAME_THICK|FRAME_RAISED) do |hf|
+        FXLabel.new(hf, "Always add tab item and contents together.", :opts => LAYOUT_FILL)
+      end
+      @tabbook.create # realize widgets
+      @tabbook.recalc # mark parent layout dirty
+    end
+    
+    removeTabCmd = FXMenuCommand.new(tabmenu, "Remove Last Tab")
+    removeTabCmd.connect(SEL_COMMAND) do
+      numTabs = @tabbook.numChildren/2
+      doomedTab = numTabs - 1
+      @tabbook.removeChild(@tabbook.childAtIndex(2*doomedTab+1))
+      @tabbook.removeChild(@tabbook.childAtIndex(2*doomedTab))
+    end
+
+    FXMenuTitle.new(menubar, "&Tab Placement", nil, tabmenu)
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Make an application
+  application = FXApp.new("TabBook", "FoxTest")
+
+  # Build the main window
+  TabBookWindow.new(application)
+
+  # Create the application and its windows
+  application.create
+
+  # Run
+  application.run
+end

data/examples/table.rb

@@ -0,0 +1,182 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'date'
+
+include Fox
+
+class TableWindow < FXMainWindow
+
+  def initialize(app)
+    # Call the base class initializer first
+    super(app, "Table Widget Test", :opts => DECOR_ALL)
+
+    # Tooltip
+    tooltip = FXToolTip.new(getApp())
+    
+    # Icon used in some cells
+    penguinicon = nil
+    File.open(File.join('icons', 'penguin.png'), 'rb') do |f|
+      penguinicon = FXPNGIcon.new(getApp(), f.read, 0, IMAGE_ALPHAGUESS)
+    end
+    
+    # Menubar
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+    
+    # Separator
+    FXHorizontalSeparator.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X|SEPARATOR_GROOVE)
+  
+    # Contents
+    contents = FXVerticalFrame.new(self, LAYOUT_SIDE_TOP|FRAME_NONE|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    
+    frame = FXVerticalFrame.new(contents,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y, :padding => 0)
+  
+    # Table
+    @table = FXTable.new(frame,
+      :opts => TABLE_COL_SIZABLE|TABLE_ROW_SIZABLE|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padding => 2)
+      
+    @table.visibleRows = 20
+    @table.visibleColumns = 8
+
+    @table.setTableSize(50, 14)
+
+    @table.setBackColor(FXRGB(255, 255, 255))
+    @table.setCellColor(0, 0, FXRGB(255, 255, 255))
+    @table.setCellColor(0, 1, FXRGB(255, 240, 240))
+    @table.setCellColor(1, 0, FXRGB(240, 255, 240))
+    @table.setCellColor(1, 1, FXRGB(240, 240, 255))
+  
+    # Initialize the scrollable part of the table
+    (0..49).each do |r|
+      (0..13).each do |c|
+        @table.setItemText(r, c, "r:#{r} c:#{c}")
+      end
+    end
+
+    # Initialize column headers
+    (0...12).each  { |c| @table.setColumnText(c, Date::MONTHNAMES[c+1]) }
+    
+    # Initialize row headers
+    (0...50).each { |r| @table.setRowText(r, "Row#{r}") }
+    
+    @table.setItemText(10, 10, "This is multi-\nline text")
+    @table.setItemJustify(10, 10, FXTableItem::CENTER_X|FXTableItem::CENTER_Y)
+
+    @table.setItem(3, 3, nil)
+    @table.setItem(5, 6, @table.getItem(5, 5))
+    @table.setItem(5, 7, @table.getItem(5, 5))
+    @table.setItemText(5, 5, "Spanning Item")
+    @table.setItemJustify(5, 5, FXTableItem::CENTER_X|FXTableItem::CENTER_Y)
+    
+    @table.getItem( 9,  9).borders = FXTableItem::TBORDER|FXTableItem::LBORDER|FXTableItem::BBORDER
+    @table.getItem( 9, 10).borders = FXTableItem::TBORDER|FXTableItem::RBORDER|FXTableItem::BBORDER
+    
+    @table.getItem(40, 13).borders = FXTableItem::LBORDER|FXTableItem::TBORDER|FXTableItem::RBORDER|FXTableItem::BBORDER
+    @table.getItem(49, 13).borders = FXTableItem::LBORDER|FXTableItem::TBORDER|FXTableItem::RBORDER|FXTableItem::BBORDER
+    @table.getItem( 5,  0).borders = FXTableItem::LBORDER|FXTableItem::TBORDER|FXTableItem::RBORDER|FXTableItem::BBORDER
+    
+    @table.getItem(6, 6).icon = penguinicon
+    @table.getItem(6, 6).iconPosition = FXTableItem::ABOVE  # icon above the text
+    @table.getItem(6, 6).justify = FXTableItem::CENTER_X|FXTableItem::CENTER_Y
+    
+    @table.getItem(3, 4).stipple = STIPPLE_CROSSDIAG
+    
+    # File Menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q", nil, getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+    
+    # Options Menu
+    tablemenu = FXMenuPane.new(self)
+    FXMenuCheck.new(tablemenu, "Horizontal grid", @table, FXTable::ID_HORZ_GRID)
+    FXMenuCheck.new(tablemenu, "Vertical grid", @table, FXTable::ID_VERT_GRID)
+    FXMenuTitle.new(menubar, "&Options", nil, tablemenu)
+    
+    # Manipulations Menu
+    manipmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(manipmenu, "Delete Column\tCtl-C", nil,
+      @table, FXTable::ID_DELETE_COLUMN)
+    FXMenuCommand.new(manipmenu, "Delete Row\tCtl-R", nil,
+      @table, FXTable::ID_DELETE_ROW)
+    FXMenuCommand.new(manipmenu, "Insert Column\tCtl-Shift-C", nil,
+      @table, FXTable::ID_INSERT_COLUMN)
+    FXMenuCommand.new(manipmenu, "Insert Row\tCtl-Shift-R", nil,
+      @table, FXTable::ID_INSERT_ROW)
+    FXMenuCommand.new(manipmenu, "Resize table...").connect(SEL_COMMAND, method(:onCmdResizeTable))
+    FXMenuTitle.new(menubar, "&Manipulations", nil, manipmenu)
+    
+    # Selection Menu
+    selectmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(selectmenu, "Select All", nil, @table, FXTable::ID_SELECT_ALL)
+    FXMenuCommand.new(selectmenu, "Select Cell", nil, @table, FXTable::ID_SELECT_CELL)
+    FXMenuCommand.new(selectmenu, "Select Row", nil, @table, FXTable::ID_SELECT_ROW)
+    FXMenuCommand.new(selectmenu, "Select Column", nil, @table, FXTable::ID_SELECT_COLUMN)
+    FXMenuCommand.new(selectmenu, "Deselect All", nil, @table, FXTable::ID_DESELECT_ALL)
+    FXMenuCommand.new(selectmenu, "Cut to Clipboard", nil, @table, FXTable::ID_CUT_SEL)
+    FXMenuCommand.new(selectmenu, "Copy to Clipboard", nil, @table, FXTable::ID_COPY_SEL)
+    FXMenuCommand.new(selectmenu, "Paste from Clipboard", nil, @table, FXTable::ID_PASTE_SEL)
+    FXMenuCommand.new(selectmenu, "Delete", nil, @table, FXTable::ID_DELETE_SEL)
+    FXMenuTitle.new(menubar, "&Selection", nil, selectmenu)
+  end
+
+  # Resize the table
+  def onCmdResizeTable(sender, sel, ptr)
+    # Create an empty dialog box
+    dlg = FXDialogBox.new(self, "Resize Table")
+
+    # Set up its contents
+    frame = FXHorizontalFrame.new(dlg, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(frame, "Rows:", nil, LAYOUT_SIDE_LEFT|LAYOUT_CENTER_Y)
+    rows = FXTextField.new(frame, 5,
+      :opts => JUSTIFY_RIGHT|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_LEFT|LAYOUT_CENTER_Y)
+    FXLabel.new(frame, "Columns:", nil, LAYOUT_SIDE_LEFT|LAYOUT_CENTER_Y)
+    cols = FXTextField.new(frame, 5,
+      :opts => JUSTIFY_RIGHT|FRAME_SUNKEN|FRAME_THICK|LAYOUT_SIDE_LEFT|LAYOUT_CENTER_Y)
+    FXButton.new(frame, "Cancel", nil, dlg, FXDialogBox::ID_CANCEL,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_SIDE_LEFT|LAYOUT_CENTER_Y)
+    FXButton.new(frame, "  OK  ", nil, dlg, FXDialogBox::ID_ACCEPT,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_SIDE_LEFT|LAYOUT_CENTER_Y)
+
+    # Initialize the text fields' contents
+    oldnr, oldnc = @table.numRows, @table.numColumns
+    rows.text = oldnr.to_s
+    cols.text = oldnc.to_s
+
+    # FXDialogBox#execute will return non-zero if the user clicks OK
+    if dlg.execute != 0
+      nr, nc = rows.text.to_i, cols.text.to_i
+      nr = 0  if nr < 0
+      nc = 0  if nc < 0
+      @table.setTableSize(nr, nc)
+      (0...nr).each { |r|
+        (0...nc).each { |c|
+#         @table.setItemText(r, c, "r:#{r+1} c:#{c+1}")
+        }
+      }
+    end
+    return 1
+  end
+
+  # Create and show this window
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+# Start the whole thing
+if __FILE__ == $0
+  # Make application
+  application = FXApp.new("TableApp", "FoxTest")
+  
+  # Make window
+  TableWindow.new(application)
+  
+  # Create app
+  application.create
+  
+  # Run
+  application.run
+end