fidgit 0.0.2alpha

data/lib/fidgit/selection.rb

@@ -0,0 +1,106 @@
+# encoding: utf-8
+
+module Fidgit
+  class Selection
+    MIN_DRAG_DISTANCE = 2
+
+    def size; @items.size; end
+    def empty?; @items.empty?; end
+    def [](index); @items[index]; end
+    def each(&block); @items.each(&block); end
+    def to_a; @items.dup; end
+    def include?(object); @items.include? object; end
+
+    # Current being dragged?
+    def dragging?; @dragging; end
+
+    # Actually moved during a dragging operation?
+    def moved?; @moved; end
+
+    def initialize
+      @items = []
+      @moved = false
+      @dragging = false
+    end
+
+    def add(object)
+      object.selected = true
+      @items.push(object)
+
+      self
+    end
+
+    def remove(object)
+      @items.delete(object)
+      object.selected = false
+      object.dragging = false
+
+      self
+    end
+
+    def clear
+      end_drag if dragging?
+      @items.each { |o| o.selected = false; o.dragging = false }
+      @items.clear
+
+      self
+    end
+
+    def begin_drag(x, y)
+      @initial_x, @initial_y = x, y
+      @last_x, @last_y = x, y
+      @dragging = true
+      @moved = false
+
+      self
+    end
+
+    def end_drag
+      @items.each do |object|
+        object.x, object.y = object.x.round, object.y.round
+        object.dragging = false
+      end
+      @dragging = false
+      @moved = false
+
+      self
+    end
+
+    # Move all dragged object back to original positions.
+    def reset_drag
+      if moved?
+        @items.each do |o|
+          o.x += @initial_x - @last_x
+          o.y += @initial_y - @last_y
+        end
+      end
+
+      self.end_drag
+
+      self
+    end
+
+    def update_drag(x, y)
+      x, y = x.round, y.round
+
+      # If the mouse has been dragged far enough from the initial click position, then 'pick up' the objects and drag.
+      unless moved?
+        if distance(@initial_x, @initial_y, x, y) > MIN_DRAG_DISTANCE
+          @items.each { |o| o.dragging = true }
+          @moved = true
+        end
+      end
+
+      if moved?
+        @items.each do |o|
+          o.x += x - @last_x
+          o.y += y - @last_y
+        end
+
+        @last_x, @last_y = x, y
+      end
+
+      self
+    end
+  end
+end

data/lib/fidgit/standard_ext/hash.rb

@@ -0,0 +1,21 @@
+class Hash
+  # Merge not only the hashes, but all nested hashes as well.
+  # Written by Stefan Rusterholz (apeiros) from http://www.ruby-forum.com/topic/142809
+  def deep_merge!(other)
+    merger = lambda do |key, a, b|
+      (a.is_a?(Hash) && b.is_a?(Hash)) ? a.merge!(b, &merger) : b
+    end
+
+    merge!(other, &merger)
+  end
+
+  # Merge not only the hashes, but all nested hashes as well.
+  # Written by Stefan Rusterholz (apeiros) from http://www.ruby-forum.com/topic/142809
+  def deep_merge(other)
+    merger = lambda do |key, a, b|
+      (a.is_a?(Hash) && b.is_a?(Hash)) ? a.merge(b, &merger) : b
+    end
+
+    merge(other, &merger)
+  end
+end

data/lib/fidgit/states/dialog_state.rb

