fxruby 1.6.13-mswin32

data/examples/inputs.rb

@@ -0,0 +1,83 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class InputHandlerWindow < FXMainWindow
+
+  def initialize(app)
+    # Initialize base class first
+    super(app, "Input Handlers Test", :opts => DECOR_ALL, :width => 400, :height => 300)
+
+    # Text area plus a button
+    commands = FXHorizontalFrame.new(self, LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X)
+    FXLabel.new(commands, "Command:")
+    @cmdInput = FXTextField.new(commands, 30, :opts => FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X) 
+    @cmdInput.connect(SEL_COMMAND, method(:onCmdText))
+    FXHorizontalSeparator.new(self, LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X)
+    textFrame = FXVerticalFrame.new(self,
+        FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # Output will be displayed in a multiline text area
+    @cmdOutput = FXText.new(textFrame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    # Initialize the pipe
+    @pipe = nil
+  end
+
+  # Create and show the main window
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+
+  # Remove previous input (if any)
+  def closePipe
+    if @pipe
+      getApp().removeInput(@pipe, INPUT_READ|INPUT_EXCEPT)
+      @pipe = nil
+    end
+  end
+  
+  def onCmdText(sender, sel, ptr)
+    # Stop previous command
+    closePipe
+
+    # Clean up the output window
+    @cmdOutput.text = ""
+
+    # Open a new pipe
+    @pipe = IO.popen(@cmdInput.text)
+
+    # Register input callbacks and return
+    getApp().addInput(@pipe, INPUT_READ|INPUT_EXCEPT) do |sender, sel, ptr|
+      case FXSELTYPE(sel)
+      when SEL_IO_READ
+        text = @pipe.read_nonblock(256)
+        if text && text.length > 0
+          @cmdOutput.appendText(text)
+        else
+          closePipe
+        end
+      when SEL_IO_EXCEPT
+        #         puts 'onPipeExcept'
+      end
+    end
+    return 1
+  end
+end
+
+if $0 == __FILE__
+  # Construct an application
+  application = FXApp.new('InputHandler', 'FoxTest')
+
+  # Construct the main window
+  InputHandlerWindow.new(application)
+
+  # Create and show the application windows
+  application.create
+
+  # Run the application
+  application.run
+end

data/examples/mditest.rb

@@ -0,0 +1,180 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/colors'
+
+include Fox
+
+TYGER = <<END_OF_POEM
+The Tyger
+
+Tyger! Tyger! burning bright
+In the forests of the night
+What immortal hand or eye
+Could frame thy fearful symmetry?
+
+In what distant deeps or skies
+Burnt the fire of thine eyes?
+On what wings dare he aspire?
+What the hand dare seize the fire?
+
+And what shoulder, and what art,
+Could twist the sinews of thy heart,
+And when thy heart began to beat,
+What dread hand? and what dread feet?
+
+What the hammer? what the chain?
+In what furnace was thy brain?
+What the anvil? what dread grasp
+Dare its deadly terrors clasp?
+
+When the stars threw down their spears,
+And water'd heaven with their tears,
+Did he smile his work to see?
+Did he who made the Lamb make thee?
+
+Tyger! Tyger! burning bright
+In the forests of the night,
+What immortal hand or eye,
+Dare frame thy fearful symmetry?
+
+
+
+               - William Blake
+END_OF_POEM
+
+class MDITestWindow  < FXMainWindow
+
+  def initialize(app)
+    # Invoke base class initialize method first
+    super(app, "MDI Widget Test", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Create the font
+    @font = FXFont.new(getApp(), "courier", 15, FONTWEIGHT_BOLD)
+  
+    # Menubar
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+  
+    # Status bar
+    FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+  
+    # MDI Client
+    @mdiclient = FXMDIClient.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  
+    # Icon for MDI Child
+    @mdiicon = nil
+    File.open(File.join("icons", "penguin.png"), "rb") do |f|
+      @mdiicon = FXPNGIcon.new(getApp(), f.read)
+    end
+
+    # Make MDI Menu
+    @mdimenu = FXMDIMenu.new(self, @mdiclient)
+  
+    # MDI buttons in menu:- note the message ID's!!!!!
+    # Normally, MDI commands are simply sensitized or desensitized;
+    # Under the menubar, however, they're hidden if the MDI Client is
+    # not maximized.  To do this, they must have different ID's.
+    FXMDIWindowButton.new(menubar, @mdimenu, @mdiclient, FXMDIClient::ID_MDI_MENUWINDOW,
+      LAYOUT_LEFT)
+    FXMDIDeleteButton.new(menubar, @mdiclient, FXMDIClient::ID_MDI_MENUCLOSE,
+      FRAME_RAISED|LAYOUT_RIGHT)
+    FXMDIRestoreButton.new(menubar, @mdiclient, FXMDIClient::ID_MDI_MENURESTORE,
+      FRAME_RAISED|LAYOUT_RIGHT)
+    FXMDIMinimizeButton.new(menubar, @mdiclient,
+      FXMDIClient::ID_MDI_MENUMINIMIZE, FRAME_RAISED|LAYOUT_RIGHT)
+  
+    # Create a few test windows to get started
+    mdichild = createTestWindow(10, 10, 400, 300)
+    @mdiclient.setActiveChild(mdichild)
+    createTestWindow(20, 20, 400, 300)
+    createTestWindow(30, 30, 400, 300)
+  
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    newCmd = FXMenuCommand.new(filemenu, "&New\tCtl-N\tCreate new document.")
+    newCmd.connect(SEL_COMMAND, method(:onCmdNew))
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q\tQuit application.", nil,
+      getApp(), FXApp::ID_QUIT, 0)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+      
+    # Window menu
+    windowmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(windowmenu, "Tile &Horizontally", nil,
+      @mdiclient, FXMDIClient::ID_MDI_TILEHORIZONTAL)
+    FXMenuCommand.new(windowmenu, "Tile &Vertically", nil,
+      @mdiclient, FXMDIClient::ID_MDI_TILEVERTICAL)
+    FXMenuCommand.new(windowmenu, "C&ascade", nil,
+      @mdiclient, FXMDIClient::ID_MDI_CASCADE)
+    FXMenuCommand.new(windowmenu, "&Close", nil,
+      @mdiclient, FXMDIClient::ID_MDI_CLOSE)
+    sep1 = FXMenuSeparator.new(windowmenu)
+    sep1.setTarget(@mdiclient)
+    sep1.setSelector(FXMDIClient::ID_MDI_ANY)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_1)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_2)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_3)
+    FXMenuCommand.new(windowmenu, nil, nil, @mdiclient, FXMDIClient::ID_MDI_4)
+    FXMenuCommand.new(windowmenu, "&Others...", nil, @mdiclient, FXMDIClient::ID_MDI_OVER_5)
+    FXMenuTitle.new(menubar,"&Window", nil, windowmenu)
+    
+    # Help menu
+    helpmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(helpmenu, "&About FOX...").connect(SEL_COMMAND) {
+      FXMessageBox.information(self, MBOX_OK, "About MDI Test",
+        "Test of the FOX MDI Widgets\nWritten by Jeroen van der Zijp")
+    }
+    FXMenuTitle.new(menubar, "&Help", nil, helpmenu, LAYOUT_RIGHT)
+  end
+
+  # Create a new MDI child window
+  def createTestWindow(x, y, w, h)
+    mdichild = FXMDIChild.new(@mdiclient, "Child", @mdiicon, @mdimenu,
+      0, x, y, w, h)
+    scrollwindow = FXScrollWindow.new(mdichild, 0)
+    scrollwindow.verticalScrollBar.setLine(@font.fontHeight)
+    btn = FXButton.new(scrollwindow, TYGER,
+      :opts => LAYOUT_FIX_WIDTH|LAYOUT_FIX_HEIGHT, :width => 600, :height => 1000)
+    btn.font = @font
+    btn.backColor = FXColor::White
+    mdichild
+  end
+
+  # New
+  def onCmdNew(sender, sel, ptr)
+    mdichild = createTestWindow(20, 20, 300, 200)
+    mdichild.create
+    return 1
+  end
+
+  # Start
+  def create
+    super
+
+    # At the time the first three MDI windows are constructed, we don't
+    # yet know the font height and so we cannot accurately set the line
+    # height for the vertical scrollbar. Now that the real font has been
+    # created, we can go back and fix the scrollbar line heights for these
+    # windows.
+    @font.create
+    @mdiclient.each_child do |mdichild|
+      mdichild.contentWindow.verticalScrollBar.setLine(@font.fontHeight)
+    end
+
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Make application
+  application = FXApp.new("MDIApp", "FoxTest")
+  
+  # Make window
+  MDITestWindow.new(application)
+  
+  # Create app
+  application.create
+  
+  # Run
+  application.run
+end

