ftp.nice.ch/pub/next/developer/languages/smalltalk/smalltalk.1.2.alpha5.s.tar.gz#/smalltalk-1.2.alpha5/objc/objclib/STObject.m

This is STObject.m in view mode; [Download] [Up]

#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

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.