@@ -0,0 +1,42 @@
+module Fidgit
+  # A modal dialog.
+  # @abstract
+  class DialogState < GuiState
+    DEFAULT_BACKGROUND_COLOR = Gosu::Color.rgb(75, 75, 75)
+    DEFAULT_BORDER_COLOR = Gosu::Color.rgb(255, 255, 255)
+
+    DEFAULT_SHADOW_COLOR = Gosu::Color.rgba(0, 0, 0, 100)
+    DEFAULT_SHADOW_OFFSET = 8
+
+    def initialize(options = {})
+      # @option options [Gosu::Color] :shadow_color (transparent black) Color of the shadow.
+      # @option options [Gosu::Color] :shadow_offset (8) Distance shadow is offset to bottom and left.
+      # @option options [Gosu::Color] :shadow_full (false) Shadow fills whole screen. Ignores :shadow_offset option if true.
+      options = {
+        shadow_color: DEFAULT_SHADOW_COLOR,
+        shadow_offset: DEFAULT_SHADOW_OFFSET,
+        shadow_full: false,
+      }.merge! options
+
+      @shadow_color = options[:shadow_color].dup
+      @shadow_offset = options[:shadow_offset]
+      @shadow_full = options[:shadow_full]
+
+      super()
+    end
+
+    def draw
+      $window.game_state_manager.previous_game_state.draw # Keep the underlying state being shown.
+      $window.flush
+
+      if @shadow_full
+        draw_rect 0, 0, $window.width, $window.height, -Float::INFINITY, @shadow_color
+      elsif @shadow_offset > 0
+        dialog = container[0]
+        draw_rect dialog.x + @shadow_offset, dialog.y + @shadow_offset, dialog.width, dialog.height, -Float::INFINITY, @shadow_color
+      end
+
+      super
+    end
+  end
+end

data/lib/fidgit/states/file_dialog.rb

@@ -0,0 +1,24 @@
+module Fidgit
+  # A simple dialog that manages a message with a set of buttons beneath it.
+  class FileDialog < DialogState
+    def initialize(type, options = {}, &block)
+      options = {
+        show: true,
+        background_color: DEFAULT_BACKGROUND_COLOR,
+        border_color: DEFAULT_BORDER_COLOR,
+      }.merge! options
+
+      super(options)
+
+      pack :vertical, align: :center, padding: 0 do |packer|
+        FileBrowser.new(type, { parent: packer }.merge!(options)) do |sender, result, file_name|
+          hide
+          block.call result, file_name if block
+        end
+      end
+
+      show if options[:show]
+    end
+  end
+end
+

data/lib/fidgit/states/gui_state.rb

