shoes-core 4.0.0.pre8 → 4.0.0.pre9

data/lib/shoes/common/visibility.rb

@@ -1,10 +1,11 @@
+# frozen_string_literal: true
 class Shoes
   module Common
     module Visibility
       # Hides the element, so that it can't be seen. See also #show and #toggle.
       def hide
-        style[:hidden] = true
-        update_visibility
+        style(hidden: true)
+        self
       end
 
       def hidden?
@@ -19,15 +20,15 @@ class Shoes
 
       # Reveals the element, if it is hidden. See also #hide and #toggle.
       def show
-        style[:hidden] = false
-        update_visibility
+        style(hidden: false)
+        self
       end
 
       # Hides an element if it is shown. Or shows the element, if it is hidden.
       # See also #hide and #show.
       def toggle
-        style[:hidden] = !style[:hidden]
-        update_visibility
+        style(hidden: !style[:hidden])
+        self
       end
 
       private

data/lib/shoes/configuration.rb

@@ -1,9 +1,11 @@
+# frozen_string_literal: true
 class Shoes
   class Configuration
     class << self
-      def reset
-        @logger = nil
-        @logger_instance = nil
+      attr_writer :fail_fast
+
+      def fail_fast
+        @fail_fast ||= ENV["SHOES_FAIL_FAST"]
       end
 
       def backend
@@ -71,19 +73,6 @@ class Shoes
         klass = backend_class(shoes_object)
         klass.respond_to?(:create) ? klass.method(:create) : klass.method(:new)
       end
-
-      def logger=(value)
-        @logger = value
-        @logger_instance = nil
-      end
-
-      def logger
-        @logger ||= :ruby
-      end
-
-      def logger_instance
-        @logger_instance ||= Shoes::Logger.get(logger).new
-      end
     end
   end
 end

data/lib/shoes/console.rb

@@ -0,0 +1,91 @@
+# frozen_string_literal: true
+class Shoes
+  class Console
+    def initialize
+      @messages = []
+    end
+
+    def show
+      if showing?
+        @app.focus
+      else
+        create_app
+      end
+    end
+
+    def showing?
+      @app && @app.open?
+    end
+
+    def create_app
+      # Capture messages for access inside our app block
+      messages = @messages
+
+      @app = Shoes.app do
+        @messages = messages
+        @message_stacks = []
+
+        stack do
+          flow do
+            background black
+            stack do
+              tagline "Shoes Console", stroke: white
+            end
+
+            button "Clear", margin: 6, width: 80, height: 40, right: 10 do
+              @messages.clear
+
+              @message_stacks.each(&:remove)
+              @message_stacks.clear
+            end
+          end
+        end
+      end
+
+      @messages.each_with_index do |(type, message), index|
+        add_message_stack(type, message, index)
+      end
+    end
+
+    def debug(message)
+      add_message(:debug, message)
+    end
+
+    def info(message)
+      add_message(:info, message)
+    end
+
+    def warn(message)
+      add_message(:warn, message)
+    end
+
+    def error(message)
+      add_message(:error, message)
+    end
+
+    def add_message(type, message)
+      @messages << [type, message]
+      add_message_stack(type, message, @messages.count - 1)
+    end
+
+    def add_message_stack(type, message, index = nil)
+      return unless @app && @app.open?
+
+      @app.instance_exec do
+        append do
+          @message_stacks << stack do
+            background "#f1f5e1" if index.even?
+            background rgb(220, 220, 220) if index.odd?
+            para type, stroke: blue
+            flow do
+              stack margin: 4 do
+                s = message.to_s
+                para s, margin: 4, margin_top: 0
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/shoes/core.rb

@@ -1,2 +1,2 @@
-require 'logger'
+# frozen_string_literal: true
 require 'shoes/dsl'

data/lib/shoes/core/version.rb

@@ -2,6 +2,6 @@
 
 class Shoes
   module Core
-    VERSION = "4.0.0.pre8"
+    VERSION = "4.0.0.pre9"
   end
 end

data/lib/shoes/dialog.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 class Shoes
   class Dialog
     def initialize

data/lib/shoes/dimension.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 class Shoes
   class Dimension
     attr_reader :parent

data/lib/shoes/dimensions.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 # Dimensions is a central class that most Shoes classes use to represent their
 # dimensions, e.g. where they are and how much space they are taking up there.
 # All the different position types might be confusing. So here is a little list:

data/lib/shoes/download.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 class Shoes
   class HttpResponse
     # Struct might be better?

