Widgets/text area

library/lua/gui/widgets.lua

@@ -28,6 +28,7 @@ FilteredList = require('gui.widgets.filtered_list')
 TabBar = require('gui.widgets.tab_bar')
 RangeSlider = require('gui.widgets.range_slider')
 DimensionsTooltip = require('gui.widgets.dimensions_tooltip')
+TextArea = require('gui.widgets.text_area')
 
 Tab = TabBar.Tab
 makeButtonLabelText = Label.makeButtonLabelText

library/lua/gui/widgets/text_area.lua

@@ -0,0 +1,166 @@
+-- Multiline text area control
+
+local Panel = require('gui.widgets.containers.panel')
+local Scrollbar = require('gui.widgets.scrollbar')
+local TextAreaContent = require('gui.widgets.text_area.text_area_content')
+
+TextArea = defclass(TextArea, Panel)
+
+TextArea.ATTRS{
+    init_text = '',
+    init_cursor = DEFAULT_NIL,
+    text_pen = COLOR_LIGHTCYAN,
+    ignore_keys = {'STRING_A096'},
+    select_pen = COLOR_CYAN,
+    on_text_change = DEFAULT_NIL,
+    on_cursor_change = DEFAULT_NIL,
+    one_line_mode = false,
+    debug = false
+}
+
+function TextArea:init()
+    self.render_start_line_y = 1
+
+    self:addviews{
+        TextAreaContent{
+            view_id='text_area',
+            frame={l=0,r=3,t=0},
+            text=self.init_text,
+
+            text_pen=self.text_pen,
+            ignore_keys=self.ignore_keys,
+            select_pen=self.select_pen,
+            debug=self.debug,
+            one_line_mode=self.one_line_mode,
+
+            on_text_change=function (val)
+                self:updateLayout()
+                if self.on_text_change then
+                    self.on_text_change(val)
+                end
+            end,
+            on_cursor_change=self:callback('onCursorChange')
+        },
+        Scrollbar{
+            view_id='scrollbar',
+            frame={r=0,t=1},
+            on_scroll=self:callback('onScrollbar'),
+            visible=not self.one_line_mode
+        }
+    }
+    self:setFocus(true)
+end
+
+function TextArea:getText()
+    return self.subviews.text_area.text
+end
+
+function TextArea:getCursor()
+    return self.subviews.text_area.cursor
+end
+
+function TextArea:onCursorChange(cursor)
+    local x, y = self.subviews.text_area.wrapped_text:indexToCoords(
+        self.subviews.text_area.cursor
+    )
+
+    if y >= self.render_start_line_y + self.subviews.text_area.frame_body.height then
+        self:updateScrollbar(
+            y - self.subviews.text_area.frame_body.height + 1
+        )
+    elseif  (y < self.render_start_line_y) then
+        self:updateScrollbar(y)
+    end
+
+    if self.on_cursor_change then
+        self.on_cursor_change(cursor)
+    end
+end
+
+function TextArea:scrollToCursor(cursor_offset)
+    if self.subviews.scrollbar.visible then
+        local _, cursor_liny_y = self.subviews.text_area.wrapped_text:indexToCoords(
+            cursor_offset
+        )
+        self:updateScrollbar(cursor_liny_y)
+    end
+end
+
+function TextArea:setCursor(cursor_offset)
+    return self.subviews.text_area:setCursor(cursor_offset)
+end
+
+function TextArea:getPreferredFocusState()
+    return self.parent_view.focus
+end
+
+function TextArea:postUpdateLayout()
+    self:updateScrollbar(self.render_start_line_y)
+
+    if self.subviews.text_area.cursor == nil then
+        local cursor = self.init_cursor or #self.init_text + 1
+        self.subviews.text_area:setCursor(cursor)
+        self:scrollToCursor(cursor)
+    end
+end
+
+function TextArea:onScrollbar(scroll_spec)
+    local height = self.subviews.text_area.frame_body.height
+
+    local render_start_line = self.render_start_line_y
+    if scroll_spec == 'down_large' then
+        render_start_line = render_start_line + math.ceil(height / 2)
+    elseif scroll_spec == 'up_large' then
+        render_start_line = render_start_line - math.ceil(height / 2)
+    elseif scroll_spec == 'down_small' then
+        render_start_line = render_start_line + 1
+    elseif scroll_spec == 'up_small' then
+        render_start_line = render_start_line - 1
+    else
+        render_start_line = tonumber(scroll_spec)
+    end
+
+    self:updateScrollbar(render_start_line)
+end
+
+function TextArea:updateScrollbar(scrollbar_current_y)
+    local lines_count = #self.subviews.text_area.wrapped_text.lines
+
+    local render_start_line_y = (math.min(
+        #self.subviews.text_area.wrapped_text.lines - self.subviews.text_area.frame_body.height + 1,
+        math.max(1, scrollbar_current_y)
+    ))
+
+    self.subviews.scrollbar:update(
+        render_start_line_y,
+        self.frame_body.height,
+        lines_count
+    )
+
+    if (self.frame_body.height >= lines_count) then
+        render_start_line_y = 1
+    end
+
+    self.render_start_line_y = render_start_line_y
+    self.subviews.text_area:setRenderStartLineY(self.render_start_line_y)
+end
+
+function TextArea:renderSubviews(dc)
+    self.subviews.text_area.frame_body.y1 = self.frame_body.y1-(self.render_start_line_y - 1)
+
+    TextArea.super.renderSubviews(self, dc)
+end
+
+function TextArea:onInput(keys)
+    if (self.subviews.scrollbar.is_dragging) then
+        return self.subviews.scrollbar:onInput(keys)
+    end
+
+    if keys._MOUSE_L and self:getMousePos() then
+        self:setFocus(true)
+    end
+
+    return TextArea.super.onInput(self, keys)
+end
+
+return TextArea

