# Wx::SF::TextShape - text shape class
# Copyright (c) M.J.N. Corino, The Netherlands

require 'wx/shapes/shapes/rect_shape'

module Wx::SF

  class TextShape < RectShape

    # default values
    module DEFAULT
      # Default value of TextShape @font data member.
      FONT = Wx::SWISS_FONT if Wx::App.is_main_loop_running
      Wx.add_delayed_constant(self, :FONT) { Wx::SWISS_FONT }
      # Default value of TextShape @text_color data member.
      TEXTCOLOR = Wx::BLACK if Wx::App.is_main_loop_running
      Wx.add_delayed_constant(self, :TEXTCOLOR) { Wx::BLACK }
    end

    property :font, :text_colour, :text

    # @overload initialize()
    #   Default constructor.
    # @overload initialize(pos, size, diagram)
    #   User constructor.
    #   @param [Wx::RealPoint] pos Initial position
    #   @param [String] txt Text content
    #   @param [Wx::SF::Diagram] diagram parent diagram
    def initialize(*args)
      txt = nil
      if args.empty?
        super
      else
        pos, txt, diagram = args
        super(pos, Wx::RealPoint.new, diagram)
      end
      @font = DEFAULT::FONT
      @font.set_point_size(12)

      @line_height = 12

      @text_color = DEFAULT::TEXTCOLOR
      @text = txt || 'Text'

      @fill = Wx::TRANSPARENT_BRUSH
      @border = Wx::TRANSPARENT_PEN
      @rect_size = Wx::RealPoint.new

      update_rect_size
    end

    # Set text font.
    # @param [Wx::Font] font Font
    def set_font(font)
      @font = font
      update_rect_size
    end
    alias :font= :set_font

    # Get text font.
    # @return [Wx::Font] Font
    def get_font
      @font
    end
    alias :font :get_font

    # Set text.
    # @param [String] txt Text content
    def set_text(txt)
      @text = txt
      update_rect_size
    end
    alias :text= :set_text

    # Get text.
    # @return [String] Current text content
    def get_text
      @text
    end
    alias :text :get_text


    # Set text color.
    # @param [Wx::Colour] col Text color
    def set_text_colour(col)
      @text_color = col
    end
    alias :text_colour= :set_text_colour

    # Get text color.
    # @return [Wx::Colour] Current text color
    def get_text_colour
      @text_color
    end
    alias :text_colour :get_text_colour
    
    # Update shape (align all child shapes and resize it to fit them)
    def update
      update_rect_size
      super
    end

    # Returns size of current text using current font.
    # @return [Wx::Size]
    def get_text_extent
      w = -1
      h = -1
      if get_parent_canvas
        if ShapeCanvas.gc_enabled?
          Wx::GraphicsContext.draw_on(get_parent_canvas) do |gc|
            # calculate text extent
            hd = -1
            e = 0

            gc.set_font(@font, Wx::BLACK)

            # we must use split string to inspect all lines of possible multiline text
            h = 0
            @text.split("\n").each do |line|
              wd, hd, d, e = gc.get_text_extent(line)
              h += (hd + e).to_i
              w = (wd + d).to_i if (wd + d) > w
            end
            @line_height = (hd + e).to_i

            gc.set_font(Wx::NULL_FONT, Wx::BLACK)
          end
        else
          get_parent_canvas.paint do |dc|
            dc.set_font(@font)
            w, h, @line_height = dc.get_multi_line_text_extent(@text)
            dc.set_font(Wx::NULL_FONT)
          end
        end
      else
        w = @rect_size.x.to_i
        h = @rect_size.y.to_i
        @line_height = (@rect_size.y/@text.split("\n").size).to_i
      end

      Wx::Size.new(w, h)
    end

    # Updates rectangle size for this shape.
    def update_rect_size
      tsize = get_text_extent

      if tsize.is_fully_specified
        tsize.width = 1 if tsize.width <= 0
        tsize.height = 1 if tsize.height <= 0

        @rect_size.x = tsize.width.to_f
        @rect_size.y = tsize.height.to_f
      end
    end

    protected

    # Scale the rectangle size for this shape.
    # @param [Float] x Horizontal scale factor
    # @param [Float] y Vertical scale factor
    def scale_rectangle(x, y)
	    s = 1.0

      if x == 1.0
        s = y
      elsif y == 1.0
        s = x
      elsif x >= y
        s = x
      else
        s = y
      end

      size = @font.get_point_size * s
      size = 5 if size < 5

      @font.set_point_size(size)
      update_rect_size
    end

    # Handle's shape specific actions on handling handle events.
    # The function can be overridden if necessary.
    # @param [Shape::Handle] handle Reference to dragged handle
    # @see #on_handle
    def do_on_handle(handle)
      # HINT: overload it for custom actions...
      prev_size = get_rect_size

      # perform standard operations
      case handle.get_type
      when Shape::Handle::TYPE::LEFT
        on_left_handle(handle)
      when Shape::Handle::TYPE::RIGHT
        on_right_handle(handle)
      when Shape::Handle::TYPE::TOP
        on_top_handle(handle)
      when Shape::Handle::TYPE::BOTTOM
        on_bottom_handle(handle)
      end

      new_size = @rect_size

      sx = new_size.x / prev_size.x
      sy = new_size.y / prev_size.y
      scale(sx, sy)

      case handle.get_type
      when Shape::Handle::TYPE::LEFT
        dx = @rect_size.x - prev_size.x
        move_by(-dx, 0)
        @child_shapes.each { |shape| shape.move_by(-dx, 0) }

      when Shape::Handle::TYPE::TOP
        dy = @rect_size.y - prev_size.y
        move_by(0, -dy)
        @child_shapes.each { |shape| shape.move_by(0, -dy) }
      end
    end

	  # Draw the shape in the normal way. The function can be overridden if necessary.
	  # @param [Wx::DC] dc Reference to device context where the shape will be drawn to
    def draw_normal(dc)
      super
      draw_text_content(dc)
    end

	  # Draw the shape in the hover mode (the mouse cursor is above the shape).
    # The function can be overridden if necessary.
	  # @param [Wx::DC] dc Reference to device context where the shape will be drawn to
    def draw_hover(dc)
      super
      draw_text_content(dc)
    end

	  # Draw the shape in the highlighted mode (another shape is dragged over this
    # shape and this shape will accept the dragged one if it will be dropped on it).
    # The function can be overridden if neccessary.
	  # @param [Wx::DC] dc Reference to device context where the shape will be drawn to
    def draw_highlighted(dc)
      super
      draw_text_content(dc)
    end

	  # Draw shadow under the shape. The function can be overridden if necessary.
	  # @param [Wx::DC] dc Reference to device context where the shadow will be drawn to
    def draw_shadow(dc)
      # HINT: overload it for custom actions...

      curr_color = @text_color
      @text_color = get_parent_canvas.get_shadow_fill.get_colour
      offset = get_parent_canvas.get_shadow_offset

      move_by(offset)
      draw_text_content(dc)
      move_by(-offset.x, -offset.y)

      @text_color = curr_color
    end

    # Event handler called during dragging of the left shape handle.
    # The function can be overridden if necessary.
	  # @param [Shape::Handle] handle Reference to dragged shape handle
    def on_left_handle(handle)
      # HINT: overload it for custom actions...

      @rect_size.x -= (handle.get_position.x - get_absolute_position.x)
    end

    # Event handler called during dragging of the top shape handle.
    # The function can be overridden if necessary.
	  # @param [Shape::Handle]handle Reference to dragged shape handle
    def on_top_handle(handle)
      # HINT: overload it for custom actions...

      @rect_size.y -= (handle.get_position.y - get_absolute_position.y)
    end

    # Event handler called during dragging of the right shape handle.
    # The function can be overridden if neccessary.
	  # @param [Shape::Handle] handle Reference to dragged shape handle
    def on_right_handle(handle)
      # HINT: overload it for custom actions...

      @rect_size.x = (handle.get_position.x - get_absolute_position.x)
    end

    # Event handler called during dragging of the bottom shape handle.
    # The function can be overridden if neccessary.
	  # @param [Shape::Handle] handle Reference to dragged shape handle
    def on_bottom_handle(handle)
      # HINT: overload it for custom actions...

      @rect_size.y = (handle.get_position.y - get_absolute_position.y)
    end

	  # Draw text shape.
	  # @param [Wx::DC] dc Device context where the text shape will be drawn to
    def draw_text_content(dc)
      dc.with_brush(@fill) do
        dc.set_background_mode(Wx::BrushStyle::BRUSHSTYLE_TRANSPARENT)
        dc.set_text_foreground(@text_color)
        dc.with_font(@font) do
          pos = get_absolute_position
          # draw all text lines
          @text.split("\n").each_with_index do |line, i|
            dc.draw_text(line, pos.x.to_i, pos.y.to_i + i*@line_height)
          end
        end
      end
    end

    # Deserialize attributes and recalculate rectangle size afterwards.
    # @param [Hash] data
    # @return [self]
    def from_serialized(data)
      super
      update_rect_size
      self
    end

  end

end