fxruby 1.6.14-universal-darwin-9

data/examples/dialog.rb

@@ -0,0 +1,143 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+# A little dialog box to use in our tests
+class FXTestDialog < FXDialogBox
+
+  def initialize(owner)
+    # Invoke base class initialize function first
+    super(owner, "Test of Dialog Box", DECOR_TITLE|DECOR_BORDER)
+
+    # Bottom buttons
+    buttons = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_BOTTOM|FRAME_NONE|LAYOUT_FILL_X|PACK_UNIFORM_WIDTH,
+      :padLeft => 40, :padRight => 40, :padTop => 20, :padBottom => 20)
+
+    # Separator
+    FXHorizontalSeparator.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|SEPARATOR_GROOVE)
+  
+    # Contents
+    contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|FRAME_NONE|LAYOUT_FILL_X|LAYOUT_FILL_Y|PACK_UNIFORM_WIDTH)
+  
+    submenu = FXMenuPane.new(self)
+    FXMenuCommand.new(submenu, "One")
+    FXMenuCommand.new(submenu, "Two")
+    FXMenuCommand.new(submenu, "Three")
+    
+    # Menu
+    menu = FXMenuPane.new(self)
+    FXMenuCommand.new(menu, "&Accept", nil, self, ID_ACCEPT)
+    FXMenuCommand.new(menu, "&Cancel", nil, self, ID_CANCEL)
+    FXMenuCascade.new(menu, "Submenu", nil, submenu)
+    FXMenuCommand.new(menu, "&Quit\tCtl-Q", nil, getApp(), FXApp::ID_QUIT)
+  
+    # Popup menu
+    pane = FXPopup.new(self)
+    %w{One Two Three Four Five Six Seven Eight Nine Ten}.each do |s|
+      FXOption.new(pane, s, :opts => JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    end
+  
+    # Option menu
+    FXOptionMenu.new(contents, pane, (FRAME_RAISED|FRAME_THICK|
+      JUSTIFY_HZ_APART|ICON_AFTER_TEXT|LAYOUT_CENTER_X|LAYOUT_CENTER_Y))
+
+    # Button to pop menu
+    FXMenuButton.new(contents, "&Menu", nil, menu, (MENUBUTTON_DOWN|
+      JUSTIFY_LEFT|LAYOUT_TOP|FRAME_RAISED|FRAME_THICK|ICON_AFTER_TEXT|
+      LAYOUT_CENTER_X|LAYOUT_CENTER_Y))
+
+    # Accept
+    accept = FXButton.new(buttons, "&Accept", nil, self, ID_ACCEPT,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
+  
+    # Cancel
+    FXButton.new(buttons, "&Cancel", nil, self, ID_CANCEL,
+      FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
+    
+    accept.setDefault  
+    accept.setFocus
+  end
+  
+end
+
+# Subclassed main window
+class DialogTester < FXMainWindow
+
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "Dialog Test", :opts => DECOR_ALL, :width => 400, :height => 200)
+
+    # Tooltip
+    FXToolTip.new(getApp())
+  
+    # Menubar
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+  
+    # Separator
+    FXHorizontalSeparator.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|SEPARATOR_GROOVE)
+
+    # File Menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "&Quit", nil, getApp(), FXApp::ID_QUIT, 0)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+  
+    # Contents
+    contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|FRAME_NONE|LAYOUT_FILL_X|LAYOUT_FILL_Y|PACK_UNIFORM_WIDTH)
+
+    # Button to pop normal dialog
+    nonModalButton = FXButton.new(contents,
+      "&Non-Modal Dialog...\tDisplay normal dialog",
+      :opts => FRAME_RAISED|FRAME_THICK|LAYOUT_CENTER_X|LAYOUT_CENTER_Y)
+    nonModalButton.connect(SEL_COMMAND, method(:onCmdShowDialog))
+  
+    # Button to pop modal dialog
+    modalButton = FXButton.new(contents,
+      "&Modal Dialog...\tDisplay modal dialog",
+      :opts => FRAME_RAISED|FRAME_THICK|LAYOUT_CENTER_X|LAYOUT_CENTER_Y)
+    modalButton.connect(SEL_COMMAND, method(:onCmdShowDialogModal))
+  
+    # Build a dialog box
+    @dialog = FXTestDialog.new(self)
+
+  end
+
+  # Show the non-modal dialog
+  def onCmdShowDialog(sender, sel, ptr)
+    @dialog.show
+  end
+
+  # Show a modal dialog
+  def onCmdShowDialogModal(sender, sel, ptr)
+    FXTestDialog.new(self).execute
+    return 1
+  end
+
+  # Start
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+def run
+  # Make an application
+  application = FXApp.new("Dialog", "FoxTest")
+
+  # Construct the application's main window
+  DialogTester.new(application)
+
+  # Create the application
+  application.create
+
+  # Run the application
+  application.run
+end
+
+run

