bakkdoor-rswing 0.1.4 → 0.1.5

data/lib/rswing/components/button.rb

@@ -1,3 +1,22 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     ActionListener = java.awt.event.ActionListener
@@ -32,9 +51,7 @@ module RSwing
 
       # Eventhandler for clicked (actionPerformed) event.
       # Takes a block, which will be executed if this event occurs.
-      def on_click(&block)
-        self.add_action_listener(Listener.create(ActionListener, :actionPerformed, &block))
-      end
+      event_for self => :on_click, ActionListener => :actionPerformed
     end 
   end
 end

data/lib/rswing/components/container.rb

@@ -1,3 +1,22 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     module Container

data/lib/rswing/components/dialog.rb

@@ -1,3 +1,22 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     JOptionPane = javax.swing.JOptionPane

data/lib/rswing/components/events/event.rb

@@ -0,0 +1,52 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
+module RSwing
+  module Components
+    module Events
+      module Event
+        def event_for(listener_class_method_hash)
+          module_with_event = listener_class_method_hash.keys.first
+          event_name = listener_class_method_hash.values.first
+        
+          event_listener_class = listener_class_method_hash.keys.last
+          java_method_name = listener_class_method_hash.values.last
+        
+          module_with_event.module_eval do
+            define_method("__real_#{event_name}") do |block, *args|
+              self.send("add#{event_listener_class.java_class.name.split(".").last}", 
+                        Listener.create(event_listener_class, java_method_name, &block))
+            end
+          
+            # some funky code here, since we need do define the interface-method
+            # which will itself call our 'real' method. this is a workaround for ruby 1.8 since 
+            # it isn't possible to define_method a method with a &block via define_method. should work in 1.9
+            # but for now, we keep it this (obviously ugly) way, since it works. 
+            eval <<-EOM
+              def #{event_name}(*args, &block)
+                __real_#{event_name}(block, args)
+              end
+            EOM
+            
+          end
+        end
+      end
+    end
+  end
+end

data/lib/rswing/components/events/focus_events.rb

@@ -1,20 +1,35 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     module Events
       module FocusEvents
         FocusListener = java.awt.event.FocusListener
         
-        # Eventhandler für focus (focusGained) Event.
-        # Nimmt einen block, welcher dann bei diesem Event ausgeführt wird.
-        def on_focus(&block)
-          self.add_focus_listener(Listener.create(FocusListener, :focusGained ,&block))
-        end
-      
-        # Eventhandler für focus_lost (focusLost) Event.
-        # Nimmt einen block, welcher dann bei diesem Event ausgeführt wird.
-        def on_focus_lost(&block)
-          self.add_focus_listener(Listener.create(FocusListener, :focusLost ,&block))
-        end
+        # Eventhandler for on_focus (focusGained) event.
+        # Takes a block, which will get executed, when this event is fired.
+        event_for self => :on_focus, FocusListener => :focusGained
+        
+        # Eventhandler for focus_lost (focusLost) event.
+        # Takes a block, which will get executed, when this event is fired.
+        event_for self => :on_focus_lost, FocusListener => :focusLost
       end
     end
   end

data/lib/rswing/components/events/key_events.rb

@@ -1,20 +1,31 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     module Events
       module KeyEvents
         KeyListener = java.awt.event.KeyListener
         
-        def on_key_pressed(&block)
-          self.add_key_listener(Listener.create(KeyListener, :keyPressed, &block))
-        end
-      
-        def on_key_released(&block)
-          self.add_key_listener(Listener.create(KeyListener, :keyReleased, &block))
-        end
-      
-        def on_key_typed(&block)
-          self.add_key_listener(Listener.create(KeyListener, :keyTyped, &block))
-        end
+        event_for self => :on_key_pressed, KeyListener => :keyPressed
+        event_for self => :on_key_released, KeyListener => :keyReleased
+        event_for self => :on_key_typed, KeyListener => :keyTyped
       end
     end
   end

