shoes 3.0.1 → 4.0.0.pre1

data/spec/swt_shoes/text_block_painter_spec.rb

@@ -0,0 +1,221 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::TextBlockPainter do
+  include_context "swt app"
+
+  let(:opts) { {justify: true, leading: 10, underline: "single"} }
+  let(:gui) { double("gui", dispose: nil) }
+  let(:dsl) { double("dsl", app: shoes_app, gui: gui,
+                     text: text, cursor: nil,
+                     opts: opts, element_width: 200, element_height: 180,
+                     element_left: 0, element_top: 10, font: "font",
+                     font_size: 16, margin_left: 0, margin_top: 0,
+                     text_styles: text_styles, :hidden? => false).as_null_object
+            }
+
+  let(:fitted_layout) do
+    ::Swt::Font.stub(:new)       { font }
+    ::Swt::TextLayout.stub(:new) { text_layout }
+    ::Swt::TextStyle.stub(:new)  { style }
+
+    fitted = Shoes::Swt::FittedTextLayout.new(dsl, text, 200)
+    fitted.position_at(0, 10)
+  end
+
+  let(:text_layout) { double("text layout", text: text).as_null_object }
+
+  let(:event) { double("event").as_null_object }
+  let(:style) { double(:style).as_null_object }
+  let(:font)  { double(:font).as_null_object }
+
+  let(:blue) { Shoes::Color.new(0, 0, 255) }
+  let(:swt_blue) { Shoes::Swt::Color.new(blue).real}
+  let(:text_styles) {{}}
+  let(:text) {'hello world'}
+
+  subject { Shoes::Swt::TextBlockPainter.new(dsl) }
+
+  before :each do
+    ::Swt::TextStyle.stub(:new)  { style.as_null_object }
+
+    # Can't stub this in during initial let because of circular reference
+    # fitted_layouts -> dsl -> gui -> fitted_layouts...
+    gui.stub(fitted_layouts: [fitted_layout])
+  end
+
+  it "draws" do
+    expect(fitted_layout).to receive(:draw)
+    subject.paintControl(event)
+  end
+
+  it "sets justify" do
+    expect(text_layout).to receive(:justify=).with(opts[:justify])
+    subject.paintControl(event)
+  end
+
+  it "sets spacing" do
+    expect(text_layout).to receive(:spacing=).with(opts[:leading])
+    subject.paintControl(event)
+  end
+
+  it "sets alignment" do
+    expect(text_layout).to receive(:alignment=).with(anything)
+    subject.paintControl(event)
+  end
+
+  it "sets text styles" do
+    expect(text_layout).to receive(:set_style).with(anything, anything, anything).at_least(1).times
+    subject.paintControl(event)
+  end
+
+  context "rise option" do
+    it "sets default rise value to nil" do
+      expect(style).to receive(:rise=).with(nil)
+      subject.paintControl(event)
+    end
+
+    it "sets correct rise value" do
+      opts[:rise] = 10
+      expect(style).to receive(:rise=).with(10)
+
+      subject.paintControl(event)
+    end
+  end
+
+  context "underline option" do
+    it "sets default underline style to none" do
+      opts.delete(:underline)
+
+      expect(style).to receive(:underline=).with(false)
+      expect(style).to receive(:underlineStyle=).with(nil)
+
+      subject.paintControl(event)
+    end
+
+    it "sets correct underline style" do
+
+      expect(style).to receive(:underline=).with(true)
+      expect(style).to receive(:underlineStyle=).with(Shoes::Swt::TextStyleFactory::UNDERLINE_STYLES["single"])
+
+      subject.paintControl(event)
+    end
+
+    it "sets underline color" do
+      opts[:undercolor] = blue
+
+      expect(style).to receive(:underlineColor=).with(swt_blue)
+
+      subject.paintControl(event)
+    end
+
+    it "sets default underline color to nil" do
+      expect(style).to receive(:underlineColor=).with(nil)
+
+      subject.paintControl(event)
+    end
+  end
+
+  context "strikethrough option" do
+    it "sets default strikethrough to none" do
+      expect(style).to receive(:strikeout=).with(false)
+
+      subject.paintControl(event)
+    end
+
+    it "sets strikethrough" do
+      opts[:strikethrough] = "single"
+
+      expect(style).to receive(:strikeout=).with(true)
+
+      subject.paintControl(event)
+    end
+
+    it "sets strikethrough color" do
+      opts[:strikecolor] = blue
+
+      expect(style).to receive(:strikeoutColor=).with(swt_blue)
+
+      subject.paintControl(event)
+    end
+
+    it "sets default strikethrough color to nil" do
+      expect(style).to receive(:strikeoutColor=).with(nil)
+
+      subject.paintControl(event)
+    end
+  end
+
+  context "font styles" do
+    it "sets font style to bold" do
+      opts[:weight] = true
+      expect(::Swt::Font).to receive(:new).with(anything, anything, anything, ::Swt::SWT::BOLD)
+      subject.paintControl(event)
+    end
+
+    it "sets font style to italic" do
+      opts[:emphasis] = true
+      expect(::Swt::Font).to receive(:new).with(anything, anything, anything, ::Swt::SWT::ITALIC)
+      subject.paintControl(event)
+    end
+
+    it "sets font style to both bold and italic" do
+      opts[:weight] = true
+      opts[:emphasis] = true
+      expect(::Swt::Font).to receive(:new).with(anything, anything, anything, ::Swt::SWT::BOLD | ::Swt::SWT::ITALIC)
+
+      subject.paintControl(event)
+    end
+
+    it "sets font style to normal by default" do
+      expect(::Swt::Font).to receive(:new).with(anything, anything, anything, ::Swt::SWT::NORMAL)
+
+      subject.paintControl(event)
+    end
+
+  end
+
+  context "colors" do
+    let(:black) { Shoes::Swt::Color.new(Shoes::COLORS[:black]).real }
+    let(:salmon) { Shoes::Swt::Color.new(Shoes::COLORS[:salmon]).real }
+
+    describe "stroke" do
+      it "is black by default" do
+        expect(::Swt::TextStyle).to receive(:new).with(anything, black, anything)
+        subject.paintControl(event)
+      end
+
+      it "is set with opts[:stroke]" do
+        opts[:stroke] = Shoes::COLORS[:salmon]
+        expect(::Swt::TextStyle).to receive(:new).with(anything, salmon, anything)
+        subject.paintControl(event)
+      end
+    end
+
+    describe "fill" do
+      it "is nil by default" do
+        expect(::Swt::TextStyle).to receive(:new).with(anything, anything, nil)
+        subject.paintControl(event)
+      end
+
+      it "is set with opts[:fill]" do
+        opts[:fill] = Shoes::COLORS[:salmon]
+        expect(::Swt::TextStyle).to receive(:new).with(anything, anything, salmon)
+        subject.paintControl(event)
+      end
+    end
+  end
+
+  describe 'text_styles' do
+    # this text_styles relies a lot on the internal structure of TextBlock/Painter
+    # right now, which I'm not too fond of... :)
+    let(:text_styles) {[[0...text.length, [Shoes::Span.new([text], size: 50)]]]}
+    it 'sets the font size to 50' do
+      expect(::Swt::Font).to receive(:new).
+                             with(anything, anything, dsl.font_size, anything)
+      expect(::Swt::Font).to receive(:new).
+                             with(anything, anything, 50, anything)
+
+      subject.paintControl event
+    end
+  end
+end

