diff options
Diffstat (limited to 'src/syslua')
| -rw-r--r-- | src/syslua/lx/tk.lua | 380 |
1 files changed, 366 insertions, 14 deletions
diff --git a/src/syslua/lx/tk.lua b/src/syslua/lx/tk.lua index cc95bbe..cbd9591 100644 --- a/src/syslua/lx/tk.lua +++ b/src/syslua/lx/tk.lua @@ -3,6 +3,62 @@ local sys = require 'lx.sys' local tk = {} +--[[ + + Widgets: + + window manager widget + Window manager + Widows are any widget which determine their own size + + box widget + A box that can be: + - scrollable (H/V) + - resizable (H/V) + Has a single child. Can either: + a. constrain the size of the child to the size of the box + b. let the child widget determine its size + Can have a margin (outer margin) with associated outer background color, + a padding (inner margin) with associated background color, + a border with its color + Can have onclick events to implement buttons. + + grid widget + A grid widget, organizes its children in a grid, which can make a table or any kind of layout. It: + - resizes its childs and repositions them to make a grid + - accepts when its childs are resized and changes the width of columns + or the height of lines accordingly + - draws borders/spacing between elements + + text widget + + image widget + + border widget + + centered widget + + text input + + text box + + + + text_layout_widget + Positions text widgets and images widgets in a subtle and intelligent manner (lol) + + +How to make a table: + + widget = tk.grid({}, + { { tk.box({h_resizable = true, width = 200}, tk.text("name")), + tk.box({h_resizable = true, width = 100}, tk.text("actions")) }, + { tk.box({padding = 4}, tk.text("file A")), + tk.grid({}, {{ tk.box({padding = 4, border = 1, border_color = red, + on_click = function() do something end}, tk.text("open")) }}) } } + +--]] + -- UTIL function region_operation(reg1, reg2, sel_fun) @@ -67,17 +123,25 @@ end -function tk.widget(width, height) +-- ACTUAL TK STUFF + + +function tk.widget(width, height, opts) local w = { x = 0, y = 0, width = width, height = height, } + if opts then + for k, v in pairs(opts) do + w[k] = v + end + end function w:resize(width, height) - w.width = width - w.height = height + if width then w.width = width end + if width then w.height = height end end function w:get_draw_buffer(x0, y0, w, h) @@ -104,15 +168,25 @@ function tk.widget(width, height) end function w:on_mouse_down(x, y, lb, rb, mb) + if lb then -- Handler for mouse down event + self.left_click_valid = true + end end function w:on_mouse_up(x, y, lb, rb, mb) -- Handler for mouse up event + if lb and self.left_click_valid then + self:on_click() + end end function w:on_mouse_move(prev_x, prev_y, new_x, new_y) -- Handler for mouse move event + self.left_click_valid = false + end + + function w:on_click() end function w:on_text_input(char) @@ -138,8 +212,15 @@ function tk.init(gui, root_widget) root_widget.parent = gui tk.fonts = { - default = draw.load_ttf_font("sys:/fonts/vera.ttf") + ["vera.ttf"] = draw.load_ttf_font("sys:/fonts/vera.ttf"), + ["veraserif.ttf"] = draw.load_ttf_font("sys:/fonts/veraserif.ttf"), + ["veramono.ttf"] = draw.load_ttf_font("sys:/fonts/veramono.ttf"), } + tk.fonts.default = tk.fonts["vera.ttf"] + + function tk.rgb(r, g, b) + return gui.surface:rgb(r, g, b) + end root_widget:resize(gui.surface:width(), gui.surface:height()) @@ -166,13 +247,30 @@ function tk.init(gui, root_widget) end end - root_widget:redraw(0, 0, gui.surface) + root_widget:redraw(0, 0, root_widget:get_draw_buffer(0, 0, root_widget.width, root_widget.height)) + root_widget:finalize_draw_buffer() end -function tk.image_widget(img) - local image = tk.widget(img:width(), img:height()) +-- #### #### STANDARD WIDGETS #### #### + +function tk.image(a, b) + local img = b or a + local opts = b and a or {} + + local image = tk.widget(img:width(), img:height(), opts) image.img = img + function image:resize(width, height) + if width then + self.width = width + if self.width < self.img:width() then self.width = self.img:width() end + end + if height then + self.height = height + if self.height < self.img:height() then self.height = self.img:height() end + end + end + function image:redraw(x0, y0, buf) local step = 20 local halfstep = 10 @@ -184,15 +282,237 @@ function tk.image_widget(img) buf:fillrect(x - x0, y - y0 + halfstep, halfstep, halfstep, buf:rgb(170, 170, 170)) end end - buf:blit(0, 0, self.img:sub(x0, y0, self.img:width(), self.img:height())) + if x0 < self.img:width() and y0 < self.img:height() then + buf:blit(0, 0, self.img:sub(x0, y0, self.img:width(), self.img:height())) + end end return image end -function tk.wm_widget() +function tk.text(a, b) + local text = b or a + local opts = b and a or {} + + -- Some defaults + opts.text_size = opts.text_size or 16 + opts.padding = opts.padding or 2 + opts.background = opts.background or tk.rgb(255, 255, 255) + opts.color = opts.color or tk.rgb(0, 0, 0) + opts.line_spacing = opts.line_spacing or 1 + if opts.word_wrap == nil then opts.word_wrap = true end + opts.font = opts.font or tk.fonts.default + opts.dy = opts.dy or -(opts.text_size//8) + + local txt = tk.widget(100, #string.split(text, "\n")*(opts.text_size + opts.line_spacing) - opts.line_spacing + 2*opts.padding, opts) + txt.text = text + + function txt:redraw(x0, y0, buf) + local lines = string.split(self.text, "\n") + + buf:fillrect(0, 0, buf:width(), buf:height(), self.background) + local acceptable_surface = region_inter({x = x0, y = y0, w = buf:width(), h = buf:height()}, + {x = self.padding, y = self.padding, w = self.width - 2*self.padding, h = self.height - 2*self.padding}) + for _, s in pairs(acceptable_surface) do + local buf2 = buf:sub(s.x - x0, s.y - y0, s.w, s.h) + for i = 1, #lines do + -- TODO word wrap + buf2:write(self.padding - s.x, (i-1) * (self.text_size + self.line_spacing) + self.padding - s.y + self.dy, + lines[i], self.font, self.text_size, self.color) + end + end + end + + return txt +end + +function tk.box(a, b) + local content = b or a + local opts = b and a or {} + + -- Some defaults + opts.hresize = opts.hresize or false + opts.vresize = opts.vresize or false + opts.hscroll = opts.hscroll or false + opts.vscroll = opts.vscroll or false + opts.center_content = opts.center_content or false + opts.constrain_size = opts.constrain_size or nil + opts.background_color = opts.background_color or tk.rgb(190, 190, 190) + opts.control_size = 8 + + local box = tk.widget(content.width, content.height, opts) + box.content = content + if box.center_content then + if box.width > box.content.width then + box.content.x = (box.width - box.content.width) // 2 + else + box.content.x = 0 + end + if box.height > box.content.height then + box.content.y = (box.height - box.content.height) // 2 + else + box.content.y = 0 + end + else + box.content.x = 0 + box.content.y = 0 + end + + function box:resize(width, height) + local ow, oh = self.width, self.height + if self.constrain_size then + self.content:resize(width, height) + self.width = content.width + self.height = content.height + else + if width then self.width = width end + if height then self.height = height end + if self.center_content then + if self.width > self.content.width then + self.content.x = (self.width - self.content.width) // 2 + else + self.content.x = math.min(0, math.max(-(self.content.width - self.width), self.content.x)) + end + if self.height > self.content.height then + self.content.y = (self.height - self.content.height) // 2 + else + self.content.y = math.min(0, math.max(-(self.content.height - self.height), self.content.y)) + end + end + end + if self.parent and (self.width ~= ow or self.height ~= oh) then + self.parent:child_resized(self) + end + end + + function box:move_content(x, y) + local ox, oy = self.content.x, self.content.y + if x then self.content.x = math.min(0, math.max(-(self.content.width - self.width), x)) end + if y then self.content.y = math.min(0, math.max(-(self.content.height - self.height), y)) end + if self.parent and (self.content.x ~= ox or self.content.y ~= oy) then + self.parent:child_resized(self) + end + end + + function box:barcalc(pos, insize, outsize) + local csz = self.control_size + local barsize = (outsize - csz) * outsize // insize + local baravail = outsize - csz - barsize + local barpos = -pos * baravail // (insize - outsize) + return barsize, barpos, baravail + end + + function box:redraw(x0, y0, buf) + local csz = self.control_size + + local acceptable_surface = region_inter({x = x0, y = y0, w = buf:width(), h = buf:height()}, + {x = self.content.x, y = self.content.y, + w = self.content.width, h = self.content.height}) + for _, s in pairs(acceptable_surface) do + local buf2 = buf:sub(s.x - x0, s.y - y0, s.w, s.h) + self.content:redraw(s.x - self.content.x, s.y - self.content.y, buf2) + end + local background_surface = region_diff({x = x0, y = y0, w = buf:width(), h = buf:height()}, + {x = self.content.x, y = self.content.y, + w = self.content.width, h = self.content.height}) + for _, s in pairs(background_surface) do + buf:fillrect(s.x, s.y, s.w, s.h, self.background_color) + end + + if self.vresize or self.hresize then + buf:rect(self.width - csz, self.height - csz, csz, csz, buf:rgb(0, 0, 0)) + buf:fillrect(self.width - csz + 1, self.height - csz + 1, csz - 2, csz - 2, buf:rgb(255, 255, 255)) + end + if self.hscroll and self.width < self.content.width then + local barsize, barpos = self:barcalc(self.content.x, self.content.width, self.width) + buf:fillrect(barpos + 4, self.height - csz + 2, barsize - 8, csz - 4, buf:rgb(0, 0, 0)) + end + if self.vscroll and self.height < self.content.height then + local barsize, barpos = self:barcalc(self.content.y, self.content.height, self.height) + buf:fillrect(self.width - csz + 2, barpos + 4, csz - 4, barsize - 8, buf:rgb(0, 0, 0)) + end + end + + function box:on_mouse_down(x, y, lb, mb, rb) + local csz = self.control_size + + if lb and (self.vresize or self.hresize) and x >= self.width - csz and y >= self.height - csz then + self.resizing = true + self.resize_initw = self.width + self.resize_inith = self.height + self.resize_initmx = x + self.resize_initmy = y + elseif lb and self.vscroll and x >= self.width - csz and self.height < self.content.height then + local barsize, barpos = self:barcalc(self.content.y, self.content.height, self.height) + if y < barpos then + self:move_content(nil, self.content.y + self.height * 2 // 3) + elseif y >= barpos + barsize then + self:move_content(nil, self.content.y - self.height * 2 // 3) + else + self.vscrolling = true + self.vscrolling_inity = self.content.y + self.vscrolling_initmy = y + end + elseif lb and self.hscroll and y >= self.height - csz and self.width < self.content.width then + local barsize, barpos = self:barcalc(self.content.x, self.content.width, self.width) + if x < barpos then + self:move_content(self.content.x + self.width * 2 // 3, nil) + elseif x >= barpos + barsize then + self:move_content(self.content.x - self.width * 2 // 3, nil) + else + self.hscrolling = true + self.hscrolling_initx = self.content.x + self.hscrolling_initmx = x + end + else + self.content:on_mouse_down(x - self.content.x, y - self.content.y, lb, mb, rb) + end + end + + function box:on_mouse_up(x, y, lb, mb, rb) + if lb and self.resizing then + self.resizing = false + elseif lb and self.vscrolling then + self.vscrolling = false + elseif lb and self.hscrolling then + self.hscrolling = false + else + self.content:on_mouse_up(x - self.content.x, y - self.content.y, lb, mb, rb) + end + end + + function box:on_mouse_move(px, py, nx, ny) + if self.resizing then + local w = self.hresize and self.resize_initw + nx - self.resize_initmx + local h = self.vresize and self.resize_inith + ny - self.resize_initmy + self:resize(w, h) + elseif self.vscrolling then + local barsize, barpos, baravail = self:barcalc(self.content.y, self.content.height, self.height) + self:move_content(nil, self.vscrolling_inity - (ny - self.vscrolling_initmy) * (self.content.height - self.height) // baravail) + elseif self.hscrolling then + local barsize, barpos, baravail = self:barcalc(self.content.x, self.content.width, self.width) + self:move_content(self.hscrolling_initx - (nx - self.hscrolling_initmx) * (self.content.width - self.width) // baravail) + else + self.content:on_mouse_move(px - self.content.x, py - self.content.y, nx - self.content.x, ny - self.content.y) + end + end + + + return box +end + + +-- #### #### WINDOW MANAGER WIDGET #### #### + +function tk.window_manager() local wm = tk.widget(100, 100) wm.windows = {} -- Last = on top + wm.window_pos = {} + + wm.mouse_lb = false + wm.mouse_rb = false + wm.mouse_mb = false + wm.mouse_win = nil function wm:add(content, title, x, y) local win = tk.widget(content.width + 2, content.height + 22) @@ -202,6 +522,7 @@ function tk.wm_widget() win.title = title win.visible = true table.insert(self.windows, win) + self.window_pos[win] = {x = win.x, y = win.y, h = win.height, w = win.width} win.content = content content.parent = win @@ -218,6 +539,20 @@ function tk.wm_widget() -- TODO clipping etc end + function win:child_resized(c) + assert(c == self.content) + + local reg1 = wm.window_pos[self] + self.width = c.width + 2 + self.height = c.height + 22 + wm.window_pos[self] = {x = self.x, y = self.y, w = self.width, h = self.height} + local reg2 = wm.window_pos[self] + local pieces = region_union(reg1, reg2) + for _, p in pairs(pieces) do + wm:redraw_region(p.x, p.y, p.w, p.h) + end + end + function win:redraw(x0, y0, buf) self:redraw_sub(x0, y0, buf, self.content) @@ -246,16 +581,17 @@ function tk.wm_widget() function win:on_mouse_move(px, py, nx, ny) if self.moving then - local reg1 = {x = self.x, y = self.y, w = self.width, h = self.height} + local reg1 = wm.window_pos[self] self.x = self.x + nx - px self.y = self.y + ny - py - local reg2 = {x = self.x, y = self.y, w = self.width, h = self.height} + wm.window_pos[self] = {x = self.x, y = self.y, w = self.width, h = self.height} + local reg2 = wm.window_pos[self] local pieces = region_union(reg1, reg2) for _, p in pairs(pieces) do wm:redraw_region(p.x, p.y, p.w, p.h) end else - self.content:on_mouse_move(px-1, py-21, px-1, py-21) + self.content:on_mouse_move(px-1, py-21, nx-1, ny-21) end end @@ -347,7 +683,17 @@ function tk.wm_widget() end function wm:on_mouse_down(x, y, lb, rb, mb) + self.mouse_lb = self.mouse_lb or lb + self.mouse_rb = self.mouse_rb or rb + self.mouse_mb = self.mouse_mb or mb + local on_win = self:find_win(x, y) + if self.mouse_win then + on_win = self.mouse_win + else + self.mouse_win = on_win + end + if on_win then sys.dbg_print(string.format("Mouse down on window %s\n", on_win.title)) @@ -366,14 +712,20 @@ function tk.wm_widget() end function wm:on_mouse_up(x, y, lb, rb, mb) - local on_win = self:find_win(x, y) + local on_win = self.mouse_win or self:find_win(x, y) if on_win then on_win:on_mouse_up(x - on_win.x, y - on_win.y, lb, rb, mb) end + self.mouse_lb = self.mouse_lb and not lb + self.mouse_rb = self.mouse_rb and not rb + self.mouse_mb = self.mouse_mb and not mb + if not (self.mouse_lb or self.mouse_mb or self.mouse_rb) then + self.mouse_win = nil + end end function wm:on_mouse_move(prev_x, prev_y, new_x, new_y) - local on_win = self:find_win(prev_x, prev_y) + local on_win = self.mouse_win or self:find_win(prev_x, prev_y) if on_win then on_win:on_mouse_move(prev_x - on_win.x, prev_y - on_win.y, new_x - on_win.x, new_y - on_win.y) end |