The R Project SVN R-packages

Rev

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

Rev 6116 Rev 6227
Line 63... Line 63...
63 
	return self;
 63 
	return self;
64 
}
 64 
}
65 
 
 65 
 
66 
- (IBAction)menuItemHandler:(id)sender
 66 
- (IBAction)menuItemHandler:(id)sender
67 
{
 67 
{
68 
	[[self delegate] setSelectedItemIndex:[sender tag]];
 68 
	[(id)[self delegate] setSelectedItemIndex:[sender tag]];
69 
	[[self delegate] setWaitForChoice:NO];
 69 
	[(id)[self delegate] setWaitForChoice:NO];
70 
}
 70 
}
71 
 
 71 
 
72 
- (NSMenu *)menuForEvent:(NSEvent *)event
72 
- (NSMenu *)menuForEvent:(NSEvent *)event
73 
{
 73 
{
74 
	return [[self delegate] contextMenu];
 74 
	return [(id)[self delegate] contextMenu];
75 
}
 75 
}
76 
 
 76 
 
77 
@end
 77 
@end
78 
 
 78 
 
79 
@implementation RChooseMenuItemDialog
 79 
@implementation RChooseMenuItemDialog
Line 106... Line 106...
106 
	[self setHidesOnDeactivate:YES];
 106 
	[self setHidesOnDeactivate:YES];
107 
	[self setHasShadow:YES];
 107 
	[self setHasShadow:YES];
108 
	[self setAlphaValue:0.0f];
 108 
	[self setAlphaValue:0.0f];
109 
 
 109 
 
110 
	dummyTextView = [[RChooseMenuItemDialogTextView alloc] init];
 110 
	dummyTextView = [[RChooseMenuItemDialogTextView alloc] init];
111 
	[dummyTextView setDelegate:self];
 111 
	[dummyTextView setDelegate:(id)self];
112 
 
 112 
 
113 
	[self setContentView:dummyTextView];
 113 
	[self setContentView:dummyTextView];
114 
 
 114 
 
115 
}
 115 
}
116 
 
 116