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

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

#import "STSplitViewDelegate.h"

@implementation STSplitViewDelegate

+ (int)forwardToSmalltalk:(SEL)aSelector
{
	if (aSelector == _cmd || sel_getUid("splitView:getMinY:maxY:ofSubviewAt:") == aSelector) 
		return 0;
	return 1;
}

/*
- splitView:sender resizeSubviews:(const NXSize *)oldSize 
{
	if (stObject)
		msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), nil);
	return self;
}
*/

- splitView:sender getMinY:(NXCoord *)minY maxY:(NXCoord *)maxY ofSubviewAt:(int)offset 
{
	*minY = [self splitView:sender minYOfSubviewAt:offset];
	*maxY = [self splitView:sender maxYOfSubviewAt:offset];
	return self;
}

- (float)splitView:sender minYOfSubviewAt:(int)offset 
{
	if (stObject)
	{
		OOP	result;
		result = msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), intToOOP(offset), nil);
		return OOPToFloat(result);
	}
	return 1000.0;
}

- (float)splitView:sender maxYOfSubviewAt:(int)offset 
{
	if (stObject)
	{
		OOP	result;
		result = msgSend(stObject, symbolToOOP(sel_getName(_cmd)), cObjectToOOP(sender), intToOOP(offset), nil);
		return OOPToFloat(result);
	}
	return 1000.0;
}

- splitViewDidResizeSubviews: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.