data/lib/shoes/dsl.rb

@@ -1,16 +1,17 @@
+# frozen_string_literal: true
 require 'delegate'
 require 'fileutils'
 require 'forwardable'
 require 'pathname'
 require 'tmpdir'
 require 'shoes/common/registration'
+require 'shoes/dsl/setup'
 
 class Shoes
   PI                  = Math::PI
   TWO_PI              = 2 * PI
   HALF_PI             = 0.5 * PI
   DIR                 = Pathname.new(__FILE__).parent.parent.parent.to_s
-  LOG                 = []
   LEFT_MOUSE_BUTTON   = 1
   MIDDLE_MOUSE_BUTTON = 2
   RIGHT_MOUSE_BUTTON  = 3
@@ -18,45 +19,16 @@ class Shoes
   extend Common::Registration
 
   class << self
-    def logger
-      Shoes.configuration.logger_instance
-    end
-
-    # To ease the upgrade path from Shoes 3 we warn users they need to install
-    # and require gems themselves.
-    #
-    # @example
-    #   Shoes.setup do
-    #     gem 'bluecloth =2.0.6'
-    #     gem 'metaid'
-    #   end
-    #
-    # @param block [Proc] The block that describes the gems that are needed
-    # @deprecated
-    def setup(&block)
-      $stderr.puts "WARN: The Shoes.setup method is deprecated, you need to install gems yourself." \
-                   "You can do this using the 'gem install' command or bundler and a Gemfile."
-      DeprecatedShoesGemSetup.new.instance_eval(&block)
+    def console
+      @console ||= Shoes::Console.new
     end
 
-    # Load the backend in memory. This does not set any configuration.
-    #
-    # @param name [String|Symbol] The name, such as :swt or :mock
-    # @return The backend
-    def load_backend(name)
-      require "shoes/#{name.to_s.downcase}"
-      Shoes.const_get(name.to_s.capitalize)
-    rescue LoadError => e
-      raise LoadError, "Couldn't load backend Shoes::#{name.capitalize}'. Error: #{e.message}\n#{e.backtrace.join("\n")}"
-    end
-  end
+    def logger
+      return @logger if @logger
 
-  class DeprecatedShoesGemSetup
-    def gem(name)
-      name, version = name.split
-      install_cmd = 'gem install ' + name
-      install_cmd += " --version \"#{version}\"" if version
-      $stderr.puts "WARN: To use the '#{name}' gem, install it with '#{install_cmd}', and put 'require \"#{name}\"' at the top of your Shoes program."
+      @logger ||= Shoes::LoggerCollection.new
+      @logger << Shoes::StandardLogger.new
+      @logger << console
     end
   end
 end
@@ -75,16 +47,24 @@ require 'shoes/text_block_dimensions'
 
 require 'shoes/color'
 
+require 'shoes/dsl/animate'
+require 'shoes/dsl/art'
+require 'shoes/dsl/element'
+require 'shoes/dsl/style'
+require 'shoes/dsl/interaction'
+require 'shoes/dsl/media'
+require 'shoes/dsl/text'
+
 require 'shoes/common/attachable'
 require 'shoes/common/changeable'
 require 'shoes/common/clickable'
 require 'shoes/common/fill'
 require 'shoes/common/hover'
-require 'shoes/common/initialization'
 require 'shoes/common/link_finder'
 require 'shoes/common/positioning'
 require 'shoes/common/remove'
 require 'shoes/common/rotate'
+require 'shoes/common/safely_evaluate'
 require 'shoes/common/state'
 require 'shoes/common/stroke'
 require 'shoes/common/style'
@@ -98,8 +78,10 @@ require 'shoes/common/background_element'
 
 require 'shoes/builtin_methods'
 require 'shoes/check_button'
+require 'shoes/logger_collection'
 require 'shoes/text'
 require 'shoes/span'
+require 'shoes/standard_logger'
 require 'shoes/input_box'
 
 # please keep this list tidy and alphabetically sorted
@@ -110,6 +92,7 @@ require 'shoes/background'
 require 'shoes/border'
 require 'shoes/button'
 require 'shoes/configuration'
+require 'shoes/console'
 require 'shoes/color'
 require 'shoes/dialog'
 require 'shoes/download'
@@ -121,7 +104,6 @@ require 'shoes/key_event'
 require 'shoes/line'
 require 'shoes/link'
 require 'shoes/list_box'
-require 'shoes/logger'
 require 'shoes/oval'
 require 'shoes/point'
 require 'shoes/progress'
