limelight 0.0.1-java

data/productions/examples/tutorials/tutorial_1/styles.rb

@@ -0,0 +1,27 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+backdrop {
+  background_color "black"
+  width "100%"
+  height "100%"
+  horizontal_alignment "center"
+  vertical_alignment "center"
+}
+
+sample {
+  width 100
+  height 100
+  margin 5
+  horizontal_alignment "center"
+  vertical_alignment "center"
+  font_size "18"
+  font_style "bold"
+  text_color "white"
+}
+
+selection {
+  width 300
+  height 300
+  background_color "gray" 
+}

data/productions/stage_composer/init.rb

@@ -0,0 +1,10 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+$: << File.expand_path(File.dirname(__FILE__) + "/lib")
+require 'limelight/composer/controller'
+
+
+production = Limelight::Production["Stage Composer"]
+controller = Limelight::Composer::Controller.new(production)
+production.controller = controller

data/productions/stage_composer/inspector/players/inspector.rb

@@ -0,0 +1,80 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/../../lib/init")
+require 'limelight/composer/lethargy'
+
+module Inspector
+  
+  def self.extended(block)
+    puts "Inspector extended"
+    block.production.inspector = block
+  end
+  
+  def new
+  end
+  
+  def open
+    # result = scene.stage.choose_file(:title => "Open Limelight Scene", :description => "Limelight Scene", :directory => @directory) { |file| Limelight::Util.is_limelight_scene?(file) }
+    # result = "/Users/micahmartin/Projects/limelight/trunk/examples/sandbox/click_me"
+    result = "Y:\\Projects\\limelight\\trunk\\examples\\sandbox\\click_me"
+    if result
+      if Limelight::Util.is_limelight_production?(File.dirname(result))
+        load_scene(File.dirname(result), File.basename(result))
+      else
+        load_scene(result, ".")
+      end
+      
+      devitalize(viewer_stage.current_scene)
+      prop_tree.build_tree(viewer_stage.current_scene)
+    end
+  end
+  
+  def inspect_prop(prop)
+    style_table.populate(prop.style)
+    prop_tree.highlight(prop)
+  end
+  
+  def style_table
+    return find('style_table')
+  end
+  
+  def prop_tree
+    return find('prop_tree')
+  end
+  
+  private #################################################
+  
+  def load_scene(root, scene_path)
+    producer = Limelight::Producer.new(root, theater, scene.production)
+    scene_path = scene_path
+    
+    producer.open_scene(scene_path, viewer_stage)
+  end
+  
+  def theater
+    return scene.production.theater
+  end
+  
+  def viewer_stage
+    return theater['viewer']
+  end
+  
+  def devitalize(prop)
+    lethargize(prop)
+    prop.include_player(Limelight::Composer::Lethargy)
+    prop.children.each { |child| devitalize(child) }
+  end
+  
+  def lethargize(prop)
+    class << prop
+      Limelight::Prop::EVENTS.each do |sym| 
+        begin 
+          remove_method sym 
+        rescue Exception
+        end
+      end
+    end
+  end
+  
+end

data/productions/stage_composer/inspector/players/prop_row.rb

@@ -0,0 +1,12 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+module PropRow
+  
+  attr_accessor :prop
+  
+  def mouse_clicked(e)
+    production.controller.prop_selected(@prop)
+  end
+  
+end

data/productions/stage_composer/inspector/players/prop_tree.rb

@@ -0,0 +1,33 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+module PropTree
+  
+  def build_tree(scene)
+    self.remove_all
+    add_prop_row(scene, 0)
+    update
+  end
+  
+  def highlight(prop)
+    children.each do |child|
+      if child.prop == prop
+        child.style.background_color = "#B8C6F2"
+        child.update
+      elsif(child.style.background_color != "white")
+        child.style.background_color = "white"
+        child.update
+      end
+    end
+  end
+  
+  private #################################################
+  
+  def add_prop_row(prop, indent)
+    add Limelight::Prop.new(:name => "prop_row", :left_padding => indent.to_s, :prop => prop, :text => "#{prop.name}:#{prop.id}")
+    prop.children.each do |child|
+      add_prop_row(child, indent + 10)
+    end
+  end
+  
+end

data/productions/stage_composer/inspector/players/style_table.rb

@@ -0,0 +1,12 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+module StyleTable
+  
+  def populate(style)
+    find_by_name('style_value').each do |style_value|
+      style_value.populate(style)
+    end
+  end
+  
+end

data/productions/stage_composer/inspector/players/style_value.rb

@@ -0,0 +1,16 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+module StyleValue
+  
+  attr_accessor :descriptor
+  
+  def populate(style)
+    self.text = style.get(@descriptor)
+  end
+  
+  def focus_lost(e)
+    production.controller.value_changed(@descriptor, text)
+  end
+  
+end

