shoes-swt 4.0.0.pre2

data/spec/swt_shoes/button_spec.rb

@@ -0,0 +1,101 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::Button do
+  include_context "swt app"
+
+  let(:text) { "TEXT" }
+  let(:dsl) { double('dsl', app: shoes_app, text: text, blk: block, element_width: 100, element_height: 200).as_null_object }
+  let(:block) { proc {} }
+  let(:real) { double('real', disposed?: false).as_null_object }
+
+  subject { Shoes::Swt::Button.new dsl, parent }
+
+  before :each do
+    allow(parent).to receive(:real)
+    allow(parent).to receive(:dsl){double(contents: [])}
+    allow(dsl).to receive(:width=)
+    allow(dsl).to receive(:height=)
+    allow(::Swt::Widgets::Button).to receive(:new) { real }
+  end
+
+  it_behaves_like "buttons"
+  it_behaves_like "movable element", 140, 300
+  it_behaves_like "removable native element"
+  it_behaves_like "updating visibility"
+
+  describe "#initialize" do
+    it "sets text on real element" do
+      expect(real).to receive(:set_text).with(text)
+      subject
+    end
+
+    describe 'size' do
+      let(:width) {50}
+      let(:height) {20}
+      let(:size) {double 'real size', x: width, y: height}
+      let(:real) {double('button real', size: size, pack: true).as_null_object}
+
+      before :each do
+        allow(parent).to receive(:real)
+        allow(parent).to receive(:dsl){double(contents: [])}
+        allow(::Swt::Widgets::Button).to receive(:new) { real }
+      end
+
+      def dsl_for_dimensions(width, height)
+        double('dsl', element_width: width, element_height: height, text: text).as_null_object
+      end
+
+      def with_dimensions_real_should_be(input_width,    input_height,
+                                         expected_width, expected_height)
+        dsl = dsl_for_dimensions input_width, input_height
+        expect(dsl).to receive(:element_width=).with(expected_width) unless input_width
+        expect(dsl).to receive(:element_height=).with(expected_height) unless input_height
+        Shoes::Swt::Button.new dsl, parent
+      end
+
+      it 'uses only real when width and height are not specified' do
+        with_dimensions_real_should_be nil, nil, real.size.x, real.size.y
+      end
+
+      it 'uses the real height and specified width if specified' do
+        with_dimensions_real_should_be 110, nil, 110, real.size.y
+      end
+
+      it 'uses the real width and specified height if specified' do
+        with_dimensions_real_should_be nil, 220, real.size.x, 220
+      end
+
+      it 'uses both specified values' do
+        with_dimensions_real_should_be 130, 220, 130, 220
+      end
+
+      it 'sends set_text to the real before packing it #452' do
+        expect(real).to receive(:set_text).ordered
+        expect(real).to receive(:pack).ordered
+        subject
+      end
+    end
+  end
+
+  describe 'eval block' do
+    it 'calls the block' do
+      expect(block).to receive(:call).with(dsl)
+      subject.eval_block block
+    end
+  end
+
+  describe 'click' do
+    it 'adds listener to real object' do
+      expect(real).to receive(:addSelectionListener)
+      subject.click block
+    end
+
+    it 'passes dsl object to block' do
+      expect(real).to receive(:addSelectionListener).once do |&blk|
+        expect(block).to receive(:call).with(dsl)
+        blk.call
+      end
+      subject.click block
+    end
+  end
+end

data/spec/swt_shoes/check_spec.rb

@@ -0,0 +1,28 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::Check do
+  include_context "swt app"
+
+  let(:text) { "TEXT" }
+  let(:dsl) { double('dsl',
+                     :app    => shoes_app, :visible? => true,
+                     :left   => 42, :top => 66,
+                     :element_left => 42, element_top: 66,
+                     :width  => 100, :width= => true,
+                     :element_width => 100, element_height: 200,
+                     :height => 200, :height= => true,
+                     blk:    block, contents: []) }
+  let(:block) { proc {} }
+  let(:real) { double('real').as_null_object }
+
+  subject { Shoes::Swt::Check.new dsl, parent }
+
+  before :each do
+    allow(::Swt::Widgets::Button).to receive(:new) { real }
+  end
+
+  it_behaves_like "buttons"
+  it_behaves_like "movable element"
+  it_behaves_like "selectable"
+  it_behaves_like "updating visibility"
+end

data/spec/swt_shoes/color_factory_spec.rb

