Mercurial > projects > dstep

comparison dstep/quartzcore/CAScrollLayer.d @ 16:19885b43130e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Huge update, the bridge actually works now
author Jacob Carlborg <doob@me.com>
date Sun, 03 Jan 2010 22:06:11 +0100
parents
children b9de51448c6b
comparison
equal deleted inserted replaced
15:7ff919f595d5 16:19885b43130e
1 /**
2 * Copyright: Copyright (c) 2009 Jacob Carlborg.
3 * Authors: Jacob Carlborg
4 * Version: Initial created: Sep 24, 2009
5 * License: $(LINK2 http://www.boost.org/LICENSE_1_0.txt, Boost Software License 1.0)
6 */
7 module dstep.quartzcore.CAScrollLayer;
8
9 import dstep.applicationservices.coregraphics.CGBase;
10 import dstep.applicationservices.coregraphics.CGGeometry;
11 import dstep.foundation.NSString;
12 import dstep.objc.bridge.Bridge;
13 import dstep.objc.objc;
14 import dstep.quartzcore.CALayer;
15
16 import bindings = dstep.quartzcore.CAScrollLayer_bindings;
17
18 private
19 {
20 NSString kCAScrollNone_;
21 NSString kCAScrollVertically_;
22 NSString kCAScrollHorizontally_;
23 NSString kCAScrollBoth_;
24 }
25
26 NSString kCAScrollNone ()
27 {
28 if (kCAScrollNone_)
29 return kCAScrollNone_;
30
31 return kCAScrollNone_ = new NSString(bindings.kCAScrollNone);
32 }
33
34 NSString kCAScrollVertically ()
35 {
36 if (kCAScrollVertically_)
37 return kCAScrollVertically_;
38
39 return kCAScrollVertically_ = new NSString(bindings.kCAScrollVertically);
40 }
41
42 NSString kCAScrollHorizontally ()
43 {
44 if (kCAScrollHorizontally_)
45 return kCAScrollHorizontally_;
46
47 return kCAScrollHorizontally_ = new NSString(bindings.kCAScrollHorizontally);
48 }
49
50 NSString kCAScrollBoth ()
51 {
52 if (kCAScrollBoth_)
53 return kCAScrollBoth_;
54
55 return kCAScrollBoth_ = new NSString(bindings.kCAScrollBoth);
56 }
57
58 class CAScrollLayer : CALayer
59 {
60 mixin (ObjcWrap);
61
62 void scrollToPoint (CGPoint p)
63 {
64 return invokeObjcSelf!(void, "scrollToPoint:", CGPoint)(p);
65 }
66
67 void scrollToRect (CGRect r)
68 {
69 return invokeObjcSelf!(void, "scrollToRect:", CGRect)(r);
70 }
71 }
72
73 const TCALayerScrolling = `
74
75 void scrollPoint (CGPoint p)
76 {
77 return invokeObjcSelf!(void, "scrollPoint:", CGPoint)(p);
78 }
79
80 void scrollRectToVisible (CGRect r)
81 {
82 return invokeObjcSelf!(void, "scrollRectToVisible:", CGRect)(r);
83 }
84
85 CGRect visibleRect ()
86 {
87 return invokeObjcSelf!(CGRect, "visibleRect");
88 }
89
90 //mixin ObjcBindMethod!(scrollPoint, "scrollPoint:");
91 //mixin ObjcBindMethod!(scrollRectToVisible, "scrollRectToVisible:");
92 //mixin ObjcBindMethod!(visibleRect, "visibleRect");
93
94 `;
95