fxruby 1.2.2

data/lib/fox12/core.rb

@@ -0,0 +1,249 @@
+module Fox
+  
+  class FXIconItem
+    def <=>(otherItem)
+      text <=> otherItem.text
+    end
+  end
+
+  class FXListItem
+    def <=>(otherItem)
+      text <=> otherItem.text
+    end
+  end
+  
+  class FXTreeItem
+    def <=>(otherItem)
+      text <=> otherItem.text
+    end
+  end
+
+  class FXDataTarget
+    #
+    # Returns the stringified representation of this
+    # data target's value.
+    #
+    def to_s
+      value.to_s
+    end
+  end
+  
+  class FXHeader
+    #
+    # Returns true if the specified header item's arrow points
+    # up. Raises IndexError if _index_ is out of bounds.
+    #
+    def arrowUp?(index)
+      if index < 0 || index >= numItems 
+        raise IndexError, "header item index out of bounds"
+      else
+        getArrowDir(index) == Fox::TRUE
+      end
+    end
+
+    #
+    # Returns true if the specified header item's arrow points
+    # down. Raises IndexError if _index_ is out of bounds.
+    #
+    def arrowDown?(index)
+      if index < 0 || index >= numItems 
+        raise IndexError, "header item index out of bounds"
+      else
+        getArrowDir(index) == Fox::FALSE
+      end
+    end
+
+    #
+    # Returns true if the specified header item does not display
+    # any arrow. Raises IndexError if _index_ is out of bounds.
+    #
+    def arrowMaybe?(index)
+      if index < 0 || index >= numItems 
+        raise IndexError, "header item index out of bounds"
+      else
+        getArrowDir(index) == Fox::MAYBE
+      end
+    end
+  end
+
+  class FXSettings
+    #
+    # Read a boolean registry entry from the specified _section_ and _key_.
+    # If no value is found, the _default_ value is returned.
+    #
+    def readBoolEntry(section, key, default=false)
+      default = default ? 1 : 0
+      readIntEntry(section, key, default) != 0
+    end
+    
+    #
+    # Write a boolean registry _value_ to the specified _section_ and _key_.
+    #
+    def writeBoolEntry(section, key, value)
+      writeIntEntry(section, key, value ? 1 : 0)
+    end
+  end
+  
+  class FXWindow
+    #
+    # Iterate over the child windows for this window.
+    #
+    def each_child
+      child = self.first
+      while child
+        yield child
+	child = child.next
+      end
+    end
+  end
+
+  #
+  # The drag-and-drop data used for colors is a sequence of unsigned short
+  # integers, in native byte ordering. Here, we use the 'S' directive for
+  # String#unpack (which treats two successive characters as an unsigned short
+  # in native byte order) to decode the R, G, B and A values.
+  #
+  def Fox.fxdecodeColorData(data)
+    clr = data.unpack('S4')
+    Fox.FXRGBA((clr[0]+128)/257, (clr[1]+128)/257, (clr[2]+128)/257, (clr[3]+128)/257)
+  end
+
+  #
+  # The drag-and-drop data used for colors is a sequence of unsigned short
+  # integers, in native byte ordering. Here, we use the 'S' directive for
+  # Array#pack (which treats two successive characters as an unsigned short
+  # in native byte order) to encode the R, G, B and A values.
+  #
+  def Fox.fxencodeColorData(rgba)
+    clr = [ 257*Fox.FXREDVAL(rgba), 257*Fox.FXGREENVAL(rgba), 257*Fox.FXBLUEVAL(rgba), 257*Fox.FXALPHAVAL(rgba) ]
+    clr.pack('S4')
+  end
+
+  #
+  # The drag-and-drop data used for clipboard strings (i.e. when the
+  # drag type is FXWindow.stringType) is either a null-terminated
+  # string (for Microsoft Windows) or a non-null terminated string
+  # (for X11). Use this method to convert string data from the
+  # clipboard back into a Ruby string.
+  #
+  def Fox.fxdecodeStringData(data)
+    if /mswin/ =~ PLATFORM
+      data.chop
+    else
+      data
+    end
+  end
+
+  #
+  # The drag-and-drop data used for clipboard strings (i.e. when the
+  # drag type is FXWindow.stringType) is either a null-terminated
+  # string (for Microsoft Windows) or a non-null terminated string
+  # (for X11). Use this method to convert Ruby strings into a format
+  # appropriate for the current platform.
+  #
+  def Fox.fxencodeStringData(str)
+    if /mswin/ =~ PLATFORM
+      str + "\0"
+    else
+      str
+    end
+  end
+
+  #
+  # FXStreamError is the base class for exceptions which can occur when
+  # working with FXStream and its subclasses.
+  #
+  class FXStreamError < StandardError
+    #
+    # This is a factory method that takes an FXStreamStatus code
+    # as its input and returns the appropriate exception class.
+    #
+    def FXStreamError.makeStreamError(status)
+      case status
+	when FXStreamEnd
+	  FXStreamEndError
+	when FXStreamFull
+	  FXStreamFullError
+	when FXStreamNoWrite
+	  FXStreamNoWriteError
+	when FXStreamNoRead
+	  FXStreamNoReadError
+	when FXStreamFormat
+	  FXStreamFormatError
+	when FXStreamUnknown
+	  FXStreamUnknownError
+	when FXStreamAlloc
+	  FXStreamAllocError
+	when FXStreamFailure
+	  FXStreamFailureError
+	else
+	  FXStreamError
+      end
+    end
+  end
+  
+  # Tried to read past the end of a stream
+  class FXStreamEndError < FXStreamError ; end
+  
+  # Filled up a stream's internal buffer, or the disk is full
+  class FXStreamFullError < FXStreamError ; end
+  
+  # Unable to open for write
+  class FXStreamNoWriteError < FXStreamError ; end
+  
+  # Unable to open for read
+  class FXStreamNoReadError < FXStreamError ; end
+  
+  # Stream format error
+  class FXStreamFormatError < FXStreamError ; end
+  
+  # Trying to read unknown class
+  class FXStreamUnknownError < FXStreamError ; end
+  
+  # Alloc failed
+  class FXStreamAllocError < FXStreamError ; end
+  
+  # General failure
+  class FXStreamFailureError < FXStreamError ; end
+  
+  class FXDC
+    #
+    # Draw a circle centered at (_x_, _y_), with specified radius.
+    #
+    # === Parameters:
+    #
+    # +x+::	x-coordinate of the circle's center [Integer]
+    # +y+::	y-coordinate of the circle's center [Integer]
+    # +r+::	radius of the circle, in pixels [Integer]
+    #
+    # See also #fillCircle.
+    #
+    def drawCircle(x, y, r)
+      drawArc(x-r, y-r, 2*r, 2*r, 0, 360*64)
+    end
+
+    #
+    # Draw a filled circle centered at (_x_, _y_), with specified radius.
+    #
+    # === Parameters:
+    #
+    # +x+::	x-coordinate of the circle's center [Integer]
+    # +y+::	y-coordinate of the circle's center [Integer]
+    # +r+::	radius of the circle, in pixels [Integer]
+    #
+    # See also #drawCircle.
+    #
+    def fillCircle(x, y, r)
+      fillArc(x-r, y-r, 2*r, 2*r, 0, 360*64)
+    end
+  end
+
+  class FXHVec
+    def normalize!
+      normalized = self.normalize
+      0.upto(3) { |idx| self[idx] = normalized[idx] }
+      self
+    end
+  end
+end
+

