swing4rb 0.1

data/lib/swing4rb.rb

@@ -0,0 +1,280 @@
+#Copyright (c) 2007 Toby Ho
+#
+#Permission is hereby granted, free of charge, to any person obtaining a copy
+#of this software and associated documentation files (the "Software"), to deal
+#in the Software without restriction, including without limitation the rights
+#to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+#copies of the Software, and to permit persons to whom the Software is
+#furnished to do so, subject to the following conditions:
+#
+#The above copyright notice and this permission notice shall be included in
+#all copies or substantial portions of the Software.
+#
+#THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+#IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+#FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+#AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+#LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+#OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+#THE SOFTWARE.
+
+
+require 'java'
+module Swing
+include_package 'java.awt'
+include_package 'javax.swing'
+end
+module AwtEvent
+include_package 'java.awt.event'
+end
+
+def camelcase str
+  str.gsub!(/[^a-zA-Z_\- ]/," ")
+  str = " " + str.split('_').join(" ")
+  str.gsub!(/ (.)/) { $1.upcase }
+end
+
+#AbstractButton
+#JComboBox
+#JFileChooser
+#JTextField
+#Timer
+
+def pretty_action_listener *syms
+  syms.each{|sym|
+    eval(
+    %Q|class Java::JavaxSwing::#{camelcase(sym.to_s)}
+      alias original_add_action_listener add_action_listener
+      def add_action_listener &func
+        l = AwtEvent::ActionListener.new
+        l.instance_eval {
+          @func = func
+        }
+        def l.actionPerformed(event)
+          @func.call(event)
+        end
+        l
+        original_add_action_listener l
+      end
+    end
+    |)
+  }
+end
+
+pretty_action_listener :abstract_button, :j_combo_box, :j_file_chooser, :j_text_field, :timer
+
+def border_fact_method *syms
+  syms.each{|sym|
+    eval %Q|
+      def #{sym.to_s} *args
+        Java::JavaxSwing::BorderFactory.create#{camelcase(sym.to_s)} *args
+      end
+    |
+  }
+end
+
+border_fact_method :line_border, :bevel_border, :compound_border, :etched_border
+border_fact_method :matte_border, :raised_bevel_border, :titled_border
+
+class Java::JavaAwt::Component
+  alias original_add_mouse_listener add_mouse_listener
+  alias original_add_key_listener add_key_listener
+  def add_mouse_listener map
+    l = AwtEvent::MouseListener.new
+    [:clicked, :entered, :exited, :pressed, :released].each{|key|
+      value = map[key]
+      if value.nil? then
+        value = proc{|event| }
+      end
+      eval %Q|l.instance_eval {
+        @#{key} = value
+      }|
+      eval %Q|
+        def l.mouse#{key.to_s.capitalize}(event)
+          @#{key}.call(event)
+        end
+      |
+    }
+    original_add_mouse_listener l 
+  end
+  
+  def add_key_listener map
+    l = AwtEvent::KeyListener.new
+    [:pressed, :released, :typed].each{|key|
+      value = map[key]
+      if value.nil? then
+        value = proc{|event| }
+      end
+      eval %Q|l.instance_eval {
+        @#{key} = value
+      }|
+      eval %Q|
+        def l.key#{key.to_s.capitalize}(event)
+          @#{key}.call(event)
+        end
+      |
+    }
+    original_add_key_listener l 
+  end
+end
+
+class Java::JavaAwtEvent::ActionEvent
+  alias action_command getActionCommand
+end
+
+class Java::JavaxSwing::JPanel
+  alias layout getLayout
+end
+
+class Java::JavaxSwing::JFrame
+  def setup_menubar
+    bar = Java::JavaxSwing::JMenuBar.new
+    if block_given?
+      yield bar
+    end
+    self.setJMenuBar bar
+    bar
+  end
+end
+
+class Java::JavaxSwing::JMenuBar
+  def menu name
+    menu = Java::JavaxSwing::JMenu.new name
+    if block_given?
+      yield menu
+    end
+    self.add menu
+    menu
+  end
+end
+
+class Java::JavaxSwing::JMenu
+  def item name, shortcut = nil, clazz=Java::JavaxSwing::JMenuItem, &action_listener
+    shortcut = shortcut[0] unless shortcut.nil? or shortcut.length == 0
+    item = clazz.new name, shortcut
+    if block_given?
+      item.add_action_listener &action_listener
+    end
+    self.add item
+    item
+  end
+  
+  def check_box_item name, shortcut = nil, &block
+    self.item name, shortcut, Java::JavaxSwing::JCheckBoxMenuItem, &block
+  end
+  
+  def radio_button_item name, shortcut = nil, &block
+    self.item name, shortcut, Java::JavaxSwing::JRadioButtonMenuItem, &block
+  end
+  
+  def submenu name
+    menu = Java::JavaxSwing::JMenu.new name
+    if block_given?
+      yield menu
+    end
+    self.add menu
+    menu
+  end
+end
+
+def fact_method_j *syms
+  syms.each {|sym|
+    name = sym.to_s
+    eval %Q|
+      def #{name} *args
+        #{name} = Swing::J#{camelcase(name)}.new *args
+        if block_given?
+          yield #{name}
+        end
+        #{name}
+      end
+      |
+  }
+end
+
+def fact_method *syms
+  syms.each {|sym|
+    name = sym.to_s
+    eval %Q|
+      def #{name} *args
+        #{name} = Swing::#{camelcase(name)}.new *args
+        if block_given?
+          yield #{name}
+        end
+        #{name}
+      end
+      |
+  }
+end
+
+fact_method_j :frame, :panel, :button, :text_area, :scroll_pane, :text_field, :label, :tool_bar
+fact_method_j :text_field, :password_field, :progress_bar
+fact_method :border_layout, :flow_layout, :box_layout, :card_layout, :dimension, :point
+fact_method :grid_layout
+
+def constant clazz, const
+  eval "Swing::#{clazz.to_s}::#{const.to_s.upcase}"
+end
+
+
+
+def border_panel map
+    panel {|p|
+      p.layout = border_layout
+      map.each {|key, value|
+          p.add(value, constant(:BorderLayout, key))
+      }
+      if block_given?
+        yield p
+      end
+    }
+end
+
+def flow_panel *components
+  panel {|p|
+    p.layout = flow_layout
+    components.each{|c|
+      p.add(c)
+    }
+    if block_given?
+      yield p
+    end
+  }
+end
+
+def box_panel axis, *components
+  panel {|p|
+    p.layout = box_layout(p, constant(:BoxLayout, axis))
+    components.each{|c|
+      p.add(c)
+    }
+    if block_given?
+      yield p
+    end
+  }
+end
+
+def card_panel map
+  panel {|p|
+    p.layout = card_layout
+    map.each {|key, value|
+      p.add(value, key.to_s)
+    }
+    if block_given?
+      yield p
+    end
+  }
+end
+
+def grid_panel columns, rows, *components
+  panel {|p|
+    p.layout = grid_layout columns, rows
+    components.each{|c|
+      p.add c
+    }
+    if block_given?
+      yield p
+    end
+  }
+end
+

metadata

@@ -0,0 +1,47 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.4
+specification_version: 1
+name: swing4rb
+version: !ruby/object:Gem::Version 
+  version: "0.1"
+date: 2007-07-18 00:00:00 -04:00
+summary: Declarative style Swing GUI API.
+require_paths: 
+- lib
+email: airportyh@gmail.com
+homepage: 
+rubyforge_project: 
+description: Declarative style Swing GUI API.
+autorequire: swing4rb
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- TobyHo
+files: 
+- lib/swing4rb.rb
+test_files: []
+
+rdoc_options: 
+- --title
+- swing4rb -- Declarative style Swing GUI API.
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+