data/productions/stage_composer/inspector/props.rb

@@ -0,0 +1,19 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+__ :name => "inspector"
+tool_bar do
+  tool :text => "New", :on_mouse_clicked => "scene.new"
+  tool :text => "Open", :on_mouse_clicked => "scene.open"
+end
+prop_tree :id => "prop_tree" do
+
+end
+style_table :id => 'style_table'  do
+  Java::limelight.ui.Style::STYLE_LIST.each do |style|
+    style_row do
+      style_name :text => style.name
+      style_value :players => "text_box", :descriptor => style
+    end
+  end
+end

data/productions/stage_composer/inspector/styles.rb

@@ -0,0 +1,71 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+inspector {
+  width "100%"
+  height "100%"
+  background_color "#e8e8e8"
+}
+
+tool_bar {
+  width "100%"
+  height :auto
+  border_color "#8e8e8e"
+  bottom_border_width 1
+}
+
+tool {
+  width 40
+  height 40
+  border_color "#8e8e8e"
+  right_border_width 1
+  text_color :black
+  font_face :arial
+  font_size 12
+  horizontal_alignment :center
+  vertical_alignment :center
+  hover {
+    border_color "#0638CC"
+    border_width "2"
+    background_color "#B8C6F2"
+    text_color "black"
+    font_style "bold"
+  }
+}
+
+prop_tree {
+ width "100%"
+ height "200" 
+ background_color :white
+}
+
+prop_row {
+  width "100%"
+  height "15"
+  background_color :white
+}
+
+style_table {
+  width "100%"
+  height "68%"
+}
+
+style_row {
+  width "100%"
+  height "28"
+}
+
+style_name {
+  width "50%"
+  height "100%"
+  vertical_alignment :center
+  horizontal_alignment :right
+  horizontal_scrollbar :off
+  vertical_scrollbar :off
+}
+
+style_value {
+  width "50%"
+  vertical_alignment :center
+  horizontal_alignment :left
+}

data/productions/stage_composer/lib/init.rb

@@ -0,0 +1,5 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+$: << File.expand_path(File.dirname(__FILE__))
+require 'limelight/composer/controller'

data/productions/stage_composer/lib/limelight/composer/controller.rb

@@ -0,0 +1,51 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+module Limelight
+  module Composer
+    
+    class Controller
+      
+      def initialize(production)
+        @production = production
+      end
+      
+      def prop_selected(prop)
+        puts "Prop clicked: #{prop}"
+        highlight(prop)
+        @production.inspector.inspect_prop(prop)
+      end
+      
+      def value_changed(descriptor, value)
+        @highlighted_prop.style.put(descriptor, value)
+        @highlighted_prop.update
+      end
+      
+      private #############################################
+      
+      def highlight(prop)
+        if @highlighted_prop
+          @highlighted_prop.after_painting(nil)
+          @highlighted_prop.update
+        end
+        @highlighted_prop = prop
+        prop.after_painting { |pen| paint_hightlight(prop, pen) }
+        prop.update
+      end
+      
+      def paint_hightlight(prop, pen)
+        area = prop.area
+        
+        pen.color = "#B8C6F2DD"
+        pen.fill_rectangle(0, 0, area.width, area.height)
+        
+        pen.color = "#0638CCDD"
+        pen.width = 5
+        pen.draw_rectangle(0, 0, area.width - 1, area.height - 1)
+      end
+      
+      
+    end
+    
+  end
+end

data/productions/stage_composer/lib/limelight/composer/lethargy.rb

@@ -0,0 +1,24 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+module Limelight
+  module Composer
+    
+    module Lethargy
+      
+      def self.null_event(*args)
+        args.each do |sym|
+          define_method(sym) { |event| } # do nothing
+        end
+      end
+      
+      null_event *Limelight::Prop::EVENTS
+      
+      def mouse_clicked(e)
+        scene.production.controller.prop_selected(self)
+      end
+      
+    end
+    
+  end
+end

data/productions/stage_composer/production.rb

@@ -0,0 +1,6 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+name "Stage Composer"
+attribute :controller
+attribute :inspector

data/productions/stage_composer/stages.rb

@@ -0,0 +1,15 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+stage "inspector" do
+  default_scene "inspector"
+  title "Limelight Composer Inspector"
+  location [0, 0]
+  size [300, 800]
+end
+
+stage "viewer" do
+  title "Limelight Composer Viewer"
+  location [350, 0]
+  size [800, 800]
+end

data/productions/startup/props.rb

@@ -0,0 +1,5 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+__ :horizontal_alignment => "center", :vertical_alignment => "center", :width => "100%", :height => "100%"
+title :text => "Welcome to Limelight", :font_size => "72"

