Mercurial > projects > dwt-mac
annotate dwt/internal/cocoa/NSWindow.d @ 45:d8635bb48c7c
Merge with SWT 3.5
author | Jacob Carlborg <doob@me.com> |
---|---|
date | Mon, 01 Dec 2008 17:07:00 +0100 |
parents | 642f460a0908 |
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.NSWindow; |
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; | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
19 import dwt.internal.cocoa.NSColor; |
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.NSPoint; |
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
22 import dwt.internal.cocoa.NSRect; |
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
23 import dwt.internal.cocoa.NSResponder; |
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
24 import dwt.internal.cocoa.NSScreen; |
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
25 import dwt.internal.cocoa.NSString; |
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
26 import dwt.internal.cocoa.NSText; |
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
27 import dwt.internal.cocoa.NSView; |
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
28 import dwt.internal.cocoa.OS; |
45 | 29 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
|
30 import objc = dwt.internal.objc.runtime; |
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
31 |
45 | 32 public class NSWindow : NSResponder { |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
33 |
45 | 34 public this() { |
35 super(); | |
36 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
37 |
45 | 38 public this(objc.id id) { |
39 super(id); | |
40 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
41 |
45 | 42 public this(cocoa.id id) { |
43 super(id); | |
44 } | |
45 | |
46 public CGFloat alphaValue() { | |
47 return cast(CGFloat) OS.objc_msgSend_fpret(this.id, OS.sel_alphaValue); | |
48 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
49 |
45 | 50 public bool canBecomeKeyWindow() { |
51 return OS.objc_msgSend_bool(this.id, OS.sel_canBecomeKeyWindow); | |
52 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
53 |
45 | 54 public NSPoint cascadeTopLeftFromPoint(NSPoint topLeftPoint) { |
55 NSPoint result = NSPoint(); | |
56 OS.objc_msgSend_stret(result, this.id, OS.sel_cascadeTopLeftFromPoint_, topLeftPoint); | |
57 return result; | |
58 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
59 |
45 | 60 public void close() { |
61 OS.objc_msgSend(this.id, OS.sel_close); | |
62 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
63 |
45 | 64 public NSRect contentRectForFrameRect(NSRect frameRect) { |
65 NSRect result = NSRect(); | |
66 OS.objc_msgSend_stret(result, this.id, OS.sel_contentRectForFrameRect_, frameRect); | |
67 return result; | |
68 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
69 |
45 | 70 public NSView contentView() { |
71 objc.id result = OS.objc_msgSend(this.id, OS.sel_contentView); | |
72 return result !is null ? new NSView(result) : null; | |
73 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
74 |
45 | 75 public NSPoint convertBaseToScreen(NSPoint aPoint) { |
76 NSPoint result = NSPoint(); | |
77 OS.objc_msgSend_stret(result, this.id, OS.sel_convertBaseToScreen_, aPoint); | |
78 return result; | |
79 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
80 |
45 | 81 public NSPoint convertScreenToBase(NSPoint aPoint) { |
82 NSPoint result = NSPoint(); | |
83 OS.objc_msgSend_stret(result, this.id, OS.sel_convertScreenToBase_, aPoint); | |
84 return result; | |
85 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
86 |
45 | 87 public void disableCursorRects() { |
88 OS.objc_msgSend(this.id, OS.sel_disableCursorRects); | |
89 } | |
90 | |
91 public NSText fieldEditor(bool createFlag, cocoa.id anObject) { | |
92 objc.id result = OS.objc_msgSend(this.id, OS.sel_fieldEditor_forObject_, createFlag, anObject !is null ? anObject.id : null); | |
93 return result !is null ? new NSText(result) : null; | |
94 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
95 |
45 | 96 public NSResponder firstResponder() { |
97 objc.id result = OS.objc_msgSend(this.id, OS.sel_firstResponder); | |
98 return result !is null ? new NSResponder(result) : null; | |
99 } | |
100 | |
101 public NSRect frame() { | |
102 NSRect result = NSRect(); | |
103 OS.objc_msgSend_stret(result, this.id, OS.sel_frame); | |
104 return result; | |
105 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
106 |
45 | 107 public NSRect frameRectForContentRect(NSRect contentRect) { |
108 NSRect result = NSRect(); | |
109 OS.objc_msgSend_stret(result, this.id, OS.sel_frameRectForContentRect_, contentRect); | |
110 return result; | |
111 } | |
1
8b48be5454ce
The internal cocoa classes compile now
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
0
diff
changeset
|
112 |
45 | 113 public NSGraphicsContext graphicsContext() { |
114 objc.id result = OS.objc_msgSend(this.id, OS.sel_graphicsContext); | |
115 return result !is null ? new NSGraphicsContext(result) : null; | |
116 } | |
117 | |
118 public NSWindow initWithContentRect(NSRect contentRect, NSUInteger aStyle, NSBackingStoreType bufferingType, bool flag) { | |
119 objc.id result = OS.objc_msgSend(this.id, OS.sel_initWithContentRect_styleMask_backing_defer_, contentRect, aStyle, bufferingType, flag); | |
120 return result is this.id ? this : (result !is null ? new NSWindow(result) : null); | |
1
8b48be5454ce
The internal cocoa classes compile now
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
0
diff
changeset
|
121 } |
8b48be5454ce
The internal cocoa classes compile now
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
0
diff
changeset
|
122 |
45 | 123 public NSWindow initWithContentRect(NSRect contentRect, NSUInteger aStyle, NSBackingStoreType bufferingType, bool flag, NSScreen screen) { |
124 objc.id result = OS.objc_msgSend(this.id, OS.sel_initWithContentRect_styleMask_backing_defer_screen_, contentRect, aStyle, bufferingType, flag, screen !is null ? screen.id : null); | |
125 return result is this.id ? this : (result !is null ? new NSWindow(result) : null); | |
126 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
127 |
45 | 128 public bool isKeyWindow() { |
129 return OS.objc_msgSend_bool(this.id, OS.sel_isKeyWindow); | |
130 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
131 |
45 | 132 public bool isVisible() { |
133 return OS.objc_msgSend_bool(this.id, OS.sel_isVisible); | |
134 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
135 |
45 | 136 public bool makeFirstResponder(NSResponder aResponder) { |
137 return OS.objc_msgSend_bool(this.id, OS.sel_makeFirstResponder_, aResponder !is null ? aResponder.id : null); | |
138 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
139 |
45 | 140 public void makeKeyAndOrderFront(cocoa.id sender) { |
141 OS.objc_msgSend(this.id, OS.sel_makeKeyAndOrderFront_, sender !is null ? sender.id : null); | |
142 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
143 |
45 | 144 public NSPoint mouseLocationOutsideOfEventStream() { |
145 NSPoint result = NSPoint(); | |
146 OS.objc_msgSend_stret(result, this.id, OS.sel_mouseLocationOutsideOfEventStream); | |
147 return result; | |
148 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
149 |
45 | 150 public void orderFront(cocoa.id sender) { |
151 OS.objc_msgSend(this.id, OS.sel_orderFront_, sender !is null ? sender.id : null); | |
152 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
153 |
45 | 154 public void orderFrontRegardless() { |
155 OS.objc_msgSend(this.id, OS.sel_orderFrontRegardless); | |
156 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
157 |
45 | 158 public void orderOut(cocoa.id sender) { |
159 OS.objc_msgSend(this.id, OS.sel_orderOut_, sender !is null ? sender.id : null); | |
160 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
161 |
45 | 162 public NSScreen screen() { |
163 objc.id result = OS.objc_msgSend(this.id, OS.sel_screen); | |
164 return result !is null ? new NSScreen(result) : null; | |
165 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
166 |
45 | 167 public void setAcceptsMouseMovedEvents(bool flag) { |
168 OS.objc_msgSend(this.id, OS.sel_setAcceptsMouseMovedEvents_, flag); | |
169 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
170 |
45 | 171 public void setAlphaValue(CGFloat windowAlpha) { |
172 OS.objc_msgSend(this.id, OS.sel_setAlphaValue_, windowAlpha); | |
173 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
174 |
45 | 175 public void setBackgroundColor(NSColor color) { |
176 OS.objc_msgSend(this.id, OS.sel_setBackgroundColor_, color !is null ? color.id : null); | |
177 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
178 |
45 | 179 public void setContentView(NSView aView) { |
180 OS.objc_msgSend(this.id, OS.sel_setContentView_, aView !is null ? aView.id : null); | |
181 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
182 |
45 | 183 public void setDelegate(cocoa.id anObject) { |
184 OS.objc_msgSend(this.id, OS.sel_setDelegate_, anObject !is null ? anObject.id : null); | |
185 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
186 |
45 | 187 public void setFrame(NSRect frameRect, bool flag) { |
188 OS.objc_msgSend(this.id, OS.sel_setFrame_display_, frameRect, flag); | |
189 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
190 |
45 | 191 public void setHasShadow(bool hasShadow) { |
192 OS.objc_msgSend(this.id, OS.sel_setHasShadow_, hasShadow); | |
193 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
194 |
45 | 195 public void setLevel(NSInteger newLevel) { |
196 OS.objc_msgSend(this.id, OS.sel_setLevel_, newLevel); | |
197 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
198 |
45 | 199 public void setOpaque(bool isOpaque) { |
200 OS.objc_msgSend(this.id, OS.sel_setOpaque_, isOpaque); | |
201 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
202 |
45 | 203 public void setReleasedWhenClosed(bool flag) { |
204 OS.objc_msgSend(this.id, OS.sel_setReleasedWhenClosed_, flag); | |
205 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
206 |
45 | 207 public void setTitle(NSString aString) { |
208 OS.objc_msgSend(this.id, OS.sel_setTitle_, aString !is null ? aString.id : null); | |
209 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
210 |
45 | 211 public NSUInteger styleMask() { |
212 return cast(NSUInteger) OS.objc_msgSend(this.id, OS.sel_styleMask); | |
213 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
214 |
45 | 215 public NSInteger windowNumber() { |
216 return cast(NSInteger) OS.objc_msgSend(this.id, OS.sel_windowNumber); | |
217 } | |
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
218 |
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
219 } |