ftp.nice.ch/Attic/openStep/implementation/gnustep/sources/objcX-0.87.tgz#/objcX-0.87/nib-translator/XmList.m

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

/*  Archiving Category for List
    Copyright (C)  1993  The Board of Trustees of
    The Leland Stanford Junior University.  All Rights Reserved.

Authors: Paul Kunz and Imran Qureshi

 * This file is part of the nib translator for 
 * an Objective-C class library for X/Motif

XmList.m,v 1.5 1995/01/03 21:27:17 pfkeb Exp

*/

#include "/NextDeveloper/Headers/objc/typedstream.h"
#include "/NextDeveloper/Headers/objc/Object.h"

#define NXTypedStream TypedStream
#include <objc/List.h>

@implementation List (XmArchiving)
- write:(TypedStream *)stream
{
    [super write:stream];
    
#ifdef DEBUG
    printf("->(List of %d objects)", numElements);
#endif

    objc_write_types(stream, "II", &numElements, &maxElements);
    objc_write_array(stream, "@", numElements, dataPtr);
    return self;
}
@end

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