minor changes

src/ltui/event.lua

@@ -76,7 +76,7 @@ event:register("cm_max", "cm_quit", "cm_exit", "cm_enter")
 --
 event.keyboard = object {_init = { "key_code", "key_name", "key_meta" }, type = event.ev_keyboard}
 
-event.mouse = object {_init = { "bstate", "x", "y", "id" }, type = event.ev_mouse}
+event.mouse = object {_init = { "btn_code", "x", "y", "btn_name" }, type = event.ev_mouse}
 
 -- define command event
 event.command = object {_init = { "command", "extra" }, type = event.ev_command}

src/ltui/program.lua

@@ -46,7 +46,7 @@ function program:init(name, argv)
 
     -- init mouse support
     if curses.KEY_MOUSE then
-        curses.mousemask(curses.BUTTON1_PRESSED)
+        curses.mousemask(curses.ALL_MOUSE_EVENTS)
     end
 
     -- to filter characters being output to the screen
@@ -141,8 +141,15 @@ function program:event()
     local key_code, key_name, key_meta = self:_input_key()
     if key_code then
         if curses.KEY_MOUSE and key_code == curses.KEY_MOUSE then
-            local s, x, y, z, id = curses.getmouse()
+            local s, x, y = curses.getmouse()
-            return event.mouse{s, x, y, id}
+            local name
+            for n, v in pairs(curses) do
+                if v == s and n:match('BUTTON') then
+                    name = n or name
+                    break
+                end
+            end
+            return event.mouse{s, x, y, name}
         end
         return event.keyboard{key_code, key_name, key_meta}
     end

tests/getch_test.lua

@@ -78,7 +78,7 @@ function demo:on_event(e)
 		self:teste():text_set('tp: ' ..
 			   tostring(e.type) ..
 			   '; name: ' ..
-			   tostring(e.key_name or e.bstate) ..
+			   tostring(e.key_name or e.btn_name) ..
 			   '; code: ' ..
 			   tostring(e.key_code or e.x) ..
 			   '; meta: ' ..