Mercurial > projects > dwt-mac
annotate dwt/internal/cocoa/NSApplication.d @ 45:d8635bb48c7c
Merge with SWT 3.5
| author | Jacob Carlborg <doob@me.com> |
|---|---|
| date | Mon, 01 Dec 2008 17:07:00 +0100 |
| parents | f565d3a95c0a |
| children |
| 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.NSApplication; |
|
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 cocoa = dwt.internal.cocoa.id; | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
18 import dwt.internal.cocoa.NSArray; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
19 import dwt.internal.cocoa.NSDate; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
20 import dwt.internal.cocoa.NSEvent; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
21 import dwt.internal.cocoa.NSImage; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
22 import dwt.internal.cocoa.NSMenu; |
|
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.NSString; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
25 import dwt.internal.cocoa.NSWindow; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
26 import dwt.internal.cocoa.OS; |
| 45 | 27 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
|
28 import objc = dwt.internal.objc.runtime; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
29 |
| 45 | 30 public class NSApplication : NSResponder { |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
31 |
| 45 | 32 public this() { |
| 33 super(); | |
| 34 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
35 |
| 45 | 36 public this(objc.id id) { |
| 37 super(id); | |
| 38 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
39 |
| 45 | 40 public this(cocoa.id id) { |
| 41 super(id); | |
| 42 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
43 |
| 45 | 44 public void activateIgnoringOtherApps(bool flag) { |
| 45 OS.objc_msgSend(this.id, OS.sel_activateIgnoringOtherApps_, flag); | |
| 46 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
47 |
| 45 | 48 public NSEvent currentEvent() { |
| 49 objc.id result = OS.objc_msgSend(this.id, OS.sel_currentEvent); | |
| 50 return result !is null ? new NSEvent(result) : null; | |
| 51 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
52 |
| 45 | 53 public void finishLaunching() { |
| 54 OS.objc_msgSend(this.id, OS.sel_finishLaunching); | |
| 55 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
56 |
| 45 | 57 public void hide(cocoa.id sender) { |
| 58 OS.objc_msgSend(this.id, OS.sel_hide_, sender !is null ? sender.id : null); | |
| 59 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
60 |
| 45 | 61 public void hideOtherApplications(cocoa.id sender) { |
| 62 OS.objc_msgSend(this.id, OS.sel_hideOtherApplications_, sender !is null ? sender.id : null); | |
| 63 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
64 |
| 45 | 65 public bool isRunning() { |
| 66 return OS.objc_msgSend_bool(this.id, OS.sel_isRunning); | |
| 67 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
68 |
| 45 | 69 public NSWindow keyWindow() { |
| 70 objc.id result = OS.objc_msgSend(this.id, OS.sel_keyWindow); | |
| 71 return result !is null ? new NSWindow(result) : null; | |
| 72 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
73 |
| 45 | 74 public NSMenu mainMenu() { |
| 75 objc.id result = OS.objc_msgSend(this.id, OS.sel_mainMenu); | |
| 76 return result !is null ? new NSMenu(result) : null; | |
| 77 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
78 |
| 45 | 79 public NSEvent nextEventMatchingMask(NSUInteger mask, NSDate expiration, NSString mode, bool deqFlag) { |
| 80 objc.id result = OS.objc_msgSend(this.id, OS.sel_nextEventMatchingMask_untilDate_inMode_dequeue_, mask, expiration !is null ? expiration.id : null, mode !is null ? mode.id : null, deqFlag); | |
| 81 return result !is null ? new NSEvent(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 void orderFrontStandardAboutPanel(cocoa.id sender) { |
| 85 OS.objc_msgSend(this.id, OS.sel_orderFrontStandardAboutPanel_, sender !is null ? sender.id : null); | |
| 86 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
87 |
| 45 | 88 public NSArray orderedWindows() { |
| 89 objc.id result = OS.objc_msgSend(this.id, OS.sel_orderedWindows); | |
| 90 return result !is null ? new NSArray(result) : null; | |
| 91 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
92 |
| 45 | 93 public void run() { |
| 94 OS.objc_msgSend(this.id, OS.sel_run); | |
| 95 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
96 |
| 45 | 97 public NSInteger runModalForWindow(NSWindow theWindow) { |
| 98 return cast(NSInteger) OS.objc_msgSend(this.id, OS.sel_runModalForWindow_, theWindow !is null ? theWindow.id : null); | |
| 99 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
100 |
| 45 | 101 public void sendEvent(NSEvent theEvent) { |
| 102 OS.objc_msgSend(this.id, OS.sel_sendEvent_, theEvent !is null ? theEvent.id : null); | |
| 103 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
104 |
| 45 | 105 public void setApplicationIconImage(NSImage image) { |
| 106 OS.objc_msgSend(this.id, OS.sel_setApplicationIconImage_, image !is null ? image.id : null); | |
| 107 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
108 |
| 45 | 109 public void setDelegate(cocoa.id anObject) { |
| 110 OS.objc_msgSend(this.id, OS.sel_setDelegate_, anObject !is null ? anObject.id : null); | |
| 111 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
112 |
| 45 | 113 public static NSApplication sharedApplication() { |
| 114 objc.id result = OS.objc_msgSend(OS.class_NSApplication, OS.sel_sharedApplication); | |
| 115 return result !is null ? new NSApplication(result) : null; | |
| 116 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
117 |
| 45 | 118 public void stop(cocoa.id sender) { |
| 119 OS.objc_msgSend(this.id, OS.sel_stop_, sender !is null ? sender.id : null); | |
| 120 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
121 |
| 45 | 122 public void terminate(cocoa.id sender) { |
| 123 OS.objc_msgSend(this.id, OS.sel_terminate_, sender !is null ? sender.id : null); | |
| 124 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
125 |
| 45 | 126 public void unhideAllApplications(cocoa.id sender) { |
| 127 OS.objc_msgSend(this.id, OS.sel_unhideAllApplications_, sender !is null ? sender.id : null); | |
| 128 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
129 |
| 45 | 130 public NSArray windows() { |
| 131 objc.id result = OS.objc_msgSend(this.id, OS.sel_windows); | |
| 132 return result !is null ? new NSArray(result) : null; | |
| 133 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
134 |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
135 } |