clevic 0.12.0 → 0.13.0.b1

data/lib/clevic/swing/confirm_dialog.rb

@@ -0,0 +1,57 @@
+module Clevic
+  # keeps a list of names => results mappings
+  # and returns
+  class ConfirmDialog
+    def initialize
+      @names = []
+      @results = []
+      yield self if block_given?
+    end
+    
+    attr_accessor :names, :results, :question, :title, :dialog_result, :parent
+    
+    def to_java( arg )
+      @options.keys.to_java( arg )
+    end
+    
+    def canonical_results
+      @canonical_results ||= [:accept, :reject]
+    end
+    
+    # To create a an Ok button that has the focus, and causes
+    # the class to return true from accepted?
+    #  dialog['Ok'] = :accept, true
+    #
+    # To create a Cancel button that returns true from rejected?
+    #  dialog['Cancel'] = :reject
+    def []=( name, *args )
+      result, default = *args.flatten
+      raise "Result is not in #{@canonical_results.inspect}" unless canonical_results.include?( result.to_sym )
+      names << name.to_s
+      results << result.to_sym
+      @default = name.to_s if default
+    end
+    
+    def accepted?
+      results[dialog_result] == :accept
+    end
+    
+    def rejected?
+      results[dialog_result] == :reject
+    end
+    
+    def show
+      self.dialog_result = javax.swing.JOptionPane.showOptionDialog(
+        parent,
+        question,
+        title,
+        javax.swing.JOptionPane::DEFAULT_OPTION,
+        javax.swing.JOptionPane::QUESTION_MESSAGE,
+        nil, # icon. Not used here
+        names.to_java( :object ),
+        @default
+      )
+      self
+    end
+  end
+end

data/lib/clevic/swing/delegate.rb

@@ -0,0 +1,40 @@
+require 'clevic/delegate'
+
+module Clevic
+
+  class Delegate
+    def initialize( field )
+      @field = field
+      @message_receivers = Set.new
+    end
+    
+    def show_message( msg, &block )
+      if block_given?
+        @message_receivers << block
+      else
+        @message_receivers.each do |receiver|
+          receiver.call( msg )
+        end
+      end
+    end
+    
+    # workaround for broken JTable editing starts
+    def needs_pre_selection?
+      false
+    end
+    
+    # Return something useful if this should use the default GUI framework
+    # mechanism for table editing. Default is false, so native framework
+    # won't be used. For Java/Swing, this would return the a class object
+    # indicating the type of data, eg java.lang.Boolean, or java.lang.String
+    # or something from JTable.setDefaultEditor
+    def native
+      false
+    end
+    
+    def inspect
+      "<#{self.class.name} native=#{native} needs_pre_selection=#{needs_pre_selection?}>"
+    end
+  end
+
+end

data/lib/clevic/swing/distinct_delegate.rb

@@ -0,0 +1,30 @@
+require 'clevic/swing/combo_delegate'
+
+module Clevic
+
+# Provide a list of all values in this field,
+# and allow new values to be entered.
+# :frequency can be set as an option. Boolean. If it's true
+# the options are sorted in order of most frequently used first.
+class DistinctDelegate < ComboDelegate
+  def needs_combo?
+    # works except when there is a '' in the column
+    entity_class.adaptor.count( attribute.to_s, find_options ) > 0
+  end
+  
+  # strings are stored in the model
+  def display_for( model_value )
+    model_value
+  end
+
+  def population
+    # we only use the first column, so use the second
+    # column to sort by, since SQL requires the order by clause
+    # to be in the select list where distinct is involved
+    entity_class.adaptor.attribute_list( attribute, attribute_value, field.description, field.frequency, find_options ) do |row|
+      row[attribute]
+    end
+  end
+end
+
+end

data/lib/clevic/swing/extensions.rb

