Mercurial > projects > dwt-mac

comparison dwt/internal/cocoa/NSRangeSpecifier.d @ 0:380af2bdd8e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.NSRangeSpecifier;
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 public class NSRangeSpecifier : NSScriptObjectSpecifier
24 {
25
26 public this ()
27 {
28 super();
29 }
30
31 public this (objc.id id)
32 {
33 super(id);
34 }
35
36 public NSScriptObjectSpecifier endSpecifier ()
37 {
38 objc.id result = OS.objc_msgSend(this.id, OS.sel_endSpecifier);
39 return result !is null ? new NSScriptObjectSpecifier(result) : null;
40 }
41
42 public id initWithContainerClassDescription (NSScriptClassDescription classDesc, NSScriptObjectSpecifier container, NSString property,
43 NSScriptObjectSpecifier startSpec, NSScriptObjectSpecifier endSpec)
44 {
45 objc.id result = OS.objc_msgSend(this.id, OS.sel_initWithContainerClassDescription_1containerSpecifier_1key_1startSpecifier_1endSpecifier_1,
46 classDesc !is null ? classDesc.id : null, container !is null ? container.id : null, property !is null ? property.id : null,
47 startSpec !is null ? startSpec.id : null, endSpec !is null ? endSpec.id : null);
48 return result !is null ? new id(result) : null;
49 }
50
51 public void setEndSpecifier (NSScriptObjectSpecifier endSpec)
52 {
53 OS.objc_msgSend(this.id, OS.sel_setEndSpecifier_1, endSpec !is null ? endSpec.id : null);
54 }
55
56 public void setStartSpecifier (NSScriptObjectSpecifier startSpec)
57 {
58 OS.objc_msgSend(this.id, OS.sel_setStartSpecifier_1, startSpec !is null ? startSpec.id : null);
59 }
60
61 public NSScriptObjectSpecifier startSpecifier ()
62 {
63 objc.id result = OS.objc_msgSend(this.id, OS.sel_startSpecifier);
64 return result !is null ? new NSScriptObjectSpecifier(result) : null;
65 }
66
67 }