annotate doodle/gtk/cairo_canvas.d @ 103:345fb56d89fc

Blind checkpoint
author David Bryant <bagnose@gmail.com>
date Thu, 18 Nov 2010 12:00:02 +1030
parents a274d16ab6ce
children 10ad5417bf07
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
83
06b4504cbcb0 Checkpoint of trying to get a different renderer going (OpenGL)
daveb
parents: 82
diff changeset
1 module doodle.gtk.cairo_canvas;
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: 15
diff changeset
3 public {
28
1754cb773d41 Part-way through getting to compile with configure/builder.
Graham St Jack <graham.stjack@internode.on.net>
parents: 27
diff changeset
4 import doodle.dia.icanvas;
72
5cc2de64f6d0 Cautious Saturday night commits
"David Bryant <bagnose@gmail.com>"
parents: 71
diff changeset
5 import doodle.gtk.events;
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
6 }
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
7
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
8 private {
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 35
diff changeset
9 import doodle.core.logging;
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
10 import doodle.tk.screen_model;
75
3cac0ee8ca35 Ok, things are seem on-track again
"David Bryant <bagnose@gmail.com>"
parents: 74
diff changeset
11 import doodle.dia.layer_stack;
84
cdd4fc728d94 Renamed Drawable to Renderer
daveb
parents: 83
diff changeset
12 import doodle.gtk.cairo_renderer;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
13
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
14 import cairo.Surface;
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
15 import cairo.Context;
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
17 import gtk.Widget;
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
18 import gtk.Toolbar;
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
19 import gtk.Table;
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
20 import gtk.HRuler;
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
21 import gtk.VRuler;
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
22 import gtk.Range;
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
23 import gtk.HScrollbar;
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
24 import gtk.VScrollbar;
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
25 import gtk.DrawingArea;
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
26 import gtk.Adjustment;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
27
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
28 import gdk.Drawable;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
29
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
30 import gtkc.gtk;
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
31 import gtkc.gtktypes;
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
32 //import gtkc.gdktypes;
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
33
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
34 import std.math;
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
35 import std.stdio;
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
36 }
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
37
85
98980cee8c5b More work trying to support OpenGL as a renderer
daveb
parents: 84
diff changeset
38 final class CairoCanvas : Table, private IViewport {
103
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
39 static this() {
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
40 _cursors = [
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
41 Cursor.DEFAULT : CursorType.ARROW,
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
42 Cursor.HAND : CursorType.HAND1,
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
43 Cursor.CROSSHAIR : CursorType.CROSSHAIR,
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
44 Cursor.PENCIL : CursorType.PENCIL
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
45 ];
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
46 }
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
47
69
d540f7e4af9e Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 68
diff changeset
48 this(in Layer[] layers, IEventHandler eventHandler, IGrid grid, in double pixelsPerMillimetre) {
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
49 super(3, 3, 0);
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
50
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
51 _eventHandler = eventHandler;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
52 _grid = grid;
69
d540f7e4af9e Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 68
diff changeset
53 _pixelsPerMillimetre = pixelsPerMillimetre;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
54
79
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
55 _layerStack = new LayerStack(layers);
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
56
13
f0ade1b49fe7 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 12
diff changeset
57 // Create our child widgets and register callbacks
f0ade1b49fe7 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 12
diff changeset
58
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
59 _hRuler = new HRuler;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
60 attach(_hRuler,
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
61 1, 2,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
62 0, 1,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
63 AttachOptions.FILL | AttachOptions.EXPAND, AttachOptions.SHRINK,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
64 0, 0);
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
65 _hRuler.setMetric(MetricType.PIXELS);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
66
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
67 _vRuler = new VRuler;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
68 attach(_vRuler,
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
69 0, 1,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
70 1, 2,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
71 AttachOptions.SHRINK, AttachOptions.FILL | AttachOptions.EXPAND,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
72 0, 0);
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
73 _vRuler.setMetric(MetricType.PIXELS);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
74
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
75 _drawingArea = new DrawingArea;
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
76 _drawingArea.addOnRealize(&onRealize);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
77 _drawingArea.addOnConfigure(&onConfigure);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
78 _drawingArea.addOnExpose(&onExpose);
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
79 _drawingArea.addOnButtonPress(&onButtonPress);
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
80 _drawingArea.addOnButtonRelease(&onButtonRelease);
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
81 _drawingArea.addOnKeyPress(&onKeyPressEvent);
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
82 _drawingArea.addOnKeyRelease(&onKeyReleaseEvent);
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
83 _drawingArea.addOnMotionNotify(&onMotionNotify);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
84 _drawingArea.addOnScroll(&onScroll);
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
85 _drawingArea.addOnEnterNotify(&onEnterNotify);
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
86 _drawingArea.addOnLeaveNotify(&onLeaveNotify);
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
87
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
88 _drawingArea.addOnFocusIn(&onFocusIn);
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
89 _drawingArea.addOnFocusOut(&onFocusOut);
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
90 _drawingArea.addOnMoveFocus(&onMoveFocus);
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
91 _drawingArea.addOnGrabBroken(&onGrabBroken);
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
92 _drawingArea.addOnGrabFocus(&onGrabFocus);
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
93 _drawingArea.addOnGrabNotify(&onGrabNotify);
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
94 // addOnPopupMenu
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
95 // addOnQueryTooltip
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
96 // addOnSelection*
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
97 _drawingArea.setEvents(EventMask.EXPOSURE_MASK |
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
98 EventMask.POINTER_MOTION_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
99 EventMask.POINTER_MOTION_HINT_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
100 EventMask.BUTTON_MOTION_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
101 EventMask.BUTTON_PRESS_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
102 EventMask.BUTTON_RELEASE_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
103 EventMask.KEY_PRESS_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
104 EventMask.KEY_RELEASE_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
105 EventMask.ENTER_NOTIFY_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
106 EventMask.LEAVE_NOTIFY_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
107 EventMask.FOCUS_CHANGE_MASK |
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
108 EventMask.SCROLL_MASK);
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
109
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
110 _drawingArea.setCanFocus(true);
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
111
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
112 attach(_drawingArea,
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
113 1, 2,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
114 1, 2,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
115 AttachOptions.FILL | AttachOptions.EXPAND, AttachOptions.FILL | AttachOptions.EXPAND,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
116 0, 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 // value, lower, upper, step-inc, page-inc, page-size
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
119 // Give the adjustments dummy values until we receive a configure
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
120 _hAdjustment = new Adjustment(0.0, 0.0, 1.0, 0.2, 0.5, 0.5);
67
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
121 _hAdjustment.addOnValueChanged(&onAdjustmentValueChanged);
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
122 _hScrollbar = new HScrollbar(_hAdjustment);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
123 _hScrollbar.setInverted(false);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
124 attach(_hScrollbar,
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
125 1, 2,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
126 2, 3,
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
127 AttachOptions.FILL | AttachOptions.EXPAND,
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
128 AttachOptions.SHRINK,
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
129 0, 0);
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
130
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
131 _vAdjustment = new Adjustment(0.0, 0.0, 1.0, 0.2, 0.5, 0.5);
67
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
132 _vAdjustment.addOnValueChanged(&onAdjustmentValueChanged);
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
133 _vScrollbar = new VScrollbar(_vAdjustment);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
134 _vScrollbar.setInverted(true);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
135 attach(_vScrollbar,
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
136 2, 3,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
137 1, 2,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
138 AttachOptions.SHRINK,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
139 AttachOptions.FILL | AttachOptions.EXPAND,
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
140 0, 0);
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
141 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
142
68
daveb
parents: 67
diff changeset
143 protected { // XXX the compiler complains about unimplemented methods if this is private
62
6c3993f4c3eb Checkpoint
daveb
parents: 58
diff changeset
144
68
daveb
parents: 67
diff changeset
145 // IViewport overrides:
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
146
92
a98116479793 Removed GL support. Improved grid.
daveb
parents: 91
diff changeset
147 void zoomRelative(in double factor, in Point screenDatum) {
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
148 _screenModel.zoomRelative(factor, screenDatum);
68
daveb
parents: 67
diff changeset
149 consolidateBounds;
daveb
parents: 67
diff changeset
150 updateAdjustments;
daveb
parents: 67
diff changeset
151 updateRulers;
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
152 _grid.zoomChanged(_screenModel.zoom);
68
daveb
parents: 67
diff changeset
153 queueDraw;
27
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 26
diff changeset
154 }
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 26
diff changeset
155
72
5cc2de64f6d0 Cautious Saturday night commits
"David Bryant <bagnose@gmail.com>"
parents: 71
diff changeset
156 void panRelative(in Vector screenDisplacement) {
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
157 _screenModel.panRelativeScreen(screenDisplacement);
68
daveb
parents: 67
diff changeset
158 consolidateBounds;
daveb
parents: 67
diff changeset
159 updateAdjustments;
daveb
parents: 67
diff changeset
160 updateRulers;
daveb
parents: 67
diff changeset
161 queueDraw;
daveb
parents: 67
diff changeset
162 }
daveb
parents: 67
diff changeset
163
daveb
parents: 67
diff changeset
164 void setCursor(in Cursor cursor) {
79
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
165 _drawingArea.setCursor(new gdk.Cursor.Cursor(_cursors[cursor]));
68
daveb
parents: 67
diff changeset
166 }
daveb
parents: 67
diff changeset
167
daveb
parents: 67
diff changeset
168 void damageModel(in Rectangle area) {
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
169 _damageScreen = _damageScreen | _screenModel.modelToScreen(area);
68
daveb
parents: 67
diff changeset
170 }
daveb
parents: 67
diff changeset
171
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
172 void damageScreen(in Rectangle area) {
73
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
173 _damageScreen = _damageScreen | area;
68
daveb
parents: 67
diff changeset
174 }
18
df8d81d9f499 Lasso fiddling
David Bryant <daveb@acres.com.au>
parents: 17
diff changeset
175 }
df8d81d9f499 Lasso fiddling
David Bryant <daveb@acres.com.au>
parents: 17
diff changeset
176
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
177 private {
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
178
62
6c3993f4c3eb Checkpoint
daveb
parents: 58
diff changeset
179 void consolidateBounds() {
79
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
180 Rectangle layerBounds = _layerStack.bounds;
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
181 Rectangle paddedLayerBounds = growCentre(layerBounds, 2 * layerBounds.size);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
182 _screenModel.consolidateCanvasBounds(paddedLayerBounds);
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
183
62
6c3993f4c3eb Checkpoint
daveb
parents: 58
diff changeset
184 updateAdjustments;
6c3993f4c3eb Checkpoint
daveb
parents: 58
diff changeset
185 updateRulers;
6c3993f4c3eb Checkpoint
daveb
parents: 58
diff changeset
186 }
35
3f6bb0bb22dc Beginnings of grid
David Bryant <bagnose@gmail.com>
parents: 34
diff changeset
187
62
6c3993f4c3eb Checkpoint
daveb
parents: 58
diff changeset
188 bool onConfigure(GdkEventConfigure * event, Widget widget) {
6c3993f4c3eb Checkpoint
daveb
parents: 58
diff changeset
189 assert(widget is _drawingArea);
6c3993f4c3eb Checkpoint
daveb
parents: 58
diff changeset
190
91
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
191 auto viewBoundsScreen = Rectangle(Point(0.0, 0.0), Vector(cast(double)event.width, cast(double)event.height));
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
192
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
193 if (_screenModel is null) {
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
194 Rectangle layerBounds = _layerStack.bounds;
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
195 Rectangle paddedLayerBounds = growCentre(layerBounds, 2 * layerBounds.size);
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
196 _screenModel = new ScreenModel(0.25 * _pixelsPerMillimetre, paddedLayerBounds, viewBoundsScreen);
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
197 _grid.zoomChanged(_screenModel.zoom);
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
198
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
199 updateAdjustments;
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
200 updateRulers;
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
201 }
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
202 else {
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
203 _screenModel.setViewBoundsScreen(viewBoundsScreen);
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
204 consolidateBounds;
42766e14534e Update screenViewBounds when the window is resized
daveb
parents: 89
diff changeset
205 }
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
206
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents: 0
diff changeset
207 return true;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
208 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
209
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
210 bool onExpose(GdkEventExpose * event, Widget widget) {
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
211 assert(widget is _drawingArea);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
212
88
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
213 auto dr = _drawingArea.getWindow;
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
214 scope modelCr = new Context(dr); // Causing a memory leak!
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
215 scope screenCr = new Context(dr); // Causing a memory leak!
12
a093c4fbdd43 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 11
diff changeset
216
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
217 Rectangle screenDamage =
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
218 event is null ? _screenModel.viewBoundsScreen :
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
219 Rectangle(_screenModel.viewBoundsScreen.position + Vector(cast(double)event.area.x, _screenModel.viewBoundsScreen.h - cast(double)(event.area.y + event.area.height)),
11
fb571a3b1f0d Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 10
diff changeset
220 Vector(cast(double)event.area.width, cast(double)event.area.height));
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
221
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
222 Rectangle modelDamage = _screenModel.screenToModel(screenDamage);
19
22abbf4cde96 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 18
diff changeset
223
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
224 modelCr.save; screenCr.save; {
67
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
225 {
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
226 // Setup model context and clip
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
227 modelCr.translate(0.0, _screenModel.viewBoundsScreen.h);
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
228 modelCr.scale(_screenModel.zoom, -_screenModel.zoom);
12
a093c4fbdd43 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 11
diff changeset
229
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
230 immutable Point viewLeftBottom = _screenModel.screenToModel(Point(0.0, 0.0));
67
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
231 modelCr.translate(-viewLeftBottom.x, -viewLeftBottom.y);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
232
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
233 modelCr.rectangle(modelDamage.x0, modelDamage.y0, modelDamage.w, modelDamage.h);
67
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
234 modelCr.clip;
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
235 }
12
a093c4fbdd43 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 11
diff changeset
236
67
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
237 {
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
238 // Setup screen context and clip
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
239 screenCr.translate(0.0, _screenModel.viewBoundsScreen.h);
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
240 screenCr.scale(1.0, -1.0);
19
22abbf4cde96 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 18
diff changeset
241
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
242 screenCr.rectangle(screenDamage.x0, screenDamage.y0, screenDamage.w, screenDamage.h);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
243 screenCr.clip;
67
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
244 }
12
a093c4fbdd43 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 11
diff changeset
245
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
246 screenCr.save; {
67
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
247 // Fill the background with light grey
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
248 screenCr.setSourceRgba(0.9, 0.9, 0.9, 1.0);
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
249 screenCr.rectangle(screenDamage.x0, screenDamage.y0, screenDamage.w, screenDamage.h);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
250 screenCr.fill;
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
251 } screenCr.restore;
12
a093c4fbdd43 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 11
diff changeset
252
84
cdd4fc728d94 Renamed Drawable to Renderer
daveb
parents: 83
diff changeset
253 _layerStack.draw(screenDamage, new CairoRenderer(screenCr),
89
467febed7367 * Ignore excre
David Bryant <bagnose@gmail.com>
parents: 88
diff changeset
254 modelDamage, new CairoRenderer(modelCr),
467febed7367 * Ignore excre
David Bryant <bagnose@gmail.com>
parents: 88
diff changeset
255 _screenModel);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
256 } screenCr.restore; modelCr.restore;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
257
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents: 0
diff changeset
258 return true;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
259 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
260
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
261 bool onButtonPress(GdkEventButton * event, Widget widget) {
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
262 assert(widget is _drawingArea);
78
"David Bryant <bagnose@gmail.com>"
parents: 77
diff changeset
263 _eventHandler.handleButtonPress(this, makeButtonEvent(event, _screenModel));
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
264 fixDamage;
5
8a39b13cd3e6 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 3
diff changeset
265 return true;
8a39b13cd3e6 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 3
diff changeset
266 }
8a39b13cd3e6 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 3
diff changeset
267
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
268 bool onButtonRelease(GdkEventButton * event, Widget widget) {
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
269 assert(widget is _drawingArea);
78
"David Bryant <bagnose@gmail.com>"
parents: 77
diff changeset
270 _eventHandler.handleButtonRelease(this, makeButtonEvent(event, _screenModel));
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
271 fixDamage;
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents: 0
diff changeset
272 return true;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
273 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
274
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
275 bool onKeyPressEvent(GdkEventKey * event, Widget widget) {
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
276 assert(widget is _drawingArea);
78
"David Bryant <bagnose@gmail.com>"
parents: 77
diff changeset
277 _eventHandler.handleKeyPress(this, makeKeyEvent(event, _screenModel));
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
278 fixDamage;
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
279 return true;
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
280 }
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
281
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
282 bool onKeyReleaseEvent(GdkEventKey * event, Widget widget) {
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
283 assert(widget is _drawingArea);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
284 _eventHandler.handleKeyRelease(this, makeKeyEvent(event, _screenModel));
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
285 fixDamage;
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents: 0
diff changeset
286 return true;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
287 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
288
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
289 bool onMotionNotify(GdkEventMotion * event, Widget widget) {
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
290 assert(widget is _drawingArea);
73
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
291
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
292 // Pass the events on to the rulers so that they update
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
293 gtk_widget_event(_hRuler.getWidgetStruct(), cast(GdkEvent *)event);
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
294 gtk_widget_event(_vRuler.getWidgetStruct(), cast(GdkEvent *)event);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
295
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
296 _eventHandler.handleMotion(this, makeMotionEvent(event, _screenModel));
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
297 fixDamage;
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents: 0
diff changeset
298 return true;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
299 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
300
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
301 bool onScroll(GdkEventScroll * event, Widget widget) {
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
302 assert(widget is _drawingArea);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
303 _eventHandler.handleScroll(this, makeScrollEvent(event, _screenModel));
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
304 fixDamage;
2
d6f44347373d * Switched over to geometry done with structs instead of classes.
David Bryant <daveb@acres.com.au>
parents: 0
diff changeset
305 return true;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
306 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
307
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
308 bool onEnterNotify(GdkEventCrossing * event, Widget widget) {
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
309 assert(widget is _drawingArea);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
310 _eventHandler.handleEnter(this, makeCrossingEvent(event, _screenModel));
64
eb5436b47d13 Implemented crossing events
"David Bryant <bagnose@gmail.com>"
parents: 63
diff changeset
311 fixDamage;
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
312 return true;
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
313 }
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
314
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
315 bool onLeaveNotify(GdkEventCrossing * event, Widget widget) {
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
316 assert(widget is _drawingArea);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
317 _eventHandler.handleLeave(this, makeCrossingEvent(event, _screenModel));
64
eb5436b47d13 Implemented crossing events
"David Bryant <bagnose@gmail.com>"
parents: 63
diff changeset
318 fixDamage;
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
319 return true;
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
320 }
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 19
diff changeset
321
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
322 bool onFocusIn(GdkEventFocus * event, Widget widget) {
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
323 trace("onFocusIn");
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
324 return true;
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
325 }
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
326
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
327 bool onFocusOut(GdkEventFocus * event, Widget widget) {
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
328 trace("onFocusOut");
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
329 return true;
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
330 }
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
331
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
332 void onMoveFocus(GtkDirectionType direction, Widget widget) {
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
333 trace("onMoveFocus");
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
334 }
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
335
64
eb5436b47d13 Implemented crossing events
"David Bryant <bagnose@gmail.com>"
parents: 63
diff changeset
336 bool onGrabBroken(gdk.Event.Event event, Widget widget) {
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
337 trace("onGrabBroken");
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
338 return true;
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
339 }
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
340
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
341 void onGrabFocus(Widget widget) {
64
eb5436b47d13 Implemented crossing events
"David Bryant <bagnose@gmail.com>"
parents: 63
diff changeset
342 //trace("onGrabFocus");
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
343 }
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
344
88
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
345 void onGrabNotify(gboolean what, Widget widget) {
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
346 trace("onGrabNotify: %s", what);
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
347 }
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
348
67
31d10176415d Checkpoint
daveb
parents: 64
diff changeset
349 void onAdjustmentValueChanged(Adjustment adjustment) {
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
350 GtkAdjustment * hGtkAdjustment = _hAdjustment.getAdjustmentStruct;
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
351 GtkAdjustment * vGtkAdjustment = _vAdjustment.getAdjustmentStruct;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
352
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
353 Point oldViewLeftBottom = _screenModel.screenToModel(Point(0.0, 0.0));
71
0f7cf6c6f206 Reimplemented gtk.canvas in terms of tk.pixel_model but
"David Bryant <bagnose@gmail.com>"
parents: 70
diff changeset
354 Point newViewLeftBottom = Point(gtk_adjustment_get_value(hGtkAdjustment),
0f7cf6c6f206 Reimplemented gtk.canvas in terms of tk.pixel_model but
"David Bryant <bagnose@gmail.com>"
parents: 70
diff changeset
355 gtk_adjustment_get_value(vGtkAdjustment));
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
356
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
357 _screenModel.panRelativeModel(newViewLeftBottom - oldViewLeftBottom);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
358
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
359 updateRulers;
13
f0ade1b49fe7 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 12
diff changeset
360 queueDraw;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
361 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
362
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
363 void updateRulers() {
79
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
364 immutable Point viewLeftBottom = _screenModel.screenToModel(_screenModel.viewBoundsScreen.corner0);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
365 immutable Point viewRightTop = _screenModel.screenToModel(_screenModel.viewBoundsScreen.corner1);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
366
16
9e63308b749c * Fix up public/private includes
David Bryant <daveb@acres.com.au>
parents: 15
diff changeset
367 // Define these just to obtain the position
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
368 // below so we can preserve it
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
369 double lower, upper, position, maxSize;
12
a093c4fbdd43 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 11
diff changeset
370
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
371 _hRuler.getRange(lower, upper, position, maxSize);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
372 _hRuler.setRange(viewLeftBottom.x,
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
373 viewRightTop.x,
12
a093c4fbdd43 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 11
diff changeset
374 position,
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
375 _screenModel.zoom * 50.0);
12
a093c4fbdd43 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 11
diff changeset
376
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
377 _vRuler.getRange(lower, upper, position, maxSize);
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
378 _vRuler.setRange(viewRightTop.y,
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
379 viewLeftBottom.y,
14
0b7e7d43a79d Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 13
diff changeset
380 position,
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
381 _screenModel.zoom * 50.0);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
382 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
383
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
384 void updateAdjustments() {
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
385 immutable Point viewLeftBottom = _screenModel.screenToModel(Point(0.0, 0.0));
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
386 immutable Point viewRightTop = _screenModel.screenToModel(_screenModel.viewBoundsScreen.corner1);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
387
79
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
388 // Adjust the canvas size if necessary
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
389 _screenModel.canvasAccommodate(Rectangle(viewLeftBottom, viewRightTop));
71
0f7cf6c6f206 Reimplemented gtk.canvas in terms of tk.pixel_model but
"David Bryant <bagnose@gmail.com>"
parents: 70
diff changeset
390
79
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
391 Rectangle viewBoundsModel = _screenModel.viewBoundsModel;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
392
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
393 // Update the adjustments
88
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
394 _hAdjustment.configure(viewLeftBottom.x,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
395 _screenModel.canvasBoundsModel.x0,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
396 _screenModel.canvasBoundsModel.x1,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
397 _screenModel.canvasBoundsModel.w / 16.0,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
398 _screenModel.canvasBoundsModel.w / 4.0,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
399 _screenModel.viewBoundsModel.w);
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
400 _vAdjustment.configure(viewLeftBottom.y,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
401 _screenModel.canvasBoundsModel.y0,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
402 _screenModel.canvasBoundsModel.y1,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
403 _screenModel.canvasBoundsModel.h / 16.0,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
404 _screenModel.canvasBoundsModel.h / 4.0,
100dd23c7bdf Ch ch ch changes:
David Bryant <bagnose@gmail.com>
parents: 85
diff changeset
405 _screenModel.viewBoundsModel.h);
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
406 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
407
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
408 void fixDamage() {
73
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
409 if (_damageScreen.valid) {
17
c643c04e3f5e Checkpoint
David Bryant <daveb@acres.com.au>
parents: 16
diff changeset
410 int x, y, w, h;
73
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
411 _damageScreen.getQuantised(x, y, w, h);
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
412 _drawingArea.queueDrawArea(x, cast(int)_screenModel.viewBoundsScreen.h - (y + h), w, h);
100
a274d16ab6ce struct initialisers
David Bryant <bagnose@gmail.com>
parents: 92
diff changeset
413 _damageScreen = Rectangle();
17
c643c04e3f5e Checkpoint
David Bryant <daveb@acres.com.au>
parents: 16
diff changeset
414 }
c643c04e3f5e Checkpoint
David Bryant <daveb@acres.com.au>
parents: 16
diff changeset
415 }
c643c04e3f5e Checkpoint
David Bryant <daveb@acres.com.au>
parents: 16
diff changeset
416
48
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
417 void onRealize(Widget widget) {
1b4c9ba58673 Stylistic overhaul.
daveb
parents: 41
diff changeset
418 assert(widget is _drawingArea);
63
20d6327c4a75 Event progress. Got key press/release working and panning via keyboard.
daveb
parents: 62
diff changeset
419 _drawingArea.grabFocus();
27
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 26
diff changeset
420 }
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 26
diff changeset
421
73
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
422 IEventHandler _eventHandler;
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
423 IGrid _grid;
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
424 double _pixelsPerMillimetre;
79
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
425 LayerStack _layerStack;
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
426
10
71ca82e0eb76 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 9
diff changeset
427 // Child widgets:
73
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
428 HRuler _hRuler;
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
429 VRuler _vRuler;
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
430 DrawingArea _drawingArea;
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
431 Adjustment _hAdjustment;
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
432 HScrollbar _hScrollbar;
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
433 Adjustment _vAdjustment;
6f2525e170f2 Cairo/OpenGL checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 72
diff changeset
434 VScrollbar _vScrollbar;
11
fb571a3b1f0d Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 10
diff changeset
435
79
535bae7a7305 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents: 78
diff changeset
436 Rectangle _damageScreen;
77
15ca7d5cd1ed The rulers are broken
"David Bryant <bagnose@gmail.com>"
parents: 75
diff changeset
437 ScreenModel _screenModel;
81
d92b9f04b1e8 Bed time
"David Bryant <bagnose@gmail.com>"
parents: 80
diff changeset
438
103
345fb56d89fc Blind checkpoint
David Bryant <bagnose@gmail.com>
parents: 100
diff changeset
439 static immutable CursorType[Cursor] _cursors;
0
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
440 }
e907d2c54ec3 Initial import
David Bryant <daveb@acres.com.au>
parents:
diff changeset
441 }