ftp.nice.ch/pub/next/developer/resources/classes/misckit/MiscKit.1.10.0.s.gnutar.gz#/MiscKit/Palettes/MiscSoundPalette/MiscSoundTrackerInspector.m

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

/*

Version 1.2
Copyright (c) 1995 by Sean Luke
Donated to the MiscKit

Permission to use, copy, modify, and distribute this material 
for any purpose and without fee, under the restrictions as noted 
in the MiscKit copyright notice, is hereby granted, provided that
the MiscKit copyright notice and this permission notice 
appear in all source copies, and that the author's name shall not
be used in advertising or publicity pertaining to this 
material without the specific, prior written permission 
of the author.  SEAN O. LUKE  MAKES NO REPRESENTATIONS ABOUT THE
ACCURACY OR SUITABILITY OF THIS MATERIAL FOR ANY PURPOSE.  
IT IS PROVIDED "AS IS", WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.

*/

#import "MiscSoundTrackerInspector.h"
#import "MiscSoundUtil.subproj/MiscSoundTracker.h"

@implementation MiscSoundTrackerInspector

- init
	{
	char buf[MAXPATHLEN+1];
	id bundle;
	
	[super init];
	bundle=[NXBundle bundleForClass:[MiscSoundTracker class]];
	[bundle getPath:buf forResource:"MiscSoundTrackerInspector" ofType:"nib"];
	[NXApp loadNibFile:buf owner:self withNames:NO fromZone:[self zone]];
	return self;
	}
	

- ok:sender
	{
	float r=[refresh floatValue];
	float s=[sampling floatValue];
	if (r<=0){r=SOUNDTRACKER_TIMED_ENTRY_SPEED;[refresh setFloatValue:r];}
	if (s<=0){s=SOUNDTRACKER_DEFAULT_SAMPLING_RATE;[sampling setFloatValue:s];}
	
	[object setSendType:[matrix selectedRow]+1];
	[object setRefresh:r];
	[object setDefaultSamplingRate:s];
	
	return [super ok:sender];
	}
	
- revert:sender
	{
	[matrix selectCellAt:[object sendType]-1:0];
	[refresh setFloatValue:[object refresh]];
	[sampling setFloatValue:[object defaultSamplingRate]];
	
	return [super revert:sender];
	}
	
- (BOOL) wantsButtons
	{
	return NO;
	}

@end

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