sweet 0.0.2 → 0.0.3

data/lib/sweet/fox.rb

@@ -0,0 +1,47 @@
+require 'sweet/base'
+
+require 'rubygems'
+require 'fox16'
+%w{object application}.each{|file| require "sweet/fox/#{file}"}
+
+module Sweet
+  include Fox
+
+  # TODO integrate all standard widgets
+  WIDGET_HACKS = {
+    Wx::TextCtrl => {:custom_code => proc{ alias text get_value; alias text= set_value} }
+  }
+
+  default = {:init_args => :text}
+  WIDGET_DEFAULTS = {
+    :label => default,
+    :edit_line => default.merge(:class => TextCtrl),
+    :button => default.merge(:block_handler => :evt_button)
+  }
+
+  def self.create_app(name, opts, &block)
+    app = FXApp.new
+    class << app
+      include Sweet::Application
+    end
+    wnd = FXWindow.new(app, name)
+    wnd.sweeten(app, opts, &block)
+    app.create
+    wnd.show
+    app.run
+  end
+  
+  def self.create_widget_class(cls, init)
+    cls.is_a?(Class) ? cls : const_get('FX' + cls)
+  end
+
+  def self.initialize_widget(parent, cls, opts, init)
+    Sweet.debug "Creating #{cls}(#{parent})"
+    cls.new(parent, opts.delete(:text) || '')
+  end
+  
+  def self.delegate_events(cls)
+    # nothing to do
+  end
+
+end

data/lib/sweet/fox/application.rb

@@ -0,0 +1,9 @@
+module Sweet::Application
+  def perform(&block)
+    instance_eval &block
+  end
+
+  def busy(&block)
+    instance_eval &block
+  end
+end

data/lib/sweet/fox/object.rb

@@ -0,0 +1,19 @@
+class Fox::Object
+  include Sweet::Component
+
+  def handle_event(evt, &block)
+    send evt, get_id do |event|
+      block.call
+    end
+  end
+
+  def layout=(layout)
+    l = case layout
+    when :flow
+      Wx::BoxSizer.new(Wx::HORIZONTAL)
+    when :stack
+      Wx::BoxSizer.new(Wx::VERTICAL)
+    end
+    set_sizer l
+  end
+end

data/lib/sweet/gtk2.rb

@@ -0,0 +1,56 @@
+require 'sweet/base'
+
+require 'gtk2'
+%w{widget application}.each { |f| require "sweet/gtk2/#{f}" }
+
+
+module Sweet
+
+  # TODO integrate all standard widgets
+
+  WIDGET_HACKS = {
+  }
+
+  default = {:init_args => :label}
+  WIDGET_DEFAULTS = {
+    :edit_line => default.merge(:class => Gtk::Entry),
+    :label => {:init_args => :text},
+    :button => default.merge(:block_handler => :clicked),
+    :flow => {:class => Gtk::HBox},
+    :stack => {:class => Gtk::VBox}
+  }
+
+  def self.create_app(name, opts, &block)
+    wnd = Gtk::Window.new
+    class << wnd; self; end.class_eval do
+      include Application
+    end
+    wnd.initialize_app wnd
+    wnd.sweeten(wnd, {:title => name}.merge(opts), &block)
+    wnd.show_all
+    wnd.signal_connect :destroy do
+      Gtk.main_quit
+    end
+    Gtk.main
+  end
+  
+  def self.create_widget_class(class_name, init)
+    class_name.is_a?(Class) ? class_name : Gtk.const_get(class_name)
+  end
+
+  def self.initialize_widget(parent, cls, opts, init)
+    Sweet.debug "Creating #{cls}(#{parent})"
+    widget = cls.new
+    if appender = init[:appender]
+      parent.send appender, widget
+    else
+      parent.add(widget)
+    end
+    widget
+  end
+  
+  def self.delegate_events(cls)
+    # nothing to do
+  end
+
+end

data/lib/sweet/gtk2/application.rb

