Mercurial > projects > dstep
diff dstep/foundation/NSObjectScripting.d @ 16:19885b43130e
Huge update, the bridge actually works now
author | Jacob Carlborg <doob@me.com> |
---|---|
date | Sun, 03 Jan 2010 22:06:11 +0100 |
parents | 89f3c3ef1fd2 |
children |
line wrap: on
line diff
--- a/dstep/foundation/NSObjectScripting.d Mon Aug 03 15:31:48 2009 +0200 +++ b/dstep/foundation/NSObjectScripting.d Sun Jan 03 22:06:11 2010 +0100 @@ -8,16 +8,39 @@ import dstep.foundation.NSDictionary; import dstep.foundation.NSObject; -import dstep.foundation.NSScriptObjectSpecifier; import dstep.objc.bridge.Bridge; -import dstep.objc.objc : id; +import dstep.objc.objc; + +const TNSScripting = ` -template TNSScripting () -{ - Object scriptingValueForSpecifier (NSScriptObjectSpecifier objectSpecifier); - NSDictionary scriptingProperties (); - void setScriptingProperties (NSDictionary properties); - Object copyScriptingValue (Object value, NSString key, NSDictionary properties); - Object newScriptingObjectOfClass (Class objectClass, NSString key, Object contentsValue, NSDictionary properties); -} - + Object scriptingValueForSpecifier (NSScriptObjectSpecifier objectSpecifier) + { + return invokeObjcSelf!(Object, "scriptingValueForSpecifier:", NSScriptObjectSpecifier)(objectSpecifier); + } + + NSDictionary scriptingProperties () + { + return invokeObjcSelf!(NSDictionary, "scriptingProperties"); + } + + void setScriptingProperties (NSDictionary properties) + { + return invokeObjcSelf!(void, "setScriptingProperties:", NSDictionary)(properties); + } + + Object copyScriptingValue (Object value, NSString key, NSDictionary properties) + { + return invokeObjcSelf!(Object, "copyScriptingValue:forKey:withProperties:", Object, NSString, NSDictionary)(value, key, properties); + } + + Object newScriptingObjectOfClass (Class objectClass, NSString key, Object contentsValue, NSDictionary properties) + { + return invokeObjcSelf!(Object, "newScriptingObjectOfClass:forValueForKey:withContentsValue:properties:", Class, NSString, Object, NSDictionary)(objectClass, key, contentsValue, properties); + } + + //mixin ObjcBindMethod!(scriptingValueForSpecifier, "scriptingValueForSpecifier:"); + //mixin ObjcBindMethod!(scriptingProperties, "scriptingProperties"); + //mixin ObjcBindMethod!(setScriptingProperties, "setScriptingProperties:"); + //mixin ObjcBindMethod!(copyScriptingValue, "copyScriptingValue:forKey:withProperties:"); + //mixin ObjcBindMethod!(newScriptingObjectOfClass, "newScriptingObjectOfClass:forValueForKey:withContentsValue:properties:"); +`; \ No newline at end of file