@@ -0,0 +1,274 @@
+# these two are from
+# http://kofno.wordpress.com/2007/05/05/jruby-swingutilitiesinvoke_block_later/
+class BlockRunner < java.lang.Thread
+  def initialize(&proc)
+    @p = proc
+  end
+  
+  def run
+    @p.call
+  end
+end
+
+unless defined? SwingUtilities
+  SwingUtilities = javax.swing.SwingUtilities
+
+  def SwingUtilities.invoke_block_later(&proc)
+    r = BlockRunner.new &proc
+    invoke_later r
+  end
+end
+
+module Kernel
+  def invoke_later( &block )
+    javax.swing.SwingUtilities.invoke_block_later( &block )
+  end
+end
+
+unless defined? AbstractButton
+  AbstractButton = javax.swing.AbstractButton
+  class AbstractButton
+    def mnemonic=( arg )
+      case arg
+      when String
+        self.setMnemonic( arg.to_char )
+      else
+        self.setMnemonic( arg )
+      end
+    end
+  end
+end
+
+unless defined? CaretEvent
+  CaretEvent = javax.swing.event.CaretEvent
+  class CaretEvent
+    def inspect
+      "<CaretEvent dot=#{dot} mark=#{mark} source=#{source}>"
+    end
+  end
+end
+
+unless defined? Component
+  Component = java.awt.Component
+  class Component
+    def <<( obj )
+      case obj
+      when Clevic::Separator
+        add_separator
+      
+      when Clevic::Action
+        add obj.menu_item
+      
+      when String
+        add obj.to_java_string
+      
+      else
+        add obj
+      end
+    end
+  end
+end
+
+unless defined? EventObject
+  EventObject = java.util.EventObject
+  class EventObject
+    def inspect
+      if respond_to?( :paramString )
+        "<#{self.class.name} #{param_string}>"
+      else
+        "<#{self.class.name} #{toString}>"
+      end
+    end
+  end
+end
+
+unless defined? JComboBox
+  JComboBox = javax.swing.JComboBox
+  class JComboBox
+    def << ( value )
+      model.addElement( value )
+    end
+    
+    def each
+      (0...model.size).each do |i|
+        yield model.getElementAt( i )
+      end
+    end
+    
+    include Enumerable
+  end
+end
+
+unless defined? JTabbedPane
+  JTabbedPane = javax.swing.JTabbedPane
+  class JTabbedPane
+    include Enumerable
+    
+    def each
+      (0...count).each do |index|
+        yield getComponentAt( index )
+      end
+    end
+    
+    def count
+      getTabCount
+    end
+    
+    def current=( component )
+      self.selected_component = component
+    end
+  end
+end
+
+unless defined? JObject
+  JObject = java.lang.Object
+  class JObject
+    # filter_block returns true if the event is to be constantified, false otherwise.
+    # the name of the constant will be passed to the block
+    def const_lookup( integer, *filter_block )
+      self.class.constants.select do |constant_name|
+        if eval( "self.class::#{constant_name}" ) == integer
+          if block_given?
+            yield constant_name
+          else
+            true
+          end
+        else
+          false
+        end
+      end
+    end
+  end
+end
+
+unless defined? KeyEvent
+  KeyEvent = java.awt.event.KeyEvent
+  class KeyEvent
+    def alt?
+      modifiers & self.class::ALT_MASK != 0
+    end
+    
+    def ctrl?
+      modifiers & self.class::CTRL_MASK != 0
+    end
+    
+    def meta?
+      modifiers & self.class::META_MASK != 0
+    end
+    
+    def self.function_keys
+      @function_keys ||= (1..24).map{|i| eval( "VK_F#{i}" ) }
+    end
+    
+    def fx?
+      self.class.function_keys.include?( key_code )
+    end
+    
+    def del?
+      key_code == VK_DELETE
+    end
+    
+    def shift?
+      modifiers & self.class::SHIFT_MASK != 0
+    end
+    
+    def plain?
+      modifiers == 0
+    end
+    
+    def esc?
+      key_code == VK_ESCAPE
+    end
+    
+    # a KEY_TYPED event
+    def typed?
+      getID == self.class::KEY_TYPED
+    end
+    
+    def inspect
+      "<KeyEvent id=#{getID} #{self.class.getKeyText(key_code)} '#{key_char}'>"
+    end
+  end
+end
+
+unless defined? KeyStroke
+  KeyStroke = javax.swing.KeyStroke
+  class KeyStroke
+    def inspect
+      toString
+    end
+  end
+end
+
+unless defined? MouseEvent
+  MouseEvent = java.awt.event.MouseEvent
+  class MouseEvent
+    def pressed?
+      getID == MOUSE_PRESSED
+    end
+    
+    def released?
+      getID == MOUSE_RELEASED
+    end
+    
+    def clicked?
+      getID == MOUSE_CLICKED
+    end
+    
+    #~ def inspect
+      #~ <<EOF
+
+  #~ button: #{const_lookup(button) {|b| b =~ /BUTTON/} }
+  #~ click_count: #{click_count.inspect}
+  #~ modifiers_ex_text: #{self.class.getModifiersExText(modifiers)}
+  #~ component: #{component.inspect}
+#~ EOF
+    #~ end
+  end
+end
+
+unless defined? TableModelEvent
+  TableModelEvent = javax.swing.event.TableModelEvent
+  class TableModelEvent
+    def inspect
+      "#<#{first_row..last_row}, #{column}, #{const_lookup( type )} >"
+    end
+    
+    def updated?
+      type == self.class::UPDATE
+    end
+
+    def deleted?
+      type == self.class::DELETE
+    end
+
+    def inserted?
+      type == self.class::INSERT
+    end
+    
+    # returns true if this is a notification to update all
+    # rows, ie a fireTableDataChanged() was called
+    def all_rows?
+      first_row == 0 && last_row == java.lang.Integer::MAX_VALUE
+    end
+  end
+end
+
+unless defined? DocumentEvent
+  DocumentEvent = javax.swing.event.DocumentEvent
+  module DocumentEvent
+    def inspect
+      "<DocumentEvent type=#{type} offset=#{offset} length=#{length}>"
+    end
+  end
+end
+
+
+unless defined? ItemEvent
+  ItemEvent = java.awt.event.ItemEvent
+  class ItemEvent
+    def inspect
+      "<ItemEvent state=#{const_lookup state_change} ps=#{param_string}>"
+    end
+  end
+end

