fxruby 1.6.13-mswin32

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,187 @@
+#!/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)
+    extract = FXMenuCommand.new(filemenu, "Extract")
+    extract.connect(SEL_COMMAND) do
+      result = @table.extractText(0, @table.numRows-1, 0, @table.numColumns-1)
+      puts result
+    end
+    
+    # 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

data/examples/textedit/commands.rb

@@ -0,0 +1,114 @@
+require 'fox16'
+require 'fox16/undolist'
+
+include Fox
+
+# Undo record for text fragment
+class FXTextCommand < FXCommand
+
+  def initialize(txt, change)
+    @text = txt
+    @buffer = nil
+    @pos = change.pos
+    @numCharsDeleted = change.ndel
+    @numCharsInserted = change.nins
+  end
+
+  def size
+    (@buffer != nil) ? @buffer.size : 0
+  end
+end
+
+# Insert command
+class FXTextInsert < FXTextCommand
+
+  def undoName
+    "Undo insert"
+  end
+
+  def redoName
+    "Redo insert"
+  end
+
+  # Undoing an insert removes the previously inserted text
+  def undo
+    @buffer = @text.extractText(@pos, @numCharsInserted)
+    @text.removeText(@pos, @numCharsInserted)
+    @text.cursorPos = @pos
+    @text.makePositionVisible(@pos)
+  end
+
+  # Redoing an insert re-inserts the same text
+  def redo
+    @text.insertText(@pos, @buffer)
+    @text.cursorPos = @pos + @numCharsInserted
+    @text.makePositionVisible(@pos + @numCharsInserted)
+    @buffer = nil
+  end
+end
+
+# Delete command
+class FXTextDelete < FXTextCommand
+  def initialize(txt, change)
+    super(txt, change)
+    @buffer = change.del
+  end
+
+  def undoName
+    "Undo delete"
+  end
+
+  def redoName
+    "Redo delete"
+  end
+
+  # Undoing a delete re-inserts the deleted text
+  def undo
+    @text.insertText(@pos, @buffer)
+    @text.cursorPos = @pos + @buffer.length
+    @text.makePositionVisible(@pos + @buffer.length)
+    @buffer = nil
+  end
+
+  # Redoing a delete removes it again
+  def redo
+    @buffer = @text.extractText(@pos, @numCharsDeleted)
+    @text.removeText(@pos, @buffer.length)
+    @text.cursorPos = @pos
+    @text.makePositionVisible(@pos)
+  end
+end
+
+# Replace command
+class FXTextReplace < FXTextCommand
+  def initialize(txt, change)
+    super(txt, change)
+    @buffer = change.del
+  end
+
+  def undoName
+    "Undo replace"
+  end
+
+  def redoName
+    "Redo replace"
+  end
+
+  # Undoing a replace reinserts the old text
+  def undo
+    tmp = @text.extractText(@pos, @numCharsInserted)
+    @text.replaceText(@pos, @numCharsInserted, @buffer)
+    @text.cursorPos = @pos + @buffer.length
+    @text.makePositionVisible(@pos + @buffer.length)
+    @buffer = tmp
+  end
+
+  # Redo a replace reinserts the new text
+  def redo
+    tmp = @text.extractText(@pos, @numCharsDeleted)
+    @text.replaceText(@pos, @numCharsDeleted, @buffer)
+    @text.cursorPos = @pos + @numCharsInserted
+    @text.makePositionVisible(@pos + @numCharsInserted)
+    @buffer = tmp
+  end
+end