@@ -0,0 +1,11 @@
+module Sweet::Application
+  def perform(&block)
+    # TODO implement
+    instance_eval &block
+  end
+
+  def busy(&block)
+    # TODO implement
+    instance_eval &block
+  end
+end

data/lib/sweet/gtk2/widget.rb

@@ -0,0 +1,5 @@
+class Gtk::Widget
+  include Sweet::Component
+  alias handle_event signal_connect
+end
+

data/lib/sweet/hacks.rb

@@ -1,20 +1,3 @@
-class Hash
-  def unify
-    each_pair do |k, v|
-      if k.is_a? Array
-        k.each do |key|
-          self[key.to_sym] = v
-        end
-        self.delete k
-      elsif ! k.is_a?(Symbol)
-        self[k.to_sym] = v
-        self.delete k
-      end
-    end
-    self
-  end
-end
-
 class Symbol
   # For configuring layouts
   def conf(opts = {})

data/lib/sweet/swing.rb

@@ -0,0 +1,97 @@
+require 'sweet/base'
+
+require 'java'
+%w{application component frame}.each { |f| require "sweet/swing/#{f}" }
+
+
+module Sweet
+
+  import 'javax.swing'
+
+  # TODO integrate all standard widgets
+
+  WIDGET_HACKS = {
+  }
+
+  default = {:init_args => :text}
+  WIDGET_DEFAULTS = {
+    :edit_line => default.merge(:class => JTextField),
+    :label => default,
+    :button => default.merge(:block_handler => :on_action),
+    :menu_bar => {:appender => :setJMenuBar}
+  }
+
+  def self.create_app(name, opts, &block)
+    frame = JFrame.new(name)
+    # TODO factor this out
+    class << frame; self; end.class_eval do
+      include Application
+    end
+    frame.initialize_app frame
+    frame.default_close_operation = JFrame::EXIT_ON_CLOSE
+    frame.sweeten(opts, &block)
+    frame.visible = true
+  end
+  
+  def self.create_widget_class(class_name, init)
+    class_name.is_a?(Class) ? class_name : const_get('J' + class_name)
+  end
+
+  def self.initialize_widget(parent, cls, opts, init)
+    Sweet.debug "Creating #{cls.java_class.simple_name}(#{parent})"
+    widget = cls.new()
+    if appender = init[:appender]
+      parent.send appender, widget
+    else
+      if parent.respond_to?(:content_pane)
+        parent.content_pane
+      else
+        parent
+      end.add(widget)
+    end
+    widget
+  end
+  
+  def self.delegate_events(cls)
+    hacks = WIDGET_HACKS[cls]
+    default_listener = (hacks[:default_listener] || 'action').underscore if hacks
+
+    methods = cls.java_class.java_instance_methods
+    methods.each do |m|
+      next unless m.name =~ /(add(.*)Listener)/
+      j = $1
+      n = $2.underscore
+      p = m.parameter_types[0]
+      evts = p.declared_instance_methods
+
+      if evts.size == 1
+        s = "on_#{n}"
+        cls.send(:alias_method, s, j) unless cls.respond_to?(s)
+      else
+        evts.each do |evt|
+          s = evt.name.underscore
+          if s.split(/_/).size == 1 && n != default_listener
+            s = n + "_" + s
+          end
+          unused_events = evts.select{ |e| e.name != evt.name }.map{ |e| "def #{e.name.underscore}(e)\nend" }.join("\n")
+          cls.class_eval <<-EOF
+              def on_#{s}(&block)
+                l = Class.new do
+                  include Java.#{p}
+                  def initialize(&block)
+                    @block = block
+                  end
+                  def #{evt.name}(e)
+                    @block.call e
+                  end
+                  #{unused_events}
+                end
+                #{j} l.new(&block)
+              end
+          EOF
+        end
+      end
+    end
+  end
+
+end

data/lib/sweet/swing/application.rb

@@ -0,0 +1,9 @@
+module Sweet::Application
+  def perform(&block)
+    SwingUtilities.invoke_and_wait &block
+  end
+
+  def busy(&block)
+    SwingUtilities.invoke_later &block
+  end
+end

