/packages/cocoaint/src/foundation/NSScriptCoercionHandler.inc
Pascal | 54 lines | 11 code | 14 blank | 29 comment | 0 complexity | ba81e172966eb5e13f3bcfece44b01de MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
1{ Parsed from Foundation.framework NSScriptCoercionHandler.h } 2 3{$ifdef TYPES} 4{$ifndef NSSCRIPTCOERCIONHANDLER_PAS_T} 5{$define NSSCRIPTCOERCIONHANDLER_PAS_T} 6 7{$endif} 8{$endif} 9 10{$ifdef RECORDS} 11{$ifndef NSSCRIPTCOERCIONHANDLER_PAS_R} 12{$define NSSCRIPTCOERCIONHANDLER_PAS_R} 13 14{$endif} 15{$endif} 16 17{$ifdef FUNCTIONS} 18{$ifndef NSSCRIPTCOERCIONHANDLER_PAS_F} 19{$define NSSCRIPTCOERCIONHANDLER_PAS_F} 20 21{$endif} 22{$endif} 23 24{$ifdef EXTERNAL_SYMBOLS} 25{$ifndef NSSCRIPTCOERCIONHANDLER_PAS_S} 26{$define NSSCRIPTCOERCIONHANDLER_PAS_S} 27 28{$endif} 29{$endif} 30 31{$ifdef FORWARD} 32 NSScriptCoercionHandler = objcclass; 33 NSScriptCoercionHandlerPointer = ^NSScriptCoercionHandler; 34 NSScriptCoercionHandlerPtr = NSScriptCoercionHandlerPointer; 35 36{$endif} 37 38{$ifdef CLASSES} 39{$ifndef NSSCRIPTCOERCIONHANDLER_PAS_C} 40{$define NSSCRIPTCOERCIONHANDLER_PAS_C} 41 42{ NSScriptCoercionHandler } 43 NSScriptCoercionHandler = objcclass external (NSObject) 44 private 45 _coercers: id; 46 47 public 48 class function sharedCoercionHandler: NSScriptCoercionHandler; message 'sharedCoercionHandler'; 49 function coerceValue_toClass(value: id; toClass: Pobjc_class): id; message 'coerceValue:toClass:'; 50 procedure registerCoercer_selector_toConvertFromClass_toClass(coercer: id; selector: SEL; fromClass: Pobjc_class; toClass: Pobjc_class); message 'registerCoercer:selector:toConvertFromClass:toClass:'; 51 end; 52 53{$endif} 54{$endif}