fxruby 1.6.14-universal-darwin-9

data/lib/fox16/missingdep.rb

@@ -0,0 +1,14 @@
+# This is a little helper function used by some of the examples to report
+# missing dependencies information on startup. It's especially useful for the
+# Windows distribution since people will often start the examples by double-
+# clicking on an icon instead of running from the command line.
+
+def missingDependency(msg)
+  app = Fox::FXApp.new("Dummy", "FoxTest")
+  app.init(ARGV)
+  mainWindow = Fox::FXMainWindow.new(app, "")
+  app.create
+  Fox::FXMessageBox.error(mainWindow, Fox::MBOX_OK, "Dependencies Missing", msg)
+  raise SystemExit
+end
+

data/lib/fox16/pseudokeyboard.rb

@@ -0,0 +1,40 @@
+module Fox
+  #
+  # An FXPseudoKeyboard object provides a simple means to operate widgets
+  # programmatically, to aid test driven design. An FXPseudoKeyboard instance
+  # can be pointed at an FXObject and will manage the sending of events to
+  # it.
+  #
+  # For example:
+  #
+  #   textfield = FXTextField.new(...)
+  #   pk = FXPseudoKeyboard.new(textfield)
+  #   pk.doKeyPress     # sends a SEL_KEYPRESS message to the textfield
+  #   pk.doKeyRelease   # sends a SEL_KEYRELEASE message to the textfield
+  #
+  class FXPseudoKeyboard
+
+    attr_accessor :target
+
+    def initialize(tgt=nil)
+      @target = tgt
+    end
+    
+    def doKeyPress
+      unless @target.nil?
+        evt = FXEvent.new
+        evt.type = Fox::SEL_KEYPRESS
+        @target.handle(self, Fox.FXSEL(Fox::SEL_KEYPRESS, 0), evt)
+      end
+    end
+
+    def doKeyRelease
+      unless @target.nil?
+        evt = FXEvent.new
+        evt.type = Fox::SEL_KEYRELEASE
+        @target.handle(self, Fox.FXSEL(Fox::SEL_KEYRELEASE, 0), evt)
+      end
+    end
+  end
+end
+

data/lib/fox16/pseudomouse.rb

@@ -0,0 +1,87 @@
+module Fox
+  #
+  # An FXPseudoMouse object provides a simple means to operate widgets
+  # programmatically, to aid test driven design. An FXPseudoMouse instance
+  # can be pointed at an FXObject and will manage the sending of events to
+  # it.
+  #
+  # For example:
+  #
+  #   canvas = FXCanvas.new(...)
+  #   pm = FXPseudoMouse.new(canvas)
+  #   pm.doLeftButtonPress # sends a SEL_LEFTBUTTONPRESS message to the canvas
+  #
+  class FXPseudoMouse < FXObject
+
+    attr_accessor :target
+
+    def initialize(tgt=nil)
+      @target = tgt
+    end
+    
+    def doMotion
+      unless @target.nil?
+        evt = FXEvent.new
+        evt.type = Fox::SEL_MOTION
+        @target.handle(self, Fox.FXSEL(Fox::SEL_MOTION, 0), evt)
+      end
+    end
+
+    def doMouseWheel
+      unless @target.nil?
+        evt = FXEvent.new
+        evt.type = Fox::SEL_MOUSEWHEEL
+        @target.handle(self, Fox.FXSEL(Fox::SEL_MOUSEWHEEL, 0), evt)
+      end
+    end
+
+    def doLeftButtonPress
+      unless @target.nil?
+        evt = FXEvent.new
+        evt.type = Fox::SEL_LEFTBUTTONPRESS
+        @target.handle(self, Fox.FXSEL(Fox::SEL_LEFTBUTTONPRESS, 0), evt)
+      end
+    end
+
+    def doLeftButtonRelease
+      unless @target.nil?
+       evt = FXEvent.new
+        evt.type = Fox::SEL_LEFTBUTTONRELEASE
+       @target.handle(self, Fox.FXSEL(Fox::SEL_LEFTBUTTONRELEASE, 0), evt)
+      end
+    end
+
+    def doMiddleButtonPress
+      unless @target.nil?
+        evt = FXEvent.new
+        evt.type = Fox::SEL_MIDDLEBUTTONPRESS
+        @target.handle(self, Fox.FXSEL(Fox::SEL_MIDDLEBUTTONPRESS, 0), evt)
+      end
+    end
+
+    def doMiddleButtonRelease
+      unless @target.nil?
+        evt = FXEvent.new
+        evt.type = Fox::SEL_MIDDLEBUTTONRELEASE
+        @target.handle(self, Fox.FXSEL(Fox::SEL_MIDDLEBUTTONRELEASE, 0), evt)
+      end
+    end
+
+    def doRightButtonPress
+      unless @target.nil?
+        evt = FXEvent.new
+        evt.type = Fox::SEL_RIGHTBUTTONPRESS
+        @target.handle(self, Fox.FXSEL(Fox::SEL_RIGHTBUTTONPRESS, 0), evt)
+      end
+    end
+
+    def doRightButtonRelease
+      unless @target.nil?
+        evt = FXEvent.new
+        evt.type = Fox::SEL_RIGHTBUTTONRELEASE
+        @target.handle(self, Fox.FXSEL(Fox::SEL_RIGHTBUTTONRELEASE, 0), evt)
+      end
+    end
+  end
+end
+

