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

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

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

Authors: Mike Kienenberger (Alaska)

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

XmText.m

*/

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

#include "XmView.h"
#include <appkit/Text.h>
#include <stdlib.h>

@interface Text (XmArchiving)
- write:(TypedStream *)stream;
@end

@implementation Text (XmArchiving)
- write:(TypedStream *)stream
{
    BOOL a, b, c, d;
    int textLen = [self textLength];
    char *contents = (char *)malloc(textLen + 2);
    
    *contents = '\0';
    [self getSubstring:contents start:0 length:textLength+1];
    [super write:stream];

#ifdef DEBUG
    printf("\n->Text");
#endif
    a = [self isMonoFont];
    b = [self isEditable];
    c = [self isSelectable];
    d = [self isFlipped];
    objc_write_type( stream, "c", &a);
    objc_write_type( stream, "c", &b);
    objc_write_type( stream, "c", &c);
    objc_write_type( stream, "c", &d);
    objc_write_type( stream, "*", &contents);
    free(contents);
    return self;
}

@end

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