sweetgui 0.0.3

data/examples/nodetree.rb

@@ -0,0 +1,96 @@
+#   The contents of this file are subject to the Mozilla Public License
+#   Version 1.1 (the "License"); you may not use this file except in
+#   compliance with the License. You may obtain a copy of the License at
+#   http://www.mozilla.org/MPL/
+#
+#   Software distributed under the License is distributed on an "AS IS"
+#   basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+#   License for the specific language governing rights and limitations
+#   under the License.
+#
+#   The Initial Developer of the Original Code is Johannes Rudolph.
+#   Portions created by the Initial Developer are Copyright (C) 2006
+#   the Initial Developer. All Rights Reserved.
+#
+#   Contributor(s):
+#      Johannes Rudolph <johannes_rudolph@gmail.com>
+
+require 'java'
+require 'rubygems'
+require_gem 'sweetgui'
+
+class Method
+  def name
+    method_field=Java::JavaClass.for_name('org.jruby.RubyMethod').declared_field('methodName')
+    method_field.accessible=true
+    Java::java_to_ruby(method_field.value(Java::ruby_to_java(self)))
+  end
+end
+
+module JRubyUtils
+  class NodeHelper
+    include_class 'org.jruby.internal.runtime.methods.DefaultMethod'
+    include_class 'org.jruby.internal.runtime.methods.EvaluateCallable'
+    def NodeHelper.get_method_field
+      return @method_field if @method_field
+      @method_field=Java::JavaClass.for_name('org.jruby.RubyMethod').declared_field('method')
+      @method_field.accessible=true
+      @method_field
+    end
+    def NodeHelper.get_nodes(method)
+      jmethod=Java.ruby_to_java method
+      callable=Java.java_to_ruby(get_method_field.value(jmethod))
+      return callable.getBody if callable.is_a? DefaultMethod
+      return callable.getNode if callable.is_a? EvaluateCallable
+    end
+    def NodeHelper.get_source_line(file,line)
+      @files={} unless @files
+
+      unless @files[file]
+        @files[file]=File.open file do |f|
+          f.readlines
+        end
+      end
+      lines=@files[file]
+      lines[line].strip
+    end
+    def NodeHelper.treeify(method)
+      nodes=get_nodes method
+      SWT::Builder.go do
+        shell method.name do
+          tree=tree (:verticalFill=>true,:horizontalFill=>true) do
+            column "Node"
+            column "File"
+            column "Line"
+            column "Code"
+            child method.name do
+              object {nodes}
+              child do
+                @node=container do
+                  label {|x|x.getNodeNamePublic}
+                  cell(1) {|x|x.getPosition.getFile}
+                  cell(2) do |x|
+                    pos=x.getPosition
+                    "#{pos.getStartLine}-#{pos.getEndLine}"
+                  end
+                  cell(3) do |node|
+                    pos=node.getPosition
+                    NodeHelper.get_source_line(pos.getFile,pos.getStartLine)
+                  end
+                  children(lambda{|x|x.childNodes}) do
+                    link {@node}
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+end
+
+def wurst
+  puts "Hello World!"
+end
+JRubyUtils::NodeHelper.treeify JRubyUtils::NodeHelper.method('wurst')

data/icons/readme.txt

@@ -0,0 +1,2 @@
+mini icons - famfamfam.com
+Contact: mjames@gmail.com

data/lib/apps/objecttree.rb

@@ -0,0 +1,141 @@
+#   The contents of this file are subject to the Mozilla Public License
+#   Version 1.1 (the "License"); you may not use this file except in
+#   compliance with the License. You may obtain a copy of the License at
+#   http://www.mozilla.org/MPL/
+#
+#   Software distributed under the License is distributed on an "AS IS"
+#   basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
+#   License for the specific language governing rights and limitations
+#   under the License.
+#
+#   The Initial Developer of the Original Code is Johannes Rudolph.
+#   Portions created by the Initial Developer are Copyright (C) 2006
+#   the Initial Developer. All Rights Reserved.
+#
+#   Contributor(s):
+#      Johannes Rudolph <johannes_rudolph@gmail.com>
+
+#require '../swt'
+
+class Method
+  def name
+    method_field=Java::JavaClass.for_name('org.jruby.RubyMethod').declared_field('methodName')
+    method_field.accessible=true
+    Java::java_to_ruby(method_field.value(Java::ruby_to_java(self)))
+  end
+end
+
+class ::SWT::TreeBuilder
+  include_class 'org.eclipse.swt.graphics.Image'
+  include_class 'org.eclipse.swt.widgets.Display'
+  def i(o)
+    @@image_cache={} unless defined? @@image_cache
+    return @@image_cache[o] if @@image_cache.has_key? o
+    res=File.expand_path(File.dirname(__FILE__)+"/../../"+o)
+    Image.new Display.getCurrent,res
+  end
+end
+
+module JRubyUtils
+  class RubyObjectBrowser
+    class << self
+      def object_tree(object)
+        SWT::Builder.go do
+          shell "JRuby Object Viewer by JR - visit http://virtual-void.net" do
+            tree(:verticalFill=>true,:horizontalFill=>true) do
+              child do
+                object {object}
+                @object=container do
+                  label {|o|o.inspect}
+                  image {i("icons/arrow_right.gif")}
+
+                  # instance variables node
+                  child "instance_variables" do
+                    image {i("icons/flag_blue.gif")}
+                    children(lambda{|o|o.instance_variables.sort.collect! {|x|{:object=>o,:name=>x}  }}) do
+                      image {i("icons/flag_blue.gif")}
+                      label {|v|v[:name]}
+                      child do
+                        object {|ar|
+                          #puts "Object: #{ar}"
+                          #name.last.instance_variable_get name
+                          ar[:object].instance_variable_get ar[:name]
+                        }
+                        label {|o|o.to_s}
+                        link {@object}
+                      end
+                    end
+                  end
+
+                  # methods node
+                  child "methods" do
+                    image {i("icons/page_text.gif")}
+                    children(lambda {|o|
+                               o.methods.sort.collect! do |name|
+                                 {:method=>name,:object=>o}
+                               end
+                             }) do
+                      image {i("icons/page_text.gif")}
+                      label {|h|h[:method]}
+
+                      # execute method if it has no arguments
+                      conditional lambda{|h|
+                        (-1..0).include? h[:object].method(h[:method]).arity
+                      } do
+                        child do
+                          object do |h|
+                            begin
+                              o=h[:object].dup
+                              o.send(h[:method])
+                            rescue Exception=>exc
+                              exc
+                            end
+                          end
+                          link {@object}
+                        end
+                      end
+                    end
+                  end
+
+                  # class node
+                  child "class" do
+                    object {|o|o.class}
+                    @class=container do
+                      image {i("icons/icon_component.gif")}
+
+                      child do
+                        image {i("icons/icon_component.gif")}
+                        label{|c|c.to_s}
+                        child "class_variables" do
+                          image{i("icons/flag_red.gif")}
+                          children(lambda{|c|c.class_variables.sort.collect! { |x|{:class=>c,:name=>x}}}) do
+                            image{i("icons/flag_red.gif")}
+                            label{|horizontalFill|h[:name]}
+                            child do
+                              image{i("icons/arrow_right.gif")}
+                              label{|horizontalFill|h[:class].class_eval h[:name]}
+                            end
+                          end
+                        end
+                        link{@object}
+                      end
+
+                      # superclass node if appropriate
+                      conditional lambda{|c|c.superclass}do
+                        child "superclass" do
+                          image {i("icons/icon_component.gif")}
+                          object{|c|c.superclass}
+                          link{@class}
+                        end
+                      end
+                    end
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+end