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
|
require("iupcdaux") -- utility module used in some samples
dlg = iupcdaux.new_dialog(w, h)
cnv = dlg[1] -- retrieve the IUP canvas
function cnv:button_cb(button,pressed,x,y,r)
canvas = self.canvas -- retrieve the CD canvas from the IUP attribute
-- start drag if button1 is pressed
if button ==iup.BUTTON1 and pressed == 1 then
y = canvas:UpdateYAxis(y)
-- prepare for XOR
canvas:Foreground(cd.WHITE)
canvas:WriteMode(cd.XOR)
xstart = x
ystart = y
drag = 1
first = 1
else
if (drag == 1) then
drag = 0
canvas:Rect(xstart,xend,ystart,yend)
end
end
end
function cnv:motion_cb(x,y,r)
canvas = self.canvas -- retrieve the CD canvas from the IUP attribute
if (drag == 1) then
y = canvas:UpdateYAxis(y)
if (first == 1) then
first = 0
else
canvas:Rect(xstart,xend,ystart,yend)
end
canvas:Rect(xstart,x,ystart,y)
xend = x
yend = y
end
end
first = 1
drag = 0
dlg:show()
iup.MainLoop()
|
