fxruby 1.6.19-x86-mingw32

data/examples/button.rb

@@ -0,0 +1,168 @@
+#/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class ButtonWindow < FXMainWindow
+
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "Button Test", :opts => DECOR_ALL, :x => 100, :y => 100)
+
+    # 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,
+      :padding => 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,
+      :opts => FRAME_RAISED|FRAME_THICK|LAYOUT_CENTER_X|LAYOUT_CENTER_Y|LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT,
+      :width => 300, :height => 200)
+
+    checkButton = FXCheckButton.new(controls, "Toolbar Style\tCool \"poppy\" style buttons")
+    checkButton.connect(SEL_COMMAND) do |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
+    end
+
+    group1 = FXGroupBox.new(controls, "Horizontal Placement",
+      GROUPBOX_TITLE_CENTER|FRAME_RIDGE)
+    @group1_dt = FXDataTarget.new(2)
+    @group1_dt.connect(SEL_COMMAND) do
+      case @group1_dt.value
+        when 0
+          @button.iconPosition = (@button.iconPosition|ICON_BEFORE_TEXT) & ~ICON_AFTER_TEXT
+        when 1
+          @button.iconPosition = (@button.iconPosition|ICON_AFTER_TEXT) & ~ICON_BEFORE_TEXT
+        when 2
+          @button.iconPosition = (@button.iconPosition & ~ICON_AFTER_TEXT) & ~ICON_BEFORE_TEXT
+      end
+    end
+    FXRadioButton.new(group1, "Before Text", @group1_dt, FXDataTarget::ID_OPTION)
+    FXRadioButton.new(group1, "After Text",  @group1_dt, FXDataTarget::ID_OPTION + 1)
+    FXRadioButton.new(group1, "Centered",    @group1_dt, FXDataTarget::ID_OPTION + 2)
+
+    group2 = FXGroupBox.new(controls, "Vertical Placement",
+      GROUPBOX_TITLE_CENTER|FRAME_RIDGE)
+    @group2_dt = FXDataTarget.new(2)
+    @group2_dt.connect(SEL_COMMAND) do
+      case @group2_dt.value
+        when 0
+          @button.iconPosition = (@button.iconPosition|ICON_ABOVE_TEXT) & ~ICON_BELOW_TEXT
+        when 1
+          @button.iconPosition = (@button.iconPosition|ICON_BELOW_TEXT) & ~ICON_ABOVE_TEXT
+        when 2
+          @button.iconPosition = (@button.iconPosition & ~ICON_ABOVE_TEXT) & ~ICON_BELOW_TEXT
+      end
+    end
+    FXRadioButton.new(group2, "Above Text", @group2_dt, FXDataTarget::ID_OPTION)
+    FXRadioButton.new(group2, "Below Text", @group2_dt, FXDataTarget::ID_OPTION + 1)
+    FXRadioButton.new(group2, "Centered",   @group2_dt, FXDataTarget::ID_OPTION + 2)
+
+    group3 = FXGroupBox.new(controls, "Horizontal Justification",
+      GROUPBOX_TITLE_CENTER|FRAME_RIDGE)
+    @group3_dt = FXDataTarget.new(0)
+    @group3_dt.connect(SEL_COMMAND) do
+      case @group3_dt.value
+        when 0
+          @button.justify &= ~JUSTIFY_HZ_APART
+        when 1
+          @button.justify = (@button.justify & ~JUSTIFY_HZ_APART) | JUSTIFY_LEFT
+        when 2
+          @button.justify = (@button.justify & ~JUSTIFY_HZ_APART) | JUSTIFY_RIGHT
+        when 3
+          @button.justify |= JUSTIFY_HZ_APART
+       end
+    end
+    FXRadioButton.new(group3, "Center", @group3_dt, FXDataTarget::ID_OPTION)
+    FXRadioButton.new(group3, "Left",   @group3_dt, FXDataTarget::ID_OPTION + 1)
+    FXRadioButton.new(group3, "Right",  @group3_dt, FXDataTarget::ID_OPTION + 2)
+    FXRadioButton.new(group3, "Apart",  @group3_dt, FXDataTarget::ID_OPTION + 3)
+
+    group4 = FXGroupBox.new(controls, "Vertical Justification",
+      GROUPBOX_TITLE_CENTER|FRAME_RIDGE)
+    @group4_dt = FXDataTarget.new(0)
+    @group4_dt.connect(SEL_COMMAND) do
+      case @group4_dt.value
+        when 0
+          @button.justify &= ~JUSTIFY_VT_APART
+        when 1
+          @button.justify = (@button.justify & ~JUSTIFY_VT_APART) | JUSTIFY_TOP
+        when 2
+          @button.justify = (@button.justify & ~JUSTIFY_VT_APART) | JUSTIFY_BOTTOM
+        when 3
+          @button.justify |= JUSTIFY_VT_APART
+      end
+    end
+    FXRadioButton.new(group4, "Center", @group4_dt, FXDataTarget::ID_OPTION)
+    FXRadioButton.new(group4, "Top",    @group4_dt, FXDataTarget::ID_OPTION + 1)
+    FXRadioButton.new(group4, "Bottom", @group4_dt, FXDataTarget::ID_OPTION + 2)
+    FXRadioButton.new(group4, "Apart",  @group4_dt, FXDataTarget::ID_OPTION + 3)
+
+    quitButton = FXButton.new(controls, "&Quit", :opts => FRAME_RAISED|FRAME_THICK|LAYOUT_FILL_X)
+    quitButton.connect(SEL_COMMAND) { getApp().exit(0) }
+  end
+
+  # Load the named icon from a file
+  def loadIcon(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 create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # 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
+

data/examples/charts.rb

@@ -0,0 +1,35 @@
+require 'fox16'
+require 'google_chart'
+require 'open-uri'
+
+include Fox
+
+class ChartsWindow < FXMainWindow
+  def initialize(app)
+    super(app, "Google Charts Demo", :width => 650, :height => 250)
+    FXImageFrame.new(self, nil, :opts => LAYOUT_FILL) do |f|
+      f.image = FXPNGImage.new(app, open(bar_chart.to_escaped_url, "rb").read)
+    end
+  end
+  
+  def bar_chart
+    GoogleChart::BarChart.new('600x200', 'My Chart', :vertical) do |bc|
+      bc.data 'Trend 1', [5,4,3,1,3,5], '0000ff'
+      bc.data 'Trend 2', [1,2,3,4,5,6], 'ff0000'
+      bc.data 'Trend 3', [6,5,4,4,5,6], '00ff00'
+    end
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  FXApp.new do |app|
+    ChartsWindow.new(app)
+    app.create
+    app.run
+  end
+end

data/examples/custom_table_item.rb

@@ -0,0 +1,170 @@
+require 'fox16'
+
+include Fox
+
+class CustomTableItem < FXTableItem
+	def drawContent(table, dc, x, y, w, h)
+	  puts "in drawContent()"
+		hg = table.horizontalGridShown?
+		vg = table.verticalGridShown?
+		ml = table.marginLeft + (vg ? 1 : 0)
+		mt = table.marginTop + (hg ? 1 : 0)
+		mr = table.marginRight
+		mb = table.marginBottom
+		font = dc.font
+		lbl = text
+		icn = icon
+
+		# Text width and height
+		beg, tw, th = 0, 0, 0
+		begin
+			_end = beg;
+			_end += 1 while _end < lbl.length && lbl[_end].chr != '\n' 
+			t = font.getTextWidth(lbl[beg..._end])
+			tw = t if t > tw
+			th += font.fontHeight
+			beg = _end + 1
+		end while _end < lbl.length
+
+		# Icon size
+		iw, ih = 0, 0
+		unless icn.nil?
+			iw = icn.width
+			ih = icn.height
+		end
+
+		# Icon-text spacing
+		s = 0
+		s = 4 if (iw > 0 && tw > 0)
+
+		# Fix x coordinate
+		if justify & LEFT == 1
+		  case iconPosition
+			when BEFORE
+			  ix = x + ml
+        tx = ix + iw + s
+			when AFTER
+			  tx = x + ml
+        ix = tx + tw + s
+			else
+			  ix = x + ml
+			  tx = x + ml
+			end
+		elsif justify & RIGHT == 1
+			case iconPosition
+		  when BEFORE
+				tx = x + w - mr - tw
+				ix = tx - iw - s
+			when AFTER
+				ix = x + w - mr - iw
+				tx = ix - tw - s
+			else
+			  ix = x + w - mr - iw
+			  tx = x + w - mr - tw
+			end
+		else
+		  case iconPosition
+			when BEFORE
+				ix = x + (ml + w - mr)/2 - (tw + iw + s)/2
+        tx = ix + iw + s
+			when AFTER
+				tx = x + (ml + w - mr)/2 - (tw + iw + s)/2
+        ix = tx + tw + s
+			else
+			  ix = x + (ml + w - mr)/2 - iw/2
+        tx = x + (ml + w - mr)/2 -tw/2
+      end
+		end
+
+		# Fix y coordinate
+		if justify & TOP == 1
+		  case iconPosition
+			when ABOVE
+			  iy = y + mt
+        ty = iy + ih
+			when BELOW
+			  ty = y + mt
+        iy = ty + th
+			else
+			  iy = y + mt
+			  ty = y + mt
+			end
+		elsif justify & BOTTOM == 1
+		  case iconPosition
+			when ABOVE
+			  ty = y + h - mb - th
+        iy = ty - ih
+			when BELOW
+			  iy = y + h - mb - ih
+        ty = iy - th
+			else
+			  iy = y + h - mb - ih
+			  ty = y + h - mb - th
+			end
+		else
+		  case iconPosition
+			when ABOVE
+				iy = y + (mt + h - mb)/2 - (th + ih)/2
+				ty = iy + ih
+			when BELOW
+				ty = y + (mt + h - mb)/2 - (th + ih)/2
+				iy = ty + th
+			else
+			  iy = y + (mt + h - mb)/2 - ih/2
+        ty = y + (mt + h - mb)/2 - th/2
+      end
+		end
+
+		# Paint icon
+		dc.drawIcon(icn, ix, iy) unless icn.nil?
+			
+		# Text color
+		if selected?
+			dc.foreground = table.selTextColor
+		else
+			dc.foreground = table.textColor
+		end
+		puts "dc.foreground = (#{FXREDVAL(dc.foreground)}, #{FXGREENVAL(dc.foreground)}, #{FXBLUEVAL(dc.foreground)})"
+
+		# Draw text
+		yy = ty + font.fontAscent
+		beg = 0
+		begin
+			_end = beg
+			_end += 1 while _end < lbl.length && lbl[_end].chr != '\n' 
+			if justify & LEFT == 1
+			  xx = tx
+			elsif justify & RIGHT == 1
+        xx = tx + tw - font.getTextWidth(lbl[beg..._end])
+			else
+        xx = tx + (tw - font.getTextWidth(lbl[beg..._end]))/2
+      end
+			dc.drawText(xx, yy, lbl[beg..._end])
+			yy += font.fontHeight
+			beg = _end + 1
+		end while _end < lbl.length
+	end
+end
+
+class CustomTable < FXTable
+	def createItem *parameters
+		CustomTableItem.new *parameters
+	end
+end
+
+app = FXApp.new
+main = FXMainWindow.new app, 'Test'
+
+table = CustomTable.new main
+table.setTableSize 2, 2
+table.visibleRows = 2
+table.visibleColumns = 2
+
+table.setItemText 0, 0, 'one'
+table.setItemText 0, 1, 'two'
+table.setItemText 1, 0, 'three'
+table.setItemText 1, 1, 'four'
+
+app.create
+main.show PLACEMENT_SCREEN
+app.run

data/examples/datatarget.rb

@@ -0,0 +1,223 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/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", :opts => DECOR_ALL, :x => 20, :y => 20, :width => 700, :height => 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),
+      :width => 20)
+
+    # 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, :width => 100)
+    FXDial.new(matrix, @intTarget, FXDataTarget::ID_VALUE, (LAYOUT_CENTER_Y|
+      LAYOUT_FILL_ROW|LAYOUT_FIX_WIDTH|DIAL_HORIZONTAL|DIAL_HAS_NOTCH),
+      :width => 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, :width => 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), :width => 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, :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0)
+    FXColorWell.new(matrix, 0, @colorTarget, FXDataTarget::ID_VALUE,
+      LAYOUT_CENTER_Y|LAYOUT_FILL_X|LAYOUT_FILL_ROW, :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 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