ftp.nice.ch/pub/next/developer/languages/smalltalk/smalltalk.1.2.alpha5.s.tar.gz#/smalltalk-1.2.alpha5/objc/objclib/ColorFixes.m

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

#import "ColorFixes.h"

@implementation ClipView (ColorFixes)

- backgroundColor:(Color *)aColor
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

@end

@implementation Matrix (ColorFixes)

- backgroundColor:(Color *)aColor 
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

- cellBackgroundColor:(Color *)aColor 
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

@end

@implementation NXImage (ColorFixes)

- backgroundColor:(Color *)aColor 
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

@end

@implementation ScrollView (ColorFixes)

- backgroundColor:(Color *)aColor 
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

@end

@implementation Text (ColorFixes)

- backgroundColor:(Color *)aColor 
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

- textColor:(Color *)aColor 
{
	[self setTextColor:[aColor color]];
	return self;
}

- selColor:(Color *)aColor 
{
	[self setSelColor:[aColor color]];
	return self;
}

@end

@implementation TextField (ColorFixes)

- backgroundColor:(Color *)aColor 
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

- textColor:(Color *)aColor 
{
	[self setTextColor:[aColor color]];
	return self;
}


@end

@implementation TextFieldCell (ColorFixes)

- backgroundColor:(Color *)aColor 
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

- textColor:(Color *)aColor 
{
	[self setTextColor:[aColor color]];
	return self;
}

@end

@implementation Window (ColorFixes)

- backgroundColor:(Color *)aColor 
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

@end

@implementation N3DCamera (ColorFixes)

- backgroundColor:(Color *)aColor 
{
	[self setBackgroundColor:[aColor color]];
	return self;
}

@end

@implementation N3DLight (ColorFixes)

- color:(Color *)aColor 
{
	[self setColor:[aColor color]];
	return self;
}

@end

@implementation Slider (ColorFixes)

- titleColor:(Color *)aColor 
{
	[self setTitleColor:[aColor color]];
	return self;
}

@end

@implementation SliderCell (ColorFixes)

- titleColor:(Color *)aColor 
{
	[self setTitleColor:[aColor color]];
	return self;
}

@end

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