ftp.nice.ch/pub/next/tools/workspace/StartupSound.N.bs.tar.gz#/StartupSound/StartupSoundApp.m

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

/* Generated by Interface Builder */

#import "StartupSoundApp.h"
#import <appkit/appkit.h>
#import <soundkit/soundkit.h>
#import <stdio.h>


@implementation StartupSoundApp

- appDidInit:sender
{	
	theSound = [Sound findSoundFor:"Startup"];
	if (theSound) {
		[theSound setDelegate:self];
		[theSound play]; }
	else
		NXRunAlertPanel("Error", "Could not find anything called Startup.snd, process aborted", "Well, Okay!", NULL, NULL);
    return self;
}

- didPlay:sender
{
	[self terminate:NULL];
	return self;
}

@end

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