data/spec/casting_director_spec.rb

@@ -0,0 +1,94 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/spec_helper")
+require 'limelight/casting_director'
+require 'limelight/prop_builder'
+
+describe Limelight::CastingDirector do
+
+  before(:each) do
+    @scene = Limelight::Scene.new(:casting_director => make_mock("casting_director", :fill_cast => nil), :path => "scene_path")
+    @loader = make_mock("loader")
+    @casting_director = Limelight::CastingDirector.new(@loader)
+  end
+  
+  def make_root(options={})
+    @root = Limelight::Prop.new(options)
+    @scene << @root
+  end
+  
+  it "should include default players" do
+    prepare_fake_player("root")
+    make_root(:name => "root")
+    
+    @root.should_receive(:include_player).with("root module")
+    
+    @casting_director.fill_cast(@root)
+  end
+  
+  def prepare_fake_player(name)
+    @loader.should_receive(:exists?).with("scene_path/players/#{name}.rb").and_return(true)
+    @loader.should_receive(:path_to).with("scene_path/players/#{name}.rb").and_return("scene_path/players/#{name}.rb")
+    Kernel.should_receive(:load).with("scene_path/players/#{name}.rb").and_return(true)
+    Object.should_receive(:const_defined?).with(name.camalized).and_return(true)
+    Object.should_receive(:const_get).with(name.camalized).and_return("#{name} module")
+  end
+  
+  it "should not load any default players if they don't exist" do
+    make_root(:name => "root")
+    @loader.stub!(:exists?).and_return false
+    
+    @root.should_not_receive(:include_player)
+    @child.should_not_receive(:include_player)
+    @grandchild.should_not_receive(:include_player)
+    
+    @casting_director.fill_cast(@root)
+  end
+  
+  it "should not load any players if they don't define a module with the right name" do
+    make_root(:name => "root")
+    @loader.stub!(:exists?).and_return(true)
+    @loader.stub!(:path_to).and_return("blah")
+    Kernel.stub!(:load).and_return(true)
+    Object.stub!(:const_defined?).and_return(false)
+    
+    @root.should_not_receive(:include_player)
+    
+    @casting_director.fill_cast(@root)
+  end
+  
+  it "should load builtin players" do
+    @loader.stub!(:exists?).and_return(false)
+    make_root(:name => "root", :players => "button")
+    
+    @casting_director.fill_cast(@root)
+    
+    @root.is_a?(Limelight::Players::Button).should == true
+  end
+  
+  it "should load custom players" do
+    @loader.stub!(:exists?).and_return(false)
+    prepare_fake_player("custom_player")
+    make_root(:name => "root", :players => "custom_player")
+    
+    @root.should_receive(:include_player).with("custom_player module")
+    
+    @casting_director.fill_cast(@root)
+  end
+  
+  it "should handle multiple players" do
+    @loader.stub!(:exists?).and_return(false)
+    prepare_fake_player("root")
+    prepare_fake_player("custom_player")
+    
+    make_root(:name => "root", :players => "custom_player button")
+    
+    @root.should_receive(:include_player).with("root module")
+    @root.should_receive(:include_player).with("custom_player module")
+    @root.should_receive(:include_player).with(Limelight::Players::Button)
+    
+    @casting_director.fill_cast(@root)
+  end
+
+end

data/spec/commands_spec.rb

@@ -0,0 +1,33 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/spec_helper")
+require 'limelight/commands'
+require 'limelight/producer'
+
+describe Limelight::Commands do
+
+  before(:each) do
+  end
+
+  it "should open a production" do
+    args = ["open", "production_name"]
+    Limelight::Producer.should_receive(:open).with("production_name")
+    Limelight::Commands.run(args)
+  end
+
+  it "should open the default production" do
+    args = ["open"]
+    Limelight::Producer.should_receive(:open).with(Limelight::DEFAULT_PRODUCTION)
+    Limelight::Commands.run(args)
+  end
+
+  it "should pack a production" do
+    mock_packer = make_mock("packer")
+    Java::limelight::io::Packer.should_receive(:new).and_return(mock_packer)
+    mock_packer.should_receive(:pack).with("production_to_pack")
+
+    Limelight::Commands.run(["pack", "production_to_pack"])
+  end
+
+end

data/spec/file_chooser_spec.rb

