shoes-swt 4.0.0.pre2

data/lib/shoes/swt/shape.rb

@@ -0,0 +1,133 @@
+class Shoes
+  module Swt
+    class Shape
+      include Common::Remove
+      include Common::Fill
+      include Common::Stroke
+      include Common::PainterUpdatesPosition
+
+
+      # Creates a new Shoes::Swt::Shape
+      #
+      # @param [Shoes::Shape] dsl The dsl object to provide gui for
+      # @param [Hash] opts Initialization options
+      #   If this shape is part of another shape (i.e. it is not responsible
+      #   for drawing itself), `opts` should be omitted
+      def initialize(dsl, app)
+        @dsl = dsl
+        @app = app
+        @element = ::Swt::Path.new(::Swt.display)
+        @painter = Painter.new(self)
+        @app.add_paint_listener @painter
+      end
+
+      def dispose
+        @transform.dispose unless @transform.nil? || @transform.disposed?
+        @element.dispose   unless @element.nil? || @element.disposed?
+      end
+
+      attr_reader :dsl, :app
+      attr_reader :element, :transform
+      attr_reader :painter
+
+      def line_to(x, y)
+        @element.line_to(x, y)
+      end
+
+      def move_to(x, y)
+        @element.move_to(x, y)
+      end
+
+      def curve_to(cx1, cy1, cx2, cy2, x, y)
+        @element.cubic_to(cx1, cy1, cx2, cy2, x, y)
+      end
+
+      def arc(x, y, width, height, start_angle, arc_angle)
+        @element.add_arc(x - (width / 2), y - (height / 2), width, height,
+                         -start_angle * 180 / ::Shoes::PI,
+                         (start_angle - arc_angle) * 180 / ::Shoes::PI)
+      end
+
+      def update_position
+        transform.translate(dsl.element_left, dsl.element_top)
+      end
+
+      def left
+        native_left
+      end
+
+      def top
+        native_top
+      end
+
+      alias_method :absolute_left, :left
+      alias_method :absolute_top, :top
+      alias_method :element_left, :left
+      alias_method :element_top, :top
+
+      def width
+        native_width
+      end
+
+      def height
+        native_height
+      end
+
+      alias_method :element_width, :width
+      alias_method :element_height, :height
+
+      def transform
+        @transform ||= ::Swt::Transform.new(::Swt.display)
+      end
+
+      private
+      def new_java_float_array(length)
+        Java::float[length].new
+      end
+
+      def native_bounds_measurement(element, index)
+        bounds_array_size = 4
+        bounds = new_java_float_array(bounds_array_size)
+        element.get_bounds bounds
+        bounds[index]
+      end
+
+      def position_from_transform(index)
+        transform_elements_size = 6
+        elements = new_java_float_array(transform_elements_size)
+        transform.get_elements(elements)
+        elements[index]
+      end
+
+      def native_left
+        transform_elements_index_for_left = 4
+        position_from_transform transform_elements_index_for_left
+      end
+
+      def native_top
+        transform_elements_index_for_top = 5
+        position_from_transform transform_elements_index_for_top
+      end
+
+      def native_height
+        bounds_index_for_height = 3
+        native_bounds_measurement(@element, bounds_index_for_height)
+      end
+
+      def native_width
+        bounds_index_for_width = 2
+        native_bounds_measurement(@element, bounds_index_for_width)
+      end
+
+      class Painter < Common::Painter
+        def fill(gc)
+          gc.fill_path(@obj.element)
+        end
+
+        def draw(gc)
+          gc.draw_path(@obj.element)
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/shoes_layout.rb

@@ -0,0 +1,43 @@
+class Shoes
+  module Swt
+    class ShoesLayout < ::Swt::Widgets::Layout
+
+      attr_accessor :gui_app
+
+      def layout(*dontcare)
+        dsl_app = @gui_app.dsl
+        height = dsl_app.height
+        scrollable_height = dsl_app.top_slot.contents_alignment
+        set_gui_size(height, scrollable_height)
+
+        vertical_bar = @gui_app.shell.getVerticalBar
+        vertical_bar.setVisible(scrollable_height > height)
+        if scrollable_height > height
+          handle_scroll_bar(vertical_bar, height, scrollable_height)
+        else
+          set_gui_location
+        end
+      end
+
+      private
+      def set_gui_size(height, scrollable_height)
+        width          = @gui_app.dsl.width
+        maximum_height = [scrollable_height, height].max
+        size           = @gui_app.real.compute_trim 0, 0, width, maximum_height
+        @gui_app.real.set_size(size.width, size.height)
+      end
+
+      def handle_scroll_bar(vertical_bar, height, scrollable_height)
+        vertical_bar.setThumb height * height / scrollable_height
+        vertical_bar.setMaximum scrollable_height - height + vertical_bar.getThumb
+        vertical_bar.increment = 10
+      end
+
+      def set_gui_location
+        location   = @gui_app.real.getLocation
+        location.y = 0
+        @gui_app.real.setLocation location
+      end
+    end
+  end
+end

data/lib/shoes/swt/slot.rb

@@ -0,0 +1,39 @@
+class Shoes
+  module Swt
+    class Slot
+      include Common::Container
+      include Common::Clickable
+      include Common::Visibility
+
+      attr_reader :real, :dsl, :parent, :app
+
+      def initialize(dsl, parent)
+        @dsl = dsl
+        @parent = parent
+        @real = parent.real
+
+        @app = @parent.app
+      end
+
+      # needed by Layouter code, but slots are no physical elements so they
+      def update_position
+      end
+
+      # This is more like a temporary work around until slots have a real
+      # backend representations that can just hide their contents all together
+      # I decided to put this logic in the backend since the hiding is a backend
+      # responsibility, although this is more DSL code
+      # #904 #905
+      def update_visibility
+        if dsl.hidden?
+          dsl.contents.each &:hide
+        else
+          dsl.contents.each &:show
+        end
+      end
+
+    end
+    class Flow < Slot; end
+    class Stack < Slot; end
+  end
+end

