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

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

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

Authors: Scott Francis, Paul Kunz and Imran Qureshi

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

XmButtonCell.m,v 1.16 1994/12/19 22:47:00 pfkeb Exp

*/

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

#define NXTypedStream TypedStream
#include <appkit/ButtonCell.h>
#include <appkit/Font.h>

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

#include <stdio.h>
#include <stdlib.h>

@class PopUpList;

@implementation ButtonCell (XmArchiving)
- write:(TypedStream *)stream
{
    id		ticon;
    const char	*iconNormalName;
    const char	*iconAlternateName;
    int		flag = 0, localState;

    [super write:stream];

#ifdef DEBUG
    printf("->ButtonCell");
#endif

    if ( target ) {
    	flag = (strcmp( [target name], "PopUpList") == 0);
    }
    objc_write_type(stream, "i", &flag);
    if (flag) {
	objc_write_object(stream, target);
    }

    ticon = icon.bmap.normal;
    if ( ticon 
        && ![ticon isKindOf:[Font class]] 
	&& [ticon name]         ) {
        flag = 1;
    }
    objc_write_type(stream, "i", &flag);
    if ( flag ) {
        iconNormalName = [icon.bmap.normal name];
        objc_write_type(stream, "*", &iconNormalName);
    }
    flag = icon.bmap.alternate ? 1 :0;
    objc_write_type(stream, "i", &flag);
    if ( flag ) {
    	iconAlternateName = [icon.bmap.alternate name];
        objc_write_type(stream, "*", &iconAlternateName);
    }
    flag = 1;
    localState = [self state];
    objc_write_type(stream, "i", &flag);
    objc_write_type(stream, "i", &localState);

    return self;
}
@end

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