Mercurial > projects > dwt-mac
comparison dwt/internal/cocoa/NSRelativeSpecifier.d @ 0:380af2bdd8e5
Upload of whole dwt tree
author | Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> |
---|---|
date | Sat, 09 Aug 2008 17:00:02 +0200 |
parents | |
children | 8b48be5454ce |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:380af2bdd8e5 |
---|---|
1 /******************************************************************************* | |
2 * Copyright (c) 2007 IBM Corporation and others. | |
3 * All rights reserved. This program and the accompanying materials | |
4 * are made available under the terms of the Eclipse Public License v1.0 | |
5 * which accompanies this distribution, and is available at | |
6 * http://www.eclipse.org/legal/epl-v10.html | |
7 * | |
8 * Contributors: | |
9 * IBM Corporation - initial API and implementation | |
10 * | |
11 * Port to the D Programming language: | |
12 * Jacob Carlborg <jacob.carlborg@gmail.com> | |
13 *******************************************************************************/ | |
14 module dwt.internal.cocoa.NSRelativeSpecifier; | |
15 | |
16 import dwt.internal.cocoa.id; | |
17 import dwt.internal.cocoa.NSScriptClassDescription; | |
18 import dwt.internal.cocoa.NSScriptObjectSpecifier; | |
19 import dwt.internal.cocoa.NSString; | |
20 import dwt.internal.cocoa.OS; | |
21 import objc = dwt.internal.objc.runtime; | |
22 | |
23 enum NSRelativePosition | |
24 { | |
25 NSRelativeAfter = 0, | |
26 NSRelativeBefore | |
27 } | |
28 | |
29 alias NSRelativePosition.NSRelativeAfter NSRelativeAfter; | |
30 alias NSRelativePosition.NSRelativeBefore NSRelativeBefore; | |
31 | |
32 public class NSRelativeSpecifier : NSScriptObjectSpecifier | |
33 { | |
34 | |
35 public this () | |
36 { | |
37 super(); | |
38 } | |
39 | |
40 public this (objc.id id) | |
41 { | |
42 super(id); | |
43 } | |
44 | |
45 public NSScriptObjectSpecifier baseSpecifier () | |
46 { | |
47 objc.id result = OS.objc_msgSend(this.id, OS.sel_baseSpecifier); | |
48 return result !is null ? new NSScriptObjectSpecifier(result) : null; | |
49 } | |
50 | |
51 public id initWithContainerClassDescription (NSScriptClassDescription classDesc, NSScriptObjectSpecifier container, NSString property, | |
52 NSRelativePosition relPos, NSScriptObjectSpecifier baseSpecifier) | |
53 { | |
54 objc.id result = OS.objc_msgSend(this.id, | |
55 OS.sel_initWithContainerClassDescription_1containerSpecifier_1key_1relativePosition_1baseSpecifier_1, | |
56 classDesc !is null ? classDesc.id : null, container !is null ? container.id : null, property !is null ? property.id : null, relPos, | |
57 baseSpecifier !is null ? baseSpecifier.id : null); | |
58 return result !is null ? new id(result) : null; | |
59 } | |
60 | |
61 public NSRelativePosition relativePosition () | |
62 { | |
63 return cast(NSRelativePosition) OS.objc_msgSend(this.id, OS.sel_relativePosition); | |
64 } | |
65 | |
66 public void setBaseSpecifier (NSScriptObjectSpecifier baseSpecifier) | |
67 { | |
68 OS.objc_msgSend(this.id, OS.sel_setBaseSpecifier_1, baseSpecifier !is null ? baseSpecifier.id : null); | |
69 } | |
70 | |
71 public void setRelativePosition (NSRelativePosition relPos) | |
72 { | |
73 OS.objc_msgSend(this.id, OS.sel_setRelativePosition_1, relPos); | |
74 } | |
75 | |
76 } |