The R Project SVN R-packages

Rev

Rev 6233 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6233 Rev 6238
Line 73... Line 73...
73 
	NSColor *col = [[layoutManager textStorage] foregroundColor];
 73 
	NSColor *col = [[layoutManager textStorage] foregroundColor];
74 
 
 74 
 
75 
	[[col colorWithAlphaComponent:0.6f] setFill];
 75 
	[[col colorWithAlphaComponent:0.6f] setFill];
76 
	[path fill];
 76 
	[path fill];
77 
	[path stroke];
 77 
	[path stroke];
78 
	[col setFill];
 - 
 
79 
 
 78 
 
- 
 
 79 
	// [col setFill];
80 
	p = NSMakeRect(cellFrame.origin.x+4.0f+5.0f, y+h/2-1.0f, 3.0f, 3.0f);
 80 
	// p = NSMakeRect(cellFrame.origin.x+4.0f+5.0f, y+h/2-1.0f, 3.0f, 3.0f);
81 
	NSRectFill(p);
 81 
	// NSRectFill(p);
82 
	p.origin.x+=5.0f;
 82 
	// p.origin.x+=5.0f;
83 
	NSRectFill(p);
 83 
	// NSRectFill(p);
84 
	p.origin.x+=5.0f;
 84 
	// p.origin.x+=5.0f;
85 
	NSRectFill(p);
 85 
	// NSRectFill(p);
- 
 
 86 
 
86 
}
 87 
}
87 
 
 88 
 
88 
- (BOOL)wantsToTrackMouseForEvent:(NSEvent *)theEvent inRect:(NSRect)cellFrame ofView:(NSView *)controlView atCharacterIndex:(NSUInteger)charIndex
 89 
- (BOOL)wantsToTrackMouseForEvent:(NSEvent *)theEvent inRect:(NSRect)cellFrame ofView:(NSView *)controlView atCharacterIndex:(NSUInteger)charIndex
89 
{
 90 
{
90 
	return YES;
 91 
	return YES;
Line 92... Line 93...
92 
 
 93 
 
93 
- (BOOL)trackMouse:(NSEvent *)theEvent inRect:(NSRect)cellFrame ofView:(NSView *)controlView atCharacterIndex:(NSUInteger)charIndex untilMouseUp:(BOOL)flag
 94 
- (BOOL)trackMouse:(NSEvent *)theEvent inRect:(NSRect)cellFrame ofView:(NSView *)controlView atCharacterIndex:(NSUInteger)charIndex untilMouseUp:(BOOL)flag
94 
{
 95 
{
95 
 
 96 
 
96 
	if ([(RScriptEditorTextView *)controlView respondsToSelector:@selector(unfoldLinesContainingCharacterAtIndex:)]) {
 97 
	if ([(RScriptEditorTextView *)controlView respondsToSelector:@selector(unfoldLinesContainingCharacterAtIndex:)]) {
97 
		[[(RScriptEditorTextView *)controlView undoManager] disableUndoRegistration];
 - 
 
98 
		BOOL success = [(RScriptEditorTextView *)controlView unfoldLinesContainingCharacterAtIndex:charIndex];
 98 
		BOOL success = [(RScriptEditorTextView *)controlView unfoldLinesContainingCharacterAtIndex:charIndex];
99 
		[[(RScriptEditorTextView *)controlView undoManager] enableUndoRegistration];
 - 
 
100 
		return success;
 99 
		return success;
101 
	}
 100 
	}
102 
 
 101 
 
103 
	return NO;
 102 
	return NO;
104 
}
 103 
}