cyberarm_engine 0.1.0

data/lib/cyberarm_engine/ui/container.rb

@@ -0,0 +1,154 @@
+module CyberarmEngine
+  class Container < Element
+    include Common
+
+    attr_accessor :stroke_color, :fill_color
+    attr_reader :children
+    attr_reader :scroll_x, :scroll_y
+
+    def initialize(options = {}, block = nil)
+      super
+
+      @scroll_x, @scroll_y = 0, 0
+      @scroll_speed = 10
+
+      @text_color = options[:color]
+
+      @children = []
+
+      @theme = {}
+    end
+
+    def build
+      @theme.merge(@parent.theme) if @parent
+      @block.call(self) if @block
+
+      recalculate
+    end
+
+    def add(element)
+      @children << element
+
+      recalculate
+    end
+
+    def render
+        @children.each(&:draw)
+    end
+
+    def update
+      @children.each(&:update)
+    end
+
+    def theme
+      @theme
+    end
+
+    def color(color)
+      @theme[:color] = color
+    end
+
+    def hit_element?(x, y)
+      @children.reverse_each do |child|
+        case child
+        when Container
+          if element = child.hit_element?(x, y)
+            return element
+          end
+        else
+          return child if child.hit?(x, y)
+        end
+      end
+
+      self if hit?(x, y)
+    end
+
+    def recalculate
+      @current_position = Vector.new(@margin_left, @margin_top)
+
+      layout
+
+      @width  = @max_width  ? @max_width  : (@children.map {|c| c.x + c.width  + c.margin_right }.max || 0).round
+      @height = @max_height ? @max_height : (@children.map {|c| c.y + c.height + c.margin_bottom}.max || 0).round
+
+      # Move child to parent after positioning
+      @children.each do |child|
+        child.x += @x
+        child.y += @y
+
+        # Fix child being displaced
+        child.recalculate
+      end
+
+      update_background
+    end
+
+    def layout
+      raise "Not overridden"
+    end
+
+    def max_width
+      @max_width ? @max_width : window.width - (@parent ? @parent.margin_right + @margin_right : @margin_right)
+    end
+
+    def fits_on_line?(element) # Flow
+      @current_position.x + element.outer_width <= max_width &&
+      @current_position.x + element.outer_width <= window.width
+    end
+
+    def position_on_current_line(element) # Flow
+      element.x = element.margin_left + @current_position.x
+      element.y = element.margin_top  + @current_position.y
+
+      element.recalculate
+
+      @current_position.x += element.outer_width
+      @current_position.x = @margin_left if @current_position.x >= max_width
+    end
+
+    def tallest_neighbor(querier, y_position) # Flow
+      response = querier
+      @children.each do |child|
+        response = child if child.outer_height > response.outer_height
+        break if child == querier
+      end
+
+      return response
+    end
+
+    def position_on_next_line(child) # Flow
+      @current_position.x = @margin_left
+      @current_position.y += tallest_neighbor(child, @current_position.y).outer_height
+
+      child.x = child.margin_left + @current_position.x
+      child.y = child.margin_top  + @current_position.y
+
+      child.recalculate
+
+      @current_position.x += child.outer_width
+    end
+
+    def move_to_next_line(element) # Stack
+      element.x = element.margin_left + @current_position.x
+      element.y = element.margin_top  + @current_position.y
+
+      element.recalculate
+
+      @current_position.y += element.outer_height
+    end
+
+    # def mouse_wheel_up(sender, x, y)
+    #   @children.each {|c| c.y -= @scroll_speed}
+    #   @children.each {|c| c.recalculate}
+    # end
+
+    # def mouse_wheel_down(sender, x, y)
+    #   @children.each {|c| c.y += @scroll_speed}
+    #   @children.each {|c| c.recalculate}
+    # end
+
+    def value
+      @children.map {|c| c.class}.join(", ")
+    end
+  end
+end

data/lib/cyberarm_engine/ui/dsl.rb

