Pop.Box/main.moon

--- A demo program for Pop.Box.
--- @copyright Paul Liverman III (2016)
--- @license The MIT License (MIT)

import graphics from love

pop = require ""
debug = false

love.load = ->
    test_original = ->
        pop.text("Hello World!")\align "center", "center"
        testWindow = pop.window({windowBackground: {200, 200, 200}, closeable: true, maximizeable: true, minimizeable: true}, "Testing Window")\move(20, 20)\setSize(200, 100)\align "right", "top"
        print testWindow.window_area

        pop.window({maximizeable: true}, "Test Window #2")\align "center", "bottom"
        pop.window({moveable: false}, "Immoveable!")

        centerBox = pop.box({w: 200, h: 200}, {255, 255, 0, 120})\align "center", "center"

        pop.box(centerBox, {w: 10, h: 20})\align "left", "top"
        pop.box(centerBox, {w: 30, h: 30})\align "center", "top"
        pop.box(centerBox, {w: 5, h: 40})\align "left", "center"
        pop.box(centerBox, {w: 50, h: 50})\align "right", "center"
        pop.box(centerBox)\align("left", "bottom")\setSize 5, 5
        pop.box(centerBox, {w: 25, h: 10})\align "center", "bottom"
        pop.text(centerBox, "Align me!")\align "right", "top"
        pop.window(centerBox, {closeable: true})\align "right", "bottom"

        centerBox\setPadding 5

        pop.box(centerBox, {w: 10, h: 20, background: {0, 0, 255, 100}})\align "left", "top"
        pop.box(centerBox, {w: 30, h: 30, background: {0, 0, 255, 100}})\align "center", "top"
        pop.box(centerBox, {w: 5, h: 40, background: {0, 0, 255, 100}})\align "left", "center"
        pop.box(centerBox, {w: 50, h: 50, background: {0, 0, 255, 100}})\align "right", "center"
        pop.text(centerBox, {color: {0, 0, 255, 100}}, "Text!")\align("left", "bottom")--\setSize 5, 5
        pop.box(centerBox, {w: 25, h: 10, background: {0, 0, 255, 100}})\align "center", "bottom"
        pop.text(centerBox, {color: {0, 0, 255, 100}}, "Align me!")\align "right", "top"
        pop.window(centerBox, {titleColor: {0, 0, 0, 150}, titleBackground: {0, 0, 255, 100}, windowBackground: {200, 200, 255, 100}})\align "right", "bottom"
        pop.window(centerBox, {containMethod: "title", w: 125}, "Title can't leave")
        pop.window(centerBox, {containMethod: "body", w: 125}, "Body can't leave")

    test_original_color_clipRegion = ->
        testWindow = pop.window({windowBackground: {200, 200, 200}, closeable: true, maximizeable: true, minimizeable: true}, "Testing Window")\move(20, 20)\setSize(200, 100)\align "right", "top"
        print testWindow.window_area

        pop.window({maximizeable: true}, "Test Window #2")\align "center", "bottom"
        pop.window({moveable: false}, "Immoveable!")

        -- alignment testing
        -- centerBox = pop.clipRegion {w: 200, h: 200, verticalAlign: "center", horizontalAlign: "center"}

        -- centerBox = pop.box({w: 200, h: 200}, {255, 255, 0, 120})\align "center", "center"
        centerBox = pop.box({w: 200, h: 200}, {0, 0, 0, 255})\align "center", "center"

        pop.box(centerBox, {w: 10, h: 20})\align "left", "top"
        pop.box(centerBox, {w: 30, h: 30})\align "center", "top"
        pop.box(centerBox, {w: 5, h: 40})\align "left", "center"
        pop.box(centerBox, {w: 50, h: 50})\align "right", "center"
        pop.box(centerBox)\align("left", "bottom")\setSize 5, 5
        pop.box(centerBox, {w: 25, h: 10})\align "center", "bottom"
        pop.text(centerBox, "Align me!")\align "right", "top"

        pop.window(centerBox, {closeable: true, w: 80, h: 63})\align "right", "bottom"
        pop.window(centerBox, {titleColor: {0, 0, 0, 150}, titleBackground: {0, 0, 255, 255}, windowBackground: {200, 200, 255, 100}, w: 60, h: 50})\align "center", "bottom"

        centerBox\setPadding 5

        pop.box(centerBox, {w: 10, h: 20, background: {0, 0, 255, 255}})\align "left", "top"
        pop.box(centerBox, {w: 30, h: 30, background: {0, 255, 0, 255}})\align "center", "top"
        pop.box(centerBox, {w: 5, h: 40, background: {255, 0, 0, 255}})\align "left", "center"
        pop.box(centerBox, {w: 50, h: 50, background: {0, 255, 255, 255}})\align "right", "center"
        pop.text(centerBox, {color: {255, 0, 255, 255}}, "Text!")\align("left", "bottom")--\setSize 5, 5
        pop.box(centerBox, {w: 25, h: 10, background: {100, 100, 255, 255}})\align "center", "bottom"
        pop.text(centerBox, {color: {255, 255, 0, 255}}, "Align me!")\align "right", "top"

        -- pop.window(centerBox, {containMethod: "title", w: 125}, "Title can't leave")
        pop.window(centerBox, {containMethod: "body", w: 125, h: 30, margin: 30}, "Body can't leave")

    test_obession = ->
        partsGrid = pop.dynamicGrid!
        pop.window({w: graphics.getWidth!/2, h: graphics.getHeight!, titleBar: false})\add({
            pop.box({h: 17}) -- temporary height
            pop.scrollbox()\add(
                partsGrid
            )
            pop.grid()\add({
                pop.button()
                pop.button()
                pop.button()
            })
        })

    -- test_original!
    test_original_color_clipRegion!
    -- test_obession!

love.update = (dt) ->
    pop.update dt

love.draw = ->
    pop.draw!
    pop.debugDraw! if debug

love.mousemoved = (x, y, dx, dy) ->
    pop.mousemoved x, y, dx, dy

love.mousepressed = (x, y, button) ->
    pop.mousepressed x, y, button

love.mousereleased = (x, y, button) ->
    pop.mousereleased x, y, button

love.wheelmoved = (x, y) ->
    pop.wheelmoved x, y

love.keypressed = (key) ->
    if key == "escape"
        love.event.quit!
    elseif key == "d"
        debug = not debug
    elseif key == "t"
        print("pop.focused", pop.focused)

love.keyreleased = (key) ->
    pop.keyreleased key

love.textinput = (text) ->
    pop.textinput text



-- NOTE TEMPORARY
--inspect = require "lib/inspect/inspect"
--print inspect pop



return --this is to prevent default returning of last statement