fxruby 1.2.2

data/examples/browser.rb

@@ -0,0 +1,191 @@
+#!/usr/bin/env ruby
+
+require 'fox12'
+
+include Fox
+
+# Node in the class hierarchy tree
+class ClassTreeNode
+  def initialize(className, parentClassName)
+    @className = className
+    @parentClassName = parentClassName
+    @children = []
+  end
+
+  def addChild(child)
+    @children.push(child)
+  end
+
+  def className
+    @className
+  end
+
+  def parentClassName
+    @parentClassName
+  end
+
+  def <=>(other)
+    className <=> other.className
+  end
+
+  def children
+    @children.sort
+  end
+end
+
+# The class hierarchy tree
+class ClassTree
+  def initialize
+    # Find the Fox module
+    @mFox = Fox
+
+    # Get an hash containing class names for Fox
+    classes = {}
+    @mFox.constants.each do |name|
+      c = @mFox.const_get(name)
+      if c.kind_of? Class
+	parentclass = c.superclass.name.sub("Fox::", "")
+	classNode  = ClassTreeNode.new(name, parentclass)
+	classes[name] = classNode
+      end
+    end
+
+    # Go back and do this
+    roots = []
+    classes.each_value do |aValue|
+      parentNode = classes[aValue.parentClassName]
+      if parentNode
+        parentNode.addChild(aValue)
+      else
+        parentNode = ClassTreeNode.new(aValue.parentClassName, nil)
+      end
+    end
+
+    # FXObject is the root
+    @root = classes["FXObject"]
+  end
+
+  def root
+    return @root
+  end
+end
+
+class BrowserWindow < FXMainWindow
+
+  def initialize(app)
+    # Call base class initializer first
+    super(app, "Browse", nil, nil, DECOR_ALL, 0, 0, 600, 400)
+
+    # Contents
+    contents = FXHorizontalFrame.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # Horizontal splitter
+    splitter = FXSplitter.new(contents, (LAYOUT_SIDE_TOP|LAYOUT_FILL_X|
+      LAYOUT_FILL_Y|SPLITTER_TRACKING|SPLITTER_HORIZONTAL))
+
+    # Create a sunken frame to hold the tree list
+    groupbox = FXGroupBox.new(splitter, "Classes",
+      LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_GROOVE)
+    frame = FXHorizontalFrame.new(groupbox,
+      LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK)
+
+    # Create the empty tree list
+    @treeList = FXTreeList.new(frame, 0, nil, 0,
+      (TREELIST_BROWSESELECT|TREELIST_SHOWS_LINES|TREELIST_SHOWS_BOXES|
+       TREELIST_ROOT_BOXES|LAYOUT_FILL_X|LAYOUT_FILL_Y))
+    @treeList.connect(SEL_COMMAND) do |sender, sel, item|
+      getApp().beginWaitCursor do
+        s = getInstanceMethods(item.to_s).join("\n")
+        @methodsText.text = s
+        s = getConstants(item.to_s).join("\n")
+        @constantsText.text = s
+      end
+    end
+
+    # Fill it up based on the tree contents
+    populateTree(@treeList, nil, ClassTree.new.root)
+
+    # Tabbed notebook on the right
+    tabBook = FXTabBook.new(splitter, nil, 0,
+      LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_RIGHT)
+
+    tab1 = FXTabItem.new(tabBook, "Methods")
+    page1 = FXHorizontalFrame.new(tabBook, FRAME_THICK|FRAME_RAISED)
+    frame1 = FXHorizontalFrame.new(page1,
+      FRAME_THICK|FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @methodsText = FXText.new(frame1, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @methodsText.text = "List of methods goes here"
+    @methodsText.editable = false
+
+    tab2 = FXTabItem.new(tabBook, "Constants")
+    page2 = FXHorizontalFrame.new(tabBook, FRAME_THICK|FRAME_RAISED)
+    frame2 = FXHorizontalFrame.new(page2,
+      FRAME_THICK|FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @constantsText = FXText.new(frame2, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @constantsText.text = "List of constants goes here"
+    @constantsText.editable = false
+
+    # Cache of classname -> method and classname -> constants lists
+    @instanceMethods = {}
+    @classConstants = {}
+  end
+
+  # Recursively fill up the tree list
+  def populateTree(treeList, rootItem, rootNode)
+    rootNode.children.each do |childNode|
+      childItem = treeList.addItemLast(rootItem, childNode.className)
+      populateTree(treeList, childItem, childNode)
+    end
+  end
+
+  # Create and show the main window
+  def create
+    super
+    @treeList.parent.parent.setWidth(@treeList.font.getTextWidth('MMMMMMMMMMMMMMMM'))
+    show(PLACEMENT_SCREEN)
+  end
+
+  # Returns an array of instance methods for the named class
+  def getInstanceMethods(className)
+    methods = @instanceMethods[className]
+    if methods.nil?
+      theClass = Fox.const_get(className)
+      methods = theClass.instance_methods.sort
+      @instanceMethods[className] = methods
+    end
+    methods
+  end
+
+  # Returns an array of constants for the named class
+  def getConstants(className)
+    constants = @classConstants[className]
+    if constants.nil?
+      klass = Fox.const_get(className)
+      constants = klass.constants
+      superklass = Fox.const_get(className)
+      if superklass
+        constants -= superklass.superclass.constants
+      else
+        constants -= klass.superclass.constants
+      end
+      constants.sort!
+      @classConstants[className] = constants
+    end
+    constants
+  end
+end
+
+if __FILE__ == $0
+  # Create a new application
+  application = FXApp.new("Browser", "FoxTest")
+
+  # Construct the main window
+  BrowserWindow.new(application)
+
+  # Create the windows
+  application.create
+
+  # Start event loop
+  application.run
+end
+

data/examples/button.rb

@@ -0,0 +1,160 @@
+#/usr/bin/env ruby
+
+require 'fox12'
+
+include Fox
+
+class ButtonWindow < FXMainWindow
+
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "Button Test", nil, nil, DECOR_ALL, 100, 100, 0, 0)
+
+    # Create a tooltip
+    FXToolTip.new(self.getApp())
+
+    # Status bar
+    statusbar = FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+
+    # Controls on the right
+    controls = FXVerticalFrame.new(self,
+      LAYOUT_SIDE_RIGHT|LAYOUT_FILL_Y|PACK_UNIFORM_WIDTH)
+
+    # Separator
+    FXVerticalSeparator.new(self,
+      LAYOUT_SIDE_RIGHT|LAYOUT_FILL_Y|SEPARATOR_GROOVE)
+
+    # Contents
+    contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_LEFT|FRAME_NONE|LAYOUT_FILL_X|LAYOUT_FILL_Y|PACK_UNIFORM_WIDTH,
+      0, 0, 0, 0, 20, 20, 20, 20)
+
+    # Construct icon from a PNG file on disk
+    bigpenguin = loadIcon("bigpenguin.png")
+
+    # The button
+    @button = FXButton.new(contents,
+      "&This is a multi-line label on\na button to show off the full\n" +
+      "capabilities of the button object.\t" +
+      "It also has a tooltip\n(which, by the way, can be multi-line also).\t" +
+      "Here's a helpful message for the status line.",
+      bigpenguin,
+      nil, 0,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_CENTER_X|LAYOUT_CENTER_Y|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,
+      0, 0, 300, 200)
+
+    checkButton = FXCheckButton.new(controls, "Toolbar Style\tCool \"poppy\" style buttons")
+    checkButton.connect(SEL_COMMAND) { |sender, sel, checked|
+      if checked
+        @button.buttonStyle |= BUTTON_TOOLBAR
+        @button.frameStyle = FRAME_RAISED
+      else
+        @button.buttonStyle &= ~BUTTON_TOOLBAR
+        @button.frameStyle = FRAME_RAISED|FRAME_THICK
+      end
+    }
+
+    group1 = FXGroupBox.new(controls, "Horizontal Placement",
+      GROUPBOX_TITLE_CENTER|FRAME_RIDGE)
+    FXRadioButton.new(group1, "Before Text").connect(SEL_COMMAND) {
+      @button.iconPosition =
+        (@button.iconPosition|ICON_BEFORE_TEXT) & ~ICON_AFTER_TEXT
+    }
+    FXRadioButton.new(group1, "After Text").connect(SEL_COMMAND) {
+      @button.iconPosition =
+        (@button.iconPosition|ICON_AFTER_TEXT) & ~ICON_BEFORE_TEXT
+    }
+    FXRadioButton.new(group1, "Centered").connect(SEL_COMMAND) {
+      @button.iconPosition =
+        (@button.iconPosition & ~ICON_AFTER_TEXT) & ~ICON_BEFORE_TEXT
+    }
+
+    group2 = FXGroupBox.new(controls, "Vertical Placement",
+      GROUPBOX_TITLE_CENTER|FRAME_RIDGE)
+    FXRadioButton.new(group2, "Above Text").connect(SEL_COMMAND) {
+      @button.iconPosition = 
+        (@button.iconPosition|ICON_ABOVE_TEXT) & ~ICON_BELOW_TEXT
+    }
+    FXRadioButton.new(group2, "Below Text").connect(SEL_COMMAND) {
+      @button.iconPosition =
+        (@button.iconPosition|ICON_BELOW_TEXT) & ~ICON_ABOVE_TEXT
+    }
+    FXRadioButton.new(group2, "Centered").connect(SEL_COMMAND) {
+      @button.iconPosition = 
+        (@button.iconPosition & ~ICON_ABOVE_TEXT) & ~ICON_BELOW_TEXT
+    }
+
+    group3 = FXGroupBox.new(controls, "Horizontal Justification",
+      GROUPBOX_TITLE_CENTER|FRAME_RIDGE)
+    FXRadioButton.new(group3, "Center").connect(SEL_COMMAND) {
+      @button.justify &= ~JUSTIFY_HZ_APART
+    }
+    FXRadioButton.new(group3, "Left").connect(SEL_COMMAND) {
+      @button.justify = (@button.justify & ~JUSTIFY_HZ_APART) | JUSTIFY_LEFT
+    }
+    FXRadioButton.new(group3, "Right").connect(SEL_COMMAND) {
+      @button.justify = (@button.justify & ~JUSTIFY_HZ_APART) | JUSTIFY_RIGHT
+    }
+    FXRadioButton.new(group3, "Apart").connect(SEL_COMMAND) {
+      @button.justify |= JUSTIFY_HZ_APART
+    }
+
+    group4 = FXGroupBox.new(controls, "Vertical Justification",
+      GROUPBOX_TITLE_CENTER|FRAME_RIDGE)
+    FXRadioButton.new(group4, "Center").connect(SEL_COMMAND) {
+      @button.justify &= ~JUSTIFY_VT_APART
+    }
+    FXRadioButton.new(group4, "Top").connect(SEL_COMMAND) {
+      @button.justify = (@button.justify & ~JUSTIFY_VT_APART) | JUSTIFY_TOP
+    }
+    FXRadioButton.new(group4, "Bottom").connect(SEL_COMMAND) {
+      @button.justify = (@button.justify & ~JUSTIFY_VT_APART) | JUSTIFY_BOTTOM
+    }
+    FXRadioButton.new(group4, "Apart").connect(SEL_COMMAND, method(:onCmdJustVerApart))
+
+    quitButton = FXButton.new(controls, "&Quit", nil, nil, 0, FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X)
+    quitButton.connect(SEL_COMMAND) {
+      getApp().exit(0)
+    }
+  end
+
+  def onCmdJustVerApart(sender, sel, ptr)
+    @button.justify |= JUSTIFY_VT_APART
+  end
+
+  # Load the named icon from a file
+  def loadIcon(filename)
+    begin
+      filename = File.join("icons", filename)
+      icon = nil
+      File.open(filename, "rb") { |f|
+        icon = FXPNGIcon.new(getApp(), f.read)
+      }
+      icon
+    rescue
+      raise RuntimeError, "Couldn't load icon: #{filename}"
+    end
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+def run
+  # Construct an application
+  application = FXApp.new("Button", "FoxTest")
+
+  # Construct the main window
+  ButtonWindow.new(application)
+
+  # Create the application
+  application.create
+
+  # Run it
+  application.run
+end
+
+run

data/examples/datatarget.rb

@@ -0,0 +1,223 @@
+#!/usr/bin/env ruby
+
+require 'fox12'
+require 'fox12/colors'
+
+include Fox
+
+BLURB = <<END
+FXDataTarget can be used to connect a widget to an application variable without any of the
+tradional "glue" programming code.
+
+The widgets below are connected (via FXDataTarget) to an integer, real, string, option, and
+color variable, respectively.
+
+Changing one of them will cause all widgets connected to the same FXDataTarget to
+update so as to reflect the value of the application variable.
+
+The progress bar below shows a time-varying variable, demonstrating that widgets
+can be updated via FXDataTarget's regardless how the variables are changed.
+
+Note that the "Option" pulldown menu is also connected to the option variable!
+END
+
+class DataTargetWindow < FXMainWindow
+  def initialize(app)
+    # Initialize base class
+    super(app, "Data Targets Test", nil, nil, DECOR_ALL, 20, 20, 700, 460)
+
+    # Create a data target with an integer value
+    @intTarget = FXDataTarget.new(10)
+
+    # Create a data target with a floating point value
+    @floatTarget = FXDataTarget.new(3.1415927)
+
+    # Create a data target with a string value
+    @stringTarget = FXDataTarget.new("FOX")
+
+    # Create a data target with a color value
+    @colorTarget = FXDataTarget.new(FXColor::Red)
+
+    # Create an integer data target to track the selected option
+    @optionTarget = FXDataTarget.new(1)
+
+    # Create another integer data target to track the "progress"
+    @progressTarget = FXDataTarget.new(0)
+
+    # Menubar
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+    
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "Progress dialog...").connect(SEL_COMMAND) do
+      @progressdialog.show(PLACEMENT_OWNER)
+    end
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q", nil, getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+
+    # Create a progress dialog that's also tied into the integer data target's value
+    @progressdialog = FXProgressDialog.new(self, "Progress", "Incoming...", PROGRESSDIALOG_CANCEL|DECOR_BORDER|DECOR_RESIZE)
+    @progressdialog.target = @intTarget
+    @progressdialog.selector = FXDataTarget::ID_VALUE
+
+    # Option menu
+    optionmenu = FXMenuPane.new(self)
+    FXMenuCheck.new(optionmenu, "Option 1", @optionTarget, FXDataTarget::ID_OPTION+1)
+    FXMenuCheck.new(optionmenu, "Option 2", @optionTarget, FXDataTarget::ID_OPTION+2)
+    FXMenuCheck.new(optionmenu, "Option 3", @optionTarget, FXDataTarget::ID_OPTION+3)
+    FXMenuCheck.new(optionmenu, "Option 4", @optionTarget, FXDataTarget::ID_OPTION+4)
+    FXMenuTitle.new(menubar, "&Option", nil, optionmenu)
+
+    # Lone progress bar at the bottom
+    FXProgressBar.new(self, @progressTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|FRAME_SUNKEN|FRAME_THICK)
+
+    FXHorizontalSeparator.new(self,
+      LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X)
+
+    horframe = FXHorizontalFrame.new(self, LAYOUT_SIDE_TOP | LAYOUT_FILL_X)
+    FXLabel.new(horframe, BLURB, nil, LAYOUT_SIDE_TOP | JUSTIFY_LEFT)
+
+    FXProgressBar.new(horframe, @intTarget, FXDataTarget::ID_VALUE,
+      PROGRESSBAR_PERCENTAGE | PROGRESSBAR_DIAL | LAYOUT_SIDE_TOP |
+      LAYOUT_SIDE_RIGHT | LAYOUT_RIGHT | LAYOUT_FILL_Y | LAYOUT_FILL_X)
+
+    FXHorizontalSeparator.new(self,
+      LAYOUT_SIDE_TOP|SEPARATOR_GROOVE|LAYOUT_FILL_X)
+    FXSlider.new(self, @intTarget, FXDataTarget::ID_VALUE, (SLIDER_VERTICAL|
+      SLIDER_INSIDE_BAR|LAYOUT_SIDE_RIGHT|LAYOUT_FILL_Y|LAYOUT_FIX_WIDTH),
+      0, 0, 20, 0)
+
+    # Arrange nicely
+    matrix = FXMatrix.new(self, 7,
+      MATRIX_BY_COLUMNS|LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # First row
+    FXLabel.new(matrix, "&Integer", nil,
+      LAYOUT_CENTER_Y|LAYOUT_CENTER_X|JUSTIFY_RIGHT|LAYOUT_FILL_ROW)
+    FXTextField.new(matrix, 10, @intTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|LAYOUT_CENTER_X|FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_ROW)
+    FXTextField.new(matrix, 10, @intTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|LAYOUT_CENTER_X|FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_ROW)
+    FXSlider.new(matrix, @intTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|LAYOUT_FILL_ROW|LAYOUT_FIX_WIDTH, 0, 0, 100)
+    FXDial.new(matrix, @intTarget, FXDataTarget::ID_VALUE, (LAYOUT_CENTER_Y|
+      LAYOUT_FILL_ROW|LAYOUT_FIX_WIDTH|DIAL_HORIZONTAL|DIAL_HAS_NOTCH),
+      0, 0, 100)
+    FXSpinner.new(matrix, 5, @intTarget, FXDataTarget::ID_VALUE,
+      SPIN_CYCLIC|FRAME_SUNKEN|FRAME_THICK|LAYOUT_CENTER_Y|LAYOUT_FILL_ROW)
+    FXProgressBar.new(matrix, @intTarget, FXDataTarget::ID_VALUE,
+      (LAYOUT_CENTER_Y|LAYOUT_FILL_X|FRAME_SUNKEN|FRAME_THICK|
+      PROGRESSBAR_PERCENTAGE|LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW))
+
+    # Second row
+    FXLabel.new(matrix, "&Real", nil,
+      LAYOUT_CENTER_Y|LAYOUT_CENTER_X|JUSTIFY_RIGHT|LAYOUT_FILL_ROW)
+    FXTextField.new(matrix, 10, @floatTarget, FXDataTarget::ID_VALUE,
+      (TEXTFIELD_REAL|LAYOUT_CENTER_Y|LAYOUT_CENTER_X|
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_ROW))
+    FXTextField.new(matrix, 10, @floatTarget, FXDataTarget::ID_VALUE,
+      (TEXTFIELD_REAL|LAYOUT_CENTER_Y|LAYOUT_CENTER_X|
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_ROW))
+    FXSlider.new(matrix, @floatTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|LAYOUT_FILL_X|LAYOUT_FILL_ROW|LAYOUT_FIX_WIDTH, 0, 0, 100)
+    FXDial.new(matrix, @floatTarget, FXDataTarget::ID_VALUE,
+      (LAYOUT_CENTER_Y|LAYOUT_FILL_X|LAYOUT_FILL_ROW|LAYOUT_FIX_WIDTH|
+      DIAL_HORIZONTAL|DIAL_HAS_NOTCH), 0, 0, 100)
+
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+
+    # Third row
+    FXLabel.new(matrix, "&String", nil,
+      LAYOUT_CENTER_Y|LAYOUT_CENTER_X|JUSTIFY_RIGHT|LAYOUT_FILL_ROW)
+    FXTextField.new(matrix, 10, @stringTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|LAYOUT_CENTER_X|FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_ROW)
+    FXTextField.new(matrix, 10, @stringTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|LAYOUT_CENTER_X|FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_ROW)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+
+    # Fourth row
+    FXLabel.new(matrix, "&Option", nil,
+      LAYOUT_CENTER_Y|LAYOUT_CENTER_X|JUSTIFY_RIGHT|LAYOUT_FILL_ROW)
+    FXTextField.new(matrix, 10, @optionTarget, FXDataTarget::ID_VALUE,
+      (TEXTFIELD_INTEGER|LAYOUT_CENTER_Y|LAYOUT_CENTER_X|FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_ROW))
+    FXRadioButton.new(matrix, "Option &1",
+      @optionTarget, FXDataTarget::ID_OPTION + 1,
+      LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW|ICON_BEFORE_TEXT)
+    FXRadioButton.new(matrix, "Option &2",
+      @optionTarget, FXDataTarget::ID_OPTION + 2,
+      LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW|ICON_BEFORE_TEXT)
+    FXRadioButton.new(matrix, "Option &3",
+      @optionTarget, FXDataTarget::ID_OPTION + 3,
+      LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW|ICON_BEFORE_TEXT)
+    FXRadioButton.new(matrix, "Option &4",
+      @optionTarget, FXDataTarget::ID_OPTION + 4,
+      LAYOUT_CENTER_Y|LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW|ICON_BEFORE_TEXT)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+
+    # Fifth
+    FXLabel.new(matrix, "&Color", nil,
+      LAYOUT_CENTER_Y|LAYOUT_CENTER_X|JUSTIFY_RIGHT|LAYOUT_FILL_ROW)
+    FXColorWell.new(matrix, 0, @colorTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|LAYOUT_FILL_X|LAYOUT_FILL_ROW, 0, 0, 0, 0, 0, 0, 0, 0)
+    FXColorWell.new(matrix, 0, @colorTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|LAYOUT_FILL_X|LAYOUT_FILL_ROW, 0, 0, 0, 0, 0, 0, 0, 0)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+    FXFrame.new(matrix, LAYOUT_FILL_COLUMN|LAYOUT_FILL_ROW)
+
+    # Install an accelerator
+    self.accelTable.addAccel(fxparseAccel("Ctl-Q"), getApp(), FXSEL(SEL_COMMAND, FXApp::ID_QUIT))
+  end
+
+  # Timer expired; update the progress
+  def onTimeout(sender, sel, ptr)
+    # Increment the progress modulo 100
+    @progressTarget.value = (@progressTarget.value + 1) % 100
+  
+    # Reset the timer for next time
+    getApp().addTimeout(80, method(:onTimeout))
+  end
+
+    # Quit
+    def onCmdQuit(sender, sel, ptr)
+      getApp.exit(0)
+    end
+
+  # Start
+  def create
+    # Create window
+    super
+
+    # Kick off the timer
+    getApp().addTimeout(80, method(:onTimeout))
+
+    # Show the main window
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Make an application
+  application = FXApp.new("DataTarget", "FoxTest")
+
+  # Current threads implementation causes problems for this example, so disable
+  application.threadsEnabled = false
+
+  # Create main window
+  window = DataTargetWindow.new(application)
+
+  # Handle interrupts to quit application gracefully
+  application.addSignal("SIGINT", window.method(:onCmdQuit))
+
+  # Create the application
+  application.create
+
+  # Run
+  application.run
+end