annotate doodle/tk/events.d @ 48:1b4c9ba58673

Stylistic overhaul.
author daveb
date Tue, 03 Aug 2010 17:37:21 +0930
parents 157b4ad5615d
children c63719604adb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
28
1754cb773d41 Part-way through getting to compile with configure/builder.
Graham St Jack <graham.stjack@internode.on.net>
parents: 17
diff changeset
1 module doodle.tk.events;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
2
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 13
diff changeset
3 public {
28
1754cb773d41 Part-way through getting to compile with configure/builder.
Graham St Jack <graham.stjack@internode.on.net>
parents: 17
diff changeset
4 import doodle.tk.types;
1754cb773d41 Part-way through getting to compile with configure/builder.
Graham St Jack <graham.stjack@internode.on.net>
parents: 17
diff changeset
5 import doodle.tk.geometry;
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 13
diff changeset
6 }
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
7
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
8 abstract class Event {
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 13
diff changeset
9 this(in Mask mask) {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
10 _mask = mask;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
11 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
12
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
13 Mask mask() const { return _mask; }
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
14
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
15 private {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
16 Mask _mask;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
17 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
18 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
19
33
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
20 /+
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
21 final class FocusEvent : Event {
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
22 }
33
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
23 +/
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
24
13
f0ade1b49fe7 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 8
diff changeset
25 final class KeyEvent : Event {
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 13
diff changeset
26 this(in string str, in uint value, in Mask mask) {
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
27 super(mask);
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
28 _str = str;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
29 _value = value;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
30 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
31
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
32 string str() const { return _str; }
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
33
5
8a39b13cd3e6 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 3
diff changeset
34 override string toString() const {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
35 return std.string.format("Key event: %s, %d, %s", _str, _value, _mask);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
36 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
37
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
38 private {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
39 string _str;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
40 uint _value;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
41 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
42 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
43
13
f0ade1b49fe7 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 8
diff changeset
44 abstract class PointerEvent : Event {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
45 this(in Point pixelPoint, in Point modelPoint, in Mask mask) {
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
46 super(mask);
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
47 _pixelPoint = pixelPoint;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
48 _modelPoint = modelPoint;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
49 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
50
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
51 Point pixelPoint() const { return _pixelPoint; }
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
52 Point modelPoint() const { return _modelPoint; }
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
53
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
54 private {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
55 Point _pixelPoint;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
56 Point _modelPoint;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
57 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
58 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
59
33
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
60 /*
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
61 final class CrossingEvent : PointerEvent {
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
62 this(in Mask mask) {
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
63 super(mask);
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
64 }
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
65
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
66 private {
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
67 }
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
68 }
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
69 */
157b4ad5615d Added intersection code for lines and segments.
David Bryant <bagnose@gmail.com>
parents: 28
diff changeset
70
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
71 final class ButtonEvent : PointerEvent {
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 13
diff changeset
72 this(in ButtonAction button_action,
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 13
diff changeset
73 in ButtonName button_name,
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
74 in Point pixelPoint,
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
75 in Point modelPoint,
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 13
diff changeset
76 in Mask mask) {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
77 super(pixelPoint, modelPoint, mask);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
78 _buttonAction = button_action;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
79 _buttonName = button_name;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
80 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
81
5
8a39b13cd3e6 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 3
diff changeset
82 override string toString() const {
8
bf7903435f58 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 7
diff changeset
83 return std.string.format("Button event: %s, %s, %s, %s, %s",
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
84 enumToString(_buttonAction), enumToString(_buttonName),
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
85 _pixelPoint, _modelPoint, _mask);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
86 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
87
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
88 ButtonAction button_action() const { return _buttonAction; }
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
89 ButtonName button_name() const { return _buttonName; }
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
90
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
91 private {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
92 ButtonAction _buttonAction;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
93 ButtonName _buttonName;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
94 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
95 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
96
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
97 final class MotionEvent : PointerEvent {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
98 this(in Point pixelPoint,
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
99 in Point modelPoint,
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 13
diff changeset
100 in Mask mask) {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
101 super(pixelPoint, modelPoint, mask);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
102 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
103
5
8a39b13cd3e6 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 3
diff changeset
104 override string toString() const {
8
bf7903435f58 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 7
diff changeset
105 return std.string.format("Motion event: %s, %s, %s",
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
106 _pixelPoint, _modelPoint, _mask);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
107 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
108 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
109
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
110 final class ScrollEvent : PointerEvent {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
111 this(in ScrollDirection scrollDirection,
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
112 in Point pixelPoint,
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
113 in Point modelPoint,
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 13
diff changeset
114 in Mask mask) {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
115 super(pixelPoint, modelPoint, mask);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
116 _scrollDirection = scrollDirection;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
117 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
118
5
8a39b13cd3e6 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 3
diff changeset
119 override string toString() const {
8
bf7903435f58 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 7
diff changeset
120 return std.string.format("Scroll event: %s, %s, %s, %s",
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
121 enumToString(_scrollDirection), _pixelPoint, _modelPoint, _mask);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
122 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
123
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
124 ScrollDirection scrollDirection() const { return _scrollDirection; }
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
125
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
126 private {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 33
diff changeset
127 ScrollDirection _scrollDirection;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
128 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
129 }