fxruby 1.6.27-x64-mingw32

data/examples/canvasdemo.rb

@@ -0,0 +1,88 @@
+require 'fox16'
+require '../lib/fox16/canvas'
+
+include Fox
+include Canvas
+
+class CanvasDemo < FXMainWindow
+  def initialize(app)
+    # Initialize base class first
+    super(app, "Canvas Demo", nil, nil, DECOR_ALL, 0, 0, 800, 600)
+
+    # Menu bar
+    menu_bar = FXMenubar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+
+    # File menu
+    file_menu = FXMenuPane.new(self)
+    FXMenuCommand.new(file_menu, "&New...")
+    FXMenuCommand.new(file_menu, "&Open...")
+    FXMenuCommand.new(file_menu, "&Close")
+    FXMenuCommand.new(file_menu, "&Save")
+    FXMenuCommand.new(file_menu, "Save &As...")
+    FXMenuSeparator.new(file_menu)
+    FXMenuCommand.new(file_menu, "&Print...")
+    FXMenuCommand.new(file_menu, "Print &Setup...")
+    FXMenuCommand.new(file_menu, "Print Pre&view")
+    FXMenuSeparator.new(file_menu)
+    FXMenuCommand.new(file_menu, "E&xit", nil, app, FXApp::ID_QUIT)
+
+    # Edit menu
+    edit_menu = FXMenuPane.new(self)
+    FXMenuCommand.new(edit_menu, "&Undo")
+    FXMenuCommand.new(edit_menu, "&Redo")
+    FXMenuSeparator.new(edit_menu)
+    FXMenuCommand.new(edit_menu, "&Cut")
+    FXMenuSeparator.new(edit_menu)
+    FXMenuCommand.new(edit_menu, "Change &background color")
+    FXMenuCommand.new(edit_menu, "Edit &label")
+
+    # Recently used files
+    @mru_files = FXRecentFiles.new
+
+    # Help menu
+    help_menu = FXMenuPane.new(self)
+    aboutBox = FXMenuCommand.new(help_menu, "&About...")
+    aboutBox.connect(SEL_COMMAND) do |sender, sel, ptr|
+      FXMessageBox.information(self, MBOX_OK, "About Canvas",
+        "Canvas Demo\nTo draw a shape, select a shape on the toolbar and left-click on the canvas.\nTo draw a line, right-drag between shapes.")
+    end
+
+    # Attach menus to menu bar titles
+    FXMenuTitle.new(menu_bar, "&File", nil, file_menu)
+    FXMenuTitle.new(menu_bar, "&Edit", nil, edit_menu)
+    FXMenuTitle.new(menu_bar, "&Help", nil, help_menu)
+
+    # Status bar
+    FXStatusbar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+
+    # Shapes canvas fills the remainder
+    frame = FXHorizontalFrame.new(self,
+      LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK,
+      0, 0, 0, 0, 0, 0, 0, 0)
+    canvas = ShapeCanvas.new(frame, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    canvas.scene = get_scene(canvas)
+  end
+
+  def get_scene(canvas)
+    scene = ShapeGroup.new
+    scene.addShape(CircleShape.new(5, 5, 10))
+    scene.addShape(CircleShape.new(50, 50, 20))
+    scene.addShape(LineShape.new(10, 10, 70, 70))
+    scene.addShape(RectangleShape.new(90, 90, 30, 40))
+    scene.addShape(TextShape.new(60, 60, 30, 40, "Hello!"))
+    scene
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  app = FXApp.new("CanvasDemo", "FXRuby")
+  CanvasDemo.new(app)
+  app.create
+  app.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