data/spec/swt_shoes/text_block_spec.rb

@@ -0,0 +1,183 @@
+require 'swt_shoes/spec_helper'
+
+describe Shoes::Swt::TextBlock do
+  include_context "swt app"
+
+  let(:height) { 100 }
+  let(:width)  { 200 }
+  let(:margin) { 10 }
+  let(:dsl) { double("dsl", app: shoes_app,
+                     margin_left: 0, margin_right: 0,
+                     margin_top: 0, margin_bottom: 0).as_null_object }
+
+  subject { Shoes::Swt::TextBlock.new(dsl) }
+
+  it_behaves_like "paintable"
+  it_behaves_like "togglable"
+
+  # reported nil, caused trouble in simple-downloader.rb
+  it 'initially responds with empty fitted layouts' do
+    expect(subject.fitted_layouts).to be_empty
+  end
+
+  describe "bounds checking" do
+    it "delegates to fitted layout" do
+      layout = create_layout(0,0)
+      subject.fitted_layouts = [layout]
+      expect(layout).to receive(:in_bounds?)
+
+      subject.in_bounds?(1,1)
+    end
+  end
+
+  describe "contents alignment" do
+    let(:layout_width) { 100 }
+    let(:layout_height) { 200 }
+    let(:line_height) { 10 }
+    let(:layout) { create_layout(layout_width, layout_height) }
+    let(:fitter) { double("fitter") }
+    let(:fitted_layout) { double("fitted_layout", disposed?: false, layout: layout) }
+    let(:second_fitted_layout) { double("second_fitted_layout", disposed?: false, layout: layout) }
+    let(:current_position) { Shoes::Slot::CurrentPosition.new(0, 0) }
+
+    before(:each) do
+      ::Shoes::Swt::TextBlockFitter.stub(:new) { fitter }
+      fitter.stub(:fit_it_in).and_return([fitted_layout], [second_fitted_layout])
+      layout.stub(:line_metrics) { double("line_metrics", height: line_height)}
+    end
+
+    describe "with single layout" do
+      before(:each) do
+        dsl.stub(:absolute_left)   { 50 }
+        dsl.stub(:absolute_top)    { 0 }
+        dsl.stub(:absolute_bottom) { layout_height }
+        layout.stub(:line_count)   { 1 }
+      end
+
+      it "positions single line of text" do
+        expect(dsl).to receive(:absolute_right=).with(layout_width + 50)
+        expect(dsl).to receive(:absolute_bottom=).with(layout_height)
+        expect(dsl).to receive(:absolute_top=).with(layout_height - line_height)
+
+        subject.contents_alignment(current_position)
+      end
+
+      it "positions single line with margin" do
+        dsl.stub(margin_left: margin, margin_right: margin,
+                 margin_top: margin, margin_bottom: margin)
+
+        expect(dsl).to receive(:absolute_right=).with(layout_width + 50 + margin)
+        expect(dsl).to receive(:absolute_bottom=).with(layout_height + 2 * margin)
+        expect(dsl).to receive(:absolute_top=).with(layout_height - line_height)
+
+        subject.contents_alignment(current_position)
+      end
+
+      it "pushes to next line if ends in newline" do
+        layout.stub(:text) { "text\n" }
+
+        expect(dsl).to receive(:absolute_right=).with(50)
+        expect(dsl).to receive(:absolute_bottom=).with(layout_height)
+        expect(dsl).to receive(:absolute_top=).with(layout_height)
+
+        subject.contents_alignment(current_position)
+      end
+
+      it "disposes of prior layouts" do
+        subject.contents_alignment(current_position)
+        expect(fitted_layout).to receive(:dispose)
+
+        subject.contents_alignment(current_position)
+      end
+
+      it "should not dispose any layouts" do
+        expect(fitted_layout).not_to receive(:dispose)
+        expect(second_fitted_layout).not_to receive(:dispose)
+
+        subject.contents_alignment(current_position)
+      end
+
+      context "on the second call" do
+        before(:each) do
+          subject.contents_alignment(current_position)
+        end
+
+        it "should only dispose old fitted layout" do
+          expect(fitted_layout).to receive(:dispose)
+          expect(second_fitted_layout).not_to receive(:dispose)
+
+          subject.contents_alignment(current_position)
+        end
+
+        it "should dispose all layouts on clear" do
+          swt_app.stub(:remove_listener)
+
+          expect(fitted_layout).to receive(:dispose).at_least(1).times
+          expect(second_fitted_layout).to receive(:dispose).at_least(1).times
+
+          subject.contents_alignment(current_position)
+          subject.clear
+        end
+      end
+    end
+
+    describe "with two layouts" do
+      before(:each) do
+        dsl.stub(:parent) { double("dsl parent", absolute_left: 0) }
+        dsl.stub(:absolute_bottom) { layout_height }
+
+        current_position.next_line_start = 0
+
+        fitter.stub(:fit_it_in) {
+          [:unused_layout, double("fitted_layout", layout: layout)]
+        }
+      end
+
+      it "positions in two layouts" do
+        expect(dsl).to receive(:absolute_right=).with(layout_width)
+        expect(dsl).to receive(:absolute_bottom=).with(layout_height)
+        expect(dsl).to receive(:absolute_top=).with(layout_height - line_height)
+
+        subject.contents_alignment(current_position)
+      end
+
+      it "positions in two layouts with margins" do
+        dsl.stub(margin_left: margin, margin_right: margin,
+                 margin_top: margin, margin_bottom: margin)
+
+        expect(dsl).to receive(:absolute_right=).with(layout_width + margin)
+        expect(dsl).to receive(:absolute_bottom=).with(layout_height + 2 * margin)
+        expect(dsl).to receive(:absolute_top=).with(layout_height - line_height)
+
+        subject.contents_alignment(current_position)
+      end
+    end
+  end
+
+  context "links" do
+    let(:link)     { Shoes::Link.new(shoes_app, subject, ["link"])  }
+
+    before(:each) do
+      dsl.stub(:links) { [link] }
+      swt_app.stub(:remove_listener)
+    end
+
+    it "clears links" do
+      expect(link).to receive(:clear)
+      subject.clear
+    end
+
+    it "clears links on replace" do
+      expect(link).to receive(:clear)
+      subject.replace("text")
+    end
+  end
+
+  def create_layout(width, height, text="layout text")
+    bounds = double("bounds", height: height, width: width)
+    double("layout",
+           get_line_bounds: bounds, bounds: bounds,
+           spacing: 0, text: text).as_null_object
+  end
+
+end

