The R Project SVN – R-packages – Diff – /trunk/Mac-GUI/RScriptEditorTextView.m

 	// we are a subclass of RTextView which has its own awake and we must call it
 	[super awakeFromNib];
 	SLog(@"RScriptEditorTextView: awakeFromNib <%@>", self);
+	// Bind scrollView programmatically - if done in RDocument.xib this'd lead to
+	// calling awakeFromNib twice
+	id scrView = (NSScrollView *)self.superview.superview;
+	if ([scrView isKindOfClass:[NSScrollView class]]) {
+		if(scrollView) [scrollView release];
+		scrollView = [scrView retain];
+		SLog(@"RScriptEditorTextView:awakeFromNib set scrollView");
+	}
 	prefs = [[NSUserDefaults standardUserDefaults] retain];
 	[[Preferences sharedPreferences] addDependent:self];
 	lineNumberingEnabled = [Preferences flagForKey:showLineNumbersKey withDefault:NO];
 - (void)dealloc {
 	SLog(@"RScriptEditorTextView: dealloc <%@>", self);
 	[theTextStorage release];
+	if(scrollView) [scrollView release];
 	if(editorToolbar) [editorToolbar release];
 	if(highlightColorAttr) [highlightColorAttr release];
 	if(shColorNormal) [shColorNormal release];

The R Project SVN R-packages