Fix setBasePos to get the pos from a view.

This fixes Group for the Point/Size/Rect change.

ruamoko/gui/Group.r

@@ -41,7 +41,8 @@
 {
 	[super setBasePos:pos];
 	local Point point = {xabs, yabs};
-	[views makeObjectsPerformSelector:@selector (setBasePos:) withObject:point];
+	local SEL sel = @selector (setBasePosFromView:);
+	[views makeObjectsPerformSelector:sel withObject:self];
 }
 
 - (void) draw

ruamoko/gui/View.r

@@ -38,14 +38,21 @@
 	return flags & 1;
 }
 
+- (Point) basePos
+{
+	return makePoint (xabs, yabs);
+}
+
 - (void) setBasePos: (integer) x y: (integer) y
 {
 	local Point point = {x, y};
-	[self setBasePos:point];
+	xabs = xpos + x;
+	yabs = ypos + y;
 }
 
-- (void) setBasePos: (Point)pos
+- (void) setBasePosFromView: (View) view
 {
+	Point pos = [view basePos];
 	xabs = xpos + pos.x;
 	yabs = ypos + pos.y;
 }

ruamoko/include/gui/View.h

@@ -20,7 +20,7 @@
 - (id) canFocus: (integer)cf;
 - (integer) canFocus;
 - (void) setBasePos: (integer)x y: (integer)y;
-- (void) setBasePos: (Point)pos;
+- (void) setBasePosFromView: (View)view;
 - (void) draw;
 
 - (integer) keyEvent:(integer)key unicode:(integer)unicode down:(integer)down;