data/lib/rswing/components/events/mouse_events.rb

@@ -1,28 +1,33 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     module Events
       module MouseEvents
         MouseListener = java.awt.event.MouseListener
         
-        def on_mouse_clicked(&block)
-          self.add_key_listener(Listener.create(MouseListener, :mouseClicked, &block))
-        end
-      
-        def on_mouse_entered(&block)
-          self.add_key_listener(Listener.create(MouseListener, :mouseEntered, &block))
-        end
-      
-        def on_mouse_exited(&block)
-          self.add_key_listener(Listener.create(MouseListener, :mouseExited, &block))
-        end
-      
-        def on_mouse_pressed(&block)
-          self.add_key_listener(Listener.create(MouseListener, :mousePressed, &block))
-        end
-      
-        def on_mouse_released(&block)
-          self.add_key_listener(Listener.create(MouseListener, :mouseReleased, &block))
-        end
+        event_for self => :on_mouse_clicked, MouseListener => :mouseClicked
+        event_for self => :on_mouse_entered, MouseListener => :mouseEntered
+        event_for self => :on_mouse_exited, MouseListener => :mouseExited
+        event_for self => :on_mouse_pressed, MouseListener => :mousePressed
+        event_for self => :on_mouse_released, MouseListener => :mouseReleased
       end
     end
   end

data/lib/rswing/components/frame.rb

@@ -1,3 +1,22 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     JFrame = javax.swing.JFrame

data/lib/rswing/components/listener.rb

@@ -1,3 +1,22 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     class Listener

data/lib/rswing/components/options.rb

@@ -1,3 +1,22 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     class Options

data/lib/rswing/components/panel.rb

@@ -1,3 +1,22 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     JPanel = javax.swing.JPanel

data/lib/rswing/components/text_field.rb

@@ -1,3 +1,22 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     JTextField = javax.swing.JTextField

data/lib/rswing/components/window.rb

@@ -1,3 +1,22 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 module RSwing
   module Components
     module Window

data/lib/rswing.rb

@@ -1,14 +1,41 @@
+###############################################################################
+# This file is part of RSwing.                                                #
+# RSwing - Swing wrapper for JRuby                                            #
+# (C) 2008 Christopher Bertels (bakkdoor@flasht.de)                           #
+#                                                                             #
+# RSwing is free software: you can redistribute it and/or modify              #
+# it under the terms of the GNU Lesser General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or           #
+# (at your option) any later version.                                         #
+#                                                                             #
+# RSwing is distributed in the hope that it will be useful,                   #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of              #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the               #
+# GNU General Public License for more details.                                #
+#                                                                             #
+# You should have received a copy of the GNU Lesser General Public License    #
+# along with RSwing.  If not, see <http://www.gnu.org/licenses/>.             #
+###############################################################################
+
 # needed for swing classes
 require "java"
 
 # expand search path to components subdir.
 $: << File.expand_path(File.dirname(__FILE__) + "/rswing/components")
 
+require "events/event"
+
+# add "has_event"-method to Module-class for easy access in event-modules.
+class Module
+  include RSwing::Components::Events::Event
+end
+
 # event-modules
 require "events/focus_events"
 require "events/key_events"
 require "events/mouse_events"
 
+
 # containers
 require "container"
 require "window"

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: bakkdoor-rswing
 version: !ruby/object:Gem::Version 
-  version: 0.1.4
+  version: 0.1.5
 platform: ruby
 authors: 
 - Christopher Bertels
@@ -35,6 +35,7 @@ files:
 - lib/rswing/components/panel.rb
 - lib/rswing/components/text_field.rb
 - lib/rswing/components/window.rb
+- lib/rswing/components/events/event.rb
 - lib/rswing/components/events/focus_events.rb
 - lib/rswing/components/events/key_events.rb
 - lib/rswing/components/events/mouse_events.rb