Mercurial > projects > doodle

annotate standard_tools.d @ 7:936feb16eed4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checkpoint
author "David Bryant <bagnose@gmail.com>"
date Sat, 11 Jul 2009 21:29:03 +0930
parents 7d57cae10805
children bf7903435f58
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
1 module standard_tools;
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
2
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
3 import tool;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
4 import icanvas;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
5 import tk.types;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
6 import tk.events;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
7 import tk.geometry;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
8
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
9 final class PanTool : Tool {
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
10 bool handle_button_press(ICanvas canvas, in ButtonEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
11 if (event.button_name == ButtonName.MIDDLE) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
12 return true;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
13 }
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
14 else {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
15 return false;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
16 }
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
17 }
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
18
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
19 bool handle_button_release(ICanvas canvas, in ButtonEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
20 return false;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
21 }
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
22
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
23 bool handle_motion(ICanvas canvas, in MotionEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
24 return false;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
25 }
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
26
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
27 bool handle_scroll(ICanvas canvas, in ScrollEvent event) {
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
28 const double AMOUNT = 30.0;
3
7d57cae10805 Renamed geometry2 to geometry
David Bryant <daveb@acres.com.au>
parents: 2
diff changeset
29 Vector v;
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
30
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
31 if (event.mask.is_set(Modifier.SHIFT)) {
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
32 // left to right
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
33 v = Vector(AMOUNT, 0.0);
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
34 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
35 else {
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
36 // down to up
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
37 v = Vector(0.0, AMOUNT);
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
38 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
39
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
40 if (event.scroll_direction == ScrollDirection.UP) {
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
41 v = -v;
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
42 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
43
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
44 canvas.rel_pan(v);
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
45
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
46 return true;
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
47 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
48
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
49 bool handle_key_press(ICanvas canvas, in KeyEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
50 return false;
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
51 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
52
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
53 bool handle_key_release(ICanvas canvas, in KeyEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
54 return false;
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
55 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
56 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
57
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
58 final class ZoomTool : Tool {
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
59 static invariant double ZOOM = 1.44;
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
60
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
61 bool handle_button_press(ICanvas canvas, in ButtonEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
62 return false;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
63 }
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
64
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
65 bool handle_button_release(ICanvas canvas, in ButtonEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
66 return false;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
67 }
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
68
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
69 bool handle_motion(ICanvas canvas, in MotionEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
70 return false;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
71 }
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
72
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
73 bool handle_scroll(ICanvas canvas, in ScrollEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
74 if (event.mask.is_set(Modifier.CONTROL)) {
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
75 // Zoom about the pointer
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
76 double zoom = 1.44;
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
77
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
78 if (event.scroll_direction == ScrollDirection.DOWN) {
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
79 zoom = 1.0 / zoom;
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
80 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
81
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
82 canvas.rel_zoom(event.screen_point(), zoom);
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
83
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
84 return true;
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
85 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
86 else {
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
87 return false;
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
88 }
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
89 }
7
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
90
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
91 bool handle_key_press(ICanvas canvas, in KeyEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
92 return false;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
93 }
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
94
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
95 bool handle_key_release(ICanvas canvas, in KeyEvent event) {
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
96 return false;
936feb16eed4 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 3
diff changeset
97 }
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents:
diff changeset
98 }