[libr] Add a two-object Array perform method

I decided it was worth doing after all. This cleans up event forwarding
in qwaq.

ruamoko/include/Array.h

@@ -274,6 +274,15 @@
                          withObject: (void *)arg;
 //\}
 
+/**
+	Iteratively sends #performSelector:withObject:withObject: to each
+	contained object.
+*/
+- (void) makeObjectsPerformSelector: (SEL)selector
+                         withObject: (void *)arg
+                         withObject: (void *)arg2;
+//\}
+
 @end
 
 #endif//__ruamoko_Array_h

ruamoko/lib/Array.r

@@ -410,6 +410,19 @@
 	}
 }
 
+- (void) makeObjectsPerformSelector: (SEL)selector
+                         withObject: (void *)anObject
+                         withObject: (void *)anotherObject
+{
+	local int	i;
+
+	for (i = 0; i < [self count]; i++) {
+		[[self objectAtIndex: i] performSelector: selector
+									  withObject: anObject
+									  withObject: anotherObject];
+	}
+}
+
 - (void) dealloc
 {
 	local unsigned	i;