@@ -0,0 +1,49 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::ColorFactory do
+  let(:blue)     { Shoes::COLORS[:blue] }
+  let(:gradient) { Shoes::Gradient.new(blue, blue) }
+
+  subject(:factory) { Shoes::Swt::ColorFactory.new }
+
+  it "turns Shoes::Color's into Shoes::Swt::Color's" do
+    expect(factory.create(blue)).to_not be_nil
+  end
+
+  it "hands back nil for nil" do
+    expect(factory.create(nil)).to be_nil
+  end
+
+  it "caches colors" do
+    first  = factory.create(blue)
+    second = factory.create(blue)
+
+    expect(first).to eql(second)
+  end
+
+  it "disposes of colors" do
+    color = factory.create(blue)
+    expect(color).to receive(:dispose)
+
+    factory.dispose
+  end
+
+  it "doesn't cache colors across dispose" do
+    color = factory.create(blue)
+    factory.dispose
+
+    new_color = factory.create(blue)
+    expect(color).to_not eql(new_color)
+  end
+
+  it "allows gradients through" do
+    expect(factory.create(gradient)).to_not be_nil
+  end
+
+  it "safely disposes of non-disposable elements" do
+    factory.create(gradient)
+    expect(gradient).to receive(:dispose).never
+
+    factory.dispose
+  end
+end

data/spec/swt_shoes/color_spec.rb

@@ -0,0 +1,67 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::Color do
+  subject(:color) { Shoes::Swt::Color.create(Shoes::COLORS[:salmon]) }
+
+  it_behaves_like "an swt pattern"
+
+  its(:class) { is_expected.to eq(Shoes::Swt::Color) }
+
+  describe "underlying SWT object" do
+    let(:real) { color.real }
+
+    it "is a native SWT color" do
+      expect(real.class).to eq(::Swt::Graphics::Color)
+    end
+
+    it "has same red value as Shoes color" do
+      expect(real.red).to eq(250)
+    end
+
+    it "has same green value as Shoes color" do
+      expect(real.green).to eq(128)
+    end
+
+    it "has same blue value as Shoes color" do
+      expect(real.blue).to eq(114)
+    end
+  end
+
+  describe "#apply_as_fill" do
+    let(:gc) { double("gc") }
+
+    it "sets background" do
+      allow(gc).to receive(:set_alpha)
+      expect(gc).to receive(:set_background).with(color.real)
+      color.apply_as_fill(gc)
+    end
+
+    it "sets alpha" do
+      allow(gc).to receive(:set_background)
+      expect(gc).to receive(:set_alpha)
+      color.apply_as_fill(gc, 10, 20, 100, 200)
+    end
+  end
+end
+
+describe Shoes::Swt::NullColor do
+  subject(:color) { Shoes::Swt::Color.create(nil) }
+
+  it { is_expected.to be_instance_of(Shoes::Swt::NullColor) }
+  its(:real) { is_expected.to be_nil }
+  its(:dsl) { is_expected.to be_nil }
+  its(:alpha) { is_expected.to be_nil }
+
+  describe "pattern interface" do
+    let(:gc) { double("graphics context") }
+
+    it "sends no messages in #apply_as_fill" do
+      color.apply_as_fill(gc)
+    end
+
+    it "sends no messages in #apply_as_stroke" do
+      color.apply_as_stroke(gc)
+    end
+  end
+end
+

data/spec/swt_shoes/common/painter_spec.rb

@@ -0,0 +1,49 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::Common::Painter do
+  let(:object) {double 'object', dsl: dsl}
+  let(:dsl) {double 'dsl', visible?: true, positioned?: true}
+  let(:event) {double 'paint event', gc: graphics_context}
+  let(:graphics_context) { double 'graphics_context',
+                                  set_antialias: nil, set_line_cap: nil,
+                                  set_transform: nil, setTransform: nil }
+  let(:transform) { double 'transform', disposed?: false }
+  subject {Shoes::Swt::Common::Painter.new object}
+
+  before do
+    allow(::Swt::Transform).to receive(:new) { transform }
+  end
+
+  describe '#paint_control' do
+    it 'should attempts to paint the object' do
+      expect(subject).to receive(:paint_object)
+      subject.paint_control event
+    end
+
+    it 'does paint the object if it is hidden' do
+      allow(dsl).to receive_messages visible?: false
+      expect(subject).not_to receive(:paint_object)
+      subject.paint_control event
+    end
+
+    it 'does not paint the object if it is not positioned' do
+      allow(dsl).to receive_messages positioned?: false
+      expect(subject).not_to receive(:paint_object)
+      subject.paint_control event
+    end
+
+  end
+
+  context "set_rotate" do
+    it "disposes of transform" do
+      expect(transform).to receive(:dispose)
+      expect(transform).to receive(:translate).at_least(:once)
+      expect(transform).to receive(:rotate).at_least(:once)
+
+      subject.set_rotate graphics_context, 0, 0, 0 do
+        #no-op
+      end
+    end
+  end
+
+end

data/spec/swt_shoes/common/remove_spec.rb

