shoes-core 4.0.0.pre8 → 4.0.0.pre9

data/lib/shoes/dsl/animate.rb

@@ -0,0 +1,51 @@
+# frozen_string_literal: true
+class Shoes
+  module DSL
+    module Animate
+      # Creates an animation that runs the given block of code.
+      #
+      # @overload animate &blk
+      #   @param [Proc] blk Code to run for each animation frame
+      #   @return [Shoes::Animation]
+      #   Defaults to framerate of 24 frames per second
+      #   @example
+      #     # 24 frames per second
+      #     animate do
+      #       # animation code
+      #     end
+      # @overload animate(framerate, &blk)
+      #   @param [Integer] framerate Frames per second
+      #   @param [Proc] blk Code to run for each animation frame
+      #   @return [Shoes::Animation]
+      #   @example
+      #     # 10 frames per second
+      #     animate 10 do
+      #       # animation code
+      #     end
+      # @overload animate(opts = {}, &blk)
+      #   @param [Hash] opts Animation options
+      #   @param [Proc] blk Code to run for each animation frame
+      #   @option opts [Integer] :framerate Frames per second
+      #   @return [Shoes::Animation]
+      #   @example
+      #     # 10 frames per second
+      #     animate :framerate => 10 do
+      #       # animation code
+      #     end
+      #
+      def animate(opts = {}, &blk)
+        opts = { framerate: opts } unless opts.is_a? Hash
+        Shoes::Animation.new @__app__, opts, blk
+      end
+
+      def every(n = 1, &blk)
+        animate 1.0 / n, &blk
+      end
+
+      def timer(n = 1, &blk)
+        n *= 1000
+        Timer.new @__app__, n, &blk
+      end
+    end
+  end
+end

data/lib/shoes/dsl/art.rb

