require 'label'
module Rubygoo
  class CheckBox < Widget
    attr_accessor :checked
    can_fire :checked
    DEFAULT_PARAMS = {:align=>:right}
    def initialize(opts={})
      opts = DEFAULT_PARAMS.merge opts
      super opts
      @checked = opts[:checked]

      # only supports label on the right
      # TODO maybe I should do this in added
      @label_text = opts[:label]
      @label_alignment = opts[:align]
    end

    def added()
      @color = theme_property :color
      @bg_color = theme_property :bg_color
      @border_color = theme_property :border_color
      @focus_color = theme_property :focus_color
      @checked_color = theme_property :checked_color
      @hover_color = theme_property :hover_color

      @rect = Rect.new [@x-@x_pad,@y-@y_pad,@w+2*@x_pad,@h+2*@y_pad]
      unless @label_text.nil? or @label_text.empty?
        @label = Label.new @label_text, :x=>0,:y=>0, :relative=>@relative, :visible=>false
        @parent.add @label

        case @label_alignment
        when :right
          lx = @x+2*@x_pad+@w
          ly = @y
        when :left
          ly = @y
          lx = @x-2*@x_pad-@label.w
        end
        @label.x = lx
        @label.y = ly
        @label.show
      end
    end

    def checked?()
      @checked
    end

    def toggle()
      if checked?
        uncheck
      else
        check
      end
    end

    def check()
      @checked = true
      fire :checked, self
    end

    def uncheck()
      @checked = false
      fire :checked, self
    end

    # called when there is a mouse click
    def mouse_up(event)
      toggle
    end

    # called when there is a mouse click at the end of a drag
    def mouse_drag(event)
      toggle
    end

    # called when a key press is sent to us
    def key_pressed(event)
      case event.data[:key]
      when K_SPACE
        toggle
      end
    end

    def draw(adapter)
      x1 = @rect[0]
      y1 = @rect[1]
      x2 = @rect[2] + x1
      y2 = @rect[3] + y1
      if @focussed
        adapter.fill x1, y1, x2, y2, @focus_color
      elsif @bg_color
        adapter.fill x1, y1, x2, y2, @bg_color
      end

      if @checked
        rect = @rect.inflate(-@x_pad,-@y_pad)
        cx1 = rect[0]
        cy1 = rect[1]
        cx2 = rect[2] + x1
        cy2 = rect[3] + y1
        adapter.fill cx1, cy1, cx2, cy2, @checked_color
      end

      if mouse_over? and @hover_color
        adapter.fill x1, y1, x2, y2, @hover_color
      end

      if @border_color
        adapter.draw_box x1, y1, x2, y2, @border_color
      end
    end
  end
end