data/examples/pig.rb

@@ -0,0 +1,77 @@
+#
+# This is a FOX version of Thomas and Hunt's timeless classic,
+# the Pig It! example (from the "Ruby/Tk" chapter of "Programming
+# Ruby".
+#
+
+require 'fox16'
+
+include Fox
+
+class PigBox < FXMainWindow
+  def pig(word)
+    leadingCap = word =~ /^A-Z/
+    word.downcase!
+    res = case word
+      when /^aeiouy/
+        word+"way"
+      when /^([^aeiouy]+)(.*)/
+        $2+$1+"ay"
+      else
+        word
+    end
+    leadingCap ? res.capitalize : res
+  end
+
+  def showPig
+    @text.value = @text.value.split.collect{|w| pig(w)}.join(" ")
+  end
+
+  def initialize(app)
+    # Initialize base class
+    super(app, "Pig")
+    
+    @text = FXDataTarget.new("")
+    
+    top = FXVerticalFrame.new(self, LAYOUT_FILL_X|LAYOUT_FILL_Y) do |theFrame|
+      theFrame.padLeft = 10
+      theFrame.padRight = 10
+      theFrame.padBottom = 10
+      theFrame.padTop = 10
+      theFrame.vSpacing = 20
+    end
+    
+    p = proc { showPig }
+    
+    FXLabel.new(top, 'Enter Text:') do |theLabel|
+      theLabel.layoutHints = LAYOUT_FILL_X
+    end
+    
+    FXTextField.new(top, 20, @text, FXDataTarget::ID_VALUE) do |theTextField|
+      theTextField.layoutHints = LAYOUT_FILL_X
+      theTextField.setFocus()
+    end
+    
+    FXButton.new(top, 'Pig It') do |pigButton|
+      pigButton.connect(SEL_COMMAND, p)
+      pigButton.layoutHints = LAYOUT_CENTER_X
+    end
+    
+    FXButton.new(top, 'Exit') do |exitButton|
+      exitButton.connect(SEL_COMMAND) { exit }
+      exitButton.layoutHints = LAYOUT_CENTER_X
+    end
+  end
+  
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  app = FXApp.new("Pig It", "FXRuby")
+  PigBox.new(app)
+  app.create
+  app.run
+end

