ftp.nice.ch/pub/next/developer/resources/palettesfor2.xx/JS.N.bs.tar.gz#/JoyStick/JoyStickInspector.m

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

/* Generated by Interface Builder */
#import <appkit/Slider.h>
#import <appkit/TextField.h>
#import <appkit/Application.h>
#import "JoyStick.h"
#import "JoyStickInspector.h"

@implementation JoyStickInspector
/* << The first two class methods don't get inherited >> */

+ finishLoading:(struct mach_header *) hdr {
    NIBDidLoadClass(self, hdr);
    return nil;
}

+ startUnloading
{
    NIBWillUnloadClass(self);
    return nil;
}

- init
{
    [super init];
    [NXApp loadNibSection:"JoyStickInspector.nib" owner:self];
    return self;
}

- ok:sender
{
    [object setXMax:[xtext floatValue]];
    [object setYMax:[ytext floatValue]];

    [object setTrackTime:[tracktext floatValue]];
    [object setFadeTime:[fadetext floatValue]];
    
    return[super ok:sender];
}

- revert:sender
{
    float val;
    
    val=[object xMax];
    [xslider setFloatValue:val];
    [xtext setFloatValue:val];
    
    val=[object yMax];
    [yslider setFloatValue:val];
    [ytext setFloatValue:val];
    
    val=[object trackTime];
    [trackslider setFloatValue:val];
    [tracktext setFloatValue:val];
    
    val=[object fadeTime];
    [fadeslider setFloatValue:val];
    [fadetext setFloatValue:val];

    return[super revert:sender];
}


@end

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