lustr-jruby 0.1.0

data/History.txt

@@ -0,0 +1,4 @@
++++ 0.1.0 2007-05-23
+
++ 1 major enhancement:
+  + Initial release

data/Manifest.txt

@@ -0,0 +1,17 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/lustr-jruby.rb
+lib/lustr-jruby/version.rb
+lib/lustr-jruby/button.rb
+lib/lustr-jruby/box.rb
+lib/lustr-jruby/app.rb
+lib/lustr-jruby/field.rb
+lib/lustr-jruby/label.rb
+lib/lustr-jruby/list.rb
+lib/lustr-jruby/divided_box.rb
+lib/lustr-jruby/_common.rb
+scripts/txt2html
+setup.rb
+

data/README.txt

@@ -0,0 +1,5 @@
+Lustr is a Ruby DSL for GUI development. Lustr4JRuby allows Lustr UIs to be
+displayed via JRuby/Swing.
+
+More details on Lustr can be found at {Lustr's home page}[http://www.codecorps.org/moinmoin/index.cgi/Lustr]
+or on the {RubyForge}[http://rubyforge.org/projects/lustr] site.

data/Rakefile

@@ -0,0 +1,93 @@
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+require 'rake/testtask'
+require 'rake/packagetask'
+require 'rake/gempackagetask'
+require 'rake/rdoctask'
+require 'rake/contrib/rubyforgepublisher'
+require 'fileutils'
+require 'hoe'
+include FileUtils
+require File.join(File.dirname(__FILE__), 'lib', 'lustr-jruby', 'version')
+
+AUTHOR = 'Makr Murphy'  # can also be an array of Authors
+EMAIL = "mmurphy@municorps.org"
+DESCRIPTION = "Lustr support for JRuby/Swing"
+GEM_NAME = 'lustr-jruby' # what ppl will type to install your gem
+RUBYFORGE_PROJECT = 'lustr' # The unix name for your project
+HOMEPATH = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+DOWNLOAD_PATH = "http://rubyforge.org/projects/#{RUBYFORGE_PROJECT}"
+
+NAME = "lustr-jruby"
+REV = nil # UNCOMMENT IF REQUIRED: File.read(".svn/entries")[/committed-rev="(d+)"/, 1] rescue nil
+VERS = Lustr4JRuby::VERSION::STRING + (REV ? ".#{REV}" : "")
+CLEAN.include ['**/.*.sw?', '*.gem', '.config', '**/.DS_Store']
+RDOC_OPTS = ['--quiet', '--title', 'lustr-jruby documentation',
+    "--opname", "index.html",
+    "--line-numbers", 
+    "--main", "README",
+    "--inline-source"]
+
+class Hoe
+  def extra_deps 
+    @extra_deps.reject { |x| Array(x).first == 'hoe' } 
+  end 
+end
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+hoe = Hoe.new(GEM_NAME, VERS) do |p|
+  p.author = AUTHOR 
+  p.description = DESCRIPTION
+  p.email = EMAIL
+  p.summary = DESCRIPTION
+  p.url = HOMEPATH
+  p.rubyforge_name = RUBYFORGE_PROJECT if RUBYFORGE_PROJECT
+  p.test_globs = ["test/**/test_*.rb"]
+  p.clean_globs = CLEAN  #An array of file patterns to delete on clean.
+  
+  # == Optional
+  p.changes = p.paragraphs_of("History.txt", 0..1).join("\n\n")
+  p.extra_deps = [['lustr-core', '>=0.1']]    # An array of rubygem dependencies [name, version], e.g. [ ['active_support', '>= 1.3.1'] ]
+  #p.spec_extras = {}    # A hash of extra values to set in the gemspec.
+end
+
+
+desc 'Generate website files'
+task :website_generate do
+  Dir['website/**/*.txt'].each do |txt|
+    sh %{ ruby scripts/txt2html #{txt} > #{txt.gsub(/txt$/,'html')} }
+  end
+end
+
+desc 'Upload website files to rubyforge'
+task :website_upload do
+  config = YAML.load(File.read(File.expand_path("~/.rubyforge/user-config.yml")))
+  host = "#{config["username"]}@rubyforge.org"
+  remote_dir = "/var/www/gforge-projects/#{RUBYFORGE_PROJECT}/"
+  # remote_dir = "/var/www/gforge-projects/#{RUBYFORGE_PROJECT}/#{GEM_NAME}"
+  local_dir = 'website'
+  sh %{rsync -av #{local_dir}/ #{host}:#{remote_dir}}
+end
+
+desc 'Generate and upload website files'
+task :website => [:website_generate, :website_upload]
+
+desc 'Release the website and new gem version'
+task :deploy => [:check_version, :website, :release]
+
+desc 'Runs tasks website_generate and install_gem as a local deployment of the gem'
+task :local_deploy => [:website_generate, :install_gem]
+
+task :check_version do
+  unless ENV['VERSION']
+    puts 'Must pass a VERSION=x.y.z release version'
+    exit
+  end
+  unless ENV['VERSION'] == VERS
+    puts "Please update your version.rb to match the release version, currently #{VERS}"
+    exit
+  end
+end
+

data/lib/lustr-jruby.rb

@@ -0,0 +1,17 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr is free software; you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License.
+
+Lustr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+details. This file is included in the Ruby gem as License.txt.
+=end
+
+path=File::join(File::dirname(__FILE__), 'lustr-jruby')
+Dir[path+'/*.rb'].sort.each {|f| require f}

data/lib/lustr-jruby/_common.rb

@@ -0,0 +1,48 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr is free software; you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License.
+
+Lustr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+details. This file is included in the Ruby gem as License.txt.
+=end
+
+require 'lustr'
+require 'java'
+
+module Lustr4JRuby
+	class BlockActionListener < java.awt.event.ActionListener
+		def initialize(&block)
+			@block=block
+		end
+
+		def actionPerformed(event)
+			@block.call(event)
+		end
+	end
+
+	class SimpleDocumentListener < javax.swing.event.DocumentListener
+		def initialize(&block)
+			@on_change_block=block
+		end
+ 
+    def insertUpdate(e)
+      @on_change_block.call(:insert, e)
+    end
+ 
+    def removeUpdate(e)
+      @on_change_block.call(:remove, e)
+    end
+ 
+    def changedUpdate(e)
+      @on_change_block.call(:change, e)
+    end
+	end
+end
+

data/lib/lustr-jruby/app.rb

@@ -0,0 +1,51 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr is free software; you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License.
+
+Lustr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+details. This file is included in the Ruby gem as License.txt.
+=end
+
+require 'lustr'
+require 'java'
+
+module Lustr4JRuby
+	class App < java.lang.Runnable
+		include Lustr::WidgetBase
+
+		def init_options(options)
+			super
+			
+			self.controller=option(:controller) if option(:controller)
+			@frame=javax.swing.JFrame.new option(:title)
+			@panel=javax.swing.JPanel.new
+			@panel.layout=javax.swing.BoxLayout.new(@panel, javax.swing.BoxLayout::Y_AXIS)
+			@frame.add(@panel)
+			@frame.set_size option(:width), option(:height)
+			@frame.set_default_close_operation javax.swing.JFrame::EXIT_ON_CLOSE
+		end
+
+		def <<(c)
+			super
+			@panel.add(c.resolve)
+		end
+
+		def render
+			javax.swing.SwingUtilities.invokeLater(self)
+		end
+
+		def show
+			@frame.visible=true
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:app, Lustr4JRuby::App))
+

data/lib/lustr-jruby/box.rb

@@ -0,0 +1,37 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr is free software; you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License.
+
+Lustr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+details. This file is included in the Ruby gem as License.txt.
+=end
+
+require 'lustr'
+require 'java'
+
+module Lustr4JRuby
+	class Box < javax.swing.Box
+		include Lustr::WidgetBase
+		def <<(child)
+			super
+			add(child)
+		end
+	end
+
+	class BoxBuilder < Lustr::BuilderBase
+		def build(parent_widget)
+			direction=(options[:direction]==:vertical ? javax.swing.BoxLayout::Y_AXIS : javax.swing.BoxLayout::X_AXIS)
+			Box.new(direction)
+		end
+	end
+end
+
+Lustr.declare(Lustr4JRuby::BoxBuilder.new(:box))
+

data/lib/lustr-jruby/button.rb

@@ -0,0 +1,33 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr is free software; you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License.
+
+Lustr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+details. This file is included in the Ruby gem as License.txt.
+=end
+
+require 'lustr'
+require 'java'
+
+module Lustr4JRuby
+	class Button < javax.swing.JButton
+		include Lustr::WidgetBase
+
+		def init_options(options)
+			super
+
+			self.text=option(:text)
+			add_action_listener BlockActionListener.new { raise_event(option(:on_click)) } 
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:button, Lustr4JRuby::Button))
+

