fxruby 1.4.6 → 1.4.7

data/lib/fox14/core.rb

@@ -212,6 +212,13 @@ module Fox
       end
     end
 
+    # Return an array containing all child windows of this window
+    def children
+      kids = []
+      each_child { |kid| kids << kid }
+      kids
+    end
+
     # Return +true+ if this window (self) comes before sibling window _other_.
     def before?(other)
       FXWindow.before?(other)

data/lib/fox14/splashscreen.rb

@@ -1,83 +1,83 @@
-#
-# Splashscreen component, contributed by David Naseby.
-#
-
-require 'fox14'
-require 'fox14/colors'
-
-module Fox
-  #
-  # The FXSplashScreen window...
-  #
-  class FXSplashScreen < FXDialogBox
-
-    #
-    # Return an initialized FXSplashScreen instance.
-    #
-    # ==== Parameters:
-    #
-    # +owner+::	Owner window for this dialog box [FXWindow]
-    # +title+::	Title string for this dialog box [String]
-    # +text+::	   Message text for this dialog box [String]
-    # +action+::	The action
-    #
-    def initialize( owner, title, text, action )
-	   # Initialize the base class first
-      super(owner, title)
-
-      # Store the action block
-      @action = action
-    
-      # Construct the window contents
-      FXVerticalFrame.new( self ) do |frame|
-        text.each_line do |line|
-          FXLabel.new( frame, line.strip )
-        end
-        FXLabel.new( frame, "Click OK to continue (this may take a few moments)...." )
-        @status = FXLabel.new( frame, " " )
-        @accept = FXButton.new( frame, "&OK", nil, self, ID_ACCEPT,
-          FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
-        @accept.enabled = false
-      end
-    end
-
-    def execute(placement = PLACEMENT_OWNER)
-      Thread.new do
-        sleep 1
-        @action.call method( :update_status )
-        update_status "Completed"
-        @accept.enabled = true
-      end
-      super
-    end
-  
-    def update_status(msg)
-      @status.text = msg
-    end
-  end
-end
-
-if $0 == __FILE__
-  class FakeSite # :nodoc:
-    def open( &status )
-      yield ">>>>> Opening Site" if block_given?
-      sleep 5
-      yield "site open" if block_given?
-    end
-  end
-  fake_site = FakeSite.new
-  
-  include Fox
-
-  FXApp.new( "Test SplashScreen" ) do |theApp|
-    FXMainWindow.new( theApp, "Hello" ) do |mainWin|
-      FXButton.new( mainWin, "Show Splash" ).connect( SEL_COMMAND ) do
-        lv = FXSplashScreen.new( mainWin, "Opening Site", "Welcome to Sitebuilder!\nOpening the site.\n",  lambda{ |proc| fake_site.open( &proc ) } )
-        lv.execute
-      end
-      mainWin.show
-    end
-    theApp.create
-    theApp.run
-  end
-end
+#
+# Splashscreen component, contributed by David Naseby.
+#
+
+require 'fox14'
+require 'fox14/colors'
+
+module Fox
+  #
+  # The FXSplashScreen window...
+  #
+  class FXSplashScreen < FXDialogBox
+
+    #
+    # Return an initialized FXSplashScreen instance.
+    #
+    # ==== Parameters:
+    #
+    # +owner+::	Owner window for this dialog box [FXWindow]
+    # +title+::	Title string for this dialog box [String]
+    # +text+::	   Message text for this dialog box [String]
+    # +action+::	The action
+    #
+    def initialize( owner, title, text, action )
+	   # Initialize the base class first
+      super(owner, title)
+
+      # Store the action block
+      @action = action
+    
+      # Construct the window contents
+      FXVerticalFrame.new( self ) do |frame|
+        text.each_line do |line|
+          FXLabel.new( frame, line.strip )
+        end
+        FXLabel.new( frame, "Click OK to continue (this may take a few moments)...." )
+        @status = FXLabel.new( frame, " " )
+        @accept = FXButton.new( frame, "&OK", nil, self, ID_ACCEPT,
+          FRAME_RAISED|FRAME_THICK|LAYOUT_RIGHT|LAYOUT_CENTER_Y)
+        @accept.enabled = false
+      end
+    end
+
+    def execute(placement = PLACEMENT_OWNER)
+      Thread.new do
+        sleep 1
+        @action.call method( :update_status )
+        update_status "Completed"
+        @accept.enabled = true
+      end
+      super
+    end
+  
+    def update_status(msg)
+      @status.text = msg
+    end
+  end
+end
+
+if $0 == __FILE__
+  class FakeSite # :nodoc:
+    def open( &status )
+      yield ">>>>> Opening Site" if block_given?
+      sleep 5
+      yield "site open" if block_given?
+    end
+  end
+  fake_site = FakeSite.new
+  
+  include Fox
+
+  FXApp.new( "Test SplashScreen" ) do |theApp|
+    FXMainWindow.new( theApp, "Hello" ) do |mainWin|
+      FXButton.new( mainWin, "Show Splash" ).connect( SEL_COMMAND ) do
+        lv = FXSplashScreen.new( mainWin, "Opening Site", "Welcome to Sitebuilder!\nOpening the site.\n",  lambda{ |proc| fake_site.open( &proc ) } )
+        lv.execute
+      end
+      mainWin.show
+    end
+    theApp.create
+    theApp.run
+  end
+end

data/lib/fox14/version.rb

@@ -5,7 +5,7 @@ module Fox
   # Returns the FXRuby version number as a string, e.g. "1.0.19".
   #
   def Fox.fxrubyversion
-    "1.4.6"
+    "1.4.7"
   end
 end
 

data/rdoc-sources/FX4Splitter.rb

@@ -1,138 +1,138 @@
-module Fox
-
-  #
-  # The four-way splitter is a layout manager which manages
-  # four children like four panes in a window.
-  # You can use a four-way splitter for example in a CAD program
-  # where you may want to maintain three orthographic views, and
-  # one oblique view of a model.
-  # The four-way splitter allows interactive repartitioning of the
-  # panes by means of moving the central splitter bars.
-  # When the four-way splitter is itself resized, each child is
-  # proportionally resized, maintaining the same split-percentage.
-  #
-  # === Events
-  #
-  # The following messages are sent by FX4Splitter to its target:
-  #
-  # +SEL_LEFTBUTTONPRESS+::	sent when the left mouse button goes down; the message data is an FXEvent instance.
-  # +SEL_LEFTBUTTONRELEASE+::	sent when the left mouse button goes up; the message data is an FXEvent instance.
-  # +SEL_COMMAND+::		sent at the end of a resize operation, to signal that the resize is complete
-  # +SEL_CHANGED+::		sent continuously while a resize operation is occurring
-  #
-  # === Splitter options
-  #
-  # +FOURSPLITTER_TRACKING+::   Track continuously during split
-  # +FOURSPLITTER_NORMAL+::     Normal mode (no continuous tracking)
-  #
-  # === Message identifiers
-  #
-  # +ID_EXPAND_ALL+::           Expand all four panes
-  # +ID_EXPAND_TOPLEFT+::       Expand the top left pane
-  # +ID_EXPAND_TOPRIGHT+::      Expand the top right pane
-  # +ID_EXPAND_BOTTOMLEFT+::    Expand the bottom left pane
-  # +ID_EXPAND_BOTTOMRIGHT+::   Expand the bottom right pane
-  #
-  class FX4Splitter < FXComposite
-
-    # Horizontal split fraction [Integer]
-    attr_accessor :hSplit
-    
-    # Vertical split fraction [Integer]
-    attr_accessor :vSplit
-    
-    # Current splitter style, either +FOURSPLITTER_TRACKING+ or +FOURSPLITTER_NORMAL+
-    attr_accessor :splitterStyle
-    
-    # Splitter bar width, in pixels [Integer]
-    attr_accessor :barSize
-    
-    # Currently expanded child (0, 1, 2 or 3) or -1 if not expanded [Integer]
-    attr_accessor :expanded
-    
-    # Top left child window, if any [FXWindow]
-    attr_reader :topLeft
-    
-    # Top right child window, if any [FXWindow]
-    attr_reader :topRight
-    
-    # Bottom left child window, if any [FXWindow]
-    attr_reader :bottomLeft
-    
-    # Bottom right child window, if any [FXWindow]
-    attr_reader :bottomRight
-
-    #
-    # Return an initialized FX4Splitter instance, initially shown as four unexpanded panes
-    #
-    # ==== Parameters:
-    #
-    # +p+::	the parent widget for this splitter [FXComposite]
-    # +opts+::	the options [Integer]
-    # +x+::	initial x-position [Integer]
-    # +y+::	initial y-position [Integer]
-    # +w+::	initial width [Integer]
-    # +h+::	initial height [Integer]
-    #
-    def initialize(p, opts=FOURSPLITTER_NORMAL, x=0, y=0, w=0, h=0) # :yields: theSplitter
-    end
-    
-    #
-    # Return an initialized FX4Splitter instance, initially shown as four unexpanded panes;
-    # notifies _tgt_ about size changes.
-    #
-    # ==== Parameters:
-    #
-    # +p+::	the parent widget for this splitter [FXComposite]
-    # +tgt+::	message target [FXObject]
-    # +sel+::	message identifier [Integer]
-    # +opts+::	the options [Integer]
-    # +x+::	initial x-position [Integer]
-    # +y+::	initial y-position [Integer]
-    # +w+::	initial width [Integer]
-    # +h+::	initial height [Integer]
-    #
-    def initialize(p, tgt, sel, opts=FOURSPLITTER_NORMAL, x=0, y=0, w=0, h=0) # :yields: theSplitter
-    end
-
-    #
-    # Change horizontal split fraction. The split fraction _s_ is
-    # an integer value between 0 and 10000 (inclusive), indicating
-    # how much space to allocate to the leftmost panes. For example,
-    # to split the panes at 35 percent, use:
-    #
-    #   fourSplitter.setHSplit(3500)
-    #
-    # or just:
-    #
-    #   fourSplitter.hSplit = 3500
-    #
-    def setHSplit(s); end
-
-    #
-    # Return the horizontal split fraction, an integer between 0 and
-    # 10000 inclusive. See FX4Splitter#setHSplit for more information.
-    #
-    def getHSplit(); end
-
-    #
-    # Change vertical split fraction. The split fraction _s_ is
-    # an integer value between 0 and 10000 (inclusive), indicating
-    # how much space to allocate to the topmost panes. For example,
-    # to split the panes at 35 percent, use:
-    #
-    #   fourSplitter.setVSplit(3500)
-    #
-    # or just:
-    #
-    #   fourSplitter.vSplit = 3500
-    #
-    def setVSplit(s); end
-
-    #
-    # Return the vertical split fraction, an integer between 0 and
-    # 10000 inclusive. See FX4Splitter#setVSplit for more information.
-    #
-    def getVSplit(); end
-  end
-end
+module Fox
+
+  #
+  # The four-way splitter is a layout manager which manages
+  # four children like four panes in a window.
+  # You can use a four-way splitter for example in a CAD program
+  # where you may want to maintain three orthographic views, and
+  # one oblique view of a model.
+  # The four-way splitter allows interactive repartitioning of the
+  # panes by means of moving the central splitter bars.
+  # When the four-way splitter is itself resized, each child is
+  # proportionally resized, maintaining the same split-percentage.
+  #
+  # === Events
+  #
+  # The following messages are sent by FX4Splitter to its target:
+  #
+  # +SEL_LEFTBUTTONPRESS+::	sent when the left mouse button goes down; the message data is an FXEvent instance.
+  # +SEL_LEFTBUTTONRELEASE+::	sent when the left mouse button goes up; the message data is an FXEvent instance.
+  # +SEL_COMMAND+::		sent at the end of a resize operation, to signal that the resize is complete
+  # +SEL_CHANGED+::		sent continuously while a resize operation is occurring
+  #
+  # === Splitter options
+  #
+  # +FOURSPLITTER_TRACKING+::   Track continuously during split
+  # +FOURSPLITTER_NORMAL+::     Normal mode (no continuous tracking)
+  #
+  # === Message identifiers
+  #
+  # +ID_EXPAND_ALL+::           Expand all four panes
+  # +ID_EXPAND_TOPLEFT+::       Expand the top left pane
+  # +ID_EXPAND_TOPRIGHT+::      Expand the top right pane
+  # +ID_EXPAND_BOTTOMLEFT+::    Expand the bottom left pane
+  # +ID_EXPAND_BOTTOMRIGHT+::   Expand the bottom right pane
+  #
+  class FX4Splitter < FXComposite
+
+    # Horizontal split fraction [Integer]
+    attr_accessor :hSplit
+    
+    # Vertical split fraction [Integer]
+    attr_accessor :vSplit
+    
+    # Current splitter style, either +FOURSPLITTER_TRACKING+ or +FOURSPLITTER_NORMAL+
+    attr_accessor :splitterStyle
+    
+    # Splitter bar width, in pixels [Integer]
+    attr_accessor :barSize
+    
+    # Currently expanded child (0, 1, 2 or 3) or -1 if not expanded [Integer]
+    attr_accessor :expanded
+    
+    # Top left child window, if any [FXWindow]
+    attr_reader :topLeft
+    
+    # Top right child window, if any [FXWindow]
+    attr_reader :topRight
+    
+    # Bottom left child window, if any [FXWindow]
+    attr_reader :bottomLeft
+    
+    # Bottom right child window, if any [FXWindow]
+    attr_reader :bottomRight
+
+    #
+    # Return an initialized FX4Splitter instance, initially shown as four unexpanded panes
+    #
+    # ==== Parameters:
+    #
+    # +p+::	the parent widget for this splitter [FXComposite]
+    # +opts+::	the options [Integer]
+    # +x+::	initial x-position [Integer]
+    # +y+::	initial y-position [Integer]
+    # +w+::	initial width [Integer]
+    # +h+::	initial height [Integer]
+    #
+    def initialize(p, opts=FOURSPLITTER_NORMAL, x=0, y=0, w=0, h=0) # :yields: theSplitter
+    end
+    
+    #
+    # Return an initialized FX4Splitter instance, initially shown as four unexpanded panes;
+    # notifies _tgt_ about size changes.
+    #
+    # ==== Parameters:
+    #
+    # +p+::	the parent widget for this splitter [FXComposite]
+    # +tgt+::	message target [FXObject]
+    # +sel+::	message identifier [Integer]
+    # +opts+::	the options [Integer]
+    # +x+::	initial x-position [Integer]
+    # +y+::	initial y-position [Integer]
+    # +w+::	initial width [Integer]
+    # +h+::	initial height [Integer]
+    #
+    def initialize(p, tgt, sel, opts=FOURSPLITTER_NORMAL, x=0, y=0, w=0, h=0) # :yields: theSplitter
+    end
+
+    #
+    # Change horizontal split fraction. The split fraction _s_ is
+    # an integer value between 0 and 10000 (inclusive), indicating
+    # how much space to allocate to the leftmost panes. For example,
+    # to split the panes at 35 percent, use:
+    #
+    #   fourSplitter.setHSplit(3500)
+    #
+    # or just:
+    #
+    #   fourSplitter.hSplit = 3500
+    #
+    def setHSplit(s); end
+
+    #
+    # Return the horizontal split fraction, an integer between 0 and
+    # 10000 inclusive. See FX4Splitter#setHSplit for more information.
+    #
+    def getHSplit(); end
+
+    #
+    # Change vertical split fraction. The split fraction _s_ is
+    # an integer value between 0 and 10000 (inclusive), indicating
+    # how much space to allocate to the topmost panes. For example,
+    # to split the panes at 35 percent, use:
+    #
+    #   fourSplitter.setVSplit(3500)
+    #
+    # or just:
+    #
+    #   fourSplitter.vSplit = 3500
+    #
+    def setVSplit(s); end
+
+    #
+    # Return the vertical split fraction, an integer between 0 and
+    # 10000 inclusive. See FX4Splitter#setVSplit for more information.
+    #
+    def getVSplit(); end
+  end
+end