data/lib/clevic/swing/field.rb

@@ -0,0 +1,35 @@
+module Clevic
+
+class Field
+  # Convert a color name understood by java.awt.Color,
+  # or a 0xddccee style string to a java.awt.Color
+  def string_or_color( s_or_c )
+    case s_or_c
+    when NilClass
+      nil
+    when java.awt.Color
+      s_or_c
+    else
+      color_string = s_or_c.to_s
+      if java.awt.Color.constants.include?( color_string.upcase )
+        eval( "java.awt.Color::#{color_string.upcase}" )
+      elsif
+        color_string[0..1] == "0x"
+        java.awt.Color.decode( color_string )
+      else
+        nil
+      end
+    end
+  end
+  
+  def swing_alignment
+    case alignment
+    when :left; javax.swing.SwingConstants::LEFT
+    when :right; javax.swing.SwingConstants::RIGHT
+    when :centre, :center; javax.swing.SwingConstants::CENTER
+    else javax.swing.SwingConstants::LEADING
+    end
+  end
+end
+
+end

data/lib/clevic/swing/relational_delegate.rb

@@ -0,0 +1,48 @@
+require 'clevic/swing/combo_delegate'
+
+module Clevic
+
+# Edit a relation from an id and display a list of relevant entries.
+#
+# attribute is the method to call on the row entity to retrieve the related object.
+# 
+# The ids of the model objects are stored in the item data
+# and the item text is fetched from them using attribute_path.
+class RelationalDelegate < ComboDelegate
+  def initialize( field )
+    super
+    unless find_options[:conditions].nil?
+      find_options[:conditions].gsub!( /true/, field.related_class.adaptor.quoted_true )
+      find_options[:conditions].gsub!( /false/, field.related_class.adaptor.quoted_false )
+    end
+  end
+  
+  # use the Clevic::ComboBox class because JCombobox is remarkably stupid
+  # about far too many things.
+  def combo_class
+    ComboBox
+  end
+  
+  def needs_combo?
+    field.related_class.adaptor.count( :conditions => find_options[:conditions] ) > 0
+  end
+  
+  def empty_set_message
+    "There must be records in #{field.related_class.name.humanize} for this field to be editable."
+  end
+  
+  def population
+    # add set of all possible related entities,
+    # including the currently selected entity
+    ary = field.related_class.adaptor.find( :all, find_options )
+    ary << attribute_value unless ary.include?( attribute_value )
+    ary
+  end
+  
+  # don't allow new values
+  def restricted?
+    true
+  end
+end
+
+end