cheri 0.0.2

data/lib/cheri/java/java.rb

@@ -0,0 +1,56 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# 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.
+#++
+#
+
+module Cheri
+module Java
+JRuby = Cheri::JRuby #:nodoc:
+class LocatableIcon < ::Java::JavaxSwing::ImageIcon
+  def initialize(location,*r)
+    super
+    @location = location
+  end
+  def location
+    @location  
+  end
+end
+
+class << self
+  def get_class(*r)
+    JRuby.get_class(*r)
+  end
+  # call-seq:
+  #   Cheri::Java.get_icon(filename) -> icon
+  #   
+  # Returns an instance of LocatableIcon for file at #{Cheri.img_path}#{filename}.
+  def get_icon(n)
+    LocatableIcon.new("#{Cheri.img_path}#{n}")
+  end
+  # Returns the 16x16 Cheri icon.
+  def cheri_icon
+    @cheri_icon ||= get_icon('cheri_icon_16x16.png')
+  end
+end #self
+
+end #Java
+end #Cheri

data/lib/cheri/jruby.rb

@@ -0,0 +1,32 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# 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.
+#++
+#
+
+if (defined?JRUBY_VERSION) && 0 == (JRUBY_VERSION =~ /(\d+\.\d+\.\d+)([-\.A-Z0-9]*)/) &&
+    (($1 == '1.0.0' && ($2.empty? || $2 >= 'RC3')) || $1 > '1.0.0')
+  require 'java'
+  require 'cheri/cheri'
+  require 'cheri/jruby/jruby'
+else
+  raise ArgumentError,"invalid or undefined JRUBY_VERSION (JRuby 1.0.0RC3 or later required)"
+end

data/lib/cheri/jruby/explorer.rb

@@ -0,0 +1,43 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# 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.
+#++
+#
+if (defined?JRUBY_VERSION) && 0 == (JRUBY_VERSION =~ /(\d+\.\d+\.\d+)([-\.A-Z0-9]*)/) &&
+    (($1 == '1.0.0' && ($2.empty? || $2 >= 'RC3')) || $1 > '1.0.0')
+
+  require 'cheri/html'
+  require 'cheri/swing'
+  require 'cheri/explorer/explorer'
+  require 'cheri/jruby/explorer/splash'
+  require 'cheri/jruby/explorer/common'
+  require 'cheri/jruby/explorer/viewer'
+  require 'cheri/jruby/explorer/dialogs'
+  require 'cheri/jruby/explorer/explorer'
+  require 'cheri/jruby/explorer/viewers'
+else
+STDERR.puts %{
+Cheri::JRuby::Explorer requires JRuby (1.0.0-RC3 or later)
+        Download the latest version of JRuby at:
+             http://www.jruby.org/
+
+}
+end

data/lib/cheri/jruby/explorer/common.rb

@@ -0,0 +1,38 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# 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.
+#++
+#
+
+module Cheri
+module JRuby
+module Explorer
+
+module InstanceListener
+  def instance_added(instance)
+  end
+  def instance_removed(instance)
+  end
+end
+
+end #Explorer
+end #JRuby
+end #Cheri

data/lib/cheri/jruby/explorer/dialogs.rb

