The R Project SVN R-packages

Rev

Rev 5970 | Rev 5993 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5970 Rev 5983
Line 760... Line 760...
760 
 
 760 
 
761 
	}
 761 
	}
762 
 
 762 
 
763 
}
 763 
}
764 
 
 764 
 
765 
#pragma mark -
 - 
 
766 
 
 - 
 
767 
- (void)changeFont:(id)sender
 - 
 
768 
{
 - 
 
769 
 
 - 
 
770 
	NSFont *font;
 - 
 
771 
	font = [[NSFontPanel sharedFontPanel] panelConvertFont:[NSUnarchiver unarchiveObjectWithData:[prefs dataForKey:RScriptEditorDefaultFont]]];
 - 
 
772 
 
 - 
 
773 
	if([[[[self window] windowController] document] isRTF] || [self selectedRange].length) {
 - 
 
774 
		// register font change for undo
 - 
 
775 
		[self shouldChangeTextInRange:[self selectedRange] replacementString:[[self string] substringWithRange:[self selectedRange]]];
 - 
 
776 
		[theTextStorage addAttribute:NSFontAttributeName value:font range:[self selectedRange]];
 - 
 
777 
	} else {
 - 
 
778 
		[prefs setObject:[NSArchiver archivedDataWithRootObject:font] forKey:RScriptEditorDefaultFont];
 - 
 
779 
	}
 - 
 
780 
 
 - 
 
781 
}
 - 
 
782 
 
 - 
 
783 
 
 - 
 
784 
- (void)updatePreferences
 765 
- (void)updatePreferences
785 
{
 766 
{
786
767
787 
}
 768 
}
788 
@end
 769 
@end