55 lines
1.2 KiB
Lua
55 lines
1.2 KiB
Lua
config.target = 'core'
|
|
|
|
local gui = require('gui')
|
|
local widgets = require('gui.widgets')
|
|
|
|
local fs = defclass(nil, 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.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
|