lustr-mxml 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,18 @@
+History.txt
+Manifest.txt
+README.txt
+Rakefile
+lib/lustr-mxml.rb
+lib/lustr-mxml/version.rb
+lib/lustr-mxml/_common.rb
+lib/lustr-mxml/button.rb
+lib/lustr-mxml/label.rb
+lib/lustr-mxml/divided_box.rb
+lib/lustr-mxml/list.rb
+lib/lustr-mxml/field.rb
+lib/lustr-mxml/text_area.rb
+lib/lustr-mxml/box.rb
+lib/lustr-mxml/app.rb
+scripts/txt2html
+setup.rb
+

data/README.txt

@@ -0,0 +1,6 @@
+Lustr is a Ruby DSL for GUI development. Lustr4MXML allows Lustr UIs to be
+displayed via Flex/MXML.
+
+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-mxml', 'version')
+
+AUTHOR = 'FIXME full name'  # can also be an array of Authors
+EMAIL = "FIXME email"
+DESCRIPTION = "description of gem"
+GEM_NAME = 'lustr-mxml' # 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-mxml"
+REV = nil # UNCOMMENT IF REQUIRED: File.read(".svn/entries")[/committed-rev="(d+)"/, 1] rescue nil
+VERS = Lustr4MXML::VERSION::STRING + (REV ? ".#{REV}" : "")
+CLEAN.include ['**/.*.sw?', '*.gem', '.config', '**/.DS_Store']
+RDOC_OPTS = ['--quiet', '--title', 'lustr-mxml 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-mxml.rb

@@ -0,0 +1,15 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+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-mxml')
+Dir[path+'/*.rb'].sort.each {|f| require f}

data/lib/lustr-mxml/_common.rb

@@ -0,0 +1,75 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+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 'builder'
+ 
+module Lustr4MXML
+	class GenerationContext < Builder::XmlMarkup
+		def initialize(name)
+			super()
+			@name=name
+			@namespaces={'xmlns:mx'=>'http://www.adobe.com/2006/mxml',
+									 'xmlns:Lustr'=>'gadgets.*'}
+			@script_needed=true
+		end
+
+		def to_s
+			self.target!
+		end
+
+		def build_gadget_ref(gadget)
+			self.Lustr gadget.builder.name.to_sym, :id=>gadget.name
+		end
+
+		def net_attrs(raw={})
+			result=raw.reject {|key, value| value==nil || (value.kind_of?(String) && value.size==0)}
+			
+			if @namespaces
+				result.merge!(@namespaces)
+				result.delete 'id'
+			end
+			
+			@namespaces=nil
+
+			return result
+		end
+
+		def descend(widget)
+			if @script_needed
+				self.mx :Script, 'source'=>'_'+@name+'.as'
+				@script_needed=false
+			end
+
+			widget.children.each do |child|
+				child.generate(self)
+			end
+		end
+	end
+
+	class Generator < Lustr::Generator
+		def create_context(name)
+			GenerationContext.new name
+		end
+	end
+end
+
+module Lustr
+	class XmlBasedWidget
+		def action(bus_message)
+			return "#{bus_message}(event)" if bus_message
+		end
+	end
+end
+

data/lib/lustr-mxml/app.rb

@@ -0,0 +1,38 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+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'
+ 
+module Lustr4MXML
+	class AppWidget < Lustr::XmlBasedWidget
+		def generate(xml)
+			attrs=xml.net_attrs 'applicationComplete'=>action(option(:on_init)),
+													'backgroundGradientColors'=>"[#ffffff, #c0c0c0]",
+													'width'=>option(:width),
+													'height'=>option(:height)
+
+			xml.mx :Application, attrs do
+				scripts=option(:scripts) || []
+
+				scripts.each do |script|
+					xml.mx :Script, 'source'=>script
+				end
+				
+				xml.descend(self)
+			end
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:app, Lustr4MXML::AppWidget))
+

data/lib/lustr-mxml/box.rb

