fxruby 1.6.22-x86-mingw32 → 1.6.23-x86-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/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
+