annotate dwtexamples/sleak/SleakExample.d @ 36:56ff46d37645

Fix: missing imports
author Frank Benoit <benoit@tionex.de>
date Sat, 08 Mar 2008 23:33:59 +0100
parents 11cb40a34da1
children 36497bc795a9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
35
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
1 /*
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
2 * Copyright (c) 2000, 2002 IBM Corp. All rights reserved.
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
3 * This file is made available under the terms of the Common Public License v1.0
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
4 * which accompanies this distribution, and is available at
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
5 * http://www.eclipse.org/legal/cpl-v10.html
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
6 *
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
7 * Port to the D programming language
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
8 * Frank Benoit <benoit@tionex.de>
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
9 */
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
10 module dwtexamples.sleak.SleakExample;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
11
36
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
12 import dwt.DWT;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
13 import dwt.graphics.DeviceData;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
14 // import dwt.graphics.Rectangle;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
15 // import dwt.graphics.GC;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
16 // import dwt.graphics.Point;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
17 // import dwt.graphics.Color;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
18 // import dwt.graphics.Font;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
19 // import dwt.graphics.FontData;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
20 // import dwt.graphics.Region;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
21 // import dwt.graphics.Cursor;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
22 import dwt.widgets.Display;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
23 import dwt.widgets.Shell;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
24 import dwt.widgets.Canvas;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
25 // import dwt.widgets.Button;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
26 // import dwt.widgets.Label;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
27 import dwt.widgets.List;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
28 // import dwt.widgets.Text;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
29 // import dwt.widgets.Event;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
30 // import dwt.widgets.Listener;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
31 // import dwt.widgets.MessageBox;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
32
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
33 import dwtx.sleak.Sleak;
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
34
56ff46d37645 Fix: missing imports
Frank Benoit <benoit@tionex.de>
parents: 35
diff changeset
35
35
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
36 import dwt.program.Program;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
37 import dwt.graphics.ImageData;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
38 import dwt.graphics.Image;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
39 import dwt.layout.FillLayout;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
40 import dwt.events.PaintListener;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
41 import dwt.events.PaintEvent;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
42 import dwt.events.SelectionAdapter;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
43 import dwt.events.SelectionEvent;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
44 import tango.io.Stdout;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
45 version(JIVE){
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
46 import jive.stacktrace;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
47 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
48
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
49 void main() {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
50 Display display;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
51 Shell shell;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
52 List list;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
53 Canvas canvas;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
54 Image image;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
55
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
56 version( all ){
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
57 DeviceData data = new DeviceData();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
58 data.tracking = true;
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
59 display = new Display(data);
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
60 Sleak sleak = new Sleak();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
61 sleak.open();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
62 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
63 else{
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
64 display = new Display();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
65 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
66
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
67 shell = new Shell(display);
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
68 shell.setLayout(new FillLayout());
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
69 list = new List(shell, DWT.BORDER | DWT.SINGLE | DWT.V_SCROLL | DWT.H_SCROLL);
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
70 list.setItems(Program.getExtensions());
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
71 canvas = new Canvas(shell, DWT.BORDER);
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
72 canvas.addPaintListener(new class() PaintListener {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
73 public void paintControl(PaintEvent e) {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
74 if (image !is null) {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
75 e.gc.drawImage(image, 0, 0);
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
76 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
77 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
78 });
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
79 list.addSelectionListener(new class() SelectionAdapter {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
80 public void widgetSelected(SelectionEvent e) {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
81 image = null; // potentially leak one image
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
82 char[][] selection = list.getSelection();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
83 if (selection.length !is 0) {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
84 Program program = Program.findProgram(selection[0]);
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
85 if (program !is null) {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
86 ImageData imageData = program.getImageData();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
87 if (imageData !is null) {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
88 if (image !is null) image.dispose();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
89 image = new Image(display, imageData);
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
90 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
91 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
92 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
93 canvas.redraw();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
94 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
95 });
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
96 shell.setSize(shell.computeSize(DWT.DEFAULT, 200));
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
97 shell.open();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
98 while (!shell.isDisposed()) {
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
99 if (!display.readAndDispatch())
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
100 display.sleep();
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
101 }
11cb40a34da1 SleakExample
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
102 }