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

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

#import "STWindowDelegate.h"

@implementation STWindowDelegate

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

//- windowWillReturnFieldEditor:sender toObject:client 
//{
//	if (stObject)
//		return msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), cObjectToOOP(client),  nil);
//	return nil;
//}

- windowWillResize:sender toSize:(NXSize *)frameSize 
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), cObjectToOOP(frameSize),  nil);
	return self;
}


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

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

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

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

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

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

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

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

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

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

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

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

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

@end

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