data/examples/raabrowser.rb

@@ -0,0 +1,122 @@
+require 'fox16'
+require 'cgi'
+require 'soap/wsdlDriver'
+
+include Fox
+
+class RAABrowserWindow < FXMainWindow
+  
+  def initialize(app)
+    # Initialize base class
+    super(app, "Ruby Application Archive", :opts => DECOR_ALL, :width => 600, :height => 600)
+
+    # 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, "Contents",
+    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,
+      :opts => 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|
+      if @treeList.isItemLeaf(item)
+        getApp().beginWaitCursor do
+          begin
+            gem = @raa.gem(item.text)
+            @category.value = gem.category.major + "/" + gem.category.minor
+            @projectName.value = gem.project.name
+            @version.value = gem.project.version
+            @status.value = gem.project.status
+            @lastUpdate.value = gem.updated.strftime("%F %T GMT")
+            @owner.value = "#{gem.owner.name} (#{gem.owner.email.to_s})"
+            @homepage.value = gem.project.url.to_s
+            @download.value = gem.project.download.to_s
+            @license.value = gem.project.license
+            @description.value = CGI::unescapeHTML(gem.project.description).gsub(/\r\n/, "\n")
+          rescue SOAP::PostUnavailableError => ex
+            getApp().endWaitCursor
+            FXMessageBox.error(self, MBOX_OK, "SOAP Error", ex.message)
+          end
+        end
+      end
+    end
+
+    # Set up data targets for the product-specific information
+    @category = FXDataTarget.new("")
+    @projectName = FXDataTarget.new("")
+    @version = FXDataTarget.new("")
+    @status = FXDataTarget.new("")
+    @lastUpdate = FXDataTarget.new("")
+    @owner = FXDataTarget.new("")
+    @homepage = FXDataTarget.new("")
+    @download = FXDataTarget.new("")
+    @license = FXDataTarget.new("")
+    @description = FXDataTarget.new("")
+    
+    # Information appears on the right-hand side
+    infoFrame = FXVerticalFrame.new(splitter, LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_RIGHT|FRAME_SUNKEN|FRAME_THICK)
+
+    infoBox = FXGroupBox.new(infoFrame, "Info", GROUPBOX_NORMAL|LAYOUT_FILL_X|FRAME_GROOVE)
+    infoMatrix = FXMatrix.new(infoBox, 2, MATRIX_BY_COLUMNS|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(infoMatrix, "Category:")
+    FXTextField.new(infoMatrix, 20, @category, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Project name:")
+    FXTextField.new(infoMatrix, 20, @projectName, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Version:")
+    FXTextField.new(infoMatrix, 20, @version, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Status:")
+    FXTextField.new(infoMatrix, 20, @status, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Last update:")
+    FXTextField.new(infoMatrix, 20, @lastUpdate, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Owner:")
+    FXTextField.new(infoMatrix, 20, @owner, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Homepage:")
+    FXTextField.new(infoMatrix, 20, @homepage, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "Download:")
+    FXTextField.new(infoMatrix, 20, @download, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+    FXLabel.new(infoMatrix, "License:")
+    FXTextField.new(infoMatrix, 20, @license, FXDataTarget::ID_VALUE, TEXTFIELD_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_COLUMN)
+
+    descriptionBox = FXGroupBox.new(infoFrame, "Description", GROUPBOX_NORMAL|LAYOUT_FILL_X|LAYOUT_FILL_Y|FRAME_GROOVE)
+    descriptionFrame = FXHorizontalFrame.new(descriptionBox, FRAME_SUNKEN|FRAME_THICK|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXText.new(descriptionFrame, @description, FXDataTarget::ID_VALUE, TEXT_READONLY|TEXT_WORDWRAP|LAYOUT_FILL_X|LAYOUT_FILL_Y)
+      
+    # Initialize the service
+    @raa = SOAP::WSDLDriverFactory.new("http://www2.ruby-lang.org/xmlns/soap/interface/RAA/0.0.4/").create_rpc_driver
+    
+    # Set up the product tree list
+    @productTree = @raa.tree_by_category
+    @productTree.keys.sort.each do |sectionName|
+      sectionHash = @productTree[sectionName]
+      sectionItem = @treeList.appendItem(nil, sectionName)
+      sectionHash.keys.sort.each do |categoryName|
+        categoryArray = sectionHash[categoryName]
+        categoryItem = @treeList.appendItem(sectionItem, categoryName)
+        categoryArray.each do |productName|
+          productItem = @treeList.appendItem(categoryItem, productName)
+        end
+      end
+    end
+  end
+  
+  def create
+    super
+    @treeList.parent.parent.setWidth(@treeList.font.getTextWidth('M'*24))
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  app = FXApp.new("RAABrowser", "FoxTest")
+  RAABrowserWindow.new(app)
+  app.create
+  app.run
+end