@@ -0,0 +1,256 @@
+# frozen_string_literal: true
+class Shoes
+  module DSL
+    module Art
+      # Creates an arrow
+      #
+      # @overload arrow(left, top, width, opts)
+      #   Creates an arrow centered at (left, top)
+      #   @param [Integer] left the x-coordinate of the element center
+      #   @param [Integer] top the y-coordinate of the element center
+      #   @param [Integer] width the width of the arrow
+      #   @param [Hash] opts Arrow style options
+      #   @option opts [Integer] rotate (false)
+      # @overload arrow(opts)
+      #   Creates an arrow using values from the opts Hash.
+      #   @param [Hash] opts
+      #   @option styles [Integer] left (0) the x-coordinate of the top-left corner
+      #   @option styles [Integer] top (0) the y-coordinate of the top-left corner
+      #   @option styles [Integer] width (0) the width
+      #   @option styles [Integer] rotate (false)
+      def arrow(*args, &blk)
+        opts = style_normalizer.normalize pop_style(args)
+
+        left, top, width, *leftovers = args
+
+        message = <<EOS
+Too many arguments. Must be one of:
+  - arrow(left, top, width, [opts])
+  - arrow(left, top, [opts])
+  - arrow(left, [opts])
+  - arrow([opts])
+EOS
+        raise ArgumentError, message if leftovers.any?
+
+        create Shoes::Arrow, left, top, width, opts, blk
+      end
+
+      # Creates an arc at (left, top)
+      #
+      # @param [Integer] left the x-coordinate of the top-left corner
+      # @param [Integer] top the y-coordinate of the top-left corner
+      # @param [Integer] width width of the arc's ellipse
+      # @param [Integer] height height of the arc's ellipse
+      # @param [Float] angle1 angle in radians marking the beginning of the arc segment
+      # @param [Float] angle2 angle in radians marking the end of the arc segment
+      # @param [Hash] opts Arc style options
+      # @option opts [Boolean] wedge (false)
+      # @option opts [Boolean] center (false) is (left, top) the center of the rectangle?
+      def arc(*args, &blk)
+        opts = style_normalizer.normalize pop_style(args)
+
+        left, top, width, height, angle1, angle2, *leftovers = args
+
+        message = <<EOS
+Too many arguments. Must be one of:
+  - arc(left, top, width, height, angle1, angle2, [opts])
+  - arc(left, top, width, height, angle1, [opts])
+  - arc(left, top, width, height, [opts])
+  - arc(left, top, width, [opts])
+  - arc(left, top, [opts])
+  - arc(left, [opts])
+  - arc([opts])
+EOS
+        raise ArgumentError, message if leftovers.any?
+
+        create Shoes::Arc, left, top, width, height, angle1, angle2, opts, blk
+      end
+
+      # Draws a line from point A (x1,y1) to point B (x2,y2)
+      #
+      # @param [Integer] x1 The x-value of point A
+      # @param [Integer] y1 The y-value of point A
+      # @param [Integer] x2 The x-value of point B
+      # @param [Integer] y2 The y-value of point B
+      # @param [Hash] opts Style options
+      def line(*args, &blk)
+        opts = style_normalizer.normalize pop_style(args)
+
+        x1, y1, x2, y2, *leftovers = args
+
+        message = <<EOS
+Too many arguments. Must be one of:
+  - line(x1, y1, x2, y2, [opts])
+  - line(x1, y1, x2, [opts])
+  - line(x1, y1, [opts])
+  - line(x1, [opts])
+  - line([opts])
+EOS
+        raise ArgumentError, message if leftovers.any?
+
+        create Shoes::Line, x1, y1, x2, y2, opts, blk
+      end
+
+      # Creates an oval at (left, top)
+      #
+      # @overload oval(left, top, diameter)
+      #   Creates a circle at (left, top), with the given diameter
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      #   @param [Integer] diameter the diameter
+      # @overload oval(left, top, width, height)
+      #   Creates an oval at (left, top), with the given width and height
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      #   @param [Integer] width the width
+      #   @param [Integer] height the height
+      # @overload oval(styles)
+      #   Creates an oval using values from the styles Hash.
+      #   @param [Hash] styles
+      #   @option styles [Integer] left (0) the x-coordinate of the top-left corner
+      #   @option styles [Integer] top (0) the y-coordinate of the top-left corner
+      #   @option styles [Integer] width (0) the width
+      #   @option styles [Integer] height (0) the height
+      #   @option styles [Integer] top (0) the y-coordinate of the top-left corner
+      #   @option styles [Boolean] center (false) is (left, top) the center of the oval
+      def oval(*args, &blk)
+        opts = style_normalizer.normalize pop_style(args)
+
+        left, top, width, height, *leftovers = args
+
+        message = <<EOS
+Wrong number of arguments. Must be one of:
+  - oval(left, top, width, height, [opts])
+  - oval(left, top, diameter, [opts])
+  - oval(left, top, [opts])
+  - oval(left, [opts])
+  - oval(styles)
+EOS
+        raise ArgumentError, message if leftovers.any?
+
+        create Shoes::Oval, left, top, width, height, opts, blk
+      end
+
+      # Creates a rectangle
+      #
+      # @overload rect(left, top, side, styles)
+      #   Creates a square at (left, top), with sides of the given length
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      #   @param [Integer] side the length of a side
+      # @overload rect(left, top, width, height, rounded = 0, styles)
+      #   Creates a rectangle at (left, top), with the given width and height
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      #   @param [Integer] width the width
+      #   @param [Integer] height the height
+      # @overload rect(styles)
+      #   Creates a rectangle using values from the styles Hash.
+      #   @param [Hash] styles
+      #   @option styles [Integer] left (0) the x-coordinate of the top-left corner
+      #   @option styles [Integer] top (0) the y-coordinate of the top-left corner
+      #   @option styles [Integer] width (0) the width
+      #   @option styles [Integer] height (0) the height
+      #   @option styles [Integer] top (0) the y-coordinate of the top-left corner
+      #   @option styles [Boolean] center (false) is (left, top) the center of the rectangle?
+      def rect(*args, &blk)
+        opts = style_normalizer.normalize pop_style(args)
+
+        left, top, width, height, curve, *leftovers = args
+        opts[:curve] = curve if curve
+
+        message = <<EOS
+Wrong number of arguments. Must be one of:
+  - rect(left, top, width, height, curve, [opts])
+  - rect(left, top, width, height, [opts])
+  - rect(left, top, side, [opts])
+  - rect(left, top, [opts])
+  - rect(left, [opts])
+  - rect(styles)
+EOS
+
+        raise ArgumentError, message if leftovers.any?
+
+        create Shoes::Rect, left, top, width, height, style.merge(opts), blk
+      end
+
+      # Creates a new Shoes::Star object
+      #
+      # @overload star(left, top, styles, &block)
+      #   Creates a star at (left, top) with the given style
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      #   @param [Hash] styles optional, additional styling for the element
+      # @overload star(left, top, points, styles, &block)
+      #   Creates a star at (left, top) with the given style
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      #   @param [Integer] points count of points on the star
+      #   @param [Hash] styles optional, additional styling for the element
+      # @overload star(left, top, points, outer, styles, &block)
+      #   Creates a star at (left, top) with the given style
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      #   @param [Integer] points count of points on the star
+      #   @param [Integer] outer outer radius of star
+      #   @param [Hash] styles optional, additional styling for the element
+      # @overload star(left, top, points, outer, inner, styles, &block)
+      #   Creates a star at (left, top) with the given style
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      #   @param [Integer] points count of points on the star
+      #   @param [Integer] outer outer radius of star
+      #   @param [Integer] inner inner radius of star
+      #   @param [Hash] styles optional, additional styling for the element
+      def star(*args, &blk)
+        styles = style_normalizer.normalize pop_style(args)
+
+        left, top, points, outer, inner, *leftovers = args
+
+        message = <<EOS
+Wrong number of arguments. Must be one of:
+  - star([styles])
+  - star(left, [styles])
+  - star(left, top, [styles])
+  - star(left, top, points, [styles])
+  - star(left, top, points, outer, [styles])
+  - star(left, top, points, outer, inner, [styles])
+EOS
+        raise ArgumentError, message if leftovers.any?
+
+        create Shoes::Star, left, top, points, outer, inner, styles, blk
+      end
+
+      # Creates a new Shoes::Shape object
+      #
+      # @overload shape(left, top, styles, &block)
+      #   Creates a shape at (left, top) with the given style
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      # @overload shape(left, top)
+      #   Creates a shape at (left, top, &block)
+      #   @param [Integer] left the x-coordinate of the top-left corner
+      #   @param [Integer] top the y-coordinate of the top-left corner
+      # @overload shape(styles, &block)
+      #   Creates a shape at (0, 0)
+      #   @option styles [Integer] left (0) the x-coordinate of the top-left corner
+      #   @option styles [Integer] top (0) the y-coordinate of the top-left corner
+      def shape(*args, &blk)
+        opts = style_normalizer.normalize pop_style(args)
+
+        left, top, *leftovers = args
+
+        message = <<EOS
+Wrong number of arguments. Must be one of:
+  - shape(left, top, [opts])
+  - shape(left, [opts])
+  - shape([opts])
+EOS
+
+        raise ArgumentError, message if leftovers.any?
+
+        create Shoes::Shape, left, top, opts, blk
+      end
+    end
+  end
+end

