Mercurial > projects > dwt-mac
annotate dwt/internal/cocoa/NSEvent.d @ 46:cfa563df4fdd
Updated Widget and Display to 3.514
| author | Jacob Carlborg <doob@me.com> |
|---|---|
| date | Fri, 05 Dec 2008 16:00:41 +0100 |
| parents | d8635bb48c7c |
| children | 62202ce0039f |
| rev | line source |
|---|---|
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
1 /******************************************************************************* |
| 45 | 2 * Copyright (c) 2000, 2008 IBM Corporation and others. |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
3 * All rights reserved. This program and the accompanying materials |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
4 * are made available under the terms of the Eclipse Public License v1.0 |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
5 * which accompanies this distribution, and is available at |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
6 * http://www.eclipse.org/legal/epl-v10.html |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
7 * |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
8 * Contributors: |
| 45 | 9 * IBM Corporation - initial API and implementation |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
10 * |
|
13
f565d3a95c0a
Ported dwt.internal
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
1
diff
changeset
|
11 * Port to the D programming language: |
| 45 | 12 * Jacob Carlborg <doob@me.com> |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
13 *******************************************************************************/ |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
14 module dwt.internal.cocoa.NSEvent; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
15 |
| 45 | 16 import dwt.dwthelper.utils; |
| 17 import dwt.internal.c.Carbon; | |
| 18 import cocoa = dwt.internal.cocoa.id; | |
| 19 import dwt.internal.cocoa.NSDate; | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
20 import dwt.internal.cocoa.NSGraphicsContext; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
21 import dwt.internal.cocoa.NSObject; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
22 import dwt.internal.cocoa.NSPoint; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
23 import dwt.internal.cocoa.NSString; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
24 import dwt.internal.cocoa.NSWindow; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
25 import dwt.internal.cocoa.OS; |
| 45 | 26 import dwt.internal.objc.cocoa.Cocoa; |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
27 import objc = dwt.internal.objc.runtime; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
28 |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
29 enum NSEventType |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
30 { |
| 45 | 31 NSLeftMouseDown = 1, |
| 32 NSLeftMouseUp = 2, | |
| 33 NSRightMouseDown = 3, | |
| 34 NSRightMouseUp = 4, | |
| 35 NSMouseMoved = 5, | |
| 36 NSLeftMouseDragged = 6, | |
| 37 NSRightMouseDragged = 7, | |
| 38 NSMouseEntered = 8, | |
| 39 NSMouseExited = 9, | |
| 40 NSKeyDown = 10, | |
| 41 NSKeyUp = 11, | |
| 42 NSFlagsChanged = 12, | |
| 43 NSAppKitDefined = 13, | |
| 44 NSSystemDefined = 14, | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
45 NSApplicationDefined = 15, |
| 45 | 46 NSPeriodic = 16, |
| 47 NSCursorUpdate = 17, | |
| 48 NSScrollWheel = 22, | |
| 49 NSTabletPoint = 23, | |
| 50 NSTabletProximity = 24, | |
| 51 NSOtherMouseDown = 25, | |
| 52 NSOtherMouseUp = 26, | |
| 53 NSOtherMouseDragged = 27 | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
54 } |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
55 |
| 45 | 56 public class NSEvent : NSObject { |
| 57 | |
| 58 public this() { | |
| 59 super(); | |
| 60 } | |
| 61 | |
| 62 public this(objc.id id) { | |
| 63 super(id); | |
| 64 } | |
|
1
8b48be5454ce
The internal cocoa classes compile now
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
0
diff
changeset
|
65 |
| 45 | 66 public this(cocoa.id id) { |
| 67 super(id); | |
| 68 } | |
| 69 | |
| 70 public NSInteger buttonNumber() { | |
| 71 return OS.objc_msgSend(this.id, OS.sel_buttonNumber); | |
| 72 } | |
| 73 | |
| 74 public NSString characters() { | |
| 75 objc.id result = OS.objc_msgSend(this.id, OS.sel_characters); | |
| 76 return result !is null ? new NSString(result) : null; | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
77 } |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
78 |
| 45 | 79 public NSString charactersIgnoringModifiers() { |
| 80 objc.id result = OS.objc_msgSend(this.id, OS.sel_charactersIgnoringModifiers); | |
| 81 return result !is null ? new NSString(result) : null; | |
| 82 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
83 |
| 45 | 84 public NSInteger clickCount() { |
| 85 return cast(NSInteger) OS.objc_msgSend(this.id, OS.sel_clickCount); | |
| 86 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
87 |
| 45 | 88 public CGFloat deltaX() { |
| 89 return cast(CGFloat) OS.objc_msgSend_fpret(this.id, OS.sel_deltaX); | |
| 90 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
91 |
| 45 | 92 public CGFloat deltaY() { |
| 93 return cast(CGFloat) OS.objc_msgSend_fpret(this.id, OS.sel_deltaY); | |
| 94 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
95 |
| 45 | 96 public ushort keyCode() { |
| 97 return cast(ushort) OS.objc_msgSend(this.id, OS.sel_keyCode); | |
| 98 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
99 |
| 45 | 100 public NSPoint locationInWindow() { |
| 101 NSPoint result = NSPoint(); | |
| 102 OS.objc_msgSend_stret(result, this.id, OS.sel_locationInWindow); | |
| 103 return result; | |
| 104 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
105 |
|
46
cfa563df4fdd
Updated Widget and Display to 3.514
Jacob Carlborg <doob@me.com>
parents:
45
diff
changeset
|
106 public NSUInteger modifierFlags() { |
|
cfa563df4fdd
Updated Widget and Display to 3.514
Jacob Carlborg <doob@me.com>
parents:
45
diff
changeset
|
107 return cast(NSUInteger) OS.objc_msgSend(this.id, OS.sel_modifierFlags); |
| 45 | 108 } |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
109 |
| 45 | 110 public static NSPoint mouseLocation() { |
| 111 NSPoint result = NSPoint(); | |
| 112 OS.objc_msgSend_stret(result, OS.class_NSEvent, OS.sel_mouseLocation); | |
| 113 return result; | |
| 114 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
115 |
| 45 | 116 public static NSEvent otherEventWithType(NSEventType type, NSPoint location, NSUInteger flags, double time, NSTimeInterval wNum, NSGraphicsContext context, short subtype, NSInteger d1, NSInteger d2) { |
| 117 objc.id result = OS.objc_msgSend(OS.class_NSEvent, OS.sel_otherEventWithType_location_modifierFlags_timestamp_windowNumber_context_subtype_data1_data2_, type, location, flags, time, wNum, context !is null ? context.id : null, subtype, d1, d2); | |
| 118 return result !is null ? new NSEvent(result) : null; | |
| 119 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
120 |
| 45 | 121 public NSEventType type() { |
| 122 return OS.objc_msgSend(this.id, OS.sel_type); | |
| 123 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
124 |
| 45 | 125 public NSWindow window() { |
| 126 objc.id result = OS.objc_msgSend(this.id, OS.sel_window); | |
| 127 return result !is null ? new NSWindow(result) : null; | |
| 128 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
129 |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
130 } |