@@ -152,561 +134,19 @@ class Shoes
   module DSL
     include Color::DSLHelpers
 
-    # Set default style for elements of a particular class, or for all
-    # elements, or return the current defaults for all elements
-    #
-    # @overload style(klass, styles)
-    #   Set default style for elements of a particular class
-    #   @param [Class] klass a Shoes element class
-    #   @param [Hash] styles default styles for elements of klass
-    #   @example
-    #     style Para, :text_size => 42, :stroke => green
-    #
-    # @overload style(styles)
-    # Set default style for all elements
-    #   @param [Hash] styles default style for all elements
-    #   @example
-    #     style :stroke => alicewhite, :fill => black
-    #
-    # @overload style()
-    #   @return [Hash] the default style for all elements
-    def style(klass_or_styles = nil, styles = {})
-      if klass_or_styles.kind_of? Class
-        klass = klass_or_styles
-        @__app__.element_styles[klass] = styles
-      else
-        @__app__.style(klass_or_styles)
-      end
-    end
+    include DSL::Animate
+    include DSL::Art
+    include DSL::Element
+    include DSL::Style
+    include DSL::Interaction
+    include DSL::Media
+    include DSL::Text
 
     private
 
-    def style_normalizer
-      @style_normalizer ||= Common::StyleNormalizer.new
-    end
-
-    def pop_style(opts)
-      opts.last.class == Hash ? opts.pop : {}
-    end
-
-    # Default styles for elements of klass
-    def style_for_element(klass, styles = {})
-      @__app__.element_styles.fetch(klass, {}).merge(styles)
-    end
-
-    def normalize_style_for_element(clazz, texts)
-      style = style_normalizer.normalize(pop_style(texts))
-      style_for_element(clazz, style)
-    end
-
     def create(element, *args, &blk)
       element.new(@__app__, @__app__.current_slot, *args, &blk)
     end
-
-    public
-
-    def image(path, styles = {}, &blk)
-      create Shoes::Image, path, styles, blk
-    end
-
-    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
-
-    # 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
-
-    # similar controls as Shoes::Video (#video)
-    def sound(soundfile, opts = {}, &blk)
-      Shoes::Sound.new @__app__, soundfile, opts, &blk
-    end
-
-    # 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
-
-    # Define app-level setter methods
-    PATTERN_APP_STYLES = [:fill, :stroke].freeze
-    OTHER_APP_STYLES = [:cap, :rotate, :strokewidth, :transform].freeze
-
-    PATTERN_APP_STYLES.each do |style|
-      define_method style do |val|
-        @__app__.style[style] = pattern(val)
-      end
-    end
-
-    OTHER_APP_STYLES.each do |style|
-      define_method style do |val|
-        @__app__.style[style] = val
-      end
-    end
-
-    def translate(left, top)
-      @__app__.style[:translate] = [left, top]
-    end
-
-    def nostroke
-      @__app__.style[:stroke] = nil
-    end
-
-    def nofill
-      @__app__.style[:fill] = nil
-    end
-
-    %w(banner title subtitle tagline caption para inscription).each do |method|
-      define_method method do |*texts|
-        styles = pop_style(texts)
-        klass = Shoes.const_get(method.capitalize)
-        create klass, texts, styles
-      end
-    end
-
-    TEXT_STYLES = {
-      code: { font: "Lucida Console" },
-      del: { strikethrough: true },
-      em: { emphasis: true },
-      ins: { underline: true },
-      sub: { rise: -10, size_modifier: 0.8 },
-      sup: { rise: 10, size_modifier: 0.8 },
-      strong: { weight: true },
-    }.freeze
-
-    TEXT_STYLES.keys.each do |method|
-      define_method method do |*texts|
-        styles = style_normalizer.normalize(pop_style(texts))
-        styles = TEXT_STYLES[method].merge(styles)
-        Shoes::Span.new texts, styles
-      end
-    end
-
-    def fg(*texts, color)
-      Shoes::Span.new texts,  stroke: pattern(color)
-    end
-
-    def bg(*texts, color)
-      Shoes::Span.new texts,  fill: pattern(color)
-    end
-
-    def link(*texts, &blk)
-      opts = normalize_style_for_element(Shoes::Link, texts)
-      Shoes::Link.new @__app__, texts, opts, blk
-    end
-
-    def span(*texts)
-      opts = normalize_style_for_element(Shoes::Span, texts)
-      Shoes::Span.new texts, opts
-    end
-
-    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
-
-    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
   end
 end