ftp.nice.ch/pub/next/developer/apps/ManPagesFromHeaders.NISH.bs.tar.gz#/ManPagesFromHeaders/Source/InfoView.m

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

/*
 * Written by Guy Roberts of Object Skills Ltd, drifting
 * in cyberspace without a domain or email address right 
 * now. 
 * May 7 1993. You can use this as a base for a better application
 * as long as it is made publically available.
 */

#import "InfoView.h"

@implementation InfoView

- fadeAway: sender
{
	id	face = [NXImage findImageNamed: "Author.tiff"];
	id	blankSpace = [NXImage findImageNamed: "Blank.tiff"];
	NXPoint 	myPoint;
	float 		grey;

	[self lockFocus];

	myPoint.x = 0.0;
	myPoint.y = 0.0;
	
	for (grey = 0.0; grey <= 1.0; grey += 0.05) {
		if (NXUserAborted() ) {
			grey = 1.0;
		}
		[face dissolve:grey toPoint: &myPoint];

		[self	display];
	}
	
	for (grey = 0.0; grey <= 1.0; grey += 0.1) {
		if (NXUserAborted() ) {
			grey = 0.0;
		}
		[blankSpace dissolve:grey toPoint: &myPoint];
		[self	display];
	}

	[self unlockFocus];
	
	[self	display];
	
	return self;
}

- drawSelf: (const NXRect *) rects :(int) rectCount
{
	return self;
	
	PSsetgray(NX_WHITE);
	NXRectFill(&bounds);
	
	return self;
}

#ifdef LETS_GET_MODEST_HERE
- mouseDown: (NXEvent *) event
{
	[self	fadeAway: self];
	
	return self;
}
#endif

@end

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