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.