fxruby 1.6.27-x64-mingw32

data/examples/dropsite.rb

@@ -0,0 +1,59 @@
+require 'fox16'
+
+include Fox
+
+class DropSite < FXMainWindow
+
+  def initialize(anApp)
+    # Initialize base class
+    super(anApp, "Drop Site", :opts => DECOR_ALL, :width => 400, :height => 300)
+
+    # Fill main window with canvas
+    @canvas = FXCanvas.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # Handle expose events on the canvas
+    @canvas.connect(SEL_PAINT) do |sender, sel, event|
+      FXDCWindow.new(@canvas, event) do |dc|
+        dc.foreground = @canvas.backColor
+        dc.fillRectangle(event.rect.x, event.rect.y, event.rect.w, event.rect.h)
+      end
+    end
+
+    # Enable canvas for drag-and-drop messages
+    @canvas.dropEnable
+
+    # Handle SEL_DND_MOTION messages from the canvas
+    @canvas.connect(SEL_DND_MOTION) do
+      @canvas.acceptDrop if @canvas.offeredDNDType?(FROM_DRAGNDROP, FXWindow.colorType)
+    end
+
+    # Handle SEL_DND_DROP message from the canvas
+    @canvas.connect(SEL_DND_DROP) do
+      # Try to obtain the data as color values first
+      data = @canvas.getDNDData(FROM_DRAGNDROP, FXWindow.colorType)
+
+      # Update canvas background color
+      @canvas.backColor = Fox.fxdecodeColorData(data) unless data.nil?
+    end
+  end
+
+  def create
+    # Create the main window and canvas
+    super
+
+    # Register the drag type for colors
+    FXWindow.colorType = getApp().registerDragType(FXWindow.colorTypeName)
+
+    # Show the main window
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  FXApp.new("DropSite", "FXRuby") do |theApp|
+    DropSite.new(theApp)
+    theApp.create
+    theApp.run
+  end
+end
+

data/examples/foursplit.rb