data/lib/fox16/responder.rb

@@ -0,0 +1,70 @@
+# Enumeration
+def enum(start, count)
+  (start...(start+count)).to_a
+end
+
+module Responder
+  # Generates identifiers as class constants. Originally submitted by
+  # Sean O'Halpin, slightly modified by Lyle.
+  def identifier(*ids)
+    ids << :ID_LAST
+    base = self.class.superclass::ID_LAST
+    vals = enum(base, ids.size)
+    ids.each_index do |i|
+      unless self.class.const_defined?(ids[i])
+        self.class.class_eval("#{ids[i].id2name} = #{vals[i]}")
+      end
+    end
+  end
+
+  # Return the array of (selector -> func) associations
+  def messageMap
+    unless instance_variables.include? "@assocs"
+      @assocs = []
+    end
+    @assocs
+  end
+
+  # Look up array index of this message map entry
+  def assocIndex(lo, hi)
+    currIndex = -1
+    assocs = messageMap
+    assocs.each_index do |i|
+      if assocs[i][0] == lo && assocs[i][1] == hi
+        currIndex = i
+      end
+    end
+    currIndex
+  end
+
+  # Add new or replace existing map entry
+  def addMapEntry(lo, hi, func)
+    func = func.intern if func.is_a? String
+    currIndex = assocIndex(lo, hi)
+    if currIndex < 0
+      messageMap.push([lo, hi, func])
+    else
+      messageMap[currIndex] = [lo, hi, func]
+    end
+  end
+
+  # Define range of function types
+  def FXMAPTYPES(typelo, typehi, func)
+    addMapEntry(Fox.MKUINT(Fox::MINKEY, typelo), Fox.MKUINT(Fox::MAXKEY, typehi), func)
+  end
+
+  # Define one function type
+  def FXMAPTYPE(type, func)
+    addMapEntry(Fox.MKUINT(Fox::MINKEY, type), Fox.MKUINT(Fox::MAXKEY, type), func)
+  end
+
+  # Define range of functions
+  def FXMAPFUNCS(type, keylo, keyhi, func)
+    addMapEntry(Fox.MKUINT(keylo, type), Fox.MKUINT(keyhi, type), func)
+  end
+
+  # Define one function
+  def FXMAPFUNC(type, id, func)
+    addMapEntry(Fox.MKUINT(id, type), Fox.MKUINT(id, type), func)
+  end
+end

data/lib/fox16/responder2.rb

