ftp.nice.ch/Attic/openStep/implementation/gnustep/sources/alpha-snapshots/gnustep-xdps-960621.tgz#/gnustep-xdps-960621/Source/PXKObject.m

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

/*
 * Filename: PXKObject.m
 * Project:  Pascal's X Kit
 * Module:   Basic components
 *
 * Function: Provide the basic functionality to all PXKit classes
 *
 * Author:   Pascal Forget
 * Date:     August 1995
 *
 * Have a nice day!
 *
 * Copyright (C) 1995 Pascal Forget
 * All Rights Reserved
 */

#include "PXKObject.h"

@implementation PXKObject

+ initialize;
{
    return self;
}

- autorelease; /* Not implemented yet */
{
    return self;
}

- (void)dealloc;
{
    [super free];
}

- init;
{
    [super init];
    isAutoreleased = NO;
    delegate = nil;
    return self;
}

- (id)delegate;
{
    return delegate;
}

- release;
{
    refCount--;
    
    if (refCount < 1) {
	[self dealloc];
    }
    return self;
}

- (BOOL)respondsToSelector:(SEL)aSel;
{
    return YES; /* not implemented yet */
}

- retain;
{
    refCount++;
    return self;
}

- (void)setDelegate:(id)anObject;
{
    delegate = anObject;
}

@end

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