data/lib/fox12/dict.rb

@@ -0,0 +1,35 @@
+#
+# Adds some methods similar to those for Ruby's Hash class
+# to FOX's FXDict class.
+#
+module Fox
+  class FXDict
+    #
+    # Returns a new array populated with the keys from this dictionary.
+    #
+    def keys
+      ary = []
+      each_key { |k| ary << k }
+      ary
+    end
+
+    #
+    # Iterate over the keys in this dictionary.
+    #
+    def each_key
+      pos = first
+      while pos < self.getTotalSize()
+        yield key(pos)
+        pos = self.next(pos)
+      end
+    end
+    
+    #
+    # Returns +true+ if this dictionary contains no key-value pairs.
+    #
+    def empty?
+      self.size == 0
+    end
+  end
+end
+

data/lib/fox12/glgroup.rb

@@ -0,0 +1,165 @@
+require 'fox12'
+begin
+  require 'opengl'
+rescue LoadError
+  # Can't use FXGLGroup since it depends on Ruby/OpenGL
+end
+
+module Fox
+  #
+  # A group of OpenGL objects
+  #
+  class FXGLGroup < FXGLObject
+  
+    include Enumerable
+
+    FLT_MAX =  1.0e+20
+    FLT_MIN = -1.0e+20
+    
+    #
+    # Returns an initialized FXGLGroup instance
+    #
+    def initialize
+      super
+      @list = []
+    end
+    
+    #
+    # Return number of objects in this group.
+    #
+    def size
+      @list.size
+    end
+    
+    #
+    # Return child at position _pos_.
+    #
+    def [](pos)
+      @list[pos]
+    end
+    
+    #
+    # Set child at position _pos_ to _obj_.
+    #
+    def []=(pos, obj)
+      @list[pos] = obj
+    end
+
+    #
+    # Iterate over child objects
+    #
+    def each_child # :yields: childObject
+      @list.each { |child| yield child }
+      self
+    end
+
+    alias each each_child
+
+    #
+    # Return bounding box for this group (an FXRangef instance)
+    #
+    def bounds
+      box = nil
+      if @list.empty?
+        box = FXRangef.new(0.0, 0.0, 0.0, 0.0, 0.0, 0.0)
+      else
+        box = FXRangef.new(FLT_MAX, -FLT_MAX, FLT_MAX, -FLT_MAX, FLT_MAX, -FLT_MAX)
+        @list.each { |obj| box.include!(obj.bounds) }
+      end
+      box
+    end
+    
+    #
+    # Draw this group into _viewer_ (an FXGLViewer instance).
+    #
+    def draw(viewer)
+      @list.each { |obj| obj.draw(viewer) }
+    end
+    
+    #
+    # Perform hit test in _viewer_ (an FXGLViewer instance).
+    #
+    def hit(viewer)
+#     GL.PushName(0xffffffff)
+      GL.PushName(1000000)
+      @list.each_with_index do |obj, i|
+        GL.LoadName(i)
+	obj.hit(viewer)
+      end
+      GL.PopName
+    end
+    
+    #
+    # Identify object by means of _path_.
+    #
+    def identify(path)
+      objIndex = path.shift
+      @list[objIndex].identify(path)
+    end
+
+    #
+    # Return +true+ if group can be dragged.
+    #
+    def canDrag
+      true
+    end
+    
+    #
+    # Drag group object around in _viewer_ (an FXGLViewer instance),
+    # from (_fx_, _fy_) to (_tx_, _ty_).
+    #
+    def drag(viewer, fx, fy, tx, ty)
+      @list.each { |obj| obj.drag(viewer, fx, fy, tx, ty) }
+    end
+    
+    #
+    # Insert child object (_obj_) at position _pos_.
+    #
+    def insert(pos, obj)
+      raise NotImplementedError
+    end
+    
+    #
+    # Prepend child object (_obj_).
+    #
+    def prepend(obj)
+      @list.unshift(obj)
+    end
+    
+    #
+    # Append child object
+    #
+    def append(obj)
+      @list << obj
+    end
+    
+    alias <<	append
+    
+    #
+    # Replace child object at position _pos_ with _obj_.
+    #
+    def replace(pos, obj)
+      @list[pos] = obj
+    end
+    
+    #
+    # If _obj_ is a reference to an FXGLObject in this group, remove the
+    # child object from the list. If _obj_ is an integer, remove the child
+    # object at that position from the list.
+    #
+    def remove(obj)
+      if obj.is_a? FXGLObject
+        @list.delete(obj)
+      else
+        @list.delete_at(obj)
+      end
+    end
+    
+    #
+    # Remove all children from this group.
+    #
+    def clear
+      @list.clear
+    end
+  end
+end