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
|
local screen = require("screen")
local coords = {x=100,y=100}
local mouse = {
old_histories = {},
history = {},
}
-- Avoid gears when possible
local function contains(rect, point)
return point.x >= rect.x and point.x < rect.x+rect.width and
point.y >= rect.y and point.y < rect.y+rect.height
end
function mouse.coords(args)
if args then
local old = {x = coords.x, y = coords.y}
coords.x, coords.y = args.x, args.y
table.insert(mouse.history, {x=coords.x, y=coords.y})
for _, d in ipairs(drawin.get()) do
local geo = d.geometry()
local was_in, is_in = contains(geo, old), contains(geo, coords)
local sig = {(is_in and not was_in) and "mouse::enter" or
(was_in and not is_in) and "mouse::leave" or "mouse::move"}
-- Enter is also a move, otherwise drawable.handle_motion isn't called
if sig[1] == "mouse::enter" then
table.insert(sig, "mouse::move")
end
for _, s in ipairs(sig) do
d:emit_signal(s, coords.x - geo.x, coords.y - geo.y)
d.drawable:emit_signal(s, coords.x - geo.x, coords.y - geo.y)
end
end
end
return coords
end
function mouse.set_newindex_miss_handler(h)
rawset(mouse, "_ni_handler", h)
end
function mouse.set_index_miss_handler(h)
rawset(mouse, "_i_handler", h)
end
function mouse.push_history()
table.insert(mouse.old_histories, mouse.history)
mouse.history = {}
end
return setmetatable(mouse, {
__index = function(self, key)
if key == "screen" then
return screen[1]
end
local h = rawget(mouse,"_i_handler")
if h then
return h(self, key)
end
end,
__newindex = function(...)
local h = rawget(mouse,"_ni_handler")
if h then
h(...)
end
end,
})
-- vim: filetype=lua:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:textwidth=80
|