@@ -0,0 +1,301 @@
+# encoding: utf-8
+
+module Fidgit
+  class GuiState < Chingu::GameState
+    # A 1x1 white pixel used for drawing.
+    PIXEL_IMAGE = 'pixel.png'
+
+    # The Container that contains all the elements for this GuiState.
+    # @return [Packer]
+    attr_reader :container
+
+    # The element with focus.
+    # @return [Element]
+    attr_reader :focus
+
+    # The Cursor.
+    # @return [Cursor]
+    def cursor; @@cursor; end
+
+    # Sets the focus to a particular element.
+    def focus=(element)
+      @focus.publish :blur if @focus and element
+      @focus = element
+    end
+
+    # Delay, in ms, before a tool-tip will appear.
+    def tool_tip_delay
+      500 # TODO: configure this.
+    end
+
+    # Show a file_dialog.
+    # (see FileDialog#initialize)
+    def file_dialog(type, options = {}, &block)
+      FileDialog.new(type, options, &block)
+    end
+
+    # (see MenuPane#initialize)
+    def menu(options = {}, &block); MenuPane.new(options, &block); end
+
+    # (see MessageDialog#initialize)
+    def message(text, options = {}, &block); MessageDialog.new(text, options, &block); end
+
+    # (see Container#pack)
+    def pack(*args, &block); @container.pack *args, &block; end
+
+    # (see Container#clear)
+    def clear(*args, &block); @container.clear *args, &block; end
+
+    def initialize
+      # The container is where the user puts their content.
+      @container = VerticalPacker.new(padding: 0, width: $window.width, height: $window.height)
+
+      unless defined? @@draw_pixel
+        media_dir = File.expand_path(File.join(File.dirname(__FILE__), '..', '..', '..', 'media'))
+        Gosu::Image.autoload_dirs << File.join(media_dir, 'images')
+        Gosu::Sample.autoload_dirs << File.join(media_dir, 'sounds')
+
+        @@draw_pixel = Gosu::Image.new($window, File.join(media_dir, 'images', PIXEL_IMAGE), true) # Must be tileable or it will blur.
+        @@cursor = Cursor.new
+      end
+
+      @min_drag_distance = 0
+
+      super()
+
+      add_inputs(
+        left_mouse_button: ->{ redirect_mouse_button(:left) },
+        holding_left_mouse_button: ->{ redirect_holding_mouse_button(:left) },
+        released_left_mouse_button: ->{ redirect_released_mouse_button(:left) },
+        
+        middle_mouse_button: ->{ redirect_mouse_button(:middle) },
+        holding_middle_mouse_button: ->{ redirect_holding_mouse_button(:middle) },
+        released_middle_mouse_button: ->{ redirect_released_mouse_button(:middle) },
+  
+        right_mouse_button: ->{ redirect_mouse_button(:right) },
+        holding_right_mouse_button: ->{ redirect_holding_mouse_button(:right) },
+        released_right_mouse_button: ->{ redirect_released_mouse_button(:right) },
+  
+        mouse_wheel_up: :redirect_mouse_wheel_up,
+        mouse_wheel_down: :redirect_mouse_wheel_down
+      )
+    end
+
+    # Internationalisation helper.
+    def t(*args); I18n.t(*args); end
+
+    # Clear the data which is specific to the current $window.
+    def self.clear
+      remove_class_variable '@@cursor' if defined? @@cursor
+      remove_class_variable '@@draw_pixel' if defined? @@draw_pixel
+    end
+
+    def update
+      cursor.update
+      @tool_tip.update if @tool_tip
+      @menu.update if @menu
+      @container.update
+
+      # Check menu first, then other elements.
+      new_mouse_over = @menu.hit_element(cursor.x, cursor.y) if @menu
+      new_mouse_over = @container.hit_element(cursor.x, cursor.y) unless new_mouse_over
+
+      if new_mouse_over
+        new_mouse_over.publish :enter if new_mouse_over != @mouse_over
+        new_mouse_over.publish :hover, cursor.x, cursor.y
+      end
+
+      @mouse_over.publish :leave if @mouse_over and new_mouse_over != @mouse_over
+
+      @mouse_over = new_mouse_over
+
+      # Check if the mouse has moved, and no menu is shown, so we can show a tooltip.
+      if [cursor.x, cursor.y] == @last_cursor_pos and (not @menu)
+        if @mouse_over and (Gosu::milliseconds - @mouse_moved_at) > tool_tip_delay
+          if text = @mouse_over.tip and not text.empty?
+            @tool_tip ||= ToolTip.new
+            @tool_tip.text = text
+            @tool_tip.x = cursor.x
+            @tool_tip.y = cursor.y + cursor.height # Place the tip beneath the cursor.
+          else
+            @tool_tip = nil
+            @mouse_moved_at = Gosu::milliseconds
+          end
+        end
+      else
+        @tool_tip = nil
+        @mouse_moved_at = Gosu::milliseconds
+      end
+
+      # The element that grabs input.
+      @active_element = @dragging_element || @focus || @mouse_over
+
+      @last_cursor_pos = [cursor.x, cursor.y]
+
+      super
+    end
+
+    def draw
+      @container.draw
+      @menu.draw if @menu
+      @tool_tip.draw if @tool_tip
+      cursor.draw
+
+      nil
+    end
+
+    def setup
+      super
+
+      @tool_tip = nil
+      @mouse_over = nil # Element the mouse is hovering over.
+      @mouse_down_on = Hash.new # Element that each button was pressed over.
+      @mouse_down_pos = Hash.new # Position that each button was pressed down at.
+      @drag_button = nil
+      @dragging_element = nil
+      @focus = nil
+      @mouse_moved_at = Gosu::milliseconds
+
+      nil
+    end
+
+    def finalize
+      @tool_tip = nil
+
+      nil
+    end
+
+    # Set the menu pane to be displayed.
+    #
+    # @param [MenuPane] menu Menu to display.
+    # @return nil
+    def show_menu(menu)
+      hide_menu if @menu
+      @menu = menu
+
+      nil
+    end
+
+    # Hides the currently shown menu, if any.
+    # @return nil
+    def hide_menu
+      @menu = nil
+
+      nil
+    end
+
+    # Flush all pending drawing to the screen.
+    def flush
+      $window.flush
+    end
+
+    # Draw a filled rectangle.
+    def draw_rect(x, y, width, height, z, color, mode = :default)
+      @@draw_pixel.draw x, y, z, width, height, color, mode
+
+      nil
+    end
+
+    # Draw an unfilled rectangle.
+    def draw_frame(x, y, width, height, thickness, z, color, mode = :default)
+      draw_rect(x - thickness, y, thickness, height, z, color, mode) # left
+      draw_rect(x - thickness, y - thickness, width + thickness * 2, thickness, z, color, mode) # top (full)
+      draw_rect(x + width, y, thickness, height, z, color, mode) # right
+      draw_rect(x - thickness, y + height, width + thickness * 2, thickness, z, color, mode) # bottom (full)
+
+      nil
+    end
+
+    def distance(x1, y1, x2, y2)
+      Gosu.distance(x1, y1, x2, y2)
+    end
+
+    def show
+      $window.game_state_manager.push self unless $window.game_state_manager.game_states.include? self
+      nil
+    end
+
+    def hide
+      $window.game_state_manager.pop if $window.game_state_manager.current == self
+      nil
+    end
+
+    protected
+    def redirect_mouse_button(button)
+      # Ensure that if the user clicks away from a menu, it is automatically closed.
+      hide_menu unless @menu and @menu == @mouse_over
+
+      # Blur if clicking outside the focused element.
+      if @focus and @mouse_over != @focus
+        @focus.publish :blur
+        @focus = nil
+      end
+
+      # Publish :left_mouse_button for the element that is clicked.
+      if @mouse_over
+        @mouse_down_pos[button] = [cursor.x, cursor.y]
+        @mouse_down_on[button] = @mouse_over
+        @mouse_over.publish :"#{button}_mouse_button", *@mouse_down_pos[button]
+      else
+        @mouse_down_pos[button] = nil
+        @mouse_down_on[button] = nil
+      end
+
+      nil
+    end
+
+    protected
+    def redirect_released_mouse_button(button)
+      # Ensure that if the user clicks away from a menu, it is automatically closed.
+      hide_menu if @menu and @mouse_over != @menu
+
+      if @mouse_over
+        @mouse_over.publish :"released_#{button}_mouse_button", cursor.x, cursor.y
+        @mouse_over.publish :"clicked_#{button}_mouse_button", cursor.x, cursor.y if @mouse_over == @mouse_down_on[button]
+      end
+
+      if @dragging_element and @drag_button == button
+        @dragging_element.publish :end_drag, cursor.x, cursor.y, @drag_button, @mouse_over
+        @dragging_element = nil
+        @drag_button = nil
+      end
+
+      @mouse_down_on[button] = nil
+      @mouse_down_pos[button] = nil
+
+      nil
+    end
+
+    protected
+    def redirect_holding_mouse_button(button)
+      if not @dragging_element and @mouse_down_on[button] and @mouse_down_on[button].drag?(button) and
+          distance(*@mouse_down_pos[button], cursor.x, cursor.y) > @min_drag_distance
+        @drag_button = button
+        @dragging_element = @mouse_down_on[button]
+        @dragging_element.publish :begin_drag, *@mouse_down_pos[button], :left
+      end
+
+      if @dragging_element
+        if @drag_button == button
+          @dragging_element.publish :update_drag, cursor.x, cursor.y
+        end
+      else
+        @mouse_over.publish :"holding_#{button}_mouse_button", cursor.x, cursor.y if @mouse_over
+      end
+
+      nil
+    end
+
+    protected
+    def redirect_mouse_wheel_up
+      @active_element.publish :mouse_wheel_up, cursor.x, cursor.y if @active_element
+      nil
+    end
+
+    protected
+    def redirect_mouse_wheel_down
+      @active_element.publish :mouse_wheel_down, cursor.x, cursor.y if @active_element
+      nil
+    end
+  end
+end