local gui = require('gui')
local widgets = require('gui.widgets')

local fs = defclass(fs, gui.FramedScreen)
fs.ATTRS = {
    frame_style = gui.GREY_LINE_FRAME,
    frame_title = 'TestFramedScreen',
    frame_width = 10,
    frame_height = 10,
    frame_inset = 0,
    focus_path = 'test-framed-screen',
}

function test.correct_frame_body_with_scroll_icons()
    local t = {}
    for i = 1, 12 do
        t[#t+1] = tostring(i)
        t[#t+1] = NEWLINE
    end

    function fs:init()
        self:addviews{
            widgets.Label{
                view_id = 'text',
                frame_inset = 0,
                text = t,
            },
        }
    end

    local o = fs{}
    expect.eq(o.subviews.text.frame_body.width, 9, "Label's frame_body.x2 and .width should be one smaller because of show_scrollbar.")
end

function test.correct_frame_body_with_few_text_lines()
    local t = {}
    for i = 1, 10 do
        t[#t+1] = tostring(i)
        t[#t+1] = NEWLINE
    end

    function fs:init()
        self:addviews{
            widgets.Label{
                view_id = 'text',
                frame_inset = 0,
                text = t,
            },
        }
    end

    local o = fs{}
    expect.eq(o.subviews.text.frame_body.width, 10, "Label's frame_body.x2 and .width should not change with show_scrollbar = false.")
end

function test.correct_frame_body_without_show_scrollbar()
    local t = {}
    for i = 1, 12 do
        t[#t+1] = tostring(i)
        t[#t+1] = NEWLINE
    end

    function fs:init()
        self:addviews{
            widgets.Label{
                view_id = 'text',
                frame_inset = 0,
                text = t,
                show_scrollbar = false,
            },
        }
    end

    local o = fs{}
    expect.eq(o.subviews.text.frame_body.width, 10, "Label's frame_body.x2 and .width should not change with show_scrollbar = false.")
end

function test.scroll()
    local t = {}
    for i = 1, 12 do
        t[#t+1] = tostring(i)
        t[#t+1] = NEWLINE
    end

    function fs:init()
        self:addviews{
            widgets.Label{
                view_id = 'text',
                frame_inset = 0,
                text = t,
            },
        }
    end

    local o = fs{frame_height=3}
    local txt = o.subviews.text
    expect.eq(1, txt.start_line_num)

    txt:scroll(1)
    expect.eq(2, txt.start_line_num)
    txt:scroll('+page')
    expect.eq(5, txt.start_line_num)
    txt:scroll('+halfpage')
    expect.eq(7, txt.start_line_num)
    txt:scroll('-halfpage')
    expect.eq(5, txt.start_line_num)
    txt:scroll('-page')
    expect.eq(2, txt.start_line_num)
    txt:scroll(-1)
    expect.eq(1, txt.start_line_num)

    txt:scroll(-1)
    expect.eq(1, txt.start_line_num)
    txt:scroll(100)
    expect.eq(10, txt.start_line_num)
end