annotate org.eclipse.swt.snippets/src/org/eclipse/swt/snippets/Snippet25.d @ 120:536e43f63c81

Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661 ===D2=== * added [Try]Immutable/Const/Shared templates to work with differenses in D1/D2 instead of version statements used these templates to work with strict type storage rules of dmd-2.053 * com.ibm.icu now also compilable with D2, but not tested yet * small fixes Snippet288 - shared data is in TLS ===Phobos=== * fixed critical bugs in Phobos implemention completely incorrect segfault prone fromStringz (Linux's port ruthless killer) terrible, incorrect StringBuffer realization (StyledText killer) * fixed small bugs as well Snippet72 - misprint in the snippet * implemented missed functionality for Phobos ByteArrayOutputStream implemented (image loading available) formatting correctly works for all DWT's cases As a result, folowing snippets now works with Phobos (Snippet### - what is fixed): Snippet24, 42, 111, 115, 130, 235, 276 - bad string formatting Snippet48, 282 - crash on image loading Snippet163, 189, 211, 213, 217, 218, 222 - crash on copy/cut in StyledText Snippet244 - hang-up ===Tango=== * few changes for the latest Tango trunc-r5661 * few small performance improvments ===General=== * implMissing-s for only one version changed to implMissingInTango/InPhobos * incorrect calls to Format in toString-s fixed * fixed loading \uXXXX characters in ResourceBundle * added good UTF-8 support for StyledText, TextLayout (Win32) and friends UTF functions revised and tested. It is now in java.nonstandard.*Utf modules StyledText and TextLayout (Win32) modules revised for UTF-8 support * removed small diferences in most identical files in *.swt.* folders *.swt.internal.image, *.swt.events and *.swt.custom are identical in Win32/Linux32 now 179 of 576 (~31%) files in *.swt.* folders are fully identical * Win32: snippets now have right subsystem, pretty icons and native system style controls * small fixes in snippets Snippet44 - it's not Snippet44 Snippet212 - functions work with different images and offsets arrays Win32: Snippet282 - crash on close if the button has an image Snippet293 - setGrayed is commented and others Win32: As a result, folowing snippets now works Snippet68 - color doesn't change Snippet163, 189, 211, 213, 217, 218, 222 - UTF-8 issues (see above) Snippet193 - no tabel headers
author Denis Shelomovskij <verylonglogin.reg@gmail.com>
date Sat, 09 Jul 2011 15:50:20 +0300
parents 9f4c18c268b2
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
28
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
1 /*******************************************************************************
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
2 * Copyright (c) 2000, 2004 IBM Corporation and others.
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
3 * All rights reserved. This program and the accompanying materials
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
4 * are made available under the terms of the Eclipse Public License v1.0
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
5 * which accompanies this distribution, and is available at
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
6 * http://www.eclipse.org/legal/epl-v10.html
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
7 *
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
8 * Contributors:
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
9 * IBM Corporation - initial API and implementation
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
10 * Port to the D programming language:
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
11 * Bill Baxter <bill@billbaxter.com>
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
12 *******************************************************************************/
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
13 module org.eclipse.swt.snippets.Snippet25;
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
14
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
15 /*
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
16 * Control example snippet: print key state, code and character
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
17 *
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
18 * For a list of all SWT example snippets see
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
19 * http://www.eclipse.org/swt/snippets/
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
20 *
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
21 * @since 3.0
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
22 */
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
23 import org.eclipse.swt.SWT;
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
24 import org.eclipse.swt.widgets.Display;
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
25 import org.eclipse.swt.widgets.Shell;
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
26 import org.eclipse.swt.widgets.Listener;
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
27 import org.eclipse.swt.widgets.Event;
112
9f4c18c268b2 Update to compile and execute with dmd 2.052.
kntroh
parents: 28
diff changeset
28 import java.lang.all;
28
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
29
112
9f4c18c268b2 Update to compile and execute with dmd 2.052.
kntroh
parents: 28
diff changeset
30 version(Tango){
120
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
31 import tango.util.Convert;
112
9f4c18c268b2 Update to compile and execute with dmd 2.052.
kntroh
parents: 28
diff changeset
32 import tango.io.Stdout;
120
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
33 void writeln(in char[] line) {
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
34 Stdout(line)("\n").flush();
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
35 }
112
9f4c18c268b2 Update to compile and execute with dmd 2.052.
kntroh
parents: 28
diff changeset
36 } else { // Phobos
9f4c18c268b2 Update to compile and execute with dmd 2.052.
kntroh
parents: 28
diff changeset
37 import std.stdio;
9f4c18c268b2 Update to compile and execute with dmd 2.052.
kntroh
parents: 28
diff changeset
38 import std.conv;
9f4c18c268b2 Update to compile and execute with dmd 2.052.
kntroh
parents: 28
diff changeset
39 }
28
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
40
120
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
41 String stateMask (int stateMask) {
112
9f4c18c268b2 Update to compile and execute with dmd 2.052.
kntroh
parents: 28
diff changeset
42 String string = "";
28
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
43 if ((stateMask & SWT.CTRL) != 0) string ~= " CTRL";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
44 if ((stateMask & SWT.ALT) != 0) string ~= " ALT";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
45 if ((stateMask & SWT.SHIFT) != 0) string ~= " SHIFT";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
46 if ((stateMask & SWT.COMMAND) != 0) string ~= " COMMAND";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
47 return string;
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
48 }
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
49
120
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
50 String character (wchar character) {
28
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
51 switch (character) {
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
52 case 0: return "'\\0'";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
53 case SWT.BS: return "'\\b'";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
54 case SWT.CR: return "'\\r'";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
55 case SWT.DEL: return "DEL";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
56 case SWT.ESC: return "ESC";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
57 case SWT.LF: return "'\\n'";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
58 case SWT.TAB: return "'\\t'";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
59 default:
112
9f4c18c268b2 Update to compile and execute with dmd 2.052.
kntroh
parents: 28
diff changeset
60 return to!(String)("'"w ~ character ~"'"w);
28
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
61 }
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
62 }
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
63
120
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
64 String keyCode (int keyCode) {
28
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
65 switch (keyCode) {
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
66
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
67 /* Keyboard and Mouse Masks */
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
68 case SWT.ALT: return "ALT";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
69 case SWT.SHIFT: return "SHIFT";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
70 case SWT.CONTROL: return "CONTROL";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
71 case SWT.COMMAND: return "COMMAND";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
72
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
73 /* Non-Numeric Keypad Keys */
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
74 case SWT.ARROW_UP: return "ARROW_UP";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
75 case SWT.ARROW_DOWN: return "ARROW_DOWN";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
76 case SWT.ARROW_LEFT: return "ARROW_LEFT";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
77 case SWT.ARROW_RIGHT: return "ARROW_RIGHT";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
78 case SWT.PAGE_UP: return "PAGE_UP";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
79 case SWT.PAGE_DOWN: return "PAGE_DOWN";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
80 case SWT.HOME: return "HOME";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
81 case SWT.END: return "END";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
82 case SWT.INSERT: return "INSERT";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
83
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
84 /* Virtual and Ascii Keys */
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
85 case SWT.BS: return "BS";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
86 case SWT.CR: return "CR";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
87 case SWT.DEL: return "DEL";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
88 case SWT.ESC: return "ESC";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
89 case SWT.LF: return "LF";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
90 case SWT.TAB: return "TAB";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
91
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
92 /* Functions Keys */
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
93 case SWT.F1: return "F1";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
94 case SWT.F2: return "F2";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
95 case SWT.F3: return "F3";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
96 case SWT.F4: return "F4";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
97 case SWT.F5: return "F5";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
98 case SWT.F6: return "F6";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
99 case SWT.F7: return "F7";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
100 case SWT.F8: return "F8";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
101 case SWT.F9: return "F9";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
102 case SWT.F10: return "F10";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
103 case SWT.F11: return "F11";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
104 case SWT.F12: return "F12";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
105 case SWT.F13: return "F13";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
106 case SWT.F14: return "F14";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
107 case SWT.F15: return "F15";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
108
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
109 /* Numeric Keypad Keys */
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
110 case SWT.KEYPAD_ADD: return "KEYPAD_ADD";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
111 case SWT.KEYPAD_SUBTRACT: return "KEYPAD_SUBTRACT";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
112 case SWT.KEYPAD_MULTIPLY: return "KEYPAD_MULTIPLY";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
113 case SWT.KEYPAD_DIVIDE: return "KEYPAD_DIVIDE";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
114 case SWT.KEYPAD_DECIMAL: return "KEYPAD_DECIMAL";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
115 case SWT.KEYPAD_CR: return "KEYPAD_CR";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
116 case SWT.KEYPAD_0: return "KEYPAD_0";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
117 case SWT.KEYPAD_1: return "KEYPAD_1";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
118 case SWT.KEYPAD_2: return "KEYPAD_2";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
119 case SWT.KEYPAD_3: return "KEYPAD_3";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
120 case SWT.KEYPAD_4: return "KEYPAD_4";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
121 case SWT.KEYPAD_5: return "KEYPAD_5";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
122 case SWT.KEYPAD_6: return "KEYPAD_6";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
123 case SWT.KEYPAD_7: return "KEYPAD_7";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
124 case SWT.KEYPAD_8: return "KEYPAD_8";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
125 case SWT.KEYPAD_9: return "KEYPAD_9";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
126 case SWT.KEYPAD_EQUAL: return "KEYPAD_EQUAL";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
127
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
128 /* Other keys */
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
129 case SWT.CAPS_LOCK: return "CAPS_LOCK";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
130 case SWT.NUM_LOCK: return "NUM_LOCK";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
131 case SWT.SCROLL_LOCK: return "SCROLL_LOCK";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
132 case SWT.PAUSE: return "PAUSE";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
133 case SWT.BREAK: return "BREAK";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
134 case SWT.PRINT_SCREEN: return "PRINT_SCREEN";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
135 case SWT.HELP: return "HELP";
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
136
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
137 default:
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
138 return character (cast(char) keyCode);
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
139 }
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
140
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
141 }
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
142
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
143 void main () {
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
144 Display display = new Display ();
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
145 Shell shell = new Shell (display);
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
146 Listener listener = new class Listener {
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
147 public void handleEvent (Event e) {
120
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
148 String string = Format("{} stateMask=0x{:x}{}, keyCode=0x{:x} {}, character=0x{:x} {}",
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
149 e.type == SWT.KeyDown ? "DOWN:" : "UP :",
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
150 e.stateMask, stateMask (e.stateMask),
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
151 e.keyCode, keyCode (e.keyCode),
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
152 e.character, character (e.character));
536e43f63c81 Comprehensive update for Win32/Linux32 dmd-2.053/dmd-1.068+Tango-r5661
Denis Shelomovskij <verylonglogin.reg@gmail.com>
parents: 112
diff changeset
153 writeln(string);
28
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
154 }
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
155 };
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
156 shell.addListener (SWT.KeyDown, listener);
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
157 shell.addListener (SWT.KeyUp, listener);
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
158 shell.setSize (200, 200);
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
159 shell.open ();
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
160 while (!shell.isDisposed ()) {
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
161 if (!display.readAndDispatch ()) display.sleep ();
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
162 }
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
163 display.dispose ();
69b1fa94a4a8 Added SWT snippets
Frank Benoit <benoit@tionex.de>
parents:
diff changeset
164 }