mouseable views

src/ltui/action.lua

@@ -40,6 +40,7 @@ end
 action:register("ac_max",
                 "ac_on_text_changed",
                 "ac_on_selected",
+                "ac_on_clicked",
                 "ac_on_resized",
                 "ac_on_enter",
                 "ac_on_load",

src/ltui/application.lua

@@ -85,7 +85,15 @@ end
 
 -- on event
 function application:on_event(e)
-    program.on_event(self, e)
+    if (not program.on_event(self, e)) and curses.KEY_MOUSE then
+
+        -- mouse events
+        if e.type == ltui.event.ev_mouse and (
+                e.btn_name == "BUTTON1_CLICKED" or
+                e.btn_name == "BUTTON1_DOUBLE_CLICKED") then
+            self:action_on(ltui.action.ac_on_clicked, e.x, e.y)
+        end
+    end
 end
 
 -- on resize

src/ltui/boxdialog.lua

@@ -64,6 +64,36 @@ function boxdialog:init(name, bounds, title)
         self:text():bounds().ey = self._TEXT_EY
         self:box():bounds_set(rect{0, self._TEXT_EY, v:width(), v:height() - 1})
     end)
+
+    if curses.KEY_MOUSE then
+
+        -- set click action
+        self:frame():action_set(ltui.action.ac_on_clicked, function (v, x, y)
+
+            -- return if not mouseable
+            if not v:option("mouseable") then
+                return
+            end
+
+            -- get relative coordinates
+            x, y  = x - v:bounds().sx, y - v:bounds().sy
+
+            local panel, box = v:parent():panel(), v:parent():box()
+            local px, py  = x - panel:bounds().sx, y - panel:bounds().sy
+
+            -- if coordinates don't match any view try box
+            if panel:action_on(ltui.action.ac_on_clicked, x, y) and
+                    (not box:option("selectable")) and
+                    box:bounds():contains(px, py) then
+
+                -- bypass panel
+                return box:action_on(ltui.action.ac_on_clicked, px, py)
+            end
+
+            -- return true if it doesn't match any selectable view
+            return true
+        end)
+    end
 end
 
 -- get box

src/ltui/button.lua

@@ -38,6 +38,23 @@ function button:init(name, bounds, text, on_action)
     -- mark as selectable
     self:option_set("selectable", true)
 
+    -- mark as mouseable
+    self:option_set("mouseable", true)
+
+    -- set click action
+    self:action_set(ltui.action.ac_on_clicked, function (v)
+
+        -- return if not mouseable
+        if not v:option("mouseable") then
+            return
+        end
+
+        if v:parent()._do_select then
+            return v:parent():_do_select()
+        end
+        return v:action_on(ltui.action.ac_on_enter)
+    end)
+
     -- show cursor
     self:cursor_show(true)
 

src/ltui/panel.lua

@@ -26,6 +26,7 @@ local event  = require("ltui/event")
 local point  = require("ltui/point")
 local curses = require("ltui/curses")
 local dlist  = require("ltui/base/dlist")
+local action = require("ltui/action")
 
 -- define module
 local panel = panel or view()
@@ -47,6 +48,41 @@ function panel:init(name, bounds)
 
     -- init views cache
     self._VIEWS_CACHE = {}
+
+    if curses.KEY_MOUSE then
+
+        -- mark as mouseable
+        self:option_set("mouseable", true)
+
+        -- set click action
+        self:action_set(action.ac_on_clicked, function (v, x, y)
+
+            -- return if not clickable
+            if not v:option("mouseable") then
+                return
+            end
+
+            -- get relative coordinates
+            x, y = x - v:bounds().sx, y - v:bounds().sy
+
+            -- try focused first
+            if v:current() and v:current():bounds():contains(x, y) then
+                return v:current():action_on(ltui.action.ac_on_clicked, x, y)
+            end
+
+            local p = v:last()
+            while p do
+                if p:option('selectable') and p:bounds():contains(x, y) then
+                    v:select(p)
+                    return p:action_on(action.ac_on_clicked, x, y)
+                end
+                p = v:prev(p)
+            end
+
+            -- return true if does not match any selectable view
+            return true
+        end)
+    end
 end
 
 -- get all child views

src/ltui/program.lua

@@ -46,6 +46,7 @@ function program:init(name, argv)
 
     -- init mouse support
     if curses.KEY_MOUSE then
+        -- curses.ALL_MOUSE_EVENTS may be set to mask unused events
         curses.mousemask(curses.ALL_MOUSE_EVENTS)
     end