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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
Events: module {
PATH: con "/dis/charon/event.dis";
Event: adt {
pick {
Ekey =>
keychar: int; # Unicode char for pressed key
Emouse =>
p: Draw->Point; # coords of pointer
mtype: int; # Mmove, etc.
Emove =>
p: Draw->Point; # new top-left of moved window
Ereshape =>
r: Draw->Rect; # new window place and size
Equit =>
dummy: int;
Estop =>
dummy: int;
Eback =>
dummy: int;
Efwd =>
dummy: int;
Eform =>
frameid: int; # which frame is form in
formid: int; # which form in the frame
ftype: int; # EFsubmit or EFreset
Eformfield =>
frameid: int; # which frame is form in
formid: int; # which form in the frame
fieldid: int; # which formfield in the form
fftype: int; # EFFblur, EFFfocus, etc.
Ego =>
url: string; # where to go
target: string; # frame to replace
delta: int; # History.go(delta)
gtype: int;
Esubmit =>
subkind: int; # CU->HGet or CU->HPost
action: ref Url->Parsedurl;
data: string;
target: string;
Escroll or Escrollr =>
frameid: int;
pt: Draw->Point;
Esettext =>
frameid: int;
url: ref Url->Parsedurl;
text: string;
Elostfocus => # main window has lost keyboard focus
dummy: int;
Edismisspopup => # popup window has been dismissed by gui
dummy: int;
}
tostring: fn(e: self ref Event) : string;
};
# Events sent to scripting engines
ScriptEvent: adt {
kind: int;
frameid: int;
formid: int;
fieldid: int;
anchorid: int;
imageid: int;
x: int;
y: int;
which: int;
script: string;
reply: chan of string; # onreset/onsubmit reply channel
ms: int;
};
# ScriptEvent kinds
SEonclick, SEondblclick, SEonkeydown, SEonkeypress, SEonkeyup,
SEonmousedown, SEonmouseover, SEonmouseout, SEonmouseup, SEonblur, SEonfocus,
SEonchange, SEonload, SEtimeout, SEonabort, SEonerror,
SEonreset, SEonresize, SEonselect, SEonsubmit, SEonunload, SEscript, SEinterval, SEnone : con 1 << iota;
# some special keychars (use Unicode Private Area)
Kup, Kdown, Khome, Kleft, Kright, Kend, Kaup, Kadown : con (iota + 16rF000);
# Mouse event subtypes
Mmove, Mlbuttondown, Mlbuttonup, Mldrag, Mldrop,
Mmbuttondown, Mmbuttonup, Mmdrag,
Mrbuttondown, Mrbuttonup, Mrdrag,
Mhold : con iota;
# Form event subtypes
EFsubmit, EFreset : con iota;
# FormField event subtypes
EFFblur, EFFfocus, EFFclick, EFFselect, EFFredraw, EFFnone : con iota;
# Go event subtypes
EGnormal, EGreplace, EGreload, EGforward, EGback, EGdelta, EGlocation: con iota;
init: fn(evchan : chan of ref Event);
autorepeat: fn(ev : ref Event, idlems, ms : int);
evchan: chan of ref Event;
};
|
