--- A generic window element. Built-in support for minimize, maximize, and close
--- buttons, as well as drag-to-resize and drag-to-move. Title bar customizable.
--- @classmod window
--- @copyright Paul Liverman III (2016)
--- @license The MIT License (MIT)
--- @todo Implement missing features.

local pop

import graphics, mouse from love

path = (...)\sub 1, -7
element = require "#{path}/element"

import inheritsFromElement from require "#{path\sub 1, -11}/util"

path = path\sub 1, -11
maximizeImage = graphics.newImage "#{path}/images/maximize.png"
minimizeImage = graphics.newImage "#{path}/images/minimize.png"
closeImage = graphics.newImage "#{path}/images/close.png"
-- drag to resize is based on area of padding, which defaults to 5 pixels

class window extends element
  load: (pop_lib) ->
    pop = pop_lib

  --- Constructor expects nothing, or a data table describing it.
  --- @todo document containMethod values
  new: (@parent, @data={}, title="Window") =>
    super @parent, @data

    @data.type = "window" if @data.type == "element"
    @data.w = 100 unless @data.w > 0
    @data.h = 80 unless @data.h > 0

    -- how a window is contained within its parent element
    @data.containMethod = "mouse" unless @data.containMethod

    @data.maximized = false
    @data.titleBar = true if @data.titleBar == nil
    @data.moveable = true if @data.moveable == nil
    @data.maximizeable = false if @data.maximizeable == nil
    @data.minimizeable = false if @data.minimizeable == nil
    @data.closeable = false if @data.closeable == nil
    unless @data.previous
      @data.previous = {}

    @header = pop.box @, {type: "box (window header)"}, @data.titleBackground or {25, 180, 230, 255}
    @title = pop.text @header, {horizontal: "center", type: "text (window title)"}, title, @data.titleColor or {255, 255, 255, 255}
    @window_area = pop.box @, {padding: 5, type: "box (window area)"}, @data.windowBackground or {200, 200, 210, 255}

    -- buttons! :D
    @data.header_width_reduction = 0
    buttonSize = @title\getHeight! + 1
    if @data.closeable
      @closeButton = pop.box(@, {w: buttonSize, h: buttonSize, horizontalMargin: @data.header_width_reduction, type: "box (window close button)"}, closeImage)\align "right"
      @closeButton.clicked = (x, y, button) =>
        if button == pop.constants.left_mouse
          @parent\close!
          return true
      @data.header_width_reduction += buttonSize
    if @data.maximizeable
      @maximizeButton = pop.box(@, {w: buttonSize, h: buttonSize, horizontalMargin: @data.header_width_reduction, type: "box (window maximize button)"}, maximizeImage)\align "right"
      @maximizeButton.clicked = (x, y, button) =>
        if button == pop.constants.left_mouse
          @parent\maximize!
          return true
      @data.header_width_reduction += buttonSize
    if @data.minimizeable
      @minimizeButton = pop.box(@, {w: buttonSize, h: buttonSize, horizontalMargin: @data.header_width_reduction, type: "box (window minimize button)"}, minimizeImage)\align "right"
      @minimizeButton.clicked = (x, y, button) =>
        if button == pop.constants.left_mouse
          @parent\minimize!
          return true
      @data.header_width_reduction += buttonSize

    height = @title\getHeight! + 1
    @header\setSize @data.w - @data.header_width_reduction, height

    if @data.titleBar
      @window_area\setSize @data.w, @data.h - height
      @window_area\move nil, height
    else
      @header.data.draw = false
      @window_area.data.x = @data.x + @data.padding
      @window_area.data.y = @data.y + @data.padding
      @window_area.data.w = @data.w - @data.padding*2
      @window_area.data.h = @data.h - @data.padding*2

    -- window area steals mouse events to prevent propagation to elements visibily underneath it (not within its hierarchy)
    @window_area.mousepressed = (x, y, button) =>
      if button == pop.constants.left_mouse
        grandparent = @parent.parent
        table.insert grandparent.child, table.remove(grandparent.child, grandparent\indexOf @parent)
      return nil
    @window_area.clicked = =>
      return nil

    -- @window_area.add = (element) =>
    --   pop.elements.box.__parent.add @, element
    --   --NOTE temporarily disabled
    --   -- this seems to be working but errors with previous == nil
    --   -- I have moved the intended functionality to the window element's function that calls these
    --   if false and inheritsFromElement element
    --       -- we need to adjust its position based on the previous element
    --       previous = @data.child[#@data.child-1]
    --       y, h = previous.y, previous.h
    --       y += h + @data.padding
    --       element.data.x = @data.x + @data.padding
    --       element.data.y = y
    --       element\setWidth @data.w - @data.padding*2
    --
    -- @window_area.remove = (element) =>
    --   pop.elements.box.__parent.remove @, element
    --   --TODO we need to adjust all elements' positions

    selected = false
    mx = 0
    my = 0

    @header.mousemoved = (x, y, dx, dy) =>
      if selected
        @parent\move dx, dy
        -- do not leave area of grandparent (based on containMethod)
        grandparent = @parent.parent
        switch @parent.data.containMethod
          when "title" -- the window title can't leave
            @parent\move(grandparent.data.x - @data.x) if @data.x < grandparent.data.x
            @parent\move(nil, grandparent.data.y - @data.y) if @data.y < grandparent.data.y
            @parent\move(grandparent.data.x + grandparent.data.w - (@data.x + @data.w)) if @data.x + @data.w > grandparent.data.x + grandparent.data.w
            @parent\move(nil, grandparent.data.y + grandparent.data.h - (@data.y + @data.h)) if @data.y + @data.h > grandparent.data.y + grandparent.data.h
          when "body" -- the entire window can't leave
            @parent\move(grandparent.data.x - @data.x) if @data.x < grandparent.data.x
            @parent\move(nil, grandparent.data.y - @data.y) if @data.y < grandparent.data.y
            @parent\move(grandparent.data.x + grandparent.data.w - (@parent.data.x + @parent.data.w)) if @parent.data.x + @parent.data.w > grandparent.data.x + grandparent.data.w
            @parent\move(nil, grandparent.data.y + grandparent.data.h - (@parent.data.y + @parent.data.h)) if @parent.data.y + @parent.data.h > grandparent.data.y + grandparent.data.h
          when "mouse" -- wherever the mouse has clicked can't leave
            @parent\setPosition(grandparent.data.x + @data.w - mx) if mouse.getX! < grandparent.data.x
            @parent\setPosition(nil, grandparent.data.y + @parent.data.h - my) if mouse.getY! < grandparent.data.y
            @parent\setPosition(grandparent.data.x + grandparent.data.w + @data.w - mx) if mouse.getX! > grandparent.data.x + grandparent.data.w
            @parent\setPosition(nil, grandparent.data.y + grandparent.data.h + @parent.data.h - my) if mouse.getY! > grandparent.data.y + grandparent.data.h
        return true
      return false

    @header.mousepressed = (x, y, button) =>
      if button == pop.constants.left_mouse and @parent.data.moveable
        grandparent = @parent.parent
        table.insert grandparent.child, table.remove(grandparent.child, grandparent\indexOf @parent)
        selected = true
        mx = x
        my = y
        return true
      return false

    @header.mousereleased = (x, y, button) =>
      if button == pop.constants.left_mouse
        selected = false
        if @ == pop.focused
          pop.focused = false
        return true
      return false

    if @data.size != 0 or @data.verticalSize != 0 or @data.horizontalSize != 0
      @setSize @parent.data.w * (@data.size + @data.verticalSize), @parent.data.h * (@data.size + @data.horizontalSize)
    elseif @data.align
      @align!

  align: (...) =>
    unless @data.align return @
    super ...

    @header\align!
    @title\align!
    @window_area\align!
    if @closeButton
      @closeButton\align!
    if @maximizeButton
      @maximizeButton\align!
    if @minimizeButton
      @minimizeButton\align!

    if @data.titleBar
      @window_area\move nil, @header\getHeight!

    return @

  setSize: (w, h) =>
    x = 0
    y = 0

    if w
      switch @data.horizontalAlign
        when "left"
          local _ -- do nothing
        when "center"
          x -= (w - @data.w) / 2
        when "right"
          x -= w - @data.w
        else
          if @data.horizontalAlign < 0
            x -= w - @data.w

      @header\setWidth w - @data.header_width_reduction
      @window_area\setWidth w
      @data.w = w
      @data.x += x

      @title\align!

    if h
      switch @data.verticalAlign
        when "top"
          local _ -- do nothing
        when "center"
          y -= (h - @data.h) / 2
        when "bottom"
          y -= h - @data.h
        else
          if @data.horizontalAlign < 0
            y -= h - @data.h

      if @data.titleBar
        @window_area\setHeight h - @header\getHeight!
        @window_area\move nil, @header\getHeight!
      else
        @window_area\setHeight h
      @data.h = h
      @data.y += y

    @header\move x, y
    @window_area\move x, y

    return @

  setWidth: (w) =>
    return @setSize w

  setHeight: (h) =>
    return @setSize nil, h

  setPadding: (padding) =>
    @window_area\setPadding padding
    return @

  getPadding: =>
    return @window_area\getPadding!

  add: (element) =>
    @window_area\add element

    x, y = @window_area.data.x, @window_area.data.y
    --for element in *@window_area.child
        --element\setWidth @data.w - @data.padding*2
        --TODO needs to align them vertically with appropriate padding (I am not taking margin into account which is bad)

    return @

    -- @window_area.add = (element) =>
    --   pop.elements.box.__parent.add @, element
    --   --NOTE temporarily disabled
    --   -- this seems to be working but errors with previous == nil
    --   -- I have moved the intended functionality to the window element's function that calls these
    --   if false and inheritsFromElement element
    --     -- we need to adjust its position based on the previous element
    --     previous = @data.child[#@data.child-1]
    --     y, h = previous.y, previous.h
    --     y += h + @data.padding
    --     element.data.x = @data.x + @data.padding
    --     element.data.y = y
    --     element\setWidth @data.w - @data.padding*2
    --
    -- @window_area.remove = (element) =>
    --   pop.elements.box.__parent.remove @, element
    --   --TODO we need to adjust all elements' positions

  remove: (element) =>
    @window_area\remove element
    return @

  --NOTE was this even used?
  --childAdded: (element) =>
  --    table.insert @window_area.data, table.remove @data.child, @dataIndexOf element.data
  --    table.insert @window_area, table.remove @child, @indexOf element
  --    element\align!
  --    print "worked?"
  --    return @

  maximize: =>
    if @data.maximized
      @setSize @data.previous.w, @data.previous.h
      @align!
      @move @data.previous.x - @data.x, @data.previous.y - @data.y
    else
      @data.previous.x = @data.x
      @data.previous.y = @data.y
      @data.previous.w = @data.w
      @data.previous.h = @data.h
      @data.x = @parent.data.x
      @data.y = @parent.data.y
      @setSize @parent.data.w, @parent.data.h
      table.insert @parent.child, table.remove(@parent.child, @parent\indexOf @)
      @align!
    @data.maximized = not @data.maximized
    return @

  minimize: =>
    @data.draw = false
    return @

  close: =>
    @delete!