data/lib/sweet/swing/component.rb

@@ -0,0 +1,23 @@
+# This is the only base class of ALL Swing components
+class Java::JavaAwt::Container
+
+  include Sweet::Component
+
+  def layout=(value, opts = {})
+    Sweet.debug "layout = #{name}(#{opts.inspect})"
+    layout = "#{value.to_s.capitalize}Layout" if value.is_a?(Symbol)
+    layout = instance_eval("awt.#{layout}") unless value.is_a?(Class)
+
+    l = layout.new
+    opts.each_pair do |k,v|
+      l.send("#{k}=", v)
+    end
+
+    content_pane.setLayout l
+    Sweet.debug content_pane.getLayout
+  end
+
+  def awt
+    java.awt
+  end
+end

data/lib/sweet/swing/frame.rb

@@ -0,0 +1,13 @@
+class Java::JavaxSwing::JFrame
+  alias_property :text => :title
+
+  def sweeten(opts = {}, &block)
+    w, h = opts.delete(:width), opts.delete(:height)
+
+    super(self, opts, &block)
+
+    pack
+    size = (w || width), (h || height)
+  end
+
+end

data/lib/sweet/swt.rb

@@ -0,0 +1,193 @@
+require 'sweet/swt/downloader'
+
+begin
+  load Sweet::SWT_JAR
+rescue LoadError => e
+  STDERR.puts "No swt.jar found. Run:"
+  STDERR.puts "  sweet install [toolkit]"
+  exit
+end
+
+require 'sweet/base'
+
+require 'java'
+%w{widget composite shell dialog application}.each{|file| require "sweet/swt/#{file}"}
+
+module Sweet
+
+  import 'org.eclipse.swt'
+  import 'org.eclipse.swt.widgets'
+  import 'org.eclipse.swt.custom'
+  import 'org.eclipse.swt.browser'
+
+  # TODO integrate all standard widgets
+  WIDGET_HACKS = {
+    ProgressBar => {:custom_code => proc {
+        def fraction=(value)
+          setSelection value.to_f * maximum
+        end
+        def fraction
+          selection / maximum
+        end
+      }},
+    Text => {:custom_code => proc{
+        def password=(value)
+          self.echo_char = ?* if value
+        end
+        def password
+          ! echo_char.nil?
+        end
+      }},
+    CTabFolder => {:default_listener => 'CTabFolder2'}
+  }
+
+  default = {:init_args => :text, :block_handler => SWT::Selection}
+  button_default = default.merge(:class => Button)
+  WIDGET_DEFAULTS = {
+    # Text components
+    :label => {:style => SWT::WRAP, :init_args => :text},
+    :edit_line => {:class => Text, :style => SWT::SINGLE | SWT::BORDER, :init_args => :text, :block_handler => :on_widget_default_selected},
+    :edit_area => {:class => Text, :style => SWT::MULTI | SWT::BORDER, :init_args => :text, :block_handler => :on_widget_default_selected},
+
+    # Buttons
+    :button => default.merge(:style => SWT::PUSH),
+    :toggle_button => button_default.merge(:style => SWT::TOGGLE),
+    :radio_button => button_default.merge(:style => SWT::RADIO),
+    :check_button => button_default.merge(:style => SWT::CHECK),
+    :arrow_button => button_default.merge(:style => SWT::ARROW),
+
+    # Menus
+    :menubar => {:class => Menu, :style => SWT::BAR},
+    :popup => {:class => Menu, :style => SWT::POP_UP},
+    :item => {:class => MenuItem, :style => SWT::PUSH, :init_args => :text, :block_handler => :on_widget_selected},
+    :separator => {:class => MenuItem, :style => SWT::SEPARATOR},
+    :submenu => {:class => MenuItem, :style => SWT::CASCADE, :init_args => :text, :block_handler => proc{|c, opts, block|
+        sub = Menu.new(c.app, SWT::DROP_DOWN)
+        sub.sweeten(c.app, opts, &block)
+        c.menu = sub
+      }
+    },
+    
+    # Toolbars
+    :tool_item => default.merge(:style => SWT::PUSH),
+    # TODO make CoolBar work
+    #    :cool_item => {:init_args => :control, :block_handler => proc{ |c, opts, proc|
+    #        c.control = proc.call
+    #      }},
+
+    # Tabs
+    :tab_folder => {:class => CTabFolder, :style => SWT::BORDER},
+    :tab_item => {:class => CTabItem, :style => SWT::CLOSE, :init_args => [:text, :control], :block_handler => proc{|c, opts, block|
+        c.control = block.call
+      }},
+
+    # Other components
+    :tree => {:style => SWT::VIRTUAL, :block_handler => SWT::Selection},
+    :progress => {:class => ProgressBar, :style => SWT::SMOOTH},
+    :group => {:init_args => :text},
+
+    # Dialogs
+    :color_dialog => {:style => SWT::APPLICATION_MODAL, :init_args => :text},
+    :modal_dialog => {:style => SWT::APPLICATION_MODAL, :init_args => :text, :block_handler => proc { |c, opts, block|
+        meta.class_eval do
+          def open
+            shell = widgets::Shell.new(app, swt::DIALOG_TRIM | style)
+            shell.text = text
+            shell.app &block
+            shell.open
+            while !shell.isDisposed
+              app.display.sleep unless display.readAndDispatch()
+              return result
+            end
+          end
+        end
+      }
+    }
+  }
+
+  def self.create_app(name, opts, &block)
+    # build the UI
+    Display.setAppName(name)
+    display = Display.new
+
+    # TODO allow multiple shells
+    shell = Shell.new(display)
+    class << shell; self; end.class_eval do
+      include Application
+    end
+    shell.initialize_app shell
+    shell.sweeten(display, name, opts, &block)
+    shell.open
+
+    # dispatch loop
+    while (!shell.isDisposed) do
+      display.sleep unless display.readAndDispatch
+    end
+
+    display.dispose
+  end
+  
+  def self.create_widget_class(cls, init)
+    cls.is_a?(Class) ? cls : const_get(cls)
+  end
+
+  def self.initialize_widget(parent, cls, opts, init)
+    style = to_style(opts.delete(:style) || init[:style] || SWT::NONE)
+    style |= to_style(opts.delete(:add_style) || 0)
+
+    Sweet.debug "Creating #{cls.java_class.simple_name}(#{parent}, #{style})"
+    cls.new(parent, style)
+  end
+  
+  def self.delegate_events(cls)
+    hacks = WIDGET_HACKS[cls]
+    default_listener = (hacks[:default_listener] || '').underscore if hacks
+
+    methods = cls.java_class.java_instance_methods
+    methods.each do |m|
+      next unless m.name =~ /(add(.*)Listener)/
+      j = $1
+      n = $2.underscore
+      p = m.parameter_types[0]
+      evts = p.declared_instance_methods
+
+      if evts.size == 1
+        s = "on_#{n}"
+        cls.send(:alias_method, s, j) unless cls.respond_to?(s)
+      else
+        evts.each do |evt|
+          s = evt.name.underscore
+          if s.split(/_/).size == 1 && n != default_listener
+            s = n + "_" + s
+          end
+          # TODO provide addListener SWT::Xxx option
+          unused_events = evts.select{ |e| e.name != evt.name }.map{ |e| "def #{e.name.underscore}(e)\nend" }.join("\n")
+          cls.class_eval <<-EOF
+              def on_#{s}(&block)
+                l = Class.new do
+                  include Java.#{p}
+                  def initialize(&block)
+                    @block = block
+                  end
+                  def #{evt.name}(e)
+                    @block.call e
+                  end
+                  #{unused_events}
+                end
+                #{j} l.new(&block)
+              end
+          EOF
+        end
+      end
+    end
+  end
+
+  private
+  def self.to_style(style)
+    Array(style).inject(0) do |result, value|
+      value = value.swt_const if value.is_a? Symbol
+      result | value
+    end
+  end
+
+end