@@ -0,0 +1,82 @@
+module CyberarmEngine
+  module DSL
+    def flow(options = {}, &block)
+      options[:parent] = @containers.last
+      _container = Flow.new(options, block)
+      @containers << _container
+      _container.build
+      options[:parent].add(_container)
+      @containers.pop
+
+      return _container
+    end
+
+    def stack(options = {}, &block)
+      options[:parent] = @containers.last
+      _container = Stack.new(options, block)
+      @containers << _container
+      _container.build
+      options[:parent].add(_container)
+      @containers.pop
+
+      return _container
+    end
+
+    def label(text, options = {}, &block)
+      options[:parent] = @containers.last
+      _element = Label.new(text, options, block)
+      @containers.last.add(_element)
+
+      return _element
+    end
+
+    def button(text, options = {}, &block)
+      options[:parent] = @containers.last
+      _element = Button.new(text, options, block) { if block.is_a?(Proc); block.call; end }
+      @containers.last.add(_element)
+
+      return _element
+    end
+
+    def edit_line(text, options = {}, &block)
+      options[:parent] = @containers.last
+      _element = EditLine.new(text, options, block)
+      @containers.last.add(_element)
+
+      return _element
+    end
+
+    def toggle_button(options = {}, &block)
+      options[:parent] = @containers.last
+      _element = ToggleButton.new(options, block)
+      @containers.last.add(_element)
+
+      return _element
+    end
+
+    def check_box(text, options = {}, &block)
+      options[:parent] = @containers.last
+      _element = CheckBox.new(text, options, block)
+      @containers.last.add(_element)
+
+      return _element
+    end
+
+    def image(path, options = {}, &block)
+      options[:parent] = @containers.last
+      _element = Image.new(path, options, block)
+      @containers.last.add(_element)
+
+      return _element
+    end
+
+    def background(color = Gosu::Color::NONE)
+      @containers.last.background = color
+    end
+
+    # Foreground color, e.g. Text
+    def color(color)
+      @containers.last.color(color)
+    end
+  end
+end

data/lib/cyberarm_engine/ui/edit_line.rb

@@ -0,0 +1,88 @@
+module CyberarmEngine
+  class EditLine < Button
+    def initialize(text, options = {}, block = nil)
+      super(text, options, block)
+
+      @type = default(:type)
+
+
+      @caret_width = default(:caret_width)
+      @caret_height= @text.height
+      @caret_color = default(:caret_color)
+      @caret_interval = default(:caret_interval)
+      @caret_last_interval = Gosu.milliseconds
+      @show_caret  = true
+
+      @text_input = Gosu::TextInput.new
+      @text_input.text = text
+
+      return self
+    end
+
+    def render
+      Gosu.clip_to(@text.x, @text.y, @width, @text.height) do
+        draw_text
+        Gosu.draw_rect(caret_position, @text.y, @caret_width, @caret_height, @caret_color, @z + 40) if @focus && @show_caret
+      end
+    end
+
+    def update
+      if @type == :password
+        @text.text = default(:password_character) * @text_input.text.length
+      else
+        @text.text = @text_input.text
+      end
+
+      if Gosu.milliseconds >= @caret_last_interval + @caret_interval
+        @caret_last_interval = Gosu.milliseconds
+
+        @show_caret = !@show_caret
+      end
+    end
+
+    def left_mouse_button(sender, x, y)
+      super
+      window.text_input = @text_input
+    end
+
+    def enter(sender)
+      if @focus
+        @background_canvas.background = default(:active, :background)
+        @text.color = default(:active, :color)
+      else
+        @background_canvas.background = default(:hover, :background)
+        @text.color = default(:hover, :color)
+      end
+    end
+
+    def leave(sender)
+    end
+
+    def blur(sender)
+      @focus = false
+      @background_canvas.background = default(:background)
+      @text.color = default(:color)
+      window.text_input = nil
+    end
+
+    # TODO: Fix caret rendering in wrong position unless caret_pos is at end of text
+    def caret_position
+      if @type == :password
+        @text.x + @text.textobject.text_width(default(:password_character) * @text_input.text[0..@text_input.caret_pos-1].length)
+      else
+        @text.x + @text.textobject.text_width(@text_input.text[0..@text_input.caret_pos-1])
+      end
+    end
+
+    def recalculate
+      super
+
+      @width = default(:width)
+      update_background
+    end
+
+    def value
+      @text_input.text
+    end
+  end
+end

data/lib/cyberarm_engine/ui/element.rb

