fxruby 1.6.14-universal-darwin-9

data/examples/scribble-orig.rb

@@ -0,0 +1,186 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+require 'fox16/responder'
+require 'fox16/colors'
+
+include Fox
+
+class ScribbleWindow < FXMainWindow
+
+  include Responder
+
+  def initialize(app)
+    # Call base class initializer first
+    super(app, "Scribble Application", nil, nil, DECOR_ALL,
+      0, 0, 800, 600)
+
+    # Message identifiers for this class
+    identifier :ID_CANVAS, :ID_CLEAR
+
+    # And here's the message map for this class
+    FXMAPFUNC(SEL_PAINT,             ID_CANVAS, :onPaint)
+    FXMAPFUNC(SEL_LEFTBUTTONPRESS,   ID_CANVAS, :onMouseDown)
+    FXMAPFUNC(SEL_LEFTBUTTONRELEASE, ID_CANVAS, :onMouseUp)
+    FXMAPFUNC(SEL_MOTION,            ID_CANVAS, :onMouseMove)
+    FXMAPFUNC(SEL_COMMAND,           ID_CLEAR,  :onCmdClear)
+    FXMAPFUNC(SEL_UPDATE,            ID_CLEAR,  :onUpdClear)
+
+    # Construct a horizontal frame to hold the main window's contents
+    @contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y, 0, 0, 0, 0, 0, 0, 0, 0)
+
+    # Left pane contains the canvas
+    @canvasFrame = FXVerticalFrame.new(@contents,
+      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      0, 0, 0, 0, 10, 10, 10, 10)
+
+    # Place a label above the canvas
+    FXLabel.new(@canvasFrame, "Canvas Frame", nil,
+      JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+
+    # Horizontal divider line
+    FXHorizontalSeparator.new(@canvasFrame, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+
+    # Drawing canvas
+    @canvas = FXCanvas.new(@canvasFrame, self, ID_CANVAS,
+      LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
+
+    # Right pane for the buttons
+    @buttonFrame = FXVerticalFrame.new(@contents,
+      FRAME_SUNKEN|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      0, 0, 0, 0, 10, 10, 10, 10)
+
+    # Label above the buttons
+    FXLabel.new(@buttonFrame, "Button Frame", nil,
+      JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+
+    # Horizontal divider line
+    FXHorizontalSeparator.new(@buttonFrame,
+      SEPARATOR_RIDGE|LAYOUT_FILL_X)
+
+    # Button to clear the canvas
+    FXButton.new(@buttonFrame, "&Clear", nil, self, ID_CLEAR,
+      FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      0, 0, 0, 0, 10, 10, 5, 5)
+
+    # Exit button
+    FXButton.new(@buttonFrame, "&Exit", nil, app, FXApp::ID_QUIT,
+      FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      0, 0, 0, 0, 10, 10, 5, 5)
+
+    # Initialize other member variables
+    @drawColor = FXColor::Red
+    @mouseDown = false
+    @dirty = false
+  end
+
+  # Create and show the main window
+  def create
+    super                  # Create the windows
+    show(PLACEMENT_SCREEN) # Make the main window appear
+  end
+
+  # Mouse button was pressed somewhere
+  def onMouseDown(sender, sel, ptr)
+    @canvas.grab
+    @mouseDown = true
+    return 1
+  end
+
+  # Mouse has moved, so draw a line
+  def onMouseMove(sender, sel, event)
+    if @mouseDown
+      # Get device context for the canvas
+      dc = FXDCWindow.new(@canvas)
+
+      # Set the foreground color for drawing
+      dc.setForeground(@drawColor)
+
+      # Draw a line from the previous mouse coordinates to the current ones
+      dc.drawLine(event.last_x, event.last_y, event.win_x, event.win_y)
+
+      # We have drawn something, so now the canvas is dirty
+      @dirty = true
+
+      # Release the DC immediately
+      dc.end
+    end
+    return 1
+  end
+
+  # Mouse button released
+  def onMouseUp(sender, sel, event)
+    @canvas.ungrab
+    if @mouseDown
+      # Get device context for the canvas
+      dc = FXDCWindow.new(@canvas)
+
+      # Set the foreground color for drawing
+      dc.setForeground(@drawColor)
+
+      # Draw a line from the previous mouse coordinates to the current ones
+      dc.drawLine(event.last_x, event.last_y, event.win_x, event.win_y)
+
+      # We have drawn something, so now the canvas is dirty
+      @dirty = true
+
+      # Mouse no longer down
+      @mouseDown = false
+
+      # Release the DC immediately
+      dc.end
+    end
+    return 1
+  end
+
+  # Paint the canvas
+  def onPaint(sender, sel, event)
+    dc = FXDCWindow.new(@canvas, event)
+    dc.setForeground(@canvas.backColor)
+    dc.fillRectangle(event.rect.x, event.rect.y, event.rect.w, event.rect.h)
+    dc.end
+  end
+
+  # Handle the clear message
+  def onCmdClear(sender, sel, ptr)
+    dc = FXDCWindow.new(@canvas)
+    dc.setForeground(@canvas.backColor)
+    dc.fillRectangle(0, 0, @canvas.width, @canvas.height)
+    @dirty = false
+    dc.end
+    return 1
+  end
+
+  # This function handles the update message sent by the Clear button
+  # to its target. Every widget in FOX receives a message (SEL_UPDATE)
+  # during idle processing, asking it to update itself. For example,
+  # buttons could be enabled or disabled as the state of the application
+  # changes.
+  #
+  # In this case, we'll disable the sender (the Clear button) when the
+  # canvas has already been cleared (i.e. it's "clean"), and enable it when
+  # it has been painted (i.e. it's "dirty").
+  #
+  def onUpdClear(sender, sel, ptr)
+    message = @dirty ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+    sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    return 1
+  end
+end
+
+def run
+  # Construct the application object
+  application = FXApp.new('Scribble', 'FoxTest')
+  
+  # Construct the main window
+  scribble = ScribbleWindow.new(application)
+  
+  # Create the application
+  application.create
+  
+  # Run the application
+  application.run
+end
+
+run

data/examples/scribble.rb

@@ -0,0 +1,162 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+class ScribbleWindow < FXMainWindow
+
+  def initialize(app)
+    # Call base class initializer first
+    super(app, "Scribble Application", :width => 800, :height => 600)
+
+    # Construct a horizontal frame to hold the main window's contents
+    @contents = FXHorizontalFrame.new(self,
+      LAYOUT_SIDE_TOP|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padLeft => 0, :padRight => 0, :padTop => 0, :padBottom => 0)
+
+    # Left pane contains the canvas
+    @canvasFrame = FXVerticalFrame.new(@contents,
+      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 10, :padBottom => 10)
+
+    # Place a label above the canvas
+    FXLabel.new(@canvasFrame, "Canvas Frame", nil, JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+
+    # Horizontal divider line
+    FXHorizontalSeparator.new(@canvasFrame, SEPARATOR_GROOVE|LAYOUT_FILL_X)
+
+    # Drawing canvas
+    @canvas = FXCanvas.new(@canvasFrame, :opts => LAYOUT_FILL_X|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT)
+    @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
+    @canvas.connect(SEL_LEFTBUTTONPRESS) do
+      @canvas.grab
+      @mouseDown = true
+    end
+    @canvas.connect(SEL_MOTION) do |sender, sel, event|
+      if @mouseDown
+        # Get device context for the canvas
+        dc = FXDCWindow.new(@canvas)
+
+        # Set the foreground color for drawing
+        dc.foreground = @drawColor
+
+        # Draw a line from the previous mouse coordinates to the current ones
+        if @mirrorMode.value
+          cW = @canvas.width
+          cH = @canvas.height
+          dc.drawLine(cW-event.last_x, event.last_y,
+                      cW-event.win_x, event.win_y)
+          dc.drawLine(event.last_x, cH-event.last_y,
+                      event.win_x, cH-event.win_y)
+          dc.drawLine(cW-event.last_x, cH-event.last_y,
+                      cW-event.win_x, cH-event.win_y)
+        end
+        dc.drawLine(event.last_x, event.last_y, event.win_x, event.win_y)
+
+        # We have drawn something, so now the canvas is dirty
+        @dirty = true
+
+        # Release the DC immediately
+        dc.end
+      end
+    end
+    @canvas.connect(SEL_LEFTBUTTONRELEASE) do |sender, sel, event|
+      @canvas.ungrab
+      if @mouseDown
+        # Get device context for the canvas
+        dc = FXDCWindow.new(@canvas)
+
+        # Set the foreground color for drawing
+        dc.foreground = @drawColor
+
+        # Draw a line from the previous mouse coordinates to the current ones
+        dc.drawLine(event.last_x, event.last_y, event.win_x, event.win_y)
+
+        # We have drawn something, so now the canvas is dirty
+        @dirty = true
+
+        # Mouse no longer down
+        @mouseDown = false
+
+        # Release this DC immediately
+        dc.end
+      end
+    end
+
+    # Right pane for the buttons
+    @buttonFrame = FXVerticalFrame.new(@contents,
+      FRAME_SUNKEN|LAYOUT_FILL_Y|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 10, :padBottom => 10)
+
+    # Label above the buttons
+    FXLabel.new(@buttonFrame, "Button Frame", nil, JUSTIFY_CENTER_X|LAYOUT_FILL_X)
+
+    # Horizontal divider line
+    FXHorizontalSeparator.new(@buttonFrame, SEPARATOR_RIDGE|LAYOUT_FILL_X)
+
+    # Enable or disable mirror mode
+    @mirrorMode = FXDataTarget.new(false)
+    FXCheckButton.new(@buttonFrame, "Mirror", @mirrorMode, FXDataTarget::ID_VALUE, CHECKBUTTON_NORMAL|LAYOUT_FILL_X)
+
+    # Button to clear the canvas
+    clearButton = FXButton.new(@buttonFrame, "&Clear",
+      :opts => FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+    clearButton.connect(SEL_COMMAND) do
+      FXDCWindow.new(@canvas) do |dc|
+        dc.foreground = @canvas.backColor
+        dc.fillRectangle(0, 0, @canvas.width, @canvas.height)
+        @dirty = false
+      end
+    end
+    clearButton.connect(SEL_UPDATE) do |sender, sel, ptr|
+      # This procedure handles the update message sent by the Clear button
+      # to its target. Every widget in FOX receives a message (SEL_UPDATE)
+      # during idle processing, asking it to update itself. For example,
+      # buttons could be enabled or disabled as the state of the application
+      # changes.
+      #
+      # In this case, we'll disable the sender (the Clear button) when the
+      # canvas has already been cleared (i.e. it's "clean"), and enable it when
+      # it has been painted (i.e. it's "dirty").
+      message = @dirty ? FXWindow::ID_ENABLE : FXWindow::ID_DISABLE
+      sender.handle(self, MKUINT(message, SEL_COMMAND), nil)
+    end
+
+    # Exit button
+    FXButton.new(@buttonFrame, "&Exit", nil, app, FXApp::ID_QUIT,
+      FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT,
+      :padLeft => 10, :padRight => 10, :padTop => 5, :padBottom => 5)
+
+    # Initialize other member variables
+    @drawColor = "red"
+    @mouseDown = false
+    @dirty = false
+  end
+
+  # Create and show the main window
+  def create
+    super                  # Create the windows
+    show(PLACEMENT_SCREEN) # Make the main window appear
+  end
+end
+
+if __FILE__ == $0
+  # Construct the application object
+  application = FXApp.new('Scribble', 'FoxTest')
+  
+  # Construct the main window
+  scribble = ScribbleWindow.new(application)
+  
+  # Create the application
+  application.create
+  
+  # Run the application
+  application.run
+end

data/examples/shutter.rb

@@ -0,0 +1,158 @@
+#!/usr/bin/env ruby
+
+require 'fox16'
+
+include Fox
+
+GORTS_BLURB = "Icons courtesy of Gort's Icons:\nhttp://www.forrestwalter.com/icons"
+
+class ShutterItem < FXShutterItem
+  def initialize(p, text, icon=nil, opts=0)
+    super(p, text, icon, opts|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT, :padding => 10, :hSpacing => 10, :vSpacing => 10)
+    button.padTop = 2
+    button.padBottom = 2
+  end
+end
+
+class ShutterButton < FXButton
+  def initialize(p, txt, ic=nil)
+    super(p, txt, ic, :opts => BUTTON_TOOLBAR|TEXT_BELOW_ICON|FRAME_THICK|FRAME_RAISED|LAYOUT_FILL_X|LAYOUT_TOP|LAYOUT_LEFT)
+    self.backColor = p.backColor
+    self.textColor = FXRGB(255, 255, 255)
+  end
+end
+
+class ShutterWindow < FXMainWindow
+
+  # This is just a helper function that loads an ICO file from disk
+  # and constructs and returns a ICO icon object.
+
+  def loadIcon(filename)
+    begin
+      filename = File.join("icons", filename)
+      icon = nil
+      File.open(filename, "rb") do |f|
+        icon = FXICOIcon.new(getApp(), f.read)
+      end
+      icon
+    rescue
+      raise RuntimeError, "Couldn't load icon: #{filename}"
+    end
+  end
+
+  def initialize(app)
+    # Invoke base class initialize first
+    super(app, "Look Out!", :opts => DECOR_ALL, :width => 600, :height => 600)
+
+    # Menubar along the top
+    menubar = FXMenuBar.new(self, LAYOUT_SIDE_TOP|LAYOUT_FILL_X)
+    
+    # File menu
+    filemenu = FXMenuPane.new(self)
+    FXMenuCommand.new(filemenu, "Quit\tCtl-Q", nil, getApp(), FXApp::ID_QUIT)
+    FXMenuTitle.new(menubar, "&File", nil, filemenu)
+
+    # Edit menu
+    editmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Edit", nil, editmenu)
+
+    # View menu
+    viewmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&View", nil, viewmenu)
+
+    # Favorites menu
+    favmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "Fav&orites", nil, favmenu)
+
+    # Tools menu
+    toolsmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Tools", nil, toolsmenu)
+
+    # Actions menu
+    actionsmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Actions", nil, actionsmenu)
+
+    # Help menu
+    helpmenu = FXMenuPane.new(self)
+    FXMenuTitle.new(menubar, "&Help", nil, helpmenu)
+
+    # Status bar along the bottom
+    status = FXStatusBar.new(self,
+      LAYOUT_SIDE_BOTTOM|LAYOUT_FILL_X|STATUSBAR_WITH_DRAGCORNER)
+
+    # Main contents area is split left-to-right
+    splitter = FXSplitter.new(self, (LAYOUT_SIDE_TOP|LAYOUT_FILL_X|
+      LAYOUT_FILL_Y|SPLITTER_TRACKING))
+
+    # Shutter area on the left
+    @shutter = FXShutter.new(splitter,
+      :opts => FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y,
+      :padding => 0, :hSpacing => 0, :vSpacing => 0)
+    
+    fatBot = loadIcon("FatBot.ico")
+    angryGuy = loadIcon("AngryGuyInBunnySuit.ico")
+    sawBlade = loadIcon("SawBlade.ico")
+    redMacOS = loadIcon("RedMacOS.ico")
+    leGoon = loadIcon("LeGoon.ico")
+    flippedySwitch = loadIcon("FlippedySwitch.ico")
+    net = loadIcon("Net.ico")
+    
+    shutterItem = ShutterItem.new(@shutter, "Lookout Shortcuts", nil, LAYOUT_FILL_Y)
+    ShutterButton.new(shutterItem.content, "Lookout Today", fatBot).connect(SEL_COMMAND) { @switcher.current = 0 }
+    ShutterButton.new(shutterItem.content, "Inbox", angryGuy).connect(SEL_COMMAND) { @switcher.current = 1 }
+    ShutterButton.new(shutterItem.content, "Calendar", sawBlade).connect(SEL_COMMAND) { @switcher.current = 2 }
+    ShutterButton.new(shutterItem.content, "Contacts", redMacOS).connect(SEL_COMMAND) { @switcher.current = 3 }
+    ShutterButton.new(shutterItem.content, "Tasks", leGoon).connect(SEL_COMMAND) { @switcher.current = 4 }
+    ShutterButton.new(shutterItem.content, "Notes", flippedySwitch).connect(SEL_COMMAND) { @switcher.current = 5 }
+    ShutterButton.new(shutterItem.content, "Deleted Items", net).connect(SEL_COMMAND) { @switcher.current = 6 }
+  
+    shutterItem = ShutterItem.new(@shutter, "My Shortcuts")
+    ShutterButton.new(shutterItem.content, "Drafts", fatBot).connect(SEL_COMMAND) { @switcher.current = 7 }
+    ShutterButton.new(shutterItem.content, "Outbox", angryGuy).connect(SEL_COMMAND) { @switcher.current = 8 }
+    ShutterButton.new(shutterItem.content, "Sent Items", sawBlade).connect(SEL_COMMAND) { @switcher.current = 9 }
+    ShutterButton.new(shutterItem.content, "Journal", redMacOS).connect(SEL_COMMAND) { @switcher.current = 10 }
+    ShutterButton.new(shutterItem.content, "Lookout Update", flippedySwitch).connect(SEL_COMMAND) { @switcher.current = 11 }
+  
+    shutterItem = ShutterItem.new(@shutter, "Other Shortcuts")
+    ShutterButton.new(shutterItem.content, "My Computer", angryGuy).connect(SEL_COMMAND) { @switcher.current = 12 }
+    ShutterButton.new(shutterItem.content, "My Documents", net).connect(SEL_COMMAND) { @switcher.current = 13 }
+    ShutterButton.new(shutterItem.content, "Favorites", leGoon).connect(SEL_COMMAND) { @switcher.current = 14 }
+      
+    # Right pane is a switcher
+    # For a real application, each panel in the switcher would have real, working contents...
+    @switcher = FXSwitcher.new(splitter,
+      FRAME_SUNKEN|LAYOUT_FILL_X|LAYOUT_FILL_Y, :padding => 0)
+
+    FXLabel.new(@switcher,
+      "Lookout Today!\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Inbox\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Calendar\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Contacts\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Tasks\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Notes\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Deleted Items\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    FXLabel.new(@switcher, "Drafts\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Outbox\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Sent Items\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Journal\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Lookout Update\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+
+    FXLabel.new(@switcher, "My Computer\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "My Documents\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+    FXLabel.new(@switcher, "Favorites\n\n#{GORTS_BLURB}", nil, LAYOUT_FILL_X|LAYOUT_FILL_Y)
+  end
+
+  def create
+    super
+    @shutter.width = 1.25*@shutter.width
+    show(PLACEMENT_SCREEN)
+  end
+end
+
+if __FILE__ == $0
+  application = FXApp.new("Shutter", "FoxTest")
+  ShutterWindow.new(application)
+  application.create
+  application.run
+end