purple_shoes 0.0.101

data/README.md

@@ -0,0 +1,56 @@
+Purple Shoes
+==========
+
+Porting [Green Shoes](https://github.com/ashbb/green_shoes) with **JRuby** and **SWT**. 
+
+Install JRuby and Purple Shoes for Windows
+-----------------------------------------
+
+- download and install [JRuby 1.6.7 Windows Executable](http://jruby.org/download)
+- jruby --1.9 -S gem install purple_shoes
+
+The [swt](http://rubygems.org/gems/swt) gem will be installed automatically.
+
+Install JRuby and Purple Shoes for Linux and OS X
+-----------------------------------------------
+
+- install [rvm](http://beginrescueend.com/)
+- rvm install jruby
+- gem install purple_shoes
+
+Look at the command line help
+-----------------------------
+
+```
+jruby --1.9 -S pshoes -h
+```
+
+<pre>
+Usage: pshoes (options or app.rb)
+  -m, -men     Open the built-in English manual.
+  -mjp         Open the built-in Japanese manual.
+  -v           Display the version info.
+  -h           Show this message.
+</pre>
+
+**Note**: If you set an environment variable like this: `set JRUBY_OPTS=--1.9`, you can do just only `pshoes -h`.
+
+
+Note to OSX Users
+-----------------
+
+You'll need to pass an extra argument to JRuby's JVM for SWT to work on OSX.  Your command line should look like this:
+
+```
+jruby -J-XstartOnFirstThread --1.9 sample2.rb
+```
+
+
+Open the built-in manual
+-----------------------
+
+```
+jruby --1.9 -S pshoes -m
+```
+
+![snapshot](https://github.com/ashbb/purple_shoes/raw/master/manual.png)

data/VERSION

@@ -0,0 +1 @@
+0.0.101

data/bin/pshoes

@@ -0,0 +1,23 @@
+#!/usr/bin/env ruby
+require File.dirname(__FILE__) + '/../lib/purple_shoes'
+
+arg = ARGV[0]
+path = File.expand_path(arg.gsub(/\\/, "/")) if arg
+ARGV[0] = path
+
+case arg
+when '-m', '-men'
+  Shoes.show_manual
+when '-mjp'
+  Shoes.show_manual 'Japanese'
+when '-h', nil
+  puts "Usage: pshoes (options or app.rb)
+  -m, -men     Open the built-in English manual.
+  -mjp         Open the built-in Japanese manual.
+  -v           Display the version info.
+  -h           Show this message."
+when '-v'
+  puts IO.read File.join(DIR, '../VERSION')
+else
+  load path
+end

data/bin/pshoes.bat

@@ -0,0 +1,2 @@
+@ECHO OFF
+@pshoes %1

data/lib/plugins/video.rb

@@ -0,0 +1,88 @@
+# Original code was written by pjfitzgibbons (Peter Fitzgibbons) in Brown Shoes
+# Edited a little bit for Purple Shoes by ashbb
+
+require File.join(DIR, '../static/sound_jars/tritonus_share.jar')
+require File.join(DIR, '../static/sound_jars/mp3spi1.9.5.jar')
+require File.join(DIR, '../static/sound_jars/jl1.0.1.jar')
+require File.join(DIR, '../static/sound_jars/jogg-0.0.7.jar')
+require File.join(DIR, '../static/sound_jars/jorbis-0.0.15.jar')
+require File.join(DIR, '../static/sound_jars/vorbisspi1.0.3.jar')
+
+class Shoes
+  class Video
+    JFile = java.io.File
+    import java.io.BufferedInputStream
+    import javax.sound.sampled
+    import java.io.IOException
+
+    BufferSize = 4096
+
+    def initialize args
+      @initials = args
+      args.each do |k, v|
+        instance_variable_set "@#{k}", v
+      end
+      Video.class_eval do
+        attr_accessor *args.keys
+      end
+    end
+
+    def play
+      Thread.new do
+        audio_input_stream = AudioSystem.getAudioInputStream JFile.new(@path)
+        audio_format = audio_input_stream.getFormat
+        rawplay *decode_input_stream(audio_format, audio_input_stream)
+        audio_input_stream.close
+      end
+    end
+
+    def decode_input_stream audio_format, audio_input_stream
+      case audio_format.encoding
+        when Java::JavazoomSpiVorbisSampledFile::VorbisEncoding, Java::JavazoomSpiMpegSampledFile::MpegEncoding
+          decoded_format = AudioFormat.new(AudioFormat::Encoding::PCM_SIGNED, audio_format.getSampleRate(), 16,
+            audio_format.getChannels(), audio_format.getChannels() * 2, audio_format.getSampleRate(), false)
+          decoded_audio_input_stream = AudioSystem.getAudioInputStream(decoded_format, audio_input_stream)
+          return decoded_format, decoded_audio_input_stream
+        else
+          return audio_format, audio_input_stream
+      end
+    end
+
+    def rawplay(decoded_audio_format, decoded_audio_input_stream)
+      sampled_data = Java::byte[BufferSize].new
+      line = getLine(decoded_audio_format)
+      if line != nil
+        line.start()
+        bytes_read = 0, bytes_written = 0
+        while bytes_read != -1
+          bytes_read = decoded_audio_input_stream.read(sampled_data, 0, sampled_data.length)
+          if bytes_read != -1
+            bytes_written = line.write(sampled_data, 0, bytes_read)
+          end
+        end
+        line.drain()
+        line.stop()
+        line.close()
+        decoded_audio_input_stream.close()
+      end
+    end
+
+    def getLine(audioFormat)
+      res = nil
+      info = DataLine::Info.new(SourceDataLine.java_class, audioFormat)
+      res = AudioSystem.getLine(info)
+      res.open(audioFormat)
+      res
+    end
+  end
+end
+
+class Shoes
+  class App
+    def video file
+      args = {}
+      args[:real], args[:app], args[:path] = nil, self, file
+      Video.new args
+    end
+  end
+end

data/lib/purple_shoes.rb

@@ -0,0 +1,51 @@
+require 'tmpdir'
+require 'pathname'
+require 'java'
+require 'swt'
+
+STDOUT.sync = true
+
+Types = module Shoes; self end
+
+module Shoes
+  DIR = Pathname.new(__FILE__).realpath.dirname.to_s
+  SHOES_VERSION = IO.read(File.join(DIR, '../VERSION')).chomp
+  BASIC_ATTRIBUTES_DEFAULT = {left: 0, top: 0, width: 0, height: 0, angle: 0, curve: 0}
+  SLOT_ATTRIBUTES_DEFAULT = {left: nil, top: nil, width: 1.0, height: 0}
+  
+  KEY_NAMES = {}
+  %w[DEL ESC ALT SHIFT CTRL ARROW_UP ARROW_DOWN ARROW_LEFT ARROW_RIGHT 
+    PAGE_UP PAGE_DOWN HOME END INSERT 
+    F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 F13 F14 F15].each{|k| KEY_NAMES[eval("Swt::SWT::#{k}")] = k}
+  KEY_NAMES[Swt::SWT::CR] = "\n"
+  COLORS = {}
+end
+
+module Swt
+  include_package 'org.eclipse.swt'
+  include_package 'org.eclipse.swt.layout'
+  include_package 'org.eclipse.swt.widgets'
+  include_package 'org.eclipse.swt.graphics'
+  include_package 'org.eclipse.swt.events'
+end
+
+class Object
+  remove_const :Shoes
+end
+
+require_relative 'shoes/ruby'
+require_relative 'shoes/helper_methods'
+require_relative 'shoes/colors'
+require_relative 'shoes/basic'
+require_relative 'shoes/main'
+require_relative 'shoes/app'
+require_relative 'shoes/anim'
+require_relative 'shoes/slot'
+require_relative 'shoes/text'
+require_relative 'shoes/widget'
+require_relative 'shoes/url'
+require_relative 'shoes/style'
+require_relative 'shoes/download'
+require_relative 'shoes/manual'
+
+require_relative 'plugins/video'

data/lib/shoes/anim.rb

@@ -0,0 +1,47 @@
+class Shoes
+  class Anim
+    def initialize cs, n=100, repaint=true, &blk
+      @cs, @n, @repaint, @i, @blk = cs, n, repaint, 0, blk
+    end
+    
+    def run
+      if continue? 
+        @blk[@i = pause? ? @i : @i+1]
+        if @cs.isDisposed
+          stop
+          return
+        elsif @repaint
+          @cs.redraw
+        end
+        Shoes.display.timerExec @n, self
+      end
+    end
+    
+    def stop
+      @stop = true
+    end
+
+    def continue?
+      !@stop
+    end
+
+    def pause
+      @pause = !@pause
+    end
+
+    def pause?
+      @pause
+    end
+  end
+
+  class Timer
+    def initialize app, n=1000, &blk
+      @app, @n, @blk = app, n, blk
+    end
+
+    def run
+      @blk.call
+      @app.flush
+    end
+  end
+end

data/lib/shoes/app.rb

@@ -0,0 +1,688 @@
+class Shoes
+  class App
+    include Mod2
+    
+    def initialize args={}
+      args.each do |k, v|
+        instance_variable_set "@#{k}", v
+      end
+      App.class_eval do
+        attr_accessor *(args.keys - [:width, :height, :title])
+      end
+      init_app_vars
+      @top_slot, @cslot = nil, self
+    end
+    
+    attr_accessor :cslot, :top_slot, :contents, :mmcs, :mscs, :order, :mouse_pos, :hided
+    attr_writer :mouse_button
+    attr_reader :location
+
+    def visit url
+      if url =~ /^(http|https):\/\//
+        system "start #{url}"
+      else
+        $urls.each{|k, v| clear{init_app_vars; @location = url; v.call self, $1} if k =~ url}
+      end
+    end
+    
+    def stack args={}, &blk
+      args[:app] = self
+      Stack.new slot_attributes(args), &blk
+    end
+    
+    def flow args={}, &blk
+      args[:app] = self
+      Flow.new slot_attributes(args), &blk
+    end
+    
+    def clear &blk
+      @top_slot.clear &blk
+      aflush
+    end
+
+    def click &blk
+      if blk
+        app = self
+        ln = Swt::Listener.new
+        class << ln; self end.
+        instance_eval do
+          define_method :handleEvent do |e|
+            blk[*app.mouse]
+          end
+        end
+        @cs.addListener Swt::SWT::MouseDown, ln unless @cs.isDisposed
+      end
+    end
+    
+    def textblock klass, font_size, *msg
+      args = msg.last.class == Hash ? msg.pop : {}
+      args = basic_attributes args
+      args[:markup] = msg.map(&:to_s).join
+
+      styles = get_styles msg
+      args[:styles] = styles unless styles.empty?
+
+      args[:size] ||= font_size
+      args[:font] ||= (@font_family or 'sans')
+      args[:stroke] ||= black
+      args[:rotate] ||= rotate
+      
+      unless args[:left].zero? and args[:top].zero?
+        args[:nocontrol], args[:width] = true, width
+        layout_control = false
+      else
+        layout_control = true
+      end
+
+      args[:real] = (args[:create_real] or !layout_control) ? :textblock : false
+      args[:app] = self
+      
+      klass.new(args).tap do |s|
+        unless s.real and layout_control
+          tl = Swt::TextLayout.new Shoes.display
+          s.real = tl
+          pl = Swt::PaintListener.new
+          s.pl = pl
+          class << pl; self end.
+          instance_eval do
+            define_method :paintControl do |e|
+              gc = e.gc
+              s.dps << gc
+              tl.setText s.markup
+              s.app.set_styles s, args
+              tl.setWidth s.width if s.width > 0
+              unless s.hided
+                Shoes.set_rotate gc, *s.rotate do
+                  tl.draw gc, s.left, s.top
+                end
+              end
+            end
+          end
+          @cs.addPaintListener pl unless @cs.isDisposed
+        end
+      end
+    end
+
+    def banner *msg; textblock Banner, 48, *msg; end
+    def title *msg; textblock Title, 34, *msg; end
+    def subtitle *msg; textblock Subtitle, 26, *msg; end
+    def tagline *msg; textblock Tagline, 18, *msg; end
+    def caption *msg; textblock Caption, 14, *msg; end
+    def para *msg; textblock Para, 12, *msg; end
+    def inscription *msg; textblock Para, 10, *msg; end
+    
+    def image name, args={}, &blk
+      args = basic_attributes args
+      args[:rotate] ||= rotate
+      img = Swt::Image.new Shoes.display, name
+      args[:full_width], args[:full_height] = img.getImageData.width, img.getImageData.height
+      args[:real], args[:app] = img, self
+      
+      Image.new(args).tap do |s|
+        pl = Swt::PaintListener.new
+        s.pl = pl
+        class << pl; self end.
+        instance_eval do
+          define_method :paintControl do |e|
+            gc = e.gc
+            s.dps << gc
+            unless s.hided
+              Shoes.set_rotate e.gc, *s.rotate do
+                if s.initials[:width].zero? and s.initials[:height].zero?
+                  gc.drawImage img, s.left, s.top
+                else
+                  s.width = s.full_width if s.width.zero?
+                  s.height = s.full_height if s.height.zero?
+                  gc.drawImage img, 0, 0, s.full_width, s.full_height, s.left, s.top, s.width, s.height
+                end
+              end
+            end
+          end
+        end
+        @cs.addPaintListener pl unless @cs.isDisposed
+        clickable s, &blk
+      end
+    end
+
+    def button name, args={}
+      args = basic_attributes args
+      b = Swt::Button.new @cs, Swt::SWT::NULL
+      b.setText name
+      b.setLocation args[:left], args[:top]
+      if args[:width] > 0 and args[:height] > 0
+        b.setSize args[:width], args[:height]
+      else
+        b.pack
+      end
+      args[:real], args[:text], args[:app] = b, name, self
+      Button.new(args).tap do |s|
+        b.addSelectionListener do |e|
+          yield s
+        end if block_given?
+      end
+    end
+
+    def radio args={}, &blk
+      args = basic_attributes args
+      args[:block] = blk
+      b = Swt::Button.new @cs, Swt::SWT::RADIO
+      b.setLocation args[:left], args[:top]
+      if args[:width] > 0 and args[:height] > 0
+        b.setSize args[:width], args[:height]
+      else
+        b.pack
+      end
+      args[:real], args[:app] = b, self
+      Radio.new(args).tap do |s|
+        b.addSelectionListener do |e|
+          blk[s] if b.getSelection
+        end if blk
+      end
+    end
+    
+    def edit_text attrs
+      klass, w, h, style, blk, attrs = attrs
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      txt = attrs.first unless attrs.empty?
+      args = basic_attributes args
+      args[:width] = w if args[:width].zero?
+      args[:height] = h if args[:height].zero?
+      
+      el = Swt::Text.new @cs, Swt::SWT::BORDER | style
+      el.setText txt || args[:text].to_s
+      el.setSize args[:width], args[:height]
+      args[:real], args[:app] = el, self
+      klass.new(args).tap do |s|
+        el.addModifyListener{|e| blk[s]} if blk
+      end      
+    end
+    
+    def edit_line *attrs, &blk
+      edit_text [EditLine, 200, 20, Swt::SWT::SINGLE, blk, attrs]
+    end
+    
+    def edit_box *attrs, &blk
+      edit_text [EditBox, 200, 100, Swt::SWT::MULTI | Swt::SWT::WRAP, blk, attrs]
+    end
+    
+    def list_box args={}
+      args = basic_attributes args
+      args[:width] = 200 if args[:width].zero?
+      args[:height] = 20 if args[:height].zero?
+      args[:items] ||= []
+      cb = Swt::Combo.new @cs, Swt::SWT::DROP_DOWN
+      cb.setSize args[:width], args[:height]
+      cb.setItems args[:items].map(&:to_s)
+      cb.setText args[:choose].to_s
+      args[:real], args[:app] = cb, self
+      ListBox.new(args).tap do |s|
+        cb.addSelectionListener do |e|
+          yield s
+        end if block_given?
+      end
+    end
+    
+    def animate n=10, repaint=true, &blk
+      n, i = 1000 / n, 0
+      Anim.new(@cs, n, repaint, &blk).tap do |a|
+        Shoes.display.timerExec n, a
+      end
+    end
+
+    def every n=1, &blk
+      animate 1.0/n, &blk
+    end
+
+    def timer n=1, &blk
+      n *= 1000
+      Timer.new(self, n, &blk).tap{|t| Shoes.display.timerExec n, t}
+    end
+
+    def motion &blk
+      @mmcs << blk
+    end
+    
+    def keypress &blk
+      kl = Swt::KeyListener.new
+      class << kl; self end.
+      instance_eval do
+        define_method(:keyPressed){|e| blk[KEY_NAMES[e.keyCode] || e.character.chr]}
+        define_method(:keyReleased){|e|}
+      end
+      @shell.addKeyListener kl
+    end
+    
+    def mouse
+      [@mouse_button, @mouse_pos[0], @mouse_pos[1]]
+    end
+
+    def shape args={}, &blk
+      args = basic_attributes args
+      args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+      args[:nocontrol] = args[:noorder] = true
+      args[:stroke] ||= stroke
+      args[:fill] ||= fill
+      args[:rotate] ||= rotate
+      args[:real], args[:app], args[:block] = :shape, self, blk
+      Shape.new(args).tap do |s|
+        pl = Swt::PaintListener.new
+        s.pl = pl
+        s.real = Swt::Path.new Shoes.display
+        class << pl; self end.
+        instance_eval do
+          define_method :paintControl do |e|
+            unless s.hided
+              gc = e.gc
+              s.dps << gc
+              gc.setAntialias Swt::SWT::ON
+              sw, pat1, pat2 = s.strokewidth, s.stroke, s.fill
+              Shoes.set_rotate gc, *s.rotate do
+                if pat2
+                  Shoes.set_pattern s, gc, pat2
+                  s.instance_eval &s.block
+                  gc.fillPath s.real
+                end
+                if pat1
+                  Shoes.set_pattern s, gc, pat1, :Foreground
+                  if sw > 0
+                    gc.setLineWidth sw
+                    s.instance_eval &s.block
+                    gc.drawPath s.real
+                  end
+                end
+              end
+            end
+          end
+        end
+        @cs.addPaintListener pl unless @cs.isDisposed
+      end
+    end
+    
+    def oval *attrs, &blk
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      case attrs.length
+        when 0, 1
+        when 2; args[:left], args[:top] = attrs
+        when 3; args[:left], args[:top], args[:radius] = attrs
+        else args[:left], args[:top], args[:width], args[:height] = attrs
+      end
+      args = basic_attributes args
+      args[:width].zero? ? (args[:width] = args[:radius] * 2) : (args[:radius] = args[:width]/2.0)
+      args[:height] = args[:width] if args[:height].zero?
+      args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+      args[:nocontrol] = args[:noorder] = true
+
+      args[:stroke] ||= stroke
+      args[:fill] ||= fill
+      args[:rotate] ||= rotate
+      args[:real], args[:app] = :shape, self
+      Oval.new(args).tap do |s|
+        pl = Swt::PaintListener.new
+        s.pl = pl
+        class << pl; self end.
+        instance_eval do
+          define_method :paintControl do |e|
+            unless s.hided
+              gc = e.gc
+              s.dps << gc
+              gc.setAntialias Swt::SWT::ON
+              sw, pat1, pat2 = s.strokewidth, s.stroke, s.fill
+              Shoes.set_rotate gc, *s.rotate do
+                if pat2
+                  Shoes.set_pattern s, gc, pat2
+                  gc.fillOval s.left+sw, s.top+sw, s.width-sw*2, s.height-sw*2
+                end
+                if pat1
+                  Shoes.set_pattern s, gc, pat1, :Foreground
+                  if sw > 0
+                    gc.setLineWidth sw
+                    gc.drawOval s.left+sw/2, s.top+sw/2, s.width-sw, s.height-sw
+                  end
+                end
+              end
+            end
+          end
+        end
+        @cs.addPaintListener pl unless @cs.isDisposed
+        clickable s, &blk
+      end
+    end
+
+    def rect *attrs, &blk
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      case attrs.length
+        when 0, 1
+        when 2; args[:left], args[:top] = attrs
+        when 3; args[:left], args[:top], args[:width] = attrs
+        else args[:left], args[:top], args[:width], args[:height] = attrs
+      end
+      args[:height] = args[:width] unless args[:height]
+      args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+      args[:curve] ||= 0
+      args[:nocontrol] = args[:noorder] = true
+      args = basic_attributes args
+
+      args[:stroke] ||= stroke
+      args[:fill] ||= fill
+      args[:rotate] ||= rotate
+      args[:real], args[:app] = :shape, self
+      Rect.new(args).tap do |s|
+        pl = Swt::PaintListener.new
+        s.pl = pl
+        class << pl; self end.
+        instance_eval do
+          define_method :paintControl do |e|
+            unless s.hided
+              gc = e.gc
+              s.dps << gc
+              gc.setAntialias Swt::SWT::ON
+              sw, pat1, pat2 = s.strokewidth, s.stroke, s.fill
+              Shoes.set_rotate gc, *s.rotate do
+                if pat2
+                  Shoes.set_pattern s, gc, pat2
+                  gc.fillRoundRectangle s.left+sw/2, s.top+sw/2, s.width-sw, s.height-sw, s.curve*2, s.curve*2
+                end
+                if pat1
+                  Shoes.set_pattern s, gc, pat1, :Foreground
+                  if sw > 0
+                    gc.setLineWidth sw
+                    gc.drawRoundRectangle s.left+sw/2, s.top+sw/2, s.width-sw, s.height-sw, s.curve*2, s.curve*2
+                  end
+                end
+              end
+            end
+          end
+        end
+        @cs.addPaintListener pl unless @cs.isDisposed
+        clickable s, &blk
+      end
+    end
+
+    def line *attrs, &blk
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      case attrs.length
+        when 0, 1, 2
+        when 3; args[:sx], args[:sy], args[:ex] = attrs; args[:ey] = args[:ex]
+        else args[:sx], args[:sy], args[:ex], args[:ey] = attrs
+      end
+      sx, sy, ex, ey = args[:sx], args[:sy], args[:ex], args[:ey]
+      sw = args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+      cw = hsw = sw*0.5
+      args[:width], args[:height] = (sx - ex).abs, (sy - ey).abs
+      args[:width] += cw
+      args[:height] += cw
+      args[:nocontrol] = args[:noorder] = true
+      args = basic_attributes args
+      
+      if ((sx - ex) < 0 and (sy - ey) < 0) or ((sx - ex) > 0 and (sy - ey) > 0)
+        args[:left] = (sx - ex) < 0 ? sx - hsw : ex - hsw
+        args[:top] = (sy - ey) < 0 ? sy - hsw : ey - hsw
+      elsif ((sx - ex) < 0 and (sy - ey) > 0) or ((sx - ex) > 0 and (sy - ey) < 0)
+        args[:left] = (sx - ex) < 0 ? sx - hsw : ex - hsw
+        args[:top] = (sy - ey) < 0 ? sy - hsw : ey - hsw
+      elsif !(sx - ex).zero? and (sy - ey).zero?
+        args[:left] = (sx - ex) < 0 ? sx : ex
+        args[:top] = (sy - ey) < 0 ? sy - hsw : ey - hsw
+      elsif (sx - ex).zero? and !(sy - ey).zero?
+        args[:left] = (sx - ex) < 0 ? sx - hsw : ex - hsw
+        args[:top] = (sy - ey) < 0 ? sy : ey
+      else
+        args[:left] = sw
+        args[:top] = sy
+      end
+
+      args[:stroke] ||= stroke
+      args[:rotate] ||= rotate
+      args[:real], args[:app] = :shape, self
+      Line.new(args).tap do |s|
+        pl = Swt::PaintListener.new
+        s.pl = pl
+        class << pl; self end.
+        instance_eval do
+          define_method :paintControl do |e|
+            unless s.hided
+              gc = e.gc
+              s.dps << gc
+              gc.setAntialias Swt::SWT::ON
+              sw, pat = s.strokewidth, s.stroke
+              Shoes.set_rotate gc, *s.rotate do
+                if pat
+                  Shoes.set_pattern s, gc, pat, :Foreground
+                  if sw > 0
+                    gc.setLineWidth sw
+                    gc.drawLine s.sx, s.sy, s.ex, s.ey
+                  end
+                end
+              end
+            end
+          end
+        end
+        @cs.addPaintListener pl unless @cs.isDisposed
+        clickable s, &blk
+      end
+    end
+
+    def star *attrs, &blk
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      case attrs.length
+        when 2; args[:left], args[:top] = attrs
+        when 5; args[:left], args[:top], args[:points], args[:outer], args[:inner] = attrs
+        else
+      end
+      args[:points] ||= 10; args[:outer] ||= 100.0; args[:inner] ||= 50.0
+      args[:width] = args[:height] = args[:outer]*2.0
+      args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+      args[:nocontrol] = args[:noorder] = true
+      args[:stroke] ||= stroke
+      args[:fill] ||= fill
+      args[:rotate] ||= rotate
+      args[:real], args[:app] = :shape, self
+      Star.new(args).tap do |s|
+        pl = Swt::PaintListener.new
+        s.pl = pl
+        class << pl; self end.
+        instance_eval do
+          define_method :paintControl do |e|
+            unless s.hided
+              gc = e.gc
+              s.dps << gc
+              gc.setAntialias Swt::SWT::ON
+              sw, pat1, pat2 = s.strokewidth, s.stroke, s.fill
+              outer, inner, points, left, top = s.outer, s.inner, s.points, s.left, s.top
+              polygon = []
+              polygon << left << (top + outer)
+              (1..points*2).each do |i|
+                angle =  i * Math::PI / points
+                r = (i % 2 == 0) ? outer : inner
+                polygon << (left + r * Math.sin(angle)) << (top + r * Math.cos(angle))
+              end
+              Shoes.set_rotate gc, *s.rotate do
+                if pat2
+                  Shoes.set_pattern s, gc, pat2
+                  gc.fillPolygon polygon
+                end
+                if pat1
+                  Shoes.set_pattern s, gc, pat1, :Foreground
+                  if sw > 0
+                    gc.setLineWidth sw
+                    gc.drawPolygon polygon
+                  end
+                end
+              end
+            end
+          end
+        end
+        @cs.addPaintListener pl unless @cs.isDisposed
+        clickable s, &blk
+      end
+    end
+
+    def rgb r, g, b, l=1.0
+      (r <= 1 and g <= 1 and b <= 1) ? [r*255, g*255, b*255, l] : [r, g, b, l]
+    end
+  
+    %w[fill stroke strokewidth].each do |name|
+      eval "def #{name} #{name}=nil; #{name} ? @#{name}=#{name} : @#{name} end"
+    end
+    
+    def rotate angle=nil, left=0, top=0
+      angle ? @rotate = [angle, left, top] : @rotate ||= [0, 0, 0]
+    end
+
+    def nostroke
+      strokewidth 0
+    end
+    
+    def nofill
+      @fill = false
+    end
+
+    def gradient *attrs
+      case attrs.length
+        when 1, 2
+          pat1, pat2 = attrs
+          pat2 = pat1 unless pat2
+          return tr_color(pat1)..tr_color(pat2)
+        when 5, 6
+          pat, l, t, w, h, angle = attrs
+          angle = 0 unless angle
+        else
+        return black..black
+      end
+
+      pat = tr_color pat
+      color = case pat
+        when Range; [tr_color(pat.first), tr_color(pat.last)]
+        when Array; [pat, pat]
+        when String
+          return Swt::Pattern.new(Shoes.display, Swt::Image.new(Shoes.display, pat))
+        else
+          [black, black]
+      end
+      Swt::Pattern.new Shoes.display, *pattern_pos(l, t, w, h, -angle), Swt::Color.new(Shoes.display, *color[0][0, 3]), Swt::Color.new(Shoes.display, *color[1][0, 3])
+    end
+
+    def tr_color pat
+      if pat.is_a?(String) and pat[0] == '#'
+        color = pat[1..-1]
+        color = color.gsub(/(.)/){$1 + '0'} if color.length == 3
+        rgb *color.gsub(/(..)/).map{$1.hex}
+      else
+        pat
+      end
+    end
+    
+    def background pat, args={}
+      args[:pattern] = pat
+      args = basic_attributes args
+      args[:curve] ||= 0
+      args[:real] = args[:create_real] ? :pattern : false
+      args[:app] = self
+      Background.new(args).tap do |s|
+        unless s.real
+          pat = s.pattern
+          pl = Swt::PaintListener.new
+          s.pl = pl
+          class << pl; self end.
+          instance_eval do
+            define_method :paintControl do |e|
+              unless s.hided
+                gc = e.gc
+                s.dps << gc
+                gc.setAntialias Swt::SWT::ON
+                Shoes.set_pattern s, gc, pat
+                gc.fillRoundRectangle s.left, s.top, s.width, s.height, s.curve*2, s.curve*2
+              end
+            end
+          end
+          @cs.addPaintListener pl unless @cs.isDisposed
+        end
+        oval 0, 0, 0, strokewidth: 0 # A monkey patch for sample 10. I don't know why this line is necessary... xx-P
+      end
+    end
+
+    def border pat, args={}
+      args[:pattern] = pat
+      args = basic_attributes args
+      args[:curve] ||= 0
+      args[:strokewidth] = ( args[:strokewidth] or strokewidth or 1 )
+      args[:real] = args[:create_real] ? :pattern : false
+      args[:app] = self
+      Border.new(args).tap do |s|
+        unless s.real
+          pat = s.pattern
+          sw = s.strokewidth
+          pl = Swt::PaintListener.new
+          s.pl = pl
+          class << pl; self end.
+          instance_eval do
+            define_method :paintControl do |e|
+              unless s.hided
+                gc = e.gc
+                s.dps << gc
+                gc.setAntialias Swt::SWT::ON
+                Shoes.set_pattern s, gc, pat, :Foreground
+                if sw > 0
+                  gc.setLineWidth sw
+                  gc.drawRoundRectangle s.left+sw/2, s.top+sw/2, s.width-sw, s.height-sw, s.curve*2, s.curve*2
+                end
+              end
+            end
+          end
+          @cs.addPaintListener pl unless @cs.isDisposed
+        end
+      end
+    end
+
+    def progress args={}
+      pb = Swt::ProgressBar.new @cs, Swt::SWT::SMOOTH
+      if args[:left] or args[:top]
+        args[:noorder] = args[:nocontrol] = true
+      end
+      args[:width] ||= 150
+      args[:height] ||= 16
+      args = basic_attributes args
+      pb.setSize args[:width], args[:height]
+      pb.setLocation args[:left], args[:top]
+      args[:real], args[:app] = pb, self
+      Progress.new args
+    end
+
+    def download name, args={}, &blk
+      Download.new name, args, &blk
+    end
+
+    def scroll_top
+      cs.getLocation.y
+    end
+    
+    def scroll_top=(n)
+      cs.setLocation 0, -n
+      shell.getVerticalBar.setSelection n
+    end
+    
+    def scroll_height
+      scroll_max + height
+    end
+    
+    def scroll_max
+      shell.getVerticalBar.getMaximum - 10
+    end
+
+    def flush
+      unless @cs.isDisposed
+        Shoes.call_back_procs self
+        @cs.redraw
+      end
+    end
+
+    def aflush
+      @hided = true
+      Swt::Display.getDefault.asyncExec do
+        Shoes.call_back_procs self
+        @hided = false
+        @cs.redraw unless @cs.isDisposed
+      end
+    end
+  end
+end