purple_shoes 0.6.153 → 0.7.166

data/README.md

@@ -56,3 +56,9 @@ jruby --1.9 -S pshoes -m
 ```
 
 ![snapshot](https://github.com/ashbb/purple_shoes/raw/master/manual.png)
+
+
+Embed MPEG-1 video format
+---------------------------------
+
+**Note**: Need to install [JMF](http://www.oracle.com/technetwork/java/javase/download-142937.html) (Java Media Framework API)

data/VERSION

@@ -1 +1 @@
-0.6.153
+0.7.166

data/lib/plugins/video.rb

@@ -1,5 +1,5 @@
 # Original code was written by pjfitzgibbons (Peter Fitzgibbons) in Brown Shoes
-# Edited a little bit for Purple Shoes by ashbb
+# Revised 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')
@@ -10,79 +10,98 @@ require File.join(DIR, '../static/sound_jars/vorbisspi1.0.3.jar')
 
 class Shoes
   class Video
+    include_package 'org.eclipse.swt.awt'
     JFile = java.io.File
     import java.io.BufferedInputStream
-    import javax.sound.sampled
     import java.io.IOException
+    import javax.sound.sampled
+    import javax.media
+    import javax.media.protocol
 
-    BufferSize = 4096
-
-    def initialize args
-      @initials = args
+    def initialize path, args
       args.each do |k, v|
         instance_variable_set "@#{k}", v
       end
       Video.class_eval do
         attr_accessor *args.keys
       end
+      
+      if path =~ /^(http|https):\/\//
+        @save ||= File.basename path
+        app.download(path, save: @save){init @save}
+      else
+        init path
+      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
+    def init file
+      if File.extname(file) == '.mpg'
+        cs = Swt::Composite.new @app.cs, Swt::SWT::EMBEDDED
+        cs.setSize @width, @height
+        cs.setLocation Swt::Point.new(@left, @top)
+        locator = MediaLocator.new JFile.new(file).toURL
+        source = Manager.createDataSource locator
+        player = Manager.createRealizedPlayer source
+        frame = SWT_AWT.new_Frame cs
+        frame.add player.getControlPanelComponent
+        frame.add player.getVisualComponent
+        frame.pack
+      else
+        audio = AudioSystem.getAudioInputStream JFile.new file
+        format = audio.getFormat
+        af = AudioFormat.new AudioFormat::Encoding::PCM_SIGNED, format.getSampleRate, 16, 
+          format.getChannels, format.getChannels * 2, format.getSampleRate, false
+        as = AudioSystem.getAudioInputStream af, audio
+        @line = AudioSystem.getLine DataLine::Info.new(Clip.java_class, af)
+        @line.open as
       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
+    def play
+      self.time = 0
+      start
     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
+    def stop
+      @line.stop if @line
     end
+    alias :pause :stop
 
-    def getLine(audioFormat)
-      res = nil
-      info = DataLine::Info.new(SourceDataLine.java_class, audioFormat)
-      res = AudioSystem.getLine(info)
-      res.open(audioFormat)
-      res
+    def start
+      @line.start if @line
+    end
+    
+    def length
+      @line.getMicrosecondLength / 1000 if @line
+    end
+    
+    def time
+      @line.getMicrosecondPosition / 1000 if @line
+    end
+    
+    def time=(n)
+      @line.setMicrosecondPosition n * 1000 if @line
+    end
+    
+    def position
+      time / length.to_f if @line
+    end
+    
+    def position=(f)
+      self.time = length * f if @line
+    end
+    
+    def playing?
+      @line.isRunning if @line
     end
   end
 end
 
 class Shoes
   class App
-    def video file
-      args = {}
-      args[:real], args[:app], args[:path] = nil, self, file
-      Video.new args
+    def video path, args={}
+      args = {left: 0, top: 0, width: 320, height: 240, app: self}.merge args
+      Video.new path, args
     end
   end
 end

data/lib/shoes/app.rb

@@ -23,7 +23,7 @@ class Shoes
       Shoes.APPS << self
     end
     
-    attr_accessor :cslot, :top_slot, :contents, :mmcs, :mhcs, :mscs, :order, :mouse_pos, :hided
+    attr_accessor :cslot, :top_slot, :contents, :mmcs, :mhcs, :mscs, :order, :mouse_pos, :hided, :focus_ele
     attr_writer :mouse_button
     attr_reader :owner, :location
 
@@ -76,6 +76,7 @@ class Shoes
       args = msg.last.class == Hash ? msg.pop : {}
       args = eval("#{klass.to_s[7..-1].upcase}_DEFAULT").merge args
       args = basic_attributes args
+      args[:contents] = msg
       args[:markup] = msg.map(&:to_s).join
 
       styles = get_styles msg
@@ -98,6 +99,7 @@ class Shoes
       
       klass.new(args).tap do |s|
         unless s.real and layout_control
+          s.contents.each{|e| e.parent = s if e.is_a?(Text)}
           tl = Swt::TextLayout.new Shoes.display
           s.real = tl
           pl = Swt::PaintListener.new
@@ -108,12 +110,22 @@ class Shoes
               gc = e.gc
               Shoes.dps_reset s.dps, gc
               tl.setText s.markup
-              s.app.set_styles s, args
+              s.app.set_styles s, 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
+                if s.cursor
+                  h = s.real.getLineBounds(0).height
+                  s.textcursor ||= s.app.line(0, 0, 0, h, strokewidth: 1, stroke: s.app.black, hidden: true)
+                  n = s.cursor == -1 ? s.text.length - 1 : s.cursor
+                  n = 0 if n < 0
+                  pos = s.real.getLocation n, true
+                  s.textcursor.move(s.left + pos.x, s.top + pos.y).show
+                else
+                  (s.textcursor.clear; s.textcursor = nil) if s.textcursor
+                end
               end
             end
           end
@@ -138,7 +150,7 @@ class Shoes
         url, name = name, File.join(DIR, '../static/downloading.png')
       end
       img = Swt::Image.new Shoes.display, name
-      args[:full_width], args[:full_height] = img.getImageData.width, img.getImageData.height
+      args[:full_width], args[:full_height] = imagesize(name)
       args[:real], args[:app] = img, self
       
       Image.new(args).tap do |s|
@@ -177,6 +189,11 @@ class Shoes
       end
     end
 
+    def imagesize name
+      img = Swt::Image.new Shoes.display, name
+      return img.getImageData.width, img.getImageData.height
+    end
+
     def buttonbase klass, name, args, &blk
       args = basic_attributes args
       args[:block] = blk
@@ -237,7 +254,24 @@ class Shoes
     end
     
     def edit_box *attrs, &blk
-      edit_text [EditBox, 200, 100, Swt::SWT::MULTI | Swt::SWT::WRAP, blk, attrs]
+      app = self
+      edit_text([EditBox, 200, 100, Swt::SWT::MULTI | Swt::SWT::WRAP, blk, attrs]).tap do |s|
+        unless s.args[:accepts_tab]
+          kl = Swt::KeyListener.new
+          class << kl; self end.
+          instance_eval do
+            define_method :keyPressed do |e|
+              if e.character == Swt::SWT::TAB
+                e.doit = false
+                list = app.cs.getTabList.to_a
+                list[(list.index(s.real) + 1) % list.length].setFocus
+              end
+            end
+            define_method(:keyReleased){|e|}
+          end
+          s.real.addKeyListener kl
+        end
+      end
     end
     
     def list_box args={}
@@ -585,6 +619,22 @@ class Shoes
       end
     end
 
+    def arrow *attrs
+      args = attrs.last.class == Hash ? attrs.pop : {}
+      w = attrs[2]
+      args.merge!({left: attrs[0], top: attrs[1], width: w, height: w})
+      shape args do
+        move_to 0, w*0.5*0.6
+        line_to w*0.58, w*0.5*0.6
+        line_to w*0.58, w*0.5*0.2
+        line_to w, w*0.5
+        line_to w*0.58, w*(1-0.5*0.2)
+        line_to w*0.58, w*(1-0.5*0.6)
+        line_to 0, w*(1-0.5*0.6)
+        line_to 0, w*0.5*0.6
+      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

data/lib/shoes/basic.rb

@@ -169,7 +169,14 @@ class Shoes
       super
     end
   end
-  class Line < ShapeBase; end
+  class Line < ShapeBase
+    def move x, y
+      dx, dy = x - @left, y - @top
+      @sx += dx; @ex += dx
+      @sy += dy; @ey += dy
+      super
+    end
+  end
   class Star < ShapeBase
     def move3 x, y
       unless @app.cs.isDisposed
@@ -205,6 +212,7 @@ class Shoes
       super
     end
     attr_reader :links
+    attr_accessor :cursor, :textcursor
     def text
       @args[:markup]
     end
@@ -225,6 +233,16 @@ class Shoes
       @links.clear
       super
     end
+    def hit x, y
+      x -= @left; y -= @top
+      h = @real.getLineBounds(0).height
+      text.length.times do |n|
+        s = @real.getLocation n, false
+        e = @real.getLocation n, true
+        return n if (s.x..e.x).include?(x) and (s.y..(e.y+h)).include?(y)
+      end
+      return nil
+    end
   end
   class Banner < TextBlock; end
   class Title < TextBlock; end
@@ -235,6 +253,10 @@ class Shoes
   class Inscription < TextBlock; end
   
   class Native < Basic
+    def initialize args
+      super
+      @app.cs.setTabList @app.cs.getTabList.to_a.push(@real)
+    end
     def text
       @real.getText unless @real.isDisposed
     end
@@ -258,6 +280,10 @@ class Shoes
       @real.setVisible !@hided unless @real.isDisposed
       self
     end
+    def focus
+      @real.setFocus
+      @app.focus_ele = self
+    end
   end
 
   class Button < Native

data/lib/shoes/download.rb

@@ -10,7 +10,7 @@ class Shoes
           @finished, @sio = true, sio
         end
       end
-      a = app.animate do
+      a = app.animate 10, args[:repaint] do
         (a.stop; blk[@sio]) if @finished
       end if blk
     end

data/lib/shoes/main.rb

@@ -28,6 +28,7 @@ class Shoes
     
     cs = Swt::Composite.new shell, Swt::SWT::TRANSPARENT
     cs.setSize args[:width], args[:height]
+    cs.setTabList []
     
     args[:shell], args[:cs] = shell, cs
     app = App.new args
@@ -44,6 +45,7 @@ class Shoes
     
     shell.open
     call_back_procs app
+    app.focus_ele.real.setFocus if app.focus_ele
     app.aflush
 
     cl = Swt::ControlListener.new
@@ -98,6 +100,7 @@ class Shoes
         @display.sleep unless @display.readAndDispatch
       end
       @display.dispose
+      exit
     end
     app
   end

data/lib/shoes/text.rb

@@ -28,6 +28,15 @@ class Shoes
       @to_s = str.map(&:to_s).join
     end
     attr_reader :to_s, :style, :str, :color
+    attr_accessor :parent
+
+    def replace *str
+      @str = str
+      @to_s = str.map(&:to_s).join
+      @parent.args[:markup] = @parent.markup = @parent.contents.map(&:to_s).join
+      @parent.args[:styles] = @parent.styles = @parent.app.get_styles @parent.contents
+      @parent.style markup: @parent.markup
+    end
   end
 
   class Link < Text

data/samples/sample51.rb

@@ -0,0 +1,23 @@
+require 'purple_shoes'
+
+Shoes.app width: 200, height: 200 do
+  background mintcream
+  flow margin: 5 do
+    flow height: 190 do
+      background File.join(DIR, '../samples/shell.png'), curve: 5
+      @line = para strong(' ' * 300), stroke: white
+      @line.text = ''
+      @line.cursor = -1
+    end
+  end
+
+  keypress do |k|
+    msg = case k
+      when "\b"; @line.text[0..-2]
+      else
+        k.length == 1 ? @line.text + k : nil
+    end
+    @line.text = msg if msg
+    flush
+  end
+end

data/samples/sample58-1.rb

@@ -0,0 +1,21 @@
+require 'purple_shoes'
+
+Shoes.app do
+  title 'Sample Sounds', align: 'center', margin: 50
+
+  button "Boing WAV (740ms)" do
+    video(File.join DIR, "../samples/sounds/61847__simon-rue__boink-v3.wav").play
+  end
+
+  button "Fog Horn AIFF (18.667s)" do
+    video(File.join DIR, "../samples/sounds/145622__andybrannan__train-fog-horn-long-wyomming.aiff").play
+  end
+
+  button "Explosion MP3 (4.800s)" do
+    video(File.join DIR, "../samples/sounds/102719__sarge4267__explosion.mp3").play
+  end
+
+  button "Shields UP! OGG (2.473s)" do
+    video(File.join DIR, "../samples/sounds/46492__phreaksaccount__shields1.ogg").play
+  end
+end

data/samples/sample58.rb

@@ -1,21 +1,24 @@
 require 'purple_shoes'
 
-Shoes.app do
-  title 'Sample Sounds', align: 'center', margin: 50
+Shoes.app width: 300, height: 100, title: 'Teeny-weeny Audio player' do
+  space = ' '
+  background gold..cyan, angle: 30
+  song = para 'song.ogg', stroke: firebrick, left: 0, top: 70
+  file = 'http://www.rin-shun.com/shoes/song.ogg'
+  v = video file
 
-  button "Boing WAV (740ms)" do
-    video(File.join DIR, "../samples/sounds/61847__simon-rue__boink-v3.wav").play
-  end
-
-  button "Fog Horn AIFF (18.667s)" do
-    video(File.join DIR, "../samples/sounds/145622__andybrannan__train-fog-horn-long-wyomming.aiff").play
-  end
-
-  button "Explosion MP3 (4.800s)" do
-    video(File.join DIR, "../samples/sounds/102719__sarge4267__explosion.mp3").play
-  end
-
-  button "Shields UP! OGG (2.473s)" do
-    video(File.join DIR, "../samples/sounds/46492__phreaksaccount__shields1.ogg").play
+  para link('select'){
+    unless v.playing?
+      f = ask_open_file
+      file = f if f
+      v = video file
+      song.text = file
+    end
+  }, space, link('play'){v.play}, space, link('start'){v.start}, space, link('stop'){v.stop}
+  
+  img = image File.join(DIR, '../samples/loogink.png')
+  n = 0
+  animate 5 do
+    img.move (n+=1) % 300 , 40 - rand(10) if file && v.playing?
   end
 end

data/static/manual-en.txt

@@ -2246,12 +2246,15 @@ any other radio buttons in the same slot.)
 Creates a Span text fragment, unstyled by default.
 
 {{{
+ # Not yet available
  Shoes.app do
    tagline "\n", 'hello ' * 5, 
      span(em('Purple Shoes'), size: 8, rise: 15)
  end
 }}}
 
+'''Note:''' Purple Shoes doesn't support `span` method.
+
 === stack(styles) { ... } » Shoes::Stack ===
 
 Creates a new stack.  A stack is a type of slot.  (See the main [[Slots]] page
@@ -3633,15 +3636,11 @@ Creation]] page.
 
 Lists all of the strings and styled text objects inside this block.
 
-'''Note:''' Purple Shoes doesn't support `contents` method.
-
 === cursor() » an index ===
 
 Return a text cursor position. That is an index of the text which is a string
 of all of the characters in this text box.
 
-'''Note:''' Purple Shoes doesn't support `cursor` method.
-
 === cursor = an index or nil ===
 
 Shows or hides the text cursor.
@@ -3650,14 +3649,13 @@ Using `cursor = -1` shows the text cursor at the end of the text.
 Using `cursor = nil` hides the text cursor.
 
 {{{
- # Not yet available
  Shoes.app do
   msg = para 'hello ' * 20
   msg.cursor = -1
   keypress do |k|
     n = case k
-      when 'Left'; -1
-      when 'Right'; 1
+      when 'ARROW_LEFT'; -1
+      when 'ARROW_RIGHT'; 1
       else
         next
     end
@@ -3670,8 +3668,6 @@ Using `cursor = nil` hides the text cursor.
  end
 }}}
 
-'''Note:''' Purple Shoes doesn't support `cursor=` method.
-
 === highlight() » an array ===
 
 Return an array which includes a text marker start position and highlighted length. 
@@ -3682,19 +3678,16 @@ Return an index of the text at which the mouse cursor points on.
 The `left` and `top` are the mouse coordinates. 
 
 {{{
- # Not yet available
  Shoes.app do
    para 'index: ', width: 50
    index = para '', width: 20
    msg = title 'hello ' * 5
    click do |b, x, y|
-     index.text = msg.hit x, y
+     index.text = msg.hit(x, y).to_s
    end
  end
 }}}
 
-'''Note:''' Purple Shoes doesn't support `hit` method.
-
 === marker() » an index ===
 
 Return a text marker start position. 
@@ -3780,27 +3773,18 @@ already running, it is stopped.
 
 == Video ==
 
-Purple Shoes supports embedding of MP4, AVI, WMV, QuickTime and various other popular video formats. 
-This is all thanks to Ruby/GStreamer. Use the `video` method to setup a Shoes::Video object. !{:margin_left => 30}man-ele-video.png!
+Purple Shoes supports embedding of MPEG-1 video format. 
+This is all thanks to JMF (Java Media Framework). Use the `video` method to setup a 
+Shoes::Video object. !{:margin_left => 30}man-ele-video.png!
 
 {{{
- # Not yet available
- Shoes.app width: 400, height: 300 do
-   background gold..cyan, angle: 90
-   space = ' ' * 3
-   v = video 'http://is.gd/xZ6Jih'
-   links = para space, 
-     link('play'){v.play; links.move(0, 300)}, 
-     space, link('pause'){v.pause}, 
-     space, link('-1sec'){v.time -= 1000},
-     space, link('+1sec'){v.time += 1000}, 
-     top: 250
-   msg = para left: 250, top: 300
-   every do
-     msg.text = fg("#{(v.position*100).to_i}% " + 
-       "(#{v.time/1000}/#{v.length.to_i/1000}sec)", 
-       darkcyan)
-   end
+ Shoes.app width: 400, height: 350 do
+   background purple
+   tagline 'Adventure Time with Finn and Jake', 
+     stroke: white, align: 'center'
+   video 'http://is.gd/b1xRdO', 
+     save: 'AdventureTimewithFinnandJake.mpg', 
+     top: 30, width: 400, height: 300
  end
 }}}
 

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: purple_shoes
 version: !ruby/object:Gem::Version
-  version: 0.6.153
+  version: 0.7.166
   prerelease: 
 platform: ruby
 authors:
@@ -9,11 +9,11 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-05-02 00:00:00.000000000 Z
+date: 2012-05-16 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: swt
-  requirement: &16509060 !ruby/object:Gem::Requirement
+  requirement: &14783256 !ruby/object:Gem::Requirement
     none: false
     requirements:
     - - ! '>='
@@ -21,7 +21,7 @@ dependencies:
         version: '0'
   type: :runtime
   prerelease: false
-  version_requirements: *16509060
+  version_requirements: *14783256
 description: Purple Shoes is one of colorful Shoes, written in JRuby and SWT.
 email: ashbbb@gmail.com
 executables:
@@ -157,13 +157,16 @@ files:
 - samples/sample49.rb
 - samples/sample5.rb
 - samples/sample50.rb
+- samples/sample51.rb
 - samples/sample52.rb
+- samples/sample58-1.rb
 - samples/sample58.rb
 - samples/sample6.rb
 - samples/sample7.rb
 - samples/sample8.rb
 - samples/sample9.rb
 - samples/sample99.rb
+- samples/shell.png
 - samples/sounds/102719__sarge4267__explosion.mp3
 - samples/sounds/145622__andybrannan__train-fog-horn-long-wyomming.aiff
 - samples/sounds/46492__phreaksaccount__shields1.ogg
@@ -212,7 +215,9 @@ files:
 - snapshots/sample49.png
 - snapshots/sample5.png
 - snapshots/sample50.png
+- snapshots/sample51.png
 - snapshots/sample52.png
+- snapshots/sample58-1.png
 - snapshots/sample58.png
 - snapshots/sample6.png
 - snapshots/sample7.png