ftp.nice.ch/pub/next/games/card/Cribbage.1.1.s.tar.gz#/Cribbage/Cribbage-1.1/Messages.m

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

// Messages.m
// Project: Cribbage
// Stephan Wacker
// 93-06-21


#import "Messages.h"

static id theMessages;



@implementation Messages


+ message: (const char *) message
{
    return [theMessages message: message];
}


- init
{
    [super init];
    theMessages = self;
    
    return self;
}


- message: (const char *) message
{
    int		pos = [text textLength];
    
    [text setSel: pos : pos];
    [text replaceSel: message];
    [text scrollSelToVisible];
    [text replaceSel: "\n"];
    
    return self;
}


- window
{
    return [text window];
}

@end

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