From 8268740b2a32f68c1bddf14d54fc8265fb8f72d9 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Tue, 4 Mar 2008 09:15:57 +0000 Subject: [PATCH] Small improvements to objc 1.0 bindings. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@367 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- bindings/objc/objc-class.inc | 8 ++++---- bindings/objc/objc.inc | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/bindings/objc/objc-class.inc b/bindings/objc/objc-class.inc index c099f87e5..d57b2ab36 100644 --- a/bindings/objc/objc-class.inc +++ b/bindings/objc/objc-class.inc @@ -112,9 +112,9 @@ type Method = Pobjc_method; objc_method = record -// method_name: SEL; + method_name: SEL; method_types: PChar; -// method_imp: IMP; + method_imp: IMP; end; objc_method_list = record @@ -165,8 +165,8 @@ function class_getInstanceVariable(param1: _Class; const param2: PChar): Ivar; c function class_getInstanceMethod(param1: _Class; param2: SEL): Method; cdecl; external; function class_getClassMethod(param1: _Class; param2: SEL): Method; cdecl; external; -procedure class_addMethods(param1: _Class; param2: objc_method_list); cdecl; external; -procedure class_removeMethods(param1: _Class; param2: objc_method_list); cdecl; external; +procedure class_addMethods(param1: _Class; param2: Pobjc_method_list); cdecl; external; +procedure class_removeMethods(param1: _Class; param2: Pobjc_method_list); cdecl; external; function class_poseAs(imposter, original: _Class): _Class; cdecl; external; diff --git a/bindings/objc/objc.inc b/bindings/objc/objc.inc index 0bea9f0b7..82e1bc0e9 100644 --- a/bindings/objc/objc.inc +++ b/bindings/objc/objc.inc @@ -39,7 +39,7 @@ type // headers a lot. // // Cast variables of this type to Pobjc_class when necessary - + Pobjc_object = ^objc_object; objc_object = record