@@ -0,0 +1,197 @@
+module CyberarmEngine
+  class Element
+    include Theme
+    include Event
+    include Common
+
+    attr_accessor :x, :y, :z, :enabled
+    attr_reader :width, :height, :parent, :options, :event_handler, :background_canvas, :border_canvas
+
+    attr_reader :border_thickness, :border_thickness_left, :border_thickness_right, :border_thickness_top, :border_thickness_bottom
+    attr_reader :border_color, :border_color_left, :border_color_right, :border_color_top, :border_color_bottom
+
+    attr_reader :padding, :padding_left, :padding_right, :padding_top, :padding_bottom
+    attr_reader :margin, :margin_left, :margin_right, :margin_top, :margin_bottom
+
+    def initialize(options = {}, block = nil)
+      @parent = options[:parent] # parent Container (i.e. flow/stack)
+      options = theme_defaults.merge(options)
+      @options = options
+      @block = block
+
+      @style             = Style.new(options)
+      @focus             = false
+      @background_canvas = Background.new
+      @border_canvas     = BorderCanvas.new(element: self)
+
+      @x = default(:x)
+      @y = default(:y)
+      @z = default(:z)
+
+      @fixed_x = @x if @x != 0
+      @fixed_y = @y if @y != 0
+
+      @width  = default(:width)  || $window.width
+      @height = default(:height) || $window.height
+
+      set_border_thickness(default(:border_thickness))
+
+      set_padding(default(:padding))
+
+      set_margin(default(:margin))
+
+      set_background(default(:background))
+      set_border_color(default(:border_color))
+
+      raise "#{self.class} 'x' must be a number" unless @x.is_a?(Numeric)
+      raise "#{self.class} 'y' must be a number" unless @y.is_a?(Numeric)
+      raise "#{self.class} 'z' must be a number" unless @z.is_a?(Numeric)
+      raise "#{self.class} 'width' must be a number"  unless @width.is_a?(Numeric)  || @width.nil?
+      raise "#{self.class} 'height' must be a number" unless @height.is_a?(Numeric) || @height.nil?
+      raise "#{self.class} 'options' must be a Hash" unless @options.is_a?(Hash)
+
+      # raise "#{self.class} 'padding' must be a number" unless @padding.is_a?(Numeric)
+
+      @enabled = true
+
+      default_events
+    end
+
+    def set_background(background)
+      @background = background
+      @background_canvas.background = background
+    end
+
+    def set_border_thickness(border_thickness)
+      @border_thickness = border_thickness
+
+      @border_thickness_left   = default(:border_thickness_left)   || @border_thickness
+      @border_thickness_right  = default(:border_thickness_right)  || @border_thickness
+      @border_thickness_top    = default(:border_thickness_top)    || @border_thickness
+      @border_thickness_bottom = default(:border_thickness_bottom) || @border_thickness
+    end
+
+    def set_border_color(color)
+      @border_color = color
+
+      @border_color_left   = default(:border_color_left)   || @border_color
+      @border_color_right  = default(:border_color_right)  || @border_color
+      @border_color_top    = default(:border_color_top)    || @border_color
+      @border_color_bottom = default(:border_color_bottom) || @border_color
+
+      @border_canvas.color = color
+    end
+
+    def set_padding(padding)
+      @padding = padding
+
+      @padding_left   = default(:padding_left)   || @padding
+      @padding_right  = default(:padding_right)  || @padding
+      @padding_top    = default(:padding_top)    || @padding
+      @padding_bottom = default(:padding_bottom) || @padding
+    end
+
+    def set_margin(margin)
+      @margin = margin
+
+      @margin_left   = default(:margin_left)   || @margin
+      @margin_right  = default(:margin_right)  || @margin
+      @margin_top    = default(:margin_top)    || @margin
+      @margin_bottom = default(:margin_bottom) || @margin
+    end
+
+    def default_events
+      [:left, :middle, :right].each do |button|
+        event(:"#{button}_mouse_button")
+        event(:"released_#{button}_mouse_button")
+        event(:"clicked_#{button}_mouse_button")
+        event(:"holding_#{button}_mouse_button")
+      end
+
+      event(:mouse_wheel_up)
+      event(:mouse_wheel_down)
+
+      event(:enter)
+      event(:hover)
+      event(:leave)
+
+      event(:blur)
+    end
+
+    def enabled?
+      @enabled
+    end
+
+    def draw
+      @background_canvas.draw
+      @border_canvas.draw
+      render
+    end
+
+    def update
+    end
+
+    def button_down(id)
+    end
+
+    def button_up(id)
+    end
+
+    def render
+    end
+
+    def hit?(x, y)
+      x.between?(@x, @x + width) &&
+      y.between?(@y, @y + height)
+    end
+
+    def width
+      (@border_thickness_left + @padding_left) + @width + (@padding_right + @border_thickness_right)
+    end
+
+    def outer_width
+      @margin_left + width + @margin_right
+    end
+
+    def height
+      (@border_thickness_top + @padding_top) + @height + (@padding_bottom + @border_thickness_bottom)
+    end
+
+    def outer_height
+      @margin_top + height + @margin_bottom
+    end
+
+    def style(hash)
+      if hash
+        @style.set(hash)
+      else
+        @style.hash
+      end
+    end
+
+    def background=(_background)
+      @background_canvas.background=(_background)
+      update_background
+    end
+
+    def update_background
+      @background_canvas.x = @x
+      @background_canvas.y = @y
+      @background_canvas.z = @z
+      @background_canvas.width  = width
+      @background_canvas.height = height
+
+      @background_canvas.update
+
+      @border_canvas.update
+    end
+
+    def recalculate
+      raise "#{self.class}#recalculate was not overridden!"
+    end
+
+    def value
+      raise "#{self.class}#value was not overridden!"
+    end
+  end
+end