lustr-wx 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-wx.rb
+lib/lustr-wx/version.rb
+lib/lustr-wx/field.rb
+lib/lustr-wx/label.rb
+lib/lustr-wx/list.rb
+lib/lustr-wx/button.rb
+lib/lustr-wx/box.rb
+lib/lustr-wx/app.rb
+lib/lustr-wx/text_area.rb
+lib/lustr-wx/divided_box.rb
+scripts/txt2html
+setup.rb
+

data/README.txt

@@ -0,0 +1,6 @@
+Lustr is a Ruby DSL for GUI development. Lustr4Wx allows Lustr UIs to be
+displayed via Ruby's wxRuby (using wxWidgets).
+
+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-wx', 'version')
+
+AUTHOR = 'FIXME full name'  # can also be an array of Authors
+EMAIL = "FIXME email"
+DESCRIPTION = "description of gem"
+GEM_NAME = 'lustr-wx' # 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-wx"
+REV = nil # UNCOMMENT IF REQUIRED: File.read(".svn/entries")[/committed-rev="(d+)"/, 1] rescue nil
+VERS = Lustr4Wx::VERSION::STRING + (REV ? ".#{REV}" : "")
+CLEAN.include ['**/.*.sw?', '*.gem', '.config', '**/.DS_Store']
+RDOC_OPTS = ['--quiet', '--title', 'lustr-wx 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'], ['wxruby2-preview', '>=0.0.40']]     # 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-wx.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-wx')
+Dir[path+'/**'].sort.each {|f| require f if !File.directory?(f) && /.*\.rb$/.match(f) }

data/lib/lustr-wx/app.rb

@@ -0,0 +1,49 @@
+=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 'rubygems'
+require "wx" # wxruby2
+
+module Lustr4Wx
+	class Frame < Wx::Frame
+		include Lustr::WidgetBase
+	end
+
+	class App < Wx::App
+		include Lustr::WidgetBase
+		attr_reader :frame
+		attr_accessor :init_block
+		
+		def on_init
+			self.controller=option(:controller) if option(:controller)
+			@frame=Lustr4Wx::Frame.new(nil, -1, option(:title))
+			frame.set_client_size(Wx::Size.new(option(:width), option(:height)))
+			init_block.call if init_block
+			frame.show
+		end
+
+		def resolve
+			return frame
+		end
+
+		def show
+			main_loop
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:app, Lustr4Wx::App))
+

data/lib/lustr-wx/box.rb

@@ -0,0 +1,78 @@
+=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 'rubygems'
+require "wx" # wxruby2
+ include Wx 
+ 
+module Lustr4Wx
+	class Box < Wx::Panel
+		include Lustr::WidgetBase
+		
+		def init_options(options)
+			super
+			
+			self.label=option(:label)
+			sizerStyle=(option(:direction)==:vertical ? Wx::VERTICAL : Wx::HORIZONTAL)
+			
+			set_sizer(Wx::BoxSizer.new(sizerStyle))
+		end
+
+		def is_vertical?
+			option(:direction)==:vertical
+		end
+		
+		def <<(child)
+			super
+
+			axis=nil
+			off_axis=nil
+
+			if is_vertical?
+				axis=child.option(:height)
+				off_axis=child.option(:width)
+			else
+				axis=child.option(:width)
+				off_axis=child.option(:height)
+			end
+
+			flags=0
+
+			if off_axis=='100%'
+				flags |= Wx::GROW
+			end
+
+			if option(:align)==:center
+				flags |= (is_vertical? ? Wx::ALIGN_CENTER_HORIZONTAL : Wx::ALIGN_CENTER_VERTICAL)
+			else
+				flags |= (is_vertical? ? Wx::ALIGN_LEFT : Wx::ALIGN_TOP)
+			end
+			
+			get_sizer.add(child.resolve, axis.to_i, flags, 2)
+		end
+	end
+
+	class BoxBuilder < Lustr::BuilderBase
+		def build(parent_widget)
+			w=Lustr4Wx::Box.new(parent_widget, -1)
+
+			return w
+		end
+	end
+end
+
+Lustr.declare(Lustr4Wx::BoxBuilder.new(:box))
+

data/lib/lustr-wx/button.rb

@@ -0,0 +1,42 @@
+=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 'rubygems'
+require "wx" # wxruby2
+ include Wx 
+ 
+module Lustr4Wx
+	class Button < Wx::Button
+		include Lustr::WidgetBase
+
+		def init_options(options)
+			super
+			
+			evt_button(get_id()) { |event| raise_event(option(:on_click), event) } if option(:on_click)
+			set_label(option(:text))			
+		end
+	end
+
+	class ButtonBuilder < Lustr::BuilderBase
+		def build(parent_widget)
+			button=Lustr4Wx::Button.new(parent_widget, -1, '')
+
+			return button
+		end
+	end
+end
+
+Lustr.declare(Lustr4Wx::ButtonBuilder.new(:button))

data/lib/lustr-wx/divided_box.rb

@@ -0,0 +1,53 @@
+=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 'rubygems'
+require "wx" # wxruby2
+ include Wx 
+ 
+module Lustr4Wx
+	class DividedBox < Wx::SplitterWindow
+		include Lustr::WidgetBase
+		
+		def init_options(options)
+			super
+			
+			@direction=option(:direction)
+			self.label=option(:label)
+		end
+		
+		def <<(child)
+			super
+
+			if children.size==2
+				if @direction==:vertical
+					split_horizontally(children[0].resolve, children[1].resolve)
+				else
+					split_vertically(children[0].resolve, children[1].resolve)
+				end
+			end
+		end
+	end
+
+	class DividedBoxBuilder < Lustr::BuilderBase
+		def build(parent_widget)
+			Lustr4Wx::DividedBox.new(parent_widget, -1)
+		end
+	end
+end
+
+Lustr.declare(Lustr4Wx::DividedBoxBuilder.new(:divided_box))
+

data/lib/lustr-wx/field.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 'rubygems'
+require "wx" # wxruby2
+ include Wx 
+ 
+module Lustr4Wx
+	class Field < Wx::TextCtrl
+		include Lustr::WidgetBase
+		
+		def text=(value)
+			set_value (value ? value : '')
+		end
+
+		def text
+			return get_value
+		end
+
+		def init_options(options)
+			super
+
+			text=option(:text)
+			evt_text(get_id()) { |e| raise_event(option(:on_change), e) } if option(:on_change)
+		end
+	end
+
+	class FieldBuilder < Lustr::BuilderBase
+		def build(parent_widget)
+			field=Lustr4Wx::Field.new(parent_widget, -1)
+
+			return field
+		end
+	end
+end
+
+Lustr.declare(Lustr4Wx::FieldBuilder.new(:field))
+

data/lib/lustr-wx/label.rb

@@ -0,0 +1,50 @@
+=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 'rubygems'
+require "wx" # wxruby2
+ include Wx 
+ 
+module Lustr4Wx
+	class Label < Wx::StaticText
+		include Lustr::WidgetBase
+		
+		def text=(value)
+			set_label value
+		end
+
+		def text
+			return get_label
+		end
+
+		def init_options(options)
+			super
+
+			self.text=option(:text)
+		end
+	end
+
+	class LabelBuilder < Lustr::BuilderBase
+		def build(parent_widget)
+			result=Lustr4Wx::Label.new(parent_widget, -1, '')
+			
+			return result
+		end
+	end
+end
+
+Lustr.declare(Lustr4Wx::LabelBuilder.new(:label))
+