data/lib/lustr-jruby/divided_box.rb

@@ -0,0 +1,41 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr is free software; you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License.
+
+Lustr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+details. This file is included in the Ruby gem as License.txt.
+=end
+
+require 'lustr'
+require 'java'
+
+module Lustr4JRuby
+	class DividedBoxWidget < javax.swing.JSplitPane
+		include Lustr::WidgetBase
+
+		def init_options(options)
+			super
+
+			self.orientation=(option(:direction)==:vertical ? JSplitPane::VERTICAL_SPLIT : JSplitPane::HORIZONTAL_SPLIT)
+		end
+		
+		def <<(child)
+			super
+
+			if children.size==2
+				self.left_component=children[0].resolve
+				self.right_component=children[1].resolve
+			end
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:divided_box, Lustr4JRuby::DividedBoxWidget))
+

data/lib/lustr-jruby/field.rb

@@ -0,0 +1,36 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr is free software; you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License.
+
+Lustr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+details. This file is included in the Ruby gem as License.txt.
+=end
+
+require 'lustr'
+require 'java'
+
+module Lustr4JRuby
+	class Field < javax.swing.JTextField
+		include Lustr::WidgetBase
+
+		def init_options(options)
+			super
+			
+			document.add_document_listener SimpleDocumentListener.new { raise_event(option(:on_change)) }
+		end
+
+		def text=(text)
+			self.set_text text
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:field, Lustr4JRuby::Field))
+

data/lib/lustr-jruby/label.rb

@@ -0,0 +1,32 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr is free software; you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License.
+
+Lustr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+details. This file is included in the Ruby gem as License.txt.
+=end
+
+require 'lustr'
+require 'java'
+
+module Lustr4JRuby
+	class Label < javax.swing.JLabel
+		include Lustr::WidgetBase
+
+		def init_options(options)
+			super
+
+			self.text=option(:text)
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:label, Lustr4JRuby::Label))
+

data/lib/lustr-jruby/list.rb

@@ -0,0 +1,31 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+Copyright (c) 2007 Mark L. Murphy.
+
+Lustr is free software; you can redistribute it and/or modify it under the
+terms of the GNU General Public License as published by the Free Software
+Foundation; either version 2 of the License.
+
+Lustr is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+details. This file is included in the Ruby gem as License.txt.
+=end
+
+require 'lustr'
+require 'java'
+
+module Lustr4JRuby
+	class ListWidget < javax.swing.JScrollPane
+		include Lustr::WidgetBase
+
+		def initialize
+			@list=JList.new
+			super(@list)
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:list, Lustr4JRuby::ListWidget))
+