quakeforge/ruamoko/gui/Group.r

#include "gui/Group.h"
#include "gui/Point.h"
#include "Array.h"

@implementation Group

- (id) init
{
	self = [super init];
	views = [[Array alloc] init];
	return self;
}

- (void) dealloc
{
	[views dealloc];
	[super dealloc];
}

- (View) addView: (View)aView
{
	[views addItem:aView];
	return aView;
}

- (void) moveTo: (integer)x y:(integer)y
{
	[self setBasePos: x y:y];
}

- (void) setBasePos: (Point) pos
{
	[super setBasePos:pos];
	local Point point = [[Point alloc] initWithComponents:xabs :yabs];
	[views makeObjectsPerformSelector:@selector (setBasePos:) withObject:point];
	[point dealloc];
}

- (void) draw
{
	[views makeObjectsPerformSelector:@selector (draw)];
}

@end