ftp.nice.ch/pub/next/connectivity/news/NewsBase.3.02.s.tar.gz#/NewsBase302.source/MMEdit/IFontSetField.m

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

/* Generated by Interface Builder */

#import "IFontSetField.h"
#import <appkit/FontManager.h>
#import <appkit/Font.h>

@implementation IFontSetField

- openFontPanel:sender
{
    [self selectText:self];
    [oFontManager orderFrontFontPanel:self];
    return self;
}

- changeFont:sender
{
    id		fontObj;
    char	buf[256];
    
    fontObj = [oFontManager convertFont:[oFontManager selFont]];
    sprintf(buf, "%.127s:%.0f", [fontObj name], [fontObj pointSize]);
    [self setStringValue:buf];
    [self selectText:self];

    return self;
}

@end

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