data/lib/shoes/dsl/element.rb

@@ -0,0 +1,56 @@
+# frozen_string_literal: true
+class Shoes
+  module DSL
+    module Element
+      def border(color, styles = {})
+        create Shoes::Border, pattern(color), styles
+      end
+
+      def background(color, styles = {})
+        create Shoes::Background, pattern(color), style_normalizer.normalize(styles)
+      end
+
+      def edit_line(*args, &blk)
+        style = pop_style(args)
+        text  = args.first || ''
+        create Shoes::EditLine, text, style, blk
+      end
+
+      def edit_box(*args, &blk)
+        style = pop_style(args)
+        text  = args.first || ''
+        create Shoes::EditBox, text, style, blk
+      end
+
+      def progress(opts = {}, &blk)
+        create Shoes::Progress, opts, blk
+      end
+
+      def check(opts = {}, &blk)
+        create Shoes::Check, opts, blk
+      end
+
+      def radio(*args, &blk)
+        style = pop_style(args)
+        group = args.first
+        create Shoes::Radio, group, style, blk
+      end
+
+      def list_box(opts = {}, &blk)
+        create Shoes::ListBox, opts, blk
+      end
+
+      def flow(opts = {}, &blk)
+        create Shoes::Flow, opts, blk
+      end
+
+      def stack(opts = {}, &blk)
+        create Shoes::Stack, opts, blk
+      end
+
+      def button(text = nil, opts = {}, &blk)
+        create Shoes::Button, text, opts, blk
+      end
+    end
+  end
+end