@@ -0,0 +1,383 @@
+#--
+# Copyright (C) 2007 William N Dortch <bill.dortch@gmail.com>
+#
+# 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.
+#++
+#
+
+
+module Cheri
+module JRuby
+module Explorer
+
+class ConnectionDialog
+  include Cheri::Swing
+  def initialize(main)
+    swing[:auto=>true]
+    @main = main
+    @main_frame = main.main_frame
+    @dialog = dialog @main_frame, 'New Connection', true do |d|
+      box_layout(d, :Y_AXIS)
+      size 240,180
+      default_close_operation :HIDE_ON_CLOSE
+      y_glue
+      
+      x_box do
+        y_box do
+          label 'Host:'
+          y_spacer 4
+          label 'Port:'
+          y_spacer 4
+          label 'Display name:'
+        end
+        x_spacer 10
+        y_box do
+          @con_host = text_field do
+             columns 10
+             maximum_size dimension(100,24)
+             text 'localhost'
+          end
+          y_spacer 4
+          @con_port = text_field do
+             columns 10
+             maximum_size dimension(100,24)
+          end
+          y_spacer 4
+          @con_name = text_field do
+            #align :RIGHT
+            columns 10
+            maximum_size dimension(100,24)
+          end
+        end      
+      end
+      y_spacer 16
+      x_box do
+        x_glue
+        button 'Connect' do
+          on_click do
+            host = @con_host.text
+            host.strip! if host
+            port = @con_port.text
+            port.strip! if port
+            name = @con_name.text
+            if name
+              name.strip!
+              name = nil if name.empty?
+            end
+            if !port || port.empty?
+              JOptionPane.show_message_dialog(@main_frame,"Please enter a port number",
+                'Connection Error', JOptionPane::ERROR_MESSAGE)
+            elsif !(port = Integer(port) rescue nil)
+              JOptionPane.show_message_dialog(@main_frame,"Invalid port: #{@con_port.text}",
+                'Connection Error', JOptionPane::ERROR_MESSAGE)
+            else
+              @dialog.visible = false
+              reset_fields
+              @main.new_connection(port,name,host)
+            end
+          end
+        end
+        x_spacer 10
+        button 'Cancel' do
+          on_click do
+            @dialog.visible = false
+            reset_fields
+          end
+        end
+        x_glue
+      end
+      y_glue
+    end
+    reset_fields
+    @main.center(@main_frame,@dialog)
+  end
+
+  def reset_fields
+    @con_host.text = 'localhost'
+    @con_port.text = ''
+    @con_name.text = ''
+  end
+  private :reset_fields
+  
+  def value
+    @dialog  
+  end
+  
+  def show
+    @dialog.visible = true  
+  end
+  
+  def hide
+    @dialog.visible = false  
+  end
+  
+end
+
+class SearchDialog
+  include Cheri::Swing
+  def initialize(main)
+    swing[:auto=>true]
+    @main = main
+    @main_frame = main.main_frame
+    @dialog = dialog @main_frame, 'Search ObjectSpace', true do |d|
+      box_layout d, :Y_AXIS
+      size 400,300
+      default_close_operation :HIDE_ON_CLOSE
+      y_glue
+      x_panel do
+        x_spacer 4
+        label 'Instance:'
+        x_spacer 10
+        @instance_list = combo_box instance_list do
+          editable false
+        end
+        x_spacer 4 
+      end
+      y_glue
+      x_panel do
+        compound_border( 
+          titled_border('Find specific object') { etched_border :LOWERED },
+          empty_border(4,8,4,8)
+        )
+        y_box do
+          label 'Object id:'        
+        end
+        x_spacer 10
+        y_box do
+          y_glue
+          @object_id = text_field do
+             columns 16
+             fixed_size 100,24
+             #maximum_size dimension(100,24)
+             #minimum_size dimension(100,24)
+          end
+          y_glue
+        end
+        x_glue
+        y_box do
+          y_glue
+          button 'Find' do
+            on_click do
+              id = nil_if_empty(@object_id.text)
+              id = Integer(id) rescue nil if id
+              if !id
+                JOptionPane.show_message_dialog(@dialog,"Please enter a valid id",
+                  'Search Error', JOptionPane::ERROR_MESSAGE)
+              else
+                @dialog.visible = false
+                @main.new_find(@instances[@instance_list.selected_index],id)
+              end
+            end
+          end
+          y_glue
+        end
+      end
+
+      y_glue
+
+      x_panel do
+        compound_border( 
+          titled_border('Search for instances by type and optional variable/value') { etched_border :LOWERED },
+          empty_border(4,8,4,8)
+        )
+        y_box do
+          y_glue
+          label 'Class or Module:' 
+          y_glue
+          label 'Variable name:'
+          y_glue
+          label 'Search string or /regexp/:'
+          y_glue
+        end
+        x_spacer 6
+        y_box do
+          y_glue
+          label '@'
+          y_glue        
+        end
+        y_box do
+          y_glue
+          @clazz = text_field do
+             columns 20
+             fixed_size 200,24
+             #maximum_size dimension(200,24)
+             #minimum_size dimension(200,24)
+          end
+          y_glue
+          @name1 = text_field do
+             columns 20
+             fixed_size 200,24
+             #maximum_size dimension(200,24)
+             #minimum_size dimension(200,24)
+          end
+          y_glue
+          @value1 = text_field do
+             columns 20
+             fixed_size 200,24
+             #maximum_size dimension(200,24)
+             #minimum_size dimension(200,24)
+          end
+          y_glue
+        end
+        x_glue
+        y_box do
+          button 'Find' do
+            on_click do
+              clazz = nil_if_empty(@clazz.text)
+              name = nil_if_empty(@name1.text)
+              value = @value1.text
+              value = nil if value.empty?
+              if !clazz
+                JOptionPane.show_message_dialog(@dialog,"Please enter a Class or Module name",
+                  'Search Error', JOptionPane::ERROR_MESSAGE)
+              elsif clazz !~ /^([A-Z])((\w|::[A-Z])*)$/
+                JOptionPane.show_message_dialog(@dialog,"Invalid Class or Module name, please re-enter",
+                  'Search Error', JOptionPane::ERROR_MESSAGE)
+              elsif name && name !~ /^([A-Za-z_])(\w*)$/
+                JOptionPane.show_message_dialog(@dialog,"Invalid variable name, please re-enter",
+                  'Search Error', JOptionPane::ERROR_MESSAGE)
+              elsif value && !name && !value.empty?
+                JOptionPane.show_message_dialog(@dialog,"Please enter a variable name (or omit value)",
+                  'Search Error', JOptionPane::ERROR_MESSAGE)
+              else
+                @dialog.visible = false
+                @main.new_search(@instances[@instance_list.selected_index],clazz,name,value)
+              end
+            end
+          end
+        end
+      end
+      y_glue
+          button 'Cancel' do
+            on_click do
+            @dialog.visible = false
+            end
+          end
+      
+      y_glue
+    end
+
+    @main.center(@main_frame,@dialog)
+  end
+
+  def nil_if_empty(val)
+    if val
+      val.strip!
+      val = nil if val.empty?
+    end
+    val  
+  end
+
+  def value
+    @dialog  
+  end
+  
+  def show(clazz = nil)
+    @clazz.text = clazz if clazz
+    update_instance_list
+    @dialog.visible = true  
+  end
+  
+  def hide
+    @dialog.visible = false  
+  end
+
+  def instance_list
+    @instances = @main.instance_list
+    arr = Array.new(@instances.length) {|i| @instances[i].name}
+    arr.to_java
+  end
+  
+  def update_instance_list
+    new_list = instance_list
+    @instance_list.remove_all_items
+    new_list.each do |name|
+      @instance_list.add_item name
+    end
+  end
+
+
+end
+
+class AboutDialog
+  include Cheri::Swing
+  include Cheri::Html
+  def initialize(main)
+    swing[:auto]
+    undef p
+    @main = main
+    @main_frame = main.main_frame
+    @dialog = dialog @main_frame, 'About Cheri::JRuby::Explorer', true do |d|
+      size 600,450
+      default_close_operation :HIDE_ON_CLOSE
+      @view ||= scroll_pane do
+        align :LEFT
+        @html_view = editor_pane do
+          editable false
+          content_type 'text/html'
+          html { head { style 'body { font-family: sans-serif; }' }
+            body(:bgolor=>:white) { div(:align=>:center) {
+            h3 font(:color=>:blue) {'Cheri::JRuby::Explorer version 0.0.2'}
+            p 'Written by Bill Dortch ', esc('<cheri.project@gmail.com>'), br,
+              'Copyright &copy; 2007 William N Dortch'
+            p
+            table(:width=>'97%') {
+              tr{td(:align=>:left) {
+                p 'Cheri::JRuby::Explorer (CJX) demonstrates some of the features ',
+                'of the Cheri builder framework, and with any luck may prove useful ',
+                'in its own right.  CJX is built using the Cheri::Swing and Cheri::Html ',
+                'components of the framework.'
+                p
+                p 'This is a ',i('very'),' early Beta release, of both Cheri and CJX, so do ',
+                'expect bugs, crashes, and the like. The Cheri framework itself is pretty ',
+                'stable (though I refactor it weekly, it seems), but the CJX code is mostly ',
+                'untested beyond the confines of my desktop.'
+                p
+                p 'For more information, and to report bugs or suggest features, please visit ',
+                'the Cheri project pages on RubyForge, at ', a(b('http://cheri.rubyforge.org'), 
+                :href=>'http://cheri.rubyforge.org/'), ' and ', a(b('http://rubyforge.org/projects/cheri'),
+                :href=>'http://rubyforge.org/projects/cheri'), '.'
+              }}
+            }
+          }}}
+        end
+      end
+    end
+     @main.center(@main_frame,@dialog)
+  end
+  
+  def value
+    @dialog  
+  end
+  
+  def show
+    @dialog.visible = true  
+  end
+  
+  def hide
+    @dialog.visible = false  
+  end
+  
+end
+
+
+end #Explorer
+end #JRuby
+end #Cheri