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

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

#import "Point.h"

@implementation Point


- initFromX:(float)x y:(float)y
{
	[super init];
	point.x = x;
	point.y = y;	
	return self;
}

- initFrom:(NXPoint *)p
{
	[super init];
	point = *p;
	return self;
}

- (NXPoint *)asCPointer		{ return (NXPoint *)&point; }
- setX:(float)x				{ point.x = x; return self; }
- setX:(float)x y:(float)y	{ point.x = x; point.y = y; return self; }
- setY:(float)y				{ point.y = y; return self; }
- (double)xCoord				{ return (double)point.x; }
- (double)yCoord				{ return (double)point.y; }

@end

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