data/static/PKGBUILD

@@ -0,0 +1,47 @@
+# Original contributor: Michael Fellinger <m.fellinger@gmail.com>
+# Updated by: 
+# Tapio Saarinen <admin@bitlong.org>
+# Steve Klabnik <steve@steveklabnik.com>
+# Michael Fellinger <m.fellinger@gmail.com>
+
+pkgname=shoes
+pkgver=3.0
+pkgrel=1
+pkgdesc="The best little GUI toolkit, for Ruby."
+url="http://shoesrb.com/"
+arch=(i686 x86_64)
+license="MIT"
+depends=('ruby' 'giflib' 'gtk2' 'curl' 'portaudio' 'tk')
+makedepends=('git')
+conflicts=('shoes')
+replaces=('shoes')
+provides=('shoes')
+backup=()
+install=
+source=()
+md5sums=()
+
+_pkgname=shoes
+_gitrepo="git://github.com/shoes/shoes.git"
+
+build() {
+  cd $srcdir
+
+  msg "Getting source..."
+  if [ -d $_pkgname ]; then
+    cd $_pkgname
+    git pull || return 1
+  else
+    git clone $_gitrepo $_pkgname || return 1
+    cd $_pkgname
+  fi
+
+  rake
+  cd dist
+
+  mkdir -p $pkgdir/usr/{bin,lib/shoes}
+  cp -r * $pkgdir/usr/lib/shoes/
+
+  ln -s /usr/lib/shoes/shoes $pkgdir/usr/bin/shoes
+	install -D -m644 $srcdir/$_pkgname/COPYING $pkgdir/usr/share/licenses/$pkgname/LICENSE
+}