
#import "STObject.h"

@implementation STObject

+ (int)forwardToSmalltalk:(SEL)aSelector
{
	if (aSelector == _cmd || 
		sel_getUid("setOOP:") == aSelector || 
		sel_getUid("oop") == aSelector)
		return 0;
	return 1;
}

- doubleAction1:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- doubleAction2:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- doubleAction3:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- doubleAction4:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- doubleAction5:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action1:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action2:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action3:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action4:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action5:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action6:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action7:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action8:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action9:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- action10:sender
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}

- setOOP:(OOP)oop
{
	stObject = (OOP)oop;
	return self;
}

- (OOP)oop
{
	return stObject;
}

@end

