ftp.nice.ch/pub/next/developer/resources/palettesfor2.xx/CubicSlider.1.4.s.tar.gz#/CubicSlider/CubicSliderPalette/CubicSliderInspector.m

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

/* Generated by Interface Builder */

#import "CubicSliderInspector.h"
#import "CubicSlider.h"
#import "CubicSliderCell.h"
#import <appkit/Application.h>
#import <appkit/Slider.h>
#import <appkit/Button.h>
#import <appkit/Form.h>
#import <appkit/Matrix.h>
#import <strings.h>
#import <stdio.h>

@implementation CubicSliderInspector

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

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

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

    if (strlen([absoluteValuesForm stringValueAt:0]) != 0)  
         [object setAbsoluteMinValue:[absoluteValuesForm doubleValueAt:0]];
    else [object clearAbsoluteMinValue];	    
    if (strlen([absoluteValuesForm stringValueAt:1]) != 0)  
         [object setAbsoluteMaxValue:[absoluteValuesForm doubleValueAt:1]];
    else [object clearAbsoluteMaxValue];	    
    [object setMinEditable: 1-[[userEditableSwitches cellAt: 0:0] state]] ;
    [object setMaxEditable: 1-[[userEditableSwitches cellAt: 1:0] state]] ;
    [object setCubic: 1 - [functionMatrix selectedRow] ] ;
    return [super ok:sender];
}

- revert:sender
{
    if ([object absoluteMinValueSet])  
         [absoluteValuesForm setDoubleValue: [object absoluteMinValue] at:0];
    else [absoluteValuesForm setStringValue: "" at:0];	    
    if ([object absoluteMaxValueSet]) 
         [absoluteValuesForm setDoubleValue: [object absoluteMaxValue] at:1];
    else [absoluteValuesForm setStringValue: "" at:1];	    
    [userEditableSwitches setState: 1- [object minIsEditable] at:0:0];
    [userEditableSwitches setState: 1- [object maxIsEditable] at:1:0];
    [functionMatrix selectCellAt: 1 - [object isCubic] : 0];
    return [super revert:sender];
}

- minEditChg:sender
{
   if ([[sender selectedCell] state]) 
          [absoluteValuesForm setFloatValue: [object minValue] at:0];
   else [absoluteValuesForm setStringValue: "" at:0];
   return self;
}
- maxEditChg:sender;
{
   if ([[sender selectedCell] state]) 
           [absoluteValuesForm setFloatValue: [object maxValue] at:1];
   else [absoluteValuesForm setStringValue: "" at:1];
   return self;
}

- performClick:sender
{
//	[self ok:self];
	return [super performClick:self];
}

@end

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