data/lib/shoes/swt/sound.rb

@@ -0,0 +1,119 @@
+# JavaZOOM Sound-API Projects
+#  - Shared lib
+require 'shoes/swt/support/tritonus_share.jar'
+#  - MP3 lib
+require 'shoes/swt/support/mp3spi1.9.5.jar'
+require 'shoes/swt/support/jl1.0.1.jar'
+#  - Ogg/Vorbis lib
+require 'shoes/swt/support/jogg-0.0.7.jar'
+require 'shoes/swt/support/jorbis-0.0.15.jar'
+require 'shoes/swt/support/vorbisspi1.0.3.jar'
+
+class Shoes
+  module Swt
+    class Sound
+      JFile = java.io.File
+      import java.io.BufferedInputStream
+      import javax.sound.sampled
+      import java.io.IOException
+
+      BufferSize = 4096
+
+      def initialize(dsl)
+        @dsl = dsl
+      end
+
+      def filepath
+        @dsl.filepath
+      end
+
+      attr_accessor :mixer_channel, :audio_input_stream, :audio_format
+
+      def play
+        Thread.new do
+          begin
+            sound_file = JFile.new(self.filepath)
+
+            audio_input_stream = AudioSystem.getAudioInputStream(sound_file)
+            audio_format = audio_input_stream.getFormat
+
+            decoded_audio_format, decoded_audio_input_stream = decode_input_stream(audio_format, audio_input_stream)
+
+            # Play now.
+            rawplay(decoded_audio_format, decoded_audio_input_stream)
+            audio_input_stream.close
+
+          rescue UnsupportedAudioFileException => uafex
+            puts uafex.inspect, uafex.backtrace
+          rescue IOException => ioex
+            puts ioex.inspect, ioex.backtrace
+              #rescue JIOException => jioex
+              #  jioex.stacktrace
+          rescue LineUnavailableException => luex
+            puts luex.inspect, luex.backtrace
+          rescue Exception => e
+            puts e.inspect, e.backtrace
+          end
+        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)
+
+        #throws IOException, LineUnavailableException
+
+        sampled_data = Java::byte[BufferSize].new
+
+        line = getLine(decoded_audio_format)
+        if line != nil
+
+          # Start
+          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
+          # Stop
+          line.drain()
+          line.stop()
+          line.close()
+          decoded_audio_input_stream.close()
+        end
+      end
+
+      def getLine(audioFormat)
+
+        #throws LineUnavailableException
+
+        res = nil
+        info = DataLine::Info.new(SourceDataLine.java_class, audioFormat)
+        res = AudioSystem.getLine(info)
+        res.open(audioFormat)
+        res
+      end
+    end
+  end
+end

data/lib/shoes/swt/star.rb

@@ -0,0 +1,50 @@
+class Shoes
+  module Swt
+    class Star
+      extend Forwardable
+      include Common::Fill
+      include Common::Stroke
+      include Common::Clickable
+      include Common::PainterUpdatesPosition
+      include Common::Visibility
+      include Common::Remove
+      include ::Shoes::BackendDimensionsDelegations
+
+      def_delegators :dsl, :angle, :outer, :inner, :points
+
+      attr_reader :dsl, :app, :transform, :container
+
+      def initialize(dsl, app)
+        @dsl = dsl
+        @app = app
+        @container = @app.real
+
+        @painter = Painter.new(self)
+        @app.add_paint_listener @painter
+      end
+
+      class Painter < Common::Painter
+        def fill(gc)
+          gc.fillPolygon make_polygon(@obj)
+        end
+
+        def draw(gc)
+          gc.drawPolygon make_polygon(@obj)
+        end
+        
+        def make_polygon(obj)
+          outer, inner, points, left, top = obj.outer, obj.inner, obj.points,
+                                            obj.element_left, obj.element_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
+          polygon
+        end
+      end
+    end
+  end
+end

data/lib/shoes/swt/swt_button.rb

@@ -0,0 +1,56 @@
+class Shoes
+  module Swt
+    class SwtButton
+      include Common::Remove
+      include Common::Visibility
+      include Common::UpdatePosition
+      include ::Shoes::BackendDimensionsDelegations
+
+      attr_reader :parent, :real, :dsl
+
+      def initialize(dsl, parent, type)
+        @dsl = dsl
+        @parent = parent
+
+        @type = type
+        @real = ::Swt::Widgets::Button.new(@parent.real, @type)
+
+        yield(@real) if block_given?
+
+        set_size
+      end
+
+      def eval_block blk
+        blk.call @dsl
+      end
+
+      def focus
+        @real.set_focus
+      end
+
+      def click blk
+        remove_listeners
+        @real.addSelectionListener { eval_block blk }
+      end
+
+      def remove_listeners
+        listener_array = @real.getListeners ::Swt::SWT::Selection
+        listener_array.each do |listener|
+          @real.removeListener ::Swt::SWT::Selection, listener
+        end
+      end
+
+      def enabled(value)
+        @real.enable_widget value
+      end
+
+      private
+      def set_size
+        @real.pack
+        @dsl.element_width ||= @real.size.x
+        @dsl.element_height ||= @real.size.y
+        @real.setSize @dsl.element_width, @dsl.element_height
+      end
+    end
+  end
+end