fxruby 1.2.2

data/examples/dialog.rb

@@ -0,0 +1,148 @@
+#!/usr/bin/env ruby
+
+require 'fox12'
+
+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,
+      0, 0, 0, 0, 40, 40, 20, 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)
+    FXOption.new(pane, "One", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    FXOption.new(pane, "Two", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    FXOption.new(pane, "Three", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    FXOption.new(pane, "Four", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    FXOption.new(pane, "Five", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    FXOption.new(pane, "Six", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    FXOption.new(pane, "Seven", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    FXOption.new(pane, "Eight", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    FXOption.new(pane, "Nine", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+    FXOption.new(pane, "Ten", nil, nil, 0, JUSTIFY_HZ_APART|ICON_AFTER_TEXT)
+  
+    # 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", nil, nil, DECOR_ALL, 0, 0, 400, 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", nil, nil, 0,
+      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", nil, nil, 0,
+      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,105 @@
+#!/usr/bin/env ruby
+
+require 'fox12'
+begin
+  require 'net/http'
+  require 'html-parser'
+  require 'formatter'
+rescue LoadError
+  require 'fox12/missingdep'
+  MSG = <<EOM
+  Sorry, this example depends on the html-parser extension. Please
+  check the Ruby Application Archives for an appropriate
+  download site.
+EOM
+  missingDependency(MSG)
+end
+
+include Fox
+
+# Simple HTMLParser subclass to look for the image URL
+class MyHTMLParser < HTMLParser
+  attr_reader :url
+  def initialize
+    super(NullFormatter.new)
+    @url = nil
+  end
+  def do_img(attrs)
+    src = nil
+    alt = nil
+    for attrname, value in attrs
+      alt = value if attrname == 'alt'
+      src = value if attrname == 'src'
+    end
+    @url = src.gsub(/\"/, "") if alt =~ /Today's Dilbert Comic/
+  end
+end
+
+class DailyDilbert < FXMainWindow
+
+  HOSTNAME = "www.dilbert.com"
+
+  include Responder
+
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "Daily Dilbert Viewer", nil, nil, DECOR_ALL,
+      0, 0, 850, 600, 0, 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, nil, nil, 0,
+      LAYOUT_FILL_X|LAYOUT_FILL_Y|HSCROLLER_NEVER|VSCROLLER_NEVER)
+      
+    # Download the web page contents
+    imageData = getImageData
+
+    # Construct a GIF image and store it in the image viewer
+    @imageview.image = FXGIFImage.new(getApp(), imageData)
+
+    # Resize main window client area to fit image size
+    resize(@imageview.contentWidth, @imageview.contentHeight)
+  end
+  
+  def getImageURL
+    imageURL = nil
+    Net::HTTP.start(HOSTNAME, 80) { |http|
+      response, = http.get('/')
+      parser = MyHTMLParser.new
+      parser.feed(response.body)
+      parser.close
+      imageURL = parser.url
+    }
+    imageURL
+  end
+
+  def getImageData
+    response = nil
+    Net::HTTP.start(HOSTNAME, 80) { |http|
+      response, = http.get(getImageURL)
+    }
+    response.body
+  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 'fox12'
+
+include Fox
+
+class DirListWindow < FXMainWindow
+
+  def initialize(app)
+    # Invoke the base class initialize first
+    super(app, "Directory List", nil, nil, DECOR_ALL, 0, 0, 800, 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, nil, 0,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|FRAME_SUNKEN|FRAME_THICK)
+  
+    # Make contents
+    dirlist = FXDirList.new(self, nil, 0, (HSCROLLING_OFF|
+      TREELIST_SHOWS_LINES|TREELIST_SHOWS_BOXES|FRAME_SUNKEN|FRAME_THICK|
+      LAYOUT_FILL_X|LAYOUT_FILL_Y), 0, 0, 0, 0)
+  
+    # 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,101 @@
+require 'fox12'
+
+include Fox
+
+class DragDropWindow < FXMainWindow
+  def initialize(anApp)
+    # Initialize base class
+    super(anApp, "Drag and Drop", nil, nil, DECOR_ALL, 0, 0, 400, 300)
+    
+    # Fill main window with canvas
+    @canvas = FXCanvas.new(self, nil, 0, 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) { |sender, sel, event|
+      FXDCWindow.new(@canvas, event) { |dc|
+        dc.foreground = @canvas.backColor
+        dc.fillRectangle(event.rect.x, event.rect.y, event.rect.w, event.rect.h)
+      }
+    }
+
+    # Handle left button press
+    @canvas.connect(SEL_LEFTBUTTONPRESS) {
+      #
+      # 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)
+    }
+    
+    # Handle mouse motion events
+    @canvas.connect(SEL_MOTION) { |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
+    }
+
+    # Handle SEL_DND_MOTION messages from the canvas
+    @canvas.connect(SEL_DND_MOTION) {
+      if @canvas.offeredDNDType?(FROM_DRAGNDROP, FXWindow.colorType)
+        @canvas.acceptDrop
+      end
+    }
+
+    # Handle left button release
+    @canvas.connect(SEL_LEFTBUTTONRELEASE) {
+      @canvas.ungrab
+      @canvas.endDrag
+    }
+    
+    # Handle SEL_DND_DROP message from the canvas
+    @canvas.connect(SEL_DND_DROP) {
+      # Try to obtain the data as color values first
+      data = @canvas.getDNDData(FROM_DRAGNDROP, FXWindow.colorType)
+      unless data.nil?
+        # Update canvas background color
+        @canvas.backColor = Fox.fxdecodeColorData(data)
+      end
+    }
+
+    # Handle request for DND data
+    @canvas.connect(SEL_DND_REQUEST) { |sender, sel, event|
+      if event.target == FXWindow.colorType
+        @canvas.setDNDData(FROM_DRAGNDROP, FXWindow.colorType, Fox.fxencodeColorData(@canvas.backColor))
+      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,81 @@
+require 'fox12'
+
+include Fox
+
+class DragSource < FXMainWindow
+  def initialize(anApp)
+    # Initialize base class
+    super(anApp, "Drag Source", nil, nil, DECOR_ALL, 0, 0, 400, 300)
+    
+    # Fill main window with canvas
+    @canvas = FXCanvas.new(self, nil, 0, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    @canvas.backColor = "red"
+    
+    # Handle expose events on the canvas
+    @canvas.connect(SEL_PAINT) { |sender, sel, event|
+      FXDCWindow.new(@canvas, event) { |dc|
+        dc.foreground = @canvas.backColor
+        dc.fillRectangle(event.rect.x, event.rect.y, event.rect.w, event.rect.h)
+      }
+    }
+
+    # Handle left button press
+    @canvas.connect(SEL_LEFTBUTTONPRESS) {
+      #
+      # 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)
+    }
+    
+    # Handle mouse motion events
+    @canvas.connect(SEL_MOTION) { |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
+    }
+
+    # Handle left button release
+    @canvas.connect(SEL_LEFTBUTTONRELEASE) {
+      @canvas.ungrab
+      @canvas.endDrag
+    }
+    
+    # Handle request for DND data
+    @canvas.connect(SEL_DND_REQUEST) { |sender, sel, event|
+      if event.target == FXWindow.colorType
+        @canvas.setDNDData(FROM_DRAGNDROP, FXWindow.colorType, Fox.fxencodeColorData(@canvas.backColor))
+      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
+