The R Project SVN R-packages

	c=[Preferences unarchivedObjectForKey:identifierSyntaxColorKey withDefault:nil];

	c=[Preferences unarchivedObjectForKey:identifierSyntaxColorKey withDefault:nil];

	if (c) shColorIdentifier = c;

	if (c) shColorIdentifier = c;

	else shColorIdentifier=[NSColor colorWithDeviceRed:0.0 green:0.0 blue:0.0 alpha:1.0];

	else shColorIdentifier=[NSColor colorWithDeviceRed:0.0 green:0.0 blue:0.0 alpha:1.0];

	[shColorIdentifier retain]; 

	[shColorIdentifier retain]; 

	c=[Preferences unarchivedObjectForKey:editorSelectionBackgroundColorKey withDefault:nil];

	c=[Preferences unarchivedObjectForKey:editorSelectionBackgroundColorKey withDefault:nil];

	if (!c) c=[NSColor colorWithDeviceRed:0.71f green:0.835f blue:1.0f alpha:1.0f];

	if (!c) c=[NSColor colorWithDeviceRed:0.71f green:0.835f blue:1.0f alpha:1.0f];

	NSMutableDictionary *attr = [NSMutableDictionary dictionary];

	NSMutableDictionary *attr = [NSMutableDictionary dictionary];

	[attr setDictionary:[self selectedTextAttributes]];

	[attr setDictionary:[self selectedTextAttributes]];

	[attr setObject:c forKey:NSBackgroundColorAttributeName];

	[attr setObject:c forKey:NSBackgroundColorAttributeName];