@@ -0,0 +1,34 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+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'
+ 
+module Lustr4MXML
+	class BoxWidget < Lustr::XmlBasedWidget
+		def generate(xml)
+			direction=(option(:direction)==:horizontal ? 'horizontal' : 'vertical')
+
+			xml.mx :Box, xml.net_attrs('id'=>option(:name), 'direction'=>direction,
+																	'label'=>option(:label),
+																	'width'=>option(:width),
+																	'height'=>option(:height),
+																	'horizontalAlign'=>option(:horizontal_align),
+																	'verticalAlign'=>option(:vertical_align)) do
+				xml.descend(self)
+			end
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:box, Lustr4MXML::BoxWidget))
+

data/lib/lustr-mxml/button.rb

@@ -0,0 +1,29 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+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'
+ 
+module Lustr4MXML
+	class ButtonWidget < Lustr::XmlBasedWidget
+		def generate(xml)
+			xml.mx :Button, xml.net_attrs('id'=>option(:name), 'label'=>option(:text),
+												'click'=>action(option(:on_click)),
+												'enabled'=>option(:enabled)) do
+				xml.descend(self)
+			end
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:button, Lustr4MXML::ButtonWidget))
+

data/lib/lustr-mxml/divided_box.rb

@@ -0,0 +1,31 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+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'
+ 
+module Lustr4MXML
+	class DividedBoxWidget < Lustr::XmlBasedWidget
+		def generate(xml)
+			direction=(option(:direction)==:horizontal ? 'horizontal' : 'vertical')
+
+			xml.mx :DividedBox, xml.net_attrs('id'=>option(:name), 'direction'=>direction,
+														'width'=>option(:width),
+														'height'=>option(:height)) do
+				xml.descend(self)
+			end
+		end
+	end
+end
+ 
+Lustr.declare(Lustr::SimpleBuilder.new(:divided_box, Lustr4MXML::DividedBoxWidget))
+

data/lib/lustr-mxml/field.rb

@@ -0,0 +1,31 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+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'
+
+module Lustr4MXML
+	class FieldWidget < Lustr::XmlBasedWidget
+		def generate(xml)
+			xml.mx :TextInput, xml.net_attrs('id'=>option(:name),
+																				'width'=>option(:width),
+																				'height'=>option(:height),
+																				'displayAsPassword'=>option(:password),
+																				'change'=>action(option(:on_change))) do
+				xml.descend(self)
+			end
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:field, Lustr4MXML::FieldWidget))
+

data/lib/lustr-mxml/label.rb

@@ -0,0 +1,36 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+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'
+
+module Lustr4MXML
+	class LabelWidget < Lustr::XmlBasedWidget
+		def generate(xml)
+			xml.mx :Label, xml.net_attrs('id'=>option(:name), 'text'=>option(:text),
+																		'fontSize'=>option(:font_size),
+																		'fontWeight'=>fontWeight,
+																		'textAlign'=>option(:text_align),
+																		'selectable'=>true,
+																		'truncateToFit'=>true) do
+				xml.descend(self)
+			end
+		end
+
+		def fontWeight
+			return(option(:is_bold) ? 'bold' : 'normal')
+		end
+	end
+end
+
+Lustr.declare(Lustr::SimpleBuilder.new(:label, Lustr4MXML::LabelWidget))
+

data/lib/lustr-mxml/list.rb

@@ -0,0 +1,34 @@
+=begin
+This file is part of Lustr (http://rubyforge.org/projects/lustr).
+
+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'
+ 
+module Lustr4MXML
+	class ListWidget < Lustr::XmlBasedWidget
+		def generate(xml)
+			xml.mx :List, xml.net_attrs('id'=>option(:name), 'width'=>option(:width),
+											'height'=>option(:height),
+											'allowMultipleSelection'=>option(:allow_multiple_selection),
+											'doubleClick'=>action(option(:double_click)),
+											'doubleClickEnabled'=>option(:double_click_enabled),
+											'change'=>action(option(:on_click)),
+											'editable'=>option(:editable),
+											'wordWrap'=>true) do
+				xml.descend(self)
+			end
+		end
+	end
+end
+ 
+Lustr.declare(Lustr::SimpleBuilder.new(:list, Lustr4MXML::ListWidget))
+