Mercurial > projects > doodle

annotate doodle/main/prog/doodler.d @ 40:1f97022e5c6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Checkpoint. Development continues...
author daveb
date Mon, 12 Apr 2010 14:01:54 +0930
parents 452915ecd1f4
children 2b9329ed0f0e
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: 27
diff changeset
1 private {
38
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
2 import doodle.core.logging;
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
3
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.tool_layer;
1754cb773d41 Part-way through getting to compile with configure/builder.
Graham St Jack <graham.stjack@internode.on.net>
parents: 27
diff changeset
5 import doodle.dia.standard_tools;
35
3f6bb0bb22dc Beginnings of grid
David Bryant <bagnose@gmail.com>
parents: 33
diff changeset
6 import doodle.dia.grid_layer;
28
1754cb773d41 Part-way through getting to compile with configure/builder.
Graham St Jack <graham.stjack@internode.on.net>
parents: 27
diff changeset
7 import doodle.dia.page_layer;
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
8
28
1754cb773d41 Part-way through getting to compile with configure/builder.
Graham St Jack <graham.stjack@internode.on.net>
parents: 27
diff changeset
9 import doodle.gtk.canvas;
1754cb773d41 Part-way through getting to compile with configure/builder.
Graham St Jack <graham.stjack@internode.on.net>
parents: 27
diff changeset
10 import doodle.gtk.toolbar;
27
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 22
diff changeset
11
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
12 import gtk.Main;
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
13 import gtk.MainWindow;
27
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 22
diff changeset
14 import gtk.VBox;
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
15
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
16 import std.stdio;
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
17 }
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
18
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
19 void main(string[] args) {
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
20 trace("Test trace");
38
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
21 /+
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
22 trace("Test trace");
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
23 info("Test trace");
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
24 message("Test trace");
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
25 warning("Test trace");
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
26 error("Test trace");
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
27 fatal("Test trace");
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
28 +/
452915ecd1f4 Basic logging functionality
David Bryant <bagnose@gmail.com>
parents: 35
diff changeset
29
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
30 trace("Test trace1");
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
31 Main.init(args);
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
32 trace("Test trace2");
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
33 auto window = new MainWindow("Doodle");
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
34 trace("Test trace3");
27
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 22
diff changeset
35 auto vbox = new VBox(false, 0);
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
36 trace("Test trace4");
27
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 22
diff changeset
37 auto tool_bar = new ToolBar;
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
38 trace("Test trace5");
27
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 22
diff changeset
39 vbox.packStart(tool_bar, false, false, 0);
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
40 Tool[] tools;
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
41 tools ~= new PanTool;
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
42 tools ~= new ZoomTool;
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
43 tools ~= new LassoTool;
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
44 trace("Test trace4");
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
45 auto tool_layer = new ToolLayer(tools, "Tools");
35
3f6bb0bb22dc Beginnings of grid
David Bryant <bagnose@gmail.com>
parents: 33
diff changeset
46 auto grid_layer = new GridLayer("Grid");
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
47 Layer[] layers;
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
48 trace("Test trace5");
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
49 layers ~= new PageLayer("Page");
35
3f6bb0bb22dc Beginnings of grid
David Bryant <bagnose@gmail.com>
parents: 33
diff changeset
50 layers ~= grid_layer;
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
51 layers ~= tool_layer;
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
52 trace("Test trace6");
35
3f6bb0bb22dc Beginnings of grid
David Bryant <bagnose@gmail.com>
parents: 33
diff changeset
53 auto canvas = new Canvas(layers, tool_layer, grid_layer, 120.0);
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
54 trace("Test trace7");
27
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 22
diff changeset
55 vbox.packStart(canvas, true, true, 0);
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
56 trace("Test trace8");
27
f3d91579bb28 Checkpoint
David Bryant <daveb@acres.com.au>
parents: 22
diff changeset
57 window.add(vbox);
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
58 trace("Test trace9");
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
59 window.setDefaultSize(380, 380);
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
60 window.showAll();
40
1f97022e5c6d Checkpoint. Development continues...
daveb
parents: 38
diff changeset
61 trace("Test trace8");
20
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
62 Main.run();
d6e7a5a6f008 Checkpoint
"David Bryant <bagnose@gmail.com>"
parents:
diff changeset
63 }