1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
--!A cross-platform build utility based on Lua
--
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
--
-- http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
--
-- Copyright (C) 2015-present, Xmake Open Source Community.
--
-- @author ruki
-- @file textdialog.lua
--
-- load modules
local log = require("ui/log")
local rect = require("ui/rect")
local event = require("ui/event")
local dialog = require("ui/dialog")
local curses = require("ui/curses")
local textarea = require("ui/textarea")
local scrollbar = require("ui/scrollbar")
local action = require("ui/action")
-- define module
local textdialog = textdialog or dialog()
-- init dialog
function textdialog:init(name, bounds, title)
-- init window
dialog.init(self, name, bounds, title)
-- mark as scrollable, disabled by default
self:option_set("scrollable", false)
-- insert text
self:panel():insert(self:text())
-- insert scrollbar
self:panel():insert(self:scrollbar())
-- select buttons by default
self:panel():select(self:buttons())
-- on resize for panel
self:panel():action_add(action.ac_on_resized, function (v)
if self:option("scrollable") then
self:text():bounds_set(rect:new(0, 0, v:width() - 1, v:height() - 1))
self:scrollbar():bounds_set(rect:new(v:width() - 1, 0, 1, v:height() - 1))
else
self:text():bounds_set(rect:new(0, 0, v:width(), v:height() - 1))
end
end)
-- show scrollbar?
self:text():action_add(action.ac_on_text_changed, function (v)
if self:option("scrollable") then
if v:scrollable() then
self:scrollbar():show(true)
else
self:scrollbar():show(false)
end
end
end)
-- on scroll for text and scrollbar
self:text():action_add(action.ac_on_scrolled, function (v, progress)
if self:scrollbar():state("visible") then
self:scrollbar():progress_set(progress)
end
end)
end
-- enable or disable scrollbar
function textdialog:option_set(name, value)
if name == "scrollable" then
local oldvalue = self:option(name)
if value ~= oldvalue then
if value then
self:text():bounds():resize(self:panel():width() - 1, self:panel():height() - 1)
else
self:text():bounds():resize(self:panel():width(), self:panel():height() - 1)
end
end
end
dialog.option_set(self, name, value)
end
-- get text
function textdialog:text()
if not self._TEXT then
self._TEXT = textarea:new("textdialog.text", rect:new(0, 0, self:panel():width(), self:panel():height() - 1))
end
return self._TEXT
end
-- get scrollbar
function textdialog:scrollbar()
if not self._SCROLLBAR then
self._SCROLLBAR = scrollbar:new("textdialog.scrollbar", rect:new(self:panel():width() - 1, 0, 1, self:panel():height() - 1))
self._SCROLLBAR:show(false)
end
return self._SCROLLBAR
end
-- on event
function textdialog:on_event(e)
-- pass event to dialog
if dialog.on_event(self, e) then
return true
end
-- pass keyboard event to text area to scroll
if e.type == event.ev_keyboard then
return self:text():on_event(e)
end
end
-- return module
return textdialog
|