data/lib/shoes/dsl/interaction.rb

@@ -0,0 +1,76 @@
+# frozen_string_literal: true
+class Shoes
+  module DSL
+    module Interaction
+      def mouse
+        [@__app__.mouse_button, @__app__.mouse_pos[0], @__app__.mouse_pos[1]]
+      end
+
+      def motion(&blk)
+        @__app__.mouse_motion << blk
+      end
+
+      def resize(&blk)
+        @__app__.add_resize_callback blk
+      end
+
+      # hover and leave just delegate to the current slot as hover and leave
+      # are just defined for slots but self is always the app.
+      def hover(&blk)
+        @__app__.current_slot.hover(&blk)
+      end
+
+      def leave(&blk)
+        @__app__.current_slot.leave(&blk)
+      end
+
+      def keypress(&blk)
+        Shoes::Keypress.new @__app__, &blk
+      end
+
+      def keyrelease(&blk)
+        Shoes::Keyrelease.new @__app__, &blk
+      end
+
+      def append
+        yield if block_given?
+      end
+
+      def visit(url)
+        match_data = nil
+        url_data = Shoes::URL.urls.find { |page, _| match_data = page.match url }
+        return unless url_data
+        action_proc = url_data[1]
+        url_argument = match_data[1]
+        clear do
+          @__app__.location = url
+          action_proc.call self, url_argument
+        end
+      end
+
+      def scroll_top
+        @__app__.scroll_top
+      end
+
+      def scroll_top=(n)
+        @__app__.scroll_top = n
+      end
+
+      def clipboard
+        @__app__.clipboard
+      end
+
+      def clipboard=(str)
+        @__app__.clipboard = str
+      end
+
+      def download(name, args = {}, &blk)
+        create(Shoes::Download, name, args, &blk).tap(&:start)
+      end
+
+      def gutter
+        @__app__.gutter
+      end
+    end
+  end
+end

data/lib/shoes/dsl/media.rb

@@ -0,0 +1,38 @@
+# frozen_string_literal: true
+class Shoes
+  module DSL
+    module Media
+      def image(*args, &blk)
+        if blk
+          raise Shoes::NotImplementedError,
+                'Sorry image does not support the block form in Shoes 4!' \
+                ' Check out github issue #1309 for any changes/updates or if you' \
+                ' want to help :)'
+        else
+          opts = style_normalizer.normalize pop_style(args)
+          path, *leftovers = args
+
+          message = <<EOS
+Wrong number of arguments. Must be:
+  - image(path, [opts])
+EOS
+          raise ArgumentError, message if leftovers.any?
+
+          create Shoes::Image, path, opts
+        end
+      end
+
+      def video(*_args)
+        raise Shoes::NotImplementedError,
+              'Sorry video support has been cut from shoes 4!' \
+              ' Check out github issue #113 for any changes/updates or if you' \
+              ' want to help :)'
+      end
+
+      # similar controls as Shoes::Video (#video)
+      def sound(soundfile, opts = {}, &blk)
+        Shoes::Sound.new @__app__, soundfile, opts, &blk
+      end
+    end
+  end
+end