@@ -0,0 +1,64 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/spec_helper")
+require 'limelight/file_chooser'
+
+describe Limelight::FileChooser do
+
+  before(:each) do
+  end
+  
+  it "should create a Java file chooser" do
+    chooser = Limelight::FileChooser.new()
+    chooser.chooser.class.should == javax.swing.JFileChooser
+  end
+  
+  it "should set current directory if provided" do
+    chooser = Limelight::FileChooser.new(:directory => "/tmp")
+    
+    chooser.chooser.getCurrentDirectory().getAbsolutePath().should == "/tmp"
+  end
+  
+  it "should have a title if provided" do
+    chooser = Limelight::FileChooser.new(:title => "Some Title")
+    
+    chooser.chooser.getDialogTitle().should == "Some Title"
+  end
+  
+  it "should have a filter if provided" do
+    chooser = Limelight::FileChooser.new(:description => "Description") { "filter" }
+    
+    filter = chooser.chooser.getFileFilter()
+    filter.description.should == "Description"
+    filter.filter.call.should == "filter"
+  end
+  
+  it "should return nil if no file was selected" do
+    chooser = Limelight::FileChooser.new(:parent => "parent")
+    chooser.chooser.should_receive(:showOpenDialog).with("parent").and_return(javax.swing.JFileChooser::CANCEL_OPTION)
+    
+    chooser.choose_file.should == nil
+  end
+  
+  it "should return the absolute path if a file was selected" do    
+    chooser = Limelight::FileChooser.new(:parent => "parent")
+    chooser.chooser.should_receive(:showOpenDialog).with("parent").and_return(javax.swing.JFileChooser::APPROVE_OPTION)
+    selected_file = make_mock("selected file", :absolute_path => "selected file's absolute path")
+    chooser.chooser.should_receive(:getSelectedFile).and_return(selected_file)
+
+    chooser.choose_file.should == "selected file's absolute path"
+  end
+  
+  it "should default to files and directories but allow directory only and file only" do
+    chooser = Limelight::FileChooser.new
+    chooser.chooser.file_selection_mode.should == javax.swing.JFileChooser::FILES_AND_DIRECTORIES
+        
+    chooser = Limelight::FileChooser.new(:directories_only => true)
+    chooser.chooser.file_selection_mode.should == javax.swing.JFileChooser::DIRECTORIES_ONLY
+    
+    chooser = Limelight::FileChooser.new(:files_only => true)
+    chooser.chooser.file_selection_mode.should == javax.swing.JFileChooser::FILES_ONLY
+  end
+
+end

data/spec/file_filter_spec.rb

@@ -0,0 +1,29 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/spec_helper")
+require 'limelight/file_filter'
+
+describe Limelight::FileFilter do
+
+  before(:each) do
+  end
+  
+  it "should have a description and a block" do
+    filter = Limelight::FileFilter.new("Some Description") { "blah" }
+    
+    filter.description.should == "Some Description"
+    filter.filter.call.should == "blah"
+  end
+  
+  it "should have implement java interface" do
+    filter = Limelight::FileFilter.new("Some Description") { |file| file.name == "good" }
+    
+    filter.getDescription().should == "Some Description"
+    bad_file = make_mock("file", :name => "bad")
+    good_file = make_mock("file", :name => "good")
+    filter.accept(bad_file).should == false
+    filter.accept(good_file).should == true
+  end
+
+end

data/spec/java_util_spec.rb

@@ -0,0 +1,53 @@
+#- Copyright 2008 8th Light, Inc.
+#- Limelight and all included source files are distributed under terms of the GNU LGPL.
+
+require File.expand_path(File.dirname(__FILE__) + "/spec_helper")
+require 'limelight/java_util'
+
+describe Class do
+  
+  class TestClass
+    attr_accessor :foo, :bar
+    getters :foo, :bar
+    setters :foo, :bar
+  end
+  
+  before(:each) do
+    @obj = TestClass.new
+  end
+  
+  it "should have java setters" do
+    @obj.setFoo("foo value")
+    @obj.setBar("bar value")
+    
+    @obj.foo.should == "foo value"
+    @obj.bar.should == "bar value"
+  end
+  
+  it "should have java getters" do
+    @obj.foo = "foo value"
+    @obj.bar = "bar value"
+    
+    @obj.getFoo().should == "foo value"
+    @obj.getBar().should == "bar value"
+  end
+
+end
+
+describe String do
+  
+  it "should convert into camel case" do
+    "class_name".camalized.should == "ClassName"
+    "once_upon_a_time".camalized.should == "OnceUponATime"
+    "AbC_eFg_hiJ".camalized.should == "AbcEfgHij"
+    "with spaces".camalized.should == "WithSpaces"
+  end
+  
+  it "should convert into camel case" do
+    "class_name".camalized(:lower).should == "className"
+    "once_upon_a_time".camalized(:lower).should == "onceUponATime"
+    "AbC_eFg_hiJ".camalized(:lower).should == "abcEfgHij"
+    "with spaces".camalized(:lower).should == "withSpaces"
+  end
+  
+end