@@ -0,0 +1,97 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class FourSplitWindow < FXMainWindow
+  def initialize(app)
+    # Call the base class initialize() first
+    super(app, "4-Way Splitter Test", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Menu bar, along the top
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+
+    # Status bar, along the bottom
+    FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+
+    # The top-level splitter takes up the rest of the space
+    splitter = FX4Splitter.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y|FOURSPLITTER_TRACKING)
+
+    # 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)
+
+    # Expand menu
+    expandmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(expandmenu, "All four", nil,
+      splitter, FX4Splitter::ID_EXPAND_ALL)
+    FXMenuCommand.new(expandmenu, "Top/left", nil,
+      splitter, FX4Splitter::ID_EXPAND_TOPLEFT)
+    FXMenuCommand.new(expandmenu, "Top/right", nil,
+      splitter, FX4Splitter::ID_EXPAND_TOPRIGHT)
+    FXMenuCommand.new(expandmenu, "Bottom/left", nil,
+      splitter, FX4Splitter::ID_EXPAND_BOTTOMLEFT)
+    FXMenuCommand.new(expandmenu, "Bottom/right", nil,
+      splitter, FX4Splitter::ID_EXPAND_BOTTOMRIGHT)
+    FXMenuTitle.new(menubar, "&Expand", nil, expandmenu)
+
+    # The 4-splitter accepts exactly four child widgets, and the
+    # order in which they are added matters (top left, top right,
+    # bottom left and bottom right, in that order). For our case,
+    # the first three child widgets are just regular pushbuttons,
+    # but the fourth is itself another 4-splitter. There is no
+    # restriction on nesting these kinds of widgets.
+
+    FXButton.new(splitter, "Top &Left\tThis splitter tracks", :opts => FRAME_RAISED|FRAME_THICK)
+
+    FXButton.new(splitter, "Top &Right\tThis splitter tracks", :opts => FRAME_RAISED|FRAME_THICK)
+
+    FXButton.new(splitter, "&Bottom Left\tThis splitter tracks", :opts => FRAME_SUNKEN|FRAME_THICK)
+
+    subsplitter = FX4Splitter.new(splitter, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # Create the four children of the sub-splitter...
+    FXButton.new(subsplitter, "&Of course\tThis splitter does NOT track") do |theButton|
+      theButton.frameStyle = FRAME_SUNKEN|FRAME_THICK
+      theButton.backColor = FXRGB(0, 128, 0)
+      theButton.textColor = FXRGB(255, 255, 255)
+    end
+
+    button = FXButton.new(subsplitter,
+      "the&y CAN\tThis splitter does NOT track", :opts => FRAME_SUNKEN|FRAME_THICK)
+    button.backColor = FXRGB(128, 0, 0)
+    button.textColor = FXRGB(255, 255, 255)
+
+    button = FXButton.new(subsplitter,
+      "be &NESTED\tThis splitter does NOT track", :opts => FRAME_SUNKEN|FRAME_THICK)
+    button.backColor = FXRGB(0, 0, 200)
+    button.textColor = FXRGB(255, 255, 255)
+
+    button = FXButton.new(subsplitter,
+      "&arbitrarily!\tThis splitter does NOT track", :opts => FRAME_SUNKEN|FRAME_THICK)
+    button.backColor = FXRGB(128, 128, 0)
+    button.textColor = FXRGB(255, 255, 255)
+
+    # Finally, create the tool tip object
+    FXToolTip.new(getApp())
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+def runme
+  application = FXApp.new("FourSplit", "FoxTest")
+  FourSplitWindow.new(application)
+  application.create
+  application.run
+end
+
+runme

data/examples/gdchart.rb

@@ -0,0 +1,76 @@
+require 'fox16'
+require 'tempfile'
+begin
+  require 'GDChart'
+rescue LoadError
+  require 'fox16/missingdep'
+  MSG = <<EOM
+  Sorry, this example depends on the GDChart extension. Please
+  check the Ruby Application Archives for an appropriate
+  download site.
+EOM
+  missingDependency(MSG)
+end
+
+include Fox
+
+class GDChartViewer < FXMainWindow
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "GDChart Viewer", :opts => DECOR_ALL, :width => 850, :height => 600)
+
+    # Sunken border for image widget
+    imagebox = FXHorizontalFrame.new(self,
+      FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # Make image widget
+    @imageview = FXImageView.new(imagebox,
+      :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|HSCROLLER_NEVER|VSCROLLER_NEVER)
+
+    # Construct a PNG image and store it in the image viewer
+    @imageview.image = createChart
+
+    # Resize main window client area to fit image size
+    resize(@imageview.contentWidth, @imageview.contentHeight)
+  end
+
+  def createChart
+    # Create a simple chart
+    GDChart.title = "A Chart"
+    GDChart.xtitle = "X-axis"
+    GDChart.ytitle = "Y-axis"
+    data = [1, 2, 3, 4, 5, 6]
+    labels = ["label 1", "label 2", "label 3", "label 4", "label 5", "label 6"]
+
+    # Write chart data out as GIF to a temporary file
+    File.open('gdchart.gif', 'w') do |f|
+      GDChart.out_graph(200, 200, f, GDChart::LINE, labels.length, labels, 1, data)
+    end
+
+    # Reopen it and construct image
+    img = nil
+    File.open('gdchart.gif', 'rb') do |f|
+      img = FXGIFIcon.new(getApp(), f.read)
+    end
+    img
+  end
+
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Make application
+  application = FXApp.new("GDChart Viewer", "FoxTest")
+
+  # Make window
+  window = GDChartViewer.new(application)
+
+  # Create it
+  application.create
+
+  # Run
+  application.run
+end

data/examples/gembrowser.rb

@@ -0,0 +1,289 @@
+require 'fox16'
+
+include Fox
+
+class GemBrowser
+
+  #
+  # A reference to the currently selected Gem specification, or +nil+
+  # if none is selected.
+  #
+  attr_accessor :currentSpec
+
+  def initialize
+    @currentSpec = nil
+  end
+
+  #
+  # Install the Gem described by the named spec file, and return the
+  # Specification for this Gem.
+  #
+  def install(filename)
+    Gem::Installer.new(filename).install
+    spec = nil
+    cache.each do |n, s|
+      spec = s if (File.basename(filename, ".gem") == s.full_name)
+    end
+    spec
+  end
+
+  #
+  # Uninstall the Gem described by this specification.
+  #
+  def uninstall(spec)
+    Gem::Uninstaller.new(spec.name).uninstall
+  end
+
+  # Return an array of the installed specifications.
+  def cache
+#   Gem.cache
+    Gem::Cache.from_installed_gems
+  end
+end
+
+class GemInfoPanel < FXVerticalFrame
+
+  attr_reader :browser
+
+  def initialize(p, b, opts)
+    # Initialize base class
+    super(p, opts)
+
+    @browser = b
+
+    self.backColor = FXRGB(255, 255, 255)
+
+    File.open(File.join("icons", "gem_big.png"), "rb") do |f|
+      @bigIcon = FXPNGIcon.new(getApp(), f.read)
+    end
+
+    nameLabel = FXLabel.new(self, "", @bigIcon, JUSTIFY_LEFT|JUSTIFY_TOP|ICON_BEFORE_TEXT|LAYOUT_FILL_X)
+    nameLabel.backColor = FXRGB(255, 255, 255)
+    nameLabel.connect(SEL_UPDATE) { |nameLabel, sel, ptr|
+      if currentSpec
+	nameLabel.text = specDescription(currentSpec)
+	nameLabel.show
+      else
+	nameLabel.text = ""
+	nameLabel.hide
+      end
+    }
+
+    summaryText = FXText.new(self, nil, 0, TEXT_READONLY|TEXT_WORDWRAP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    summaryText.backColor = FXRGB(255, 255, 255)
+    summaryText.connect(SEL_UPDATE) { |summaryText, sel, ptr|
+      theText = currentSpec ? currentSpec.summary : nil
+      summaryText.text = theText unless (summaryText.text == theText)
+    }
+  end
+
+  #
+  # Return a reference to the currently selected Gem specification,
+  # or +nil+ if none is selected.
+  #
+  def currentSpec
+    browser.currentSpec
+  end
+
+  # Return a multiline string (suitable for use with an FXLabel) describing this spec.
+  def specDescription(spec)
+    [spec.name, "version #{spec.version}", spec.author, spec.email, spec.homepage].join("\n")
+  end
+
+  def create
+    super
+    @bigIcon.create
+  end
+end
+
+class GemsPanel < FXVerticalFrame
+
+  attr_reader :browser
+
+  def initialize(p, br, opts)
+    # Initialize base class
+    super(p, opts)
+
+    # Save a reference to the browser
+    @browser = br
+
+    File.open(File.join("icons", "gem_big.png"), "rb") do |f|
+      @bigIcon = FXPNGIcon.new(getApp(), f.read)
+    end
+    File.open(File.join("icons", "gem_small.png"), "rb") do |f|
+      @smallIcon = FXPNGIcon.new(getApp(), f.read)
+    end
+
+    @iconList = FXIconList.new(self, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y|ICONLIST_MINI_ICONS|ICONLIST_BROWSESELECT)
+    @iconList.connect(SEL_SELECTED) { |sender, sel, ptr|
+      browser.currentSpec = itemSpec(ptr)
+    }
+
+    # Fill the list with installed specifications.
+    browser.cache.each { |name, spec| appendItem(spec) }
+    if numItems > 0
+      selectItem(0)
+      browser.currentSpec = itemSpec(0)
+    end
+  end
+
+  def appendItem(spec)
+    @iconList.appendItem(spec.name, @bigIcon, @smallIcon, spec)
+    if numItems == 1
+      selectItem(0)
+      browser.currentSpec = itemSpec(0)
+    end
+  end
+
+  def currentItem
+    @iconList.currentItem
+  end
+
+  #
+  # Return the specification associated with the item at _index_, or
+  # +nil+ if no such item.
+  #
+  def itemSpec(index)
+    (index >= 0) ? getItem(index).data : nil
+  end
+
+  def currentItemSpec
+    itemSpec(currentItem)
+  end
+
+  def getItem(*args)
+    @iconList.getItem(*args)
+  end
+
+  def selectItem(index)
+    @iconList.selectItem(index, true)
+  end
+
+  def numItems
+    @iconList.numItems
+  end
+
+  def create
+    super
+    @bigIcon.create
+    @smallIcon.create
+    self.width = @iconList.font.getTextWidth("MMMMMMMMMMMMM")
+  end
+end
+
+class GemBrowserWindow < FXMainWindow
+
+  attr_reader :browser
+
+  def initialize(anApp)
+    # Initialize base class first
+    super(anApp, "Gem Browser", nil, nil, DECOR_ALL)
+
+    # Menu bar
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+
+    installCmd = FXMenuCommand.new(filemenu, "Install a Gem...")
+    installCmd.connect(SEL_COMMAND) { install }
+
+    uninstallCmd = FXMenuCommand.new(filemenu, "Uninstall this Gem")
+    uninstallCmd.connect(SEL_COMMAND) { uninstall }
+    uninstallCmd.connect(SEL_UPDATE) do |sender, sel, ptr|
+      spec = browser.currentSpec
+      if spec
+        sender.text = "Uninstall #{spec.name}"
+        sender.enable
+      else
+        sender.text  = "Uninstall this Gem"
+        sender.disable
+      end
+    end
+
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q").connect(SEL_COMMAND) { quit }
+
+    # Main window interior
+    contents = FXVerticalFrame.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    @browser = GemBrowser.new
+
+    # Horizontal splitter with info pane on the left, icon list on the right
+    @splitter = FXSplitter.new(contents, LAYOUT_FILL_X|LAYOUT_FILL_Y|SPLITTER_HORIZONTAL|SPLITTER_REVERSED) do |splitter|
+      infoPanel = GemInfoPanel.new(splitter, @browser, LAYOUT_FILL_X|LAYOUT_FILL_X|FRAME_SUNKEN|FRAME_THICK)
+      @gemsPanel = GemsPanel.new(splitter, @browser, LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_SUNKEN|FRAME_THICK)
+    end
+
+    # Catch these too
+    self.connect(SEL_CLOSE) { quit }
+    anApp.addSignal("SIGINT") { quit }
+  end
+
+  def install
+    FXFileDialog.new(self, "Install Gem") { |dlg|
+      dlg.directory = @directory unless @directory.empty?
+      dlg.patternList = ["Gem Files (*.gem)", "All Files (*)"]
+      if dlg.execute != 0
+        @directory = dlg.directory
+        begin
+          spec = browser.install(dlg.filename)
+	  @gemsPanel.appendItem(spec)
+	rescue => ex
+	  FXMessageBox.error(self, MBOX_OK, "Installation Failed", ex.to_s)
+	end
+      end
+    }
+  end
+
+  def uninstall
+    begin
+      browser.uninstall(browser.currentSpec)
+    rescue => ex
+      FXMessageBox.error(self, MBOX_OK, "Uninstall Failed", ex.to_s)
+    end
+  end
+
+  def quit
+    getApp().reg().writeIntEntry("SETTINGS", "x", x)
+    getApp().reg().writeIntEntry("SETTINGS", "y", y)
+    getApp().reg().writeIntEntry("SETTINGS", "width", width)
+    getApp().reg().writeIntEntry("SETTINGS", "height", height)
+    getApp().reg().writeIntEntry("SETTINGS", "listWidth", @splitter.first.next.width)
+    getApp().reg().writeStringEntry("SETTINGS", "directory", @directory) if @directory
+    getApp().exit(0)
+  end
+
+  def create
+    # Do base class create
+    super
+
+    # Get size, etc. from registry
+    xx = getApp().reg().readIntEntry("SETTINGS", "x", 0)
+    yy = getApp().reg().readIntEntry("SETTINGS", "y", 0)
+    ww = getApp().reg().readIntEntry("SETTINGS", "width", 450)
+    hh = getApp().reg().readIntEntry("SETTINGS", "height", 300)
+    position(xx, yy, ww, hh)
+
+    # Splitter child sizes
+    rightPaneSize = getApp().reg().readIntEntry("SETTINGS", "listWidth", -1)
+    if rightPaneSize >= 0
+      @splitter.first.next.width = rightPaneSize
+    end
+
+    # Last directory for Gem files
+    @directory = getApp().reg().readStringEntry("SETTINGS", "directory", "")
+
+    # Show it
+    show
+  end
+end
+
+if __FILE__ == $0
+  FXApp.new("GemBrowser", "FXRuby") do |theApp|
+    GemBrowserWindow.new(theApp)
+    theApp.create
+    theApp.run
+  end
+end
+