library/lua/gui/widgets/text_area/history_store.lua

@@ -0,0 +1,81 @@
+HistoryStore = defclass(HistoryStore)
+
+local HISTORY_ENTRY = {
+    TEXT_BLOCK = 1,
+    WHITESPACE_BLOCK = 2,
+    BACKSPACE = 2,
+    DELETE = 3,
+    OTHER = 4
+}
+
+HistoryStore.ATTRS{
+    history_size = 25,
+}
+
+function HistoryStore:init()
+    self.past = {}
+    self.future = {}
+end
+
+function HistoryStore:store(history_entry_type, text, cursor)
+    local last_entry = self.past[#self.past]
+
+    if not last_entry or history_entry_type == HISTORY_ENTRY.OTHER or
+        last_entry.entry_type ~= history_entry_type then
+        table.insert(self.past, {
+            entry_type=history_entry_type,
+            text=text,
+            cursor=cursor
+        })
+    end
+
+    self.future = {}
+
+    if #self.past > self.history_size then
+        table.remove(self.past, 1)
+    end
+end
+
+function HistoryStore:undo(curr_text, curr_cursor)
+    if #self.past == 0 then
+        return nil
+    end
+
+    local history_entry = table.remove(self.past, #self.past)
+
+    table.insert(self.future, {
+        entry_type=HISTORY_ENTRY.OTHER,
+        text=curr_text,
+        cursor=curr_cursor
+    })
+
+    if #self.future > self.history_size then
+        table.remove(self.future, 1)
+    end
+
+    return history_entry
+end
+
+function HistoryStore:redo(curr_text, curr_cursor)
+    if #self.future == 0 then
+        return true
+    end
+
+    local history_entry = table.remove(self.future, #self.future)
+
+    table.insert(self.past, {
+        entry_type=HISTORY_ENTRY.OTHER,
+        text=curr_text,
+        cursor=curr_cursor
+    })
+
+    if #self.past > self.history_size then
+        table.remove(self.past, 1)
+    end
+
+    return history_entry
+end
+
+HistoryStore.HISTORY_ENTRY = HISTORY_ENTRY
+
+return HistoryStore