data/examples/dilbert.rb

@@ -0,0 +1,66 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'open-uri'
+begin
+  require 'hpricot'
+rescue LoadError
+  require 'fox16/missingdep'
+  MSG = <<EOM
+  Sorry, this example depends on the Hpricot extension. Please
+  see http://code.whytheluckystiff.net/hpricot/ for instructions
+  on how to install Hpricot.
+EOM
+  missingDependency(MSG)
+end
+
+include Fox
+
+class DailyDilbert < FXMainWindow
+
+ include Responder
+
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "Daily Dilbert Viewer", :opts => DECOR_ALL, :width => 850, :height => 600, :padLeft => 0, :padRight => 0)
+
+    # 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 GIF image and store it in the image viewer
+    @imageview.image = FXGIFImage.new(getApp(), image_data)
+
+    # Resize main window client area to fit image size
+    resize(@imageview.contentWidth, @imageview.contentHeight)
+  end
+  
+  def image_data
+    doc = Hpricot(open("http://www.dilbert.com/"))
+    url = doc.search("img").find { |e| e['alt'] =~ /Today's Comic/ }
+    open("http://www.dilbert.com" + url['src'], "rb").read
+  end
+  
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  # Make application
+  application = FXApp.new("DailyDilbert", "FoxTest")
+
+  # Make window
+  window = DailyDilbert.new(application)
+
+  # Create it
+  application.create
+
+  # Run
+  application.run
+end

data/examples/dirlist.rb

@@ -0,0 +1,63 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class DirListWindow < FXMainWindow
+
+  def initialize(app)
+    # Invoke the base class initialize first
+    super(app, "Directory List", :opts => DECOR_ALL, :width => 800, :height => 600)
+
+    # Make menu bar
+    menubar = FXMenuBar.new(self, LAYOUT_FILL_X)
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "&Quit\tCtl-Q", nil, getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+    helpmenu = FXMenuPane.new(self)
+    FXMenuCommand.new(helpmenu, "&About FOX...").connect(SEL_COMMAND) {
+      FXMessageBox.information(self, MBOX_OK, "About FOX",
+        "FOX is a really, really cool C++ library...\n" +
+        "and FXRuby is an even cooler GUI for Ruby!")
+    }
+    FXMenuTitle.new(menubar, "&Help", nil, helpmenu, LAYOUT_RIGHT)
+
+    # Text field at bottom
+    text = FXTextField.new(self, 10,
+      :opts => LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|FRAME_SUNKEN|FRAME_THICK)
+  
+    # Make contents
+    dirlist = FXDirList.new(self, :opts => (HSCROLLING_OFF|
+      TREELIST_SHOWS_LINES|TREELIST_SHOWS_BOXES|FRAME_SUNKEN|FRAME_THICK|
+      LAYOUT_FILL_X|LAYOUT_FILL_Y))
+  
+    # Now make the directory list widget (dirlist) the message target
+    # for the text field. If you type a new directory name in the text
+    # field the directory list should navigate to that directory.
+    text.target = dirlist
+    text.selector = FXWindow::ID_SETVALUE
+  end
+
+  # Create and show the main window
+  def create
+    super
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+def run
+  # Make application
+  application = FXApp.new("DirList", "FoxTest")
+  
+  # Make window
+  DirListWindow.new(application)
+  
+  # Create app  
+  application.create
+  
+  # Run
+  application.run
+end
+
+run

data/examples/dragdrop.rb

@@ -0,0 +1,97 @@
+require 'fox16'
+
+include Fox
+
+class DragDropWindow < FXMainWindow
+  
+  def initialize(anApp)
+    # Initialize base class
+    super(anApp, "Drag and Drop", :opts => DECOR_ALL, :width => 400, :height => 300)
+    
+    # Fill main window with canvas
+    @canvas = FXCanvas.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @canvas.backColor = "red"
+    
+    # Enable canvas for drag-and-drop messages
+    @canvas.dropEnable
+    
+    # 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
+
+    # Handle left button press
+    @canvas.connect(SEL_LEFTBUTTONPRESS) do
+      #
+      # Capture (grab) the mouse when the button goes down, so that all future
+      # mouse events will be reported to this widget, even if those events occur
+      # outside of this widget.
+      #
+      @canvas.grab
+
+      # Advertise which drag types we can offer
+      dragTypes = [FXWindow.colorType]
+      @canvas.beginDrag(dragTypes)
+    end
+    
+    # Handle mouse motion events
+    @canvas.connect(SEL_MOTION) do |sender, sel, event|
+      if @canvas.dragging?
+        @canvas.handleDrag(event.root_x, event.root_y)
+        unless @canvas.didAccept == DRAG_REJECT
+          @canvas.dragCursor = getApp().getDefaultCursor(DEF_SWATCH_CURSOR)
+        else
+          @canvas.dragCursor = getApp().getDefaultCursor(DEF_DNDSTOP_CURSOR)
+        end
+      end
+    end
+
+    # 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 left button release
+    @canvas.connect(SEL_LEFTBUTTONRELEASE) do
+      @canvas.ungrab
+      @canvas.endDrag
+    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
+
+    # Handle request for DND data
+    @canvas.connect(SEL_DND_REQUEST) do |sender, sel, event|
+      @canvas.setDNDData(FROM_DRAGNDROP, FXWindow.colorType, Fox.fxencodeColorData(@canvas.backColor)) if event.target == FXWindow.colorType
+    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("DragDrop", "FXRuby") do |theApp|
+    DragDropWindow.new(theApp)
+    theApp.create
+    theApp.run
+  end
+end
+

data/examples/dragsource.rb

@@ -0,0 +1,80 @@
+require 'fox16'
+
+include Fox
+
+class DragSource < FXMainWindow
+  
+  def initialize(anApp)
+    # Initialize base class
+    super(anApp, "Drag Source", :opts => DECOR_ALL, :width => 400, :height => 300)
+    
+    # Fill main window with canvas
+    @canvas = FXCanvas.new(self, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @canvas.backColor = "red"
+    
+    # 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
+
+    # Handle left button press
+    @canvas.connect(SEL_LEFTBUTTONPRESS) do
+      #
+      # Capture (grab) the mouse when the button goes down, so that all future
+      # mouse events will be reported to this widget, even if those events occur
+      # outside of this widget.
+      #
+      @canvas.grab
+
+      # Advertise which drag types we can offer
+      dragTypes = [FXWindow.colorType]
+      @canvas.beginDrag(dragTypes)
+    end
+    
+    # Handle mouse motion events
+    @canvas.connect(SEL_MOTION) do |sender, sel, event|
+      if @canvas.dragging?
+        @canvas.handleDrag(event.root_x, event.root_y)
+        unless @canvas.didAccept == DRAG_REJECT
+          @canvas.dragCursor = getApp().getDefaultCursor(DEF_SWATCH_CURSOR)
+        else
+          @canvas.dragCursor = getApp().getDefaultCursor(DEF_DNDSTOP_CURSOR)
+        end
+      end
+    end
+
+    # Handle left button release
+    @canvas.connect(SEL_LEFTBUTTONRELEASE) do
+      @canvas.ungrab
+      @canvas.endDrag
+    end
+    
+    # Handle request for DND data
+    @canvas.connect(SEL_DND_REQUEST) do |sender, sel, event|
+      @canvas.setDNDData(FROM_DRAGNDROP, FXWindow.colorType, Fox.fxencodeColorData(@canvas.backColor)) if event.target == FXWindow.colorType
+    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("DragSource", "FXRuby") do |theApp|
+    DragSource.new(theApp)
+    theApp.create
+    theApp.run
+  end
+end
+

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