ftp.nice.ch/pub/next/developer/objc/fromnext/MiniExamples.91.9.s.tar.gz#/MiniExamples/ScrollingText/ScrollingText.m

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

/* ScrollingText.m
*  Purpose: A subclass of Application and the class which runs the show.
*
*  You may freely copy, distribute, and reuse the code in this example.
*  NeXT disclaims any warranty of any kind, expressed or  implied, as to its fitness
*  for any particular use.
*
*/

#import "ScrollingText.h"
#import "Document.h"

@implementation ScrollingText : Application

- newDocument:sender
{
	id newDoc = [[Document alloc] init];
	[newDoc center];
	/* Without this explicit display of the window, */
	/* the scroll bars will not appear at all. */
	[newDoc display];  /* bug repellant */
	[newDoc makeKeyAndOrderFront:nil];
	return self;
}

@end

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