@@ -0,0 +1,131 @@
+require 'fox16/responder'
+
+module Fox
+
+  #
+  # FXPseudoTarget instances act as the message target for any widgets that
+  # elect to use the #connect method to map certain message types to
+  # blocks.
+  #
+  class FXPseudoTarget < FXObject
+
+    include Responder
+
+    @@targets_of_pending_timers = {}
+    @@targets_of_pending_chores = {}
+    @@targets_of_pending_signals = {}
+    @@targets_of_pending_inputs = {}
+
+    #
+    # Returns an initialized FXPseudoTarget object.
+    #
+    def initialize
+      super
+      @context = {}
+    end
+
+    #
+    # Store an association between a message of type
+    # _message_type_ with a callable object.
+    #
+    def pconnect(message_type, callable_object, params={})
+      @context[message_type] = { :callable => callable_object, :params => params }
+      FXMAPTYPE(message_type, :onHandleMsg)
+      case message_type
+      when SEL_TIMEOUT
+        @@targets_of_pending_timers[self] = self
+      when SEL_CHORE
+        @@targets_of_pending_chores[self] = self
+      when SEL_SIGNAL
+        @@targets_of_pending_signals[self] = self
+      when SEL_IO_READ, SEL_IO_WRITE, SEL_IO_EXCEPT
+        @@targets_of_pending_inputs[self] = self
+      end
+    end
+
+    #
+    # Handle a message from _sender_, with selector _sel_ and
+    # message data _ptr_.
+    #
+    def onHandleMsg(sender, sel, ptr)
+      message_type = Fox.FXSELTYPE(sel)
+      ctx = @context[message_type]
+      callable_object = ctx[:callable]
+      params = ctx[:params]
+      result = callable_object.call(sender, sel, ptr)
+      case message_type
+      when SEL_TIMEOUT
+        if params[:repeat]
+          FXApp.instance.addTimeout(params[:delay], callable_object, params)
+        else
+          @@targets_of_pending_timers.delete(self)
+        end
+      when SEL_CHORE
+        if params[:repeat]
+          FXApp.instance.addChore(callable_object, params)
+        else
+          @@targets_of_pending_chores.delete(self)
+        end
+      end
+      result
+    end
+    
+  end # class FXPseudoTarget
+  
+end # module Fox
+
+#
+# The Responder2 module provides the #connect method,
+# which is mixed-in to all classes that have a message
+# target (i.e. Fox::FXDataTarget, Fox::FXRecentFiles
+# and Fox::FXWindow).
+# 
+module Responder2
+  #
+  # Assign a "handler" for all FOX messages of type _messageType_
+  # sent from this widget. When called with only one argument,
+  # a block is expected, e.g.
+  #
+  #     aButton.connect(SEL_COMMAND) { |sender, selector, data|
+  #       ... code to handle this event ...
+  #     }
+  #
+  # The arguments passed into the block are the _sender_ of the
+  # message (i.e. the widget), the _selector_ for the message, and
+  # any message-specific _data_.
+  #
+  # When #connect is called with two arguments, the second argument
+  # should be some callable object such as a Method or Proc instance, e.g.
+  #
+  #     aButton.connect(SEL_COMMAND, method(:onCommand))
+  #
+  # As with the one-argument form of #connect, the callable object
+  # will be "called" with three arguments (the sender, selector and
+  # message data).
+  #
+  def connect(message_type, callable_object=nil, &block)
+    unless instance_variables.include?('@pseudoTarget')
+      @pseudoTarget = Fox::FXPseudoTarget.new
+      self.target = @pseudoTarget
+    end
+    @pseudoTarget.pconnect(message_type, callable_object ? callable_object : block)
+  end
+  
+end
+
+module Fox
+  class FXDataTarget
+    include Responder2
+  end
+  class FXRecentFiles
+    include Responder2
+  end
+  class FXWindow
+    include Responder2
+  end
+end
+
+require 'fox16/timeout'
+require 'fox16/chore'
+require 'fox16/signal'
+require 'fox16/input'