Mercurial > projects > dwt-mac
annotate dwt/internal/cocoa/NSTabView.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 | 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.NSTabView; |
|
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.NSFont; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
19 import dwt.internal.cocoa.NSPoint; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
20 import dwt.internal.cocoa.NSRect; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
21 import dwt.internal.cocoa.NSSize; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
22 import dwt.internal.cocoa.NSTabViewItem; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
23 import dwt.internal.cocoa.NSView; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
24 import dwt.internal.cocoa.OS; |
| 45 | 25 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
|
26 import objc = dwt.internal.objc.runtime; |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
27 |
| 45 | 28 enum NSTabViewType |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
29 { |
| 45 | 30 NSTopTabsBezelBorder = 0, |
| 31 NSLeftTabsBezelBorder = 1, | |
| 32 NSBottomTabsBezelBorder = 2, | |
| 33 NSRightTabsBezelBorder = 3, | |
| 34 NSNoTabsBezelBorder = 4, | |
| 35 NSNoTabsLineBorder = 5, | |
| 36 NSNoTabsNoBorder = 6 | |
| 37 } | |
| 38 | |
| 39 public class NSTabView : NSView { | |
| 40 | |
| 41 public this() { | |
| 42 super(); | |
| 43 } | |
| 44 | |
| 45 public this(objc.id id) { | |
| 46 super(id); | |
| 47 } | |
| 48 | |
| 49 public this(cocoa.id id) { | |
| 50 super(id); | |
| 51 } | |
| 52 | |
| 53 public void addTabViewItem(NSTabViewItem tabViewItem) { | |
| 54 OS.objc_msgSend(this.id, OS.sel_addTabViewItem_, tabViewItem !is null ? tabViewItem.id : null); | |
| 55 } | |
| 56 | |
| 57 public NSRect contentRect() { | |
| 58 NSRect result = NSRect(); | |
| 59 OS.objc_msgSend_stret(result, this.id, OS.sel_contentRect); | |
| 60 return result; | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
61 } |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
62 |
| 45 | 63 public void insertTabViewItem(NSTabViewItem tabViewItem, NSInteger index) { |
| 64 OS.objc_msgSend(this.id, OS.sel_insertTabViewItem_atIndex_, tabViewItem !is null ? tabViewItem.id : null, index); | |
| 65 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
66 |
| 45 | 67 public NSSize minimumSize() { |
| 68 NSSize result = NSSize(); | |
| 69 OS.objc_msgSend_stret(result, this.id, OS.sel_minimumSize); | |
| 70 return result; | |
| 71 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
72 |
| 45 | 73 public void removeTabViewItem(NSTabViewItem tabViewItem) { |
| 74 OS.objc_msgSend(this.id, OS.sel_removeTabViewItem_, tabViewItem !is null ? tabViewItem.id : null); | |
| 75 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
76 |
| 45 | 77 public void selectTabViewItemAtIndex(NSInteger index) { |
| 78 OS.objc_msgSend(this.id, OS.sel_selectTabViewItemAtIndex_, index); | |
| 79 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
80 |
| 45 | 81 public NSTabViewItem selectedTabViewItem() { |
| 82 objc.id result = OS.objc_msgSend(this.id, OS.sel_selectedTabViewItem); | |
| 83 return result !is null ? new NSTabViewItem(result) : null; | |
| 84 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
85 |
| 45 | 86 public void setDelegate(cocoa.id anObject) { |
| 87 OS.objc_msgSend(this.id, OS.sel_setDelegate_, anObject !is null ? anObject.id : null); | |
| 88 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
89 |
| 45 | 90 public void setFont(NSFont font) { |
| 91 OS.objc_msgSend(this.id, OS.sel_setFont_, font !is null ? font.id : null); | |
| 92 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
93 |
| 45 | 94 public void setTabViewType(NSTabViewType tabViewType) { |
| 95 OS.objc_msgSend(this.id, OS.sel_setTabViewType_, tabViewType); | |
| 96 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
97 |
| 45 | 98 public NSTabViewItem tabViewItemAtPoint(NSPoint point) { |
| 99 objc.id result = OS.objc_msgSend(this.id, OS.sel_tabViewItemAtPoint_, point); | |
| 100 return result !is null ? new NSTabViewItem(result) : null; | |
| 101 } | |
|
0
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
102 |
|
380af2bdd8e5
Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff
changeset
|
103 } |