fxruby 1.6.14-universal-darwin-9

data/lib/fox16/settings.rb

@@ -0,0 +1,18 @@
+#
+# Adds some methods to FOX's FXSettings class
+#
+module Fox
+  class FXSettings
+    #
+    # Iterate over sections (where each section is a dictionary).
+    #
+    def each_section
+      pos = first
+      while pos < getTotalSize()
+        yield data(pos)
+        pos = self.next(pos)
+      end
+    end
+  end
+end
+

data/lib/fox16/signal.rb

@@ -0,0 +1,71 @@
+module Fox
+  
+  class FXApp
+
+    alias addSignalOrig addSignal # :nodoc:
+
+    #
+    # Register a signal processing message to be sent to target object when 
+    # the specified signal is raised.
+    #
+    # There are several forms for #addSignal; the original form (from FOX)
+    # takes (up to) five arguments:
+    #
+    #   anApp.addSignal(aSignal, anObject, aMessageId, sendImmediately=false, flags=0)
+    #
+    # Here, _aSignal_ is a string indicating the operating system signal of interest
+    # (such as "SIGINT").
+    # The second and third arguments are the target object and message identifier for
+    # the message to be sent when this signal is raised.
+    # If _sendImmediately_ is +true+, the message will be sent to the target right away;
+    # this should be used with extreme care as the application is interrupted
+    # at an unknown point in its execution.
+    # The _flags_ are to be set as per POSIX definitions.
+    #
+    # A second form of #addSignal takes a Method instance as its second argument:
+    #
+    #   anApp.addSignal(aSignal, aMethod, sendImmediately=false, flags=0)
+    #
+    # For this form, the method should have the standard argument list
+    # for a FOX message handler. That is, the method should take three
+    # arguments, for the message _sender_ (an FXObject), the message _selector_,
+    # and the message _data_ (if any).
+    #
+    # The last form of #addSignal takes a block:
+    #
+    #   anApp.addSignal(aSignal, sendImmediately=false, flags=0) { |sender, sel, data|
+    #     ... handle the signal ...
+    #   }
+    #
+
+    def addSignal(sig, *args, &block)
+      params = {}
+      params = args.pop if args.last.is_a? Hash
+      tgt, sel, immediate, flags = nil, 0, false, 0
+      if args.length > 0
+        if args[0].respond_to? :call
+          tgt = FXPseudoTarget.new
+          tgt.pconnect(SEL_SIGNAL, args[0], params)
+          immediate = (args.length > 1) ? args[1] : false
+          flags = (args.length > 2) ? args[2] : 0
+        elsif (args[0].kind_of? TrueClass) || (args[0].kind_of? FalseClass)
+          tgt = FXPseudoTarget.new
+          tgt.pconnect(SEL_SIGNAL, block, params)
+          immediate = args[0]
+          flags = (args.length > 1) ? args[1] : 0
+        else # it's some other kind of object
+          tgt = args[0]
+          sel = (args.length > 1) ? args[1] : 0
+          immediate = (args.length > 2) ? args[2] : false
+          flags = (args.length > 3) ? args[3] : 0
+        end
+      else
+        tgt = FXPseudoTarget.new
+        tgt.pconnect(SEL_SIGNAL, block, params)
+      end
+      addSignalOrig(sig, tgt, sel, immediate, flags)
+    end
+    
+  end # class FXApp
+  
+end # module Fox

data/lib/fox16/splashscreen.rb

@@ -0,0 +1,82 @@
+#
+# Splashscreen component, contributed by David Naseby.
+#
+
+require 'fox16/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/fox16/timeout.rb

