The R Project SVN R-packages

Rev

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

Rev 6026 Rev 6227
Line 100... Line 100...
100 
		RDocument *d = [self documentForWindow:w];
 100 
		RDocument *d = [self documentForWindow:w];
101 
		SLog(@" - document for window: %@", d);
 101 
		SLog(@" - document for window: %@", d);
102 
 
 102 
 
103 
		// if no document is associated wit this window, check whether this is a Quartz Cocoa window
 103 
		// if no document is associated wit this window, check whether this is a Quartz Cocoa window
104 
		if (!d && [[(NSObject*)[w delegate] className] isEqualToString:@"QuartzCocoaView"]) {
 104 
		if (!d && [[(NSObject*)[w delegate] className] isEqualToString:@"QuartzCocoaView"]) {
105 
			d = [[QuartzCocoaDocument alloc] initWithWindow:w];
 105 
			d = (RDocument*)[[QuartzCocoaDocument alloc] initWithWindow:w];
106 
			[d makeWindowControllers];
 106 
			[d makeWindowControllers];
107 
			[[NSDocumentController sharedDocumentController] addDocument:d];
 107 
			[[NSDocumentController sharedDocumentController] addDocument:d];
108 
			[d release];
 108 
			[d release];
109 
			SLog(@" - added dummy Quartz Cocoa window document");
 109 
			SLog(@" - added dummy Quartz Cocoa window document");
110 
		}
 110 
		}