[libr] Accept void * for performSelector:withObject:

It's up to the receiver what the object should be.

ruamoko/include/Array.h

@@ -271,7 +271,7 @@
 	Iteratively sends #performSelector:withObject: to each contained object.
 */
 - (void) makeObjectsPerformSelector: (SEL)selector
-                         withObject: (id)arg;
+                         withObject: (void *)arg;
 //\}
 
 @end

ruamoko/include/Object.h

@@ -20,10 +20,10 @@
 
 - (id) performSelector: (SEL)aSelector;
 - (id) performSelector: (SEL)aSelector
-			withObject: (id)anObject;
+			withObject: (void *)anObject;
 - (id) performSelector: (SEL)aSelector
-			withObject: (id)anObject
-			withObject: (id)anotherObject;
+			withObject: (void *)anObject
+			withObject: (void *)anotherObject;
 - (BOOL) respondsToSelector: (SEL)aSelector;
 - (BOOL) conformsToProtocol: (Protocol *)aProtocol;
 

ruamoko/lib/Array.r

@@ -162,7 +162,7 @@
 - (id) objectAtIndex: (unsigned)index
 {
 	if (index >= count) // FIXME: need exceptions
-		[self error: "-replaceObjectAtIndex:withObject: index out of range"];
+		[self error: "-objectAtIndex:withObject: index out of range"];
 
 	return _objs[index];
 }
@@ -401,7 +401,7 @@
 }
 
 - (void) makeObjectsPerformSelector: (SEL)selector
-                         withObject: (id)anObject
+                         withObject: (void *)anObject
 {
 	local int	i;
 

ruamoko/lib/Object.r

@@ -247,7 +247,7 @@ BOOL (id object) object_is_meta_class = #0;
 	return msg (self, aSelector);
 }
 
-- (id) performSelector: (SEL)aSelector withObject: (id)anObject
+- (id) performSelector: (SEL)aSelector withObject: (void *)anObject
 {
 	local IMP msg = nil;		// FIXME teach qfcc about noreturn
 
@@ -260,8 +260,8 @@ BOOL (id object) object_is_meta_class = #0;
 }
 
 - (id) performSelector: (SEL)aSelector
-			withObject: (id)anObject
-			withObject: (id)anotherObject
+			withObject: (void *)anObject
+			withObject: (void *)anotherObject
 {
 	local IMP msg;