@@ -0,0 +1,136 @@
+module Fox
+  
+  class FXApp
+
+    alias addTimeoutOrig	addTimeout # :nodoc:
+    alias removeTimeoutOrig	removeTimeout # :nodoc:
+    alias hasTimeoutOrig?	hasTimeout? # :nodoc:
+    alias remainingTimeoutOrig	remainingTimeout # :nodoc:
+
+    #
+    # Add a timeout message to be sent to target object in _ms_ milliseconds.
+    # By default, the timer fires only once after the interval expires.  The last argument
+    # is optional user data which will be passed along as the _ptr_ argument of
+    # the message handler. If a timer with the same target and message already exists,
+    # it will be rescheduled.
+    #
+    # There are several forms for #addTimeout; the original form (from FOX)
+    # takes three arguments:
+    #
+    #     timeout = app.addTimeout(delay, tgt, sel)
+    #
+    # Here, _delay_ is the time interval (in milliseconds) to wait
+    # before firing this timeout. The second and third arguments are the
+    # target object and message identifier for the message to be sent when
+    # this timeout fires.
+    #
+    # A second form of #addTimeout takes a Method instance as its single argument:
+    #
+    #     timeout = app.addTimeout(delay, mthd)
+    #
+    # For this form, the method should have the standard argument list
+    # for a FOX message handler. That is, the method should take three
+    # arguments, for the message _sender_ (an FXObject), the message _selector_,
+    # and the message _data_ (if any).
+    #
+    # The last form of #addTimeout takes a block:
+    #
+    #     timeout = app.addTimeout(delay) do |sender, sel, data|
+    #         ... handle the timeout ...
+    #     end
+    #
+    # All of these return a reference to an opaque object (actually, a hash) that
+    # can be passed to #removeTimeout if it is necessary to remove the timeout
+    # before it fires.
+    #
+    # For the last two forms, you can pass in the optional +:repeat+ parameter to
+    # cause the timeout to be re-registered after it fires, e.g.
+    #
+    #     timeout = app.addTimeout(delay, :repeat => true) do |sender, sel, data|
+    #         ... handle the timeout ...
+    #         ... re-add the timeout with the same delay ...
+    #     end
+    #
+    def addTimeout(ms, *args, &block)
+      params = {}
+      params = args.pop if args.last.is_a? Hash
+      params[:delay] = ms
+      tgt, sel = nil, 0
+      if args.length > 0
+        if args[0].respond_to? :call
+          tgt = params[:target] || FXPseudoTarget.new
+          tgt.pconnect(SEL_TIMEOUT, args[0], params)
+        else # it's some other kind of object
+          tgt = args[0]
+          sel = args[1]
+        end
+      else
+        tgt = params[:target] || FXPseudoTarget.new
+        tgt.pconnect(SEL_TIMEOUT, block, params)
+      end
+      addTimeoutOrig(tgt, sel, ms)
+      params[:target] = tgt
+      params[:selector] = sel
+      params
+    end
+
+    #
+    # Remove timeout previously registered using #addTimeout; returns +nil+.
+    # For an example of how to use #removeTimeout, see the documentation for
+    # the #hasTimeout? method.
+    #
+    def removeTimeout(*args)
+      if args.length == 2
+        removeTimeoutOrig(args[0], args[1])
+      else
+        params = args[0]
+        removeTimeoutOrig(params[:target], params[:selector])
+      end
+    end
+
+    #
+    # Return +true+ if given timeout has been set, otherwise return +false+.
+    #
+    # For example, suppose you set up a timeout event to run ten seconds from
+    # now:
+    #
+    #     timeout = app.addTimeout(10*1000, ...)
+    #
+    # but in the meantime, you decide that you want to cancel it if it hasn't
+    # run yet:
+    #
+    #     if app.hasTimeout?(timeout)
+    #       app.removeTimeout(timeout)
+    #     end
+    #
+    def hasTimeout?(*args)
+      if args.length == 2
+        hasTimeoutOrig?(args[0], args[1])
+      else
+        hsh = args[0]
+        hasTimeoutOrig?(hsh[:target], hsh[:selector])
+      end
+    end
+
+    #
+    # Return the time remaining (in milliseconds) until the given timer fires.
+    # If the timer is past due, zero is returned. If there is no such
+    # timer, infinity (UINT_MAX) is returned.
+    #
+    # For example:
+    #
+    #     timeout = app.addTimeout(ms, ...)
+    #     time_left = app.remainingTimeout(timeout)
+    #
+    def remainingTimeout(*args)
+      if args.length == 2
+        remainingTimeoutOrig(args[0], args[1])
+      else
+        hsh = args[0]
+        remainingTimeoutOrig(hsh[:target], hsh[:selector])
+      end
+    end
+    
+  end # class FXApp
+  
+end # module Fox