Add runOnUiThread to FXApp and FXId.

This allows to safely execute GUI code from other threads.

lib/fox16.rb

@@ -28,3 +28,4 @@ require "fox16/execute_nonmodal"
 require "fox16/version"
 require "fox16/kwargs"
 require "fox16/exceptions_for_fxerror"
+require "fox16/thread"

lib/fox16/thread.rb

+require 'thread'
+
+module Fox
+
+  class FXApp
+
+    alias initialize_before_thread initialize # :nodoc:
+
+    def initialize(*args, &block)
+      initialize_before_thread(*args, &block)
+      event_handler_setup
+    end
+
+    def runOnUiThread(&block)
+      @event_handler_events << block
+      @event_handler_pwr.write 'e' if @event_handler_pwr
+    end
+
+    private
+
+    def event_handler_setup
+      if RUBY_PLATFORM =~ /mingw|mswin/i
+        require 'socket'
+        gs = TCPServer.open('localhost', 0)
+        prd = TCPSocket.open('localhost', gs.addr[1])
+        pwr = gs.accept
+      else
+        prd, pwr = IO.pipe
+      end
+      self.addInput(prd, Fox::INPUT_READ){ event_handler_pull(prd) }
+      @event_handler_pwr = pwr
+      @event_handler_events = Queue.new
+    end
+
+    def event_handler_pull(prd)
+      prd.read(1) if prd
+      while !@event_handler_events.empty?
+        ev = @event_handler_events.shift
+        ev.call
+      end
+    end
+
+  end # class FXApp
+
+  class FXId
+    def runOnUiThread(&block)
+      app.runOnUiThread(&block)
+    end
+  end
+end # module Fox

rdoc-sources/FXApp.rb

@@ -538,5 +538,10 @@ module Fox
 
     # Check to see if multithreaded applications are supported
     def threadsEnabled?(); end
+
+    # Runs the specified block on the UI thread.
+    #
+    # The block is posted to the event queue of the UI thread.
+    def runOnUiThread(&block); end
   end
 end

rdoc-sources/FXId.rb

@@ -30,5 +30,10 @@ module Fox
     # Destroy resource.
     #
     def destroy(); end
+
+    # Runs the specified block on the UI thread.
+    #
+    # The block is posted to the event queue of the UI thread.
+    def runOnUiThread(&block); end
   end
 end

test/TC_FXApp.rb

@@ -81,4 +81,39 @@ class TC_FXApp2 < Fox::TestCase
     pipe_rdwr = IO.popen("cat", "r+")
     check_events pipe_rdwr, pipe_rdwr
   end
+
+  def test_runOnUiThread
+    count = 0
+    thread = nil
+    Thread.new do
+      10.times do |idx|
+        app.runOnUiThread do
+          count += 1
+          thread = Thread.current
+          app.stop if idx == 9
+        end
+        sleep 0.001
+      end
+    end
+    app.run
+
+    assert_equal Thread.current, thread
+    assert_equal 10, count
+  end
+
+  def test_runOnUiThread_same_thread
+    count = 0
+    app.addTimeout(1) do
+      10.times do |idx|
+        app.runOnUiThread do
+          count += 1
+          app.stop if idx == 9
+        end
+        sleep 0.001
+      end
+    end
+    app.run
+
+    assert_equal 10, count
+  end
 end