@@ -0,0 +1,53 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::Common::Remove do
+  let(:clazz)  {
+    Class.new do
+      include Shoes::Swt::Common::Remove
+
+      attr_reader :app, :real, :dsl
+
+      def initialize(app, dsl, real = nil)
+        @app = app
+        @dsl = dsl
+        @real = real
+      end
+    end
+  }
+
+  let(:app)  { double("app", clickable_elements: clickable_elements) }
+  let(:dsl)  { double("dsl") }
+  let(:clickable_elements) { [dsl] }
+
+  subject { clazz.new(app, dsl) }
+
+  before do
+    expect(app).to receive(:remove_paint_listener)
+    expect(app).to receive(:remove_listener).at_least(:once)
+  end
+
+  describe "remove" do
+    it "cleans up clickable element" do
+      subject.remove
+      expect(clickable_elements).to be_empty
+    end
+  end
+
+  describe "real disposal" do
+    let(:real) { double("real") }
+
+    subject { clazz.new(app, dsl, real) }
+
+    it "disposes of real if present" do
+      allow(real).to receive(:disposed?) { false }
+      expect(real).to receive(:dispose)
+      subject.remove
+    end
+
+    it "doesn't dispose if already done!" do
+      allow(real).to receive(:disposed?) { true }
+      expect(real).to_not receive(:dispose)
+      subject.remove
+    end
+  end
+end

data/spec/swt_shoes/configuration_spec.rb

@@ -0,0 +1,12 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Configuration do
+  context ":swt" do
+    describe "#backend" do
+      it "sets backend" do
+        expect(Shoes.configuration.backend).to eq(Shoes::Swt)
+      end
+    end
+
+  end
+end

data/spec/swt_shoes/dialog_spec.rb

@@ -0,0 +1,106 @@
+require 'swt_shoes/spec_helper'
+
+main_object = self
+
+describe Shoes::Swt::Dialog do
+
+  def double_message_box
+    create_double_message_box double(:mb, open: true, :message= => true)
+  end
+
+  def double_message_box_expecting_message(message)
+    double_dialog = double(:mb, open: true)
+    expect(double_dialog).to receive(:message=).with(message)
+    create_double_message_box double_dialog
+  end
+
+  def double_message_box_returning(return_value)
+    create_double_message_box double(:mb, :message= => true, open: return_value)
+  end
+
+  def create_double_message_box(double_dialog)
+    allow(::Swt::Widgets::Shell).to receive(:new)
+    allow(::Swt::Widgets::MessageBox).to receive_messages(new: double_dialog)
+  end
+
+  before :each do
+    @dialog = Shoes::Swt::Dialog.new
+  end
+
+  TEXT = 'some random text'
+
+  describe 'alert' do
+    it 'pops up a window containing a short message.' do
+      double_message_box_expecting_message TEXT
+      @dialog.alert TEXT
+    end
+
+    it 'returns nil' do
+      double_message_box
+      expect(@dialog.alert('Nothing')).to be_nil
+    end
+  end
+
+  describe 'confirm' do
+    it 'pops up a window containing a short message.' do
+      double_message_box_expecting_message TEXT
+      @dialog.confirm TEXT
+    end
+
+    it 'is true when YES was pressed' do
+      double_message_box_returning ::Swt::SWT::YES
+      expect(subject.confirm).to be_truthy
+    end
+
+    it 'is false when NO was pressed' do
+      double_message_box_returning ::Swt::SWT::NO
+      expect(subject.confirm).to be_falsey
+    end
+
+    it 'is false when an arbitary number is returned' do
+      double_message_box_returning 42
+      expect(subject.confirm).to be_falsey
+    end
+  end
+
+  describe 'dialog_chooser' do
+    it 'responds to it' do
+      expect(@dialog).to respond_to :dialog_chooser
+    end
+  end
+
+  describe 'ask' do
+    it 'responds to it' do
+      expect(@dialog).to respond_to :ask
+    end
+  end
+
+  describe 'ask_color' do
+    it 'responds to it' do
+      expect(@dialog).to respond_to :ask_color
+    end
+  end
+
+  describe 'on the main object' do
+    describe '#alert' do
+
+      it 'returns nil' do
+        double_message_box
+        expect(main_object.alert('Something')).to be_nil
+      end
+    end
+
+    describe '#confirm' do
+      it 'returns true when YES was clicked' do
+        double_message_box_returning ::Swt::SWT::YES
+        expect(main_object.confirm('1 + 1 = 2')).to be_truthy
+      end
+
+      it 'returns false when NO was clicked' do
+        double_message_box_returning ::Swt::SWT::NO
+        expect(main_object.confirm('1 + 1 = 3')).to be_falsey
+      end
+    end
+  end
+
+end