| Line 29... |
Line 29... |
| 29 |
|
29 |
|
| 30 |
#import "QuartzPrefPane.h"
|
30 |
#import "QuartzPrefPane.h"
|
| 31 |
#import "PreferenceKeys.h"
|
31 |
#import "PreferenceKeys.h"
|
| 32 |
#import "Preferences.h"
|
32 |
#import "Preferences.h"
|
| 33 |
#import "REngine.h"
|
33 |
#import "REngine.h"
|
| 34 |
#include <Rversion.h>
|
- |
|
| 35 |
|
34 |
|
| 36 |
@interface QuartzPrefPane (Private)
|
35 |
@interface QuartzPrefPane (Private)
|
| 37 |
- (void)setIdentifier:(NSString *)newIdentifier;
|
36 |
- (void)setIdentifier:(NSString *)newIdentifier;
|
| 38 |
- (void)setLabel:(NSString *)newLabel;
|
37 |
- (void)setLabel:(NSString *)newLabel;
|
| 39 |
- (void)setCategory:(NSString *)newCategory;
|
38 |
- (void)setCategory:(NSString *)newCategory;
|
| Line 198... |
Line 197... |
| 198 |
[Preferences stringForKey:quartzPrefPaneWidthKey withDefault: @"5"]];
|
197 |
[Preferences stringForKey:quartzPrefPaneWidthKey withDefault: @"5"]];
|
| 199 |
[quartzPrefPaneHeight setStringValue:
|
198 |
[quartzPrefPaneHeight setStringValue:
|
| 200 |
[Preferences stringForKey:quartzPrefPaneHeightKey withDefault: @"5"]];
|
199 |
[Preferences stringForKey:quartzPrefPaneHeightKey withDefault: @"5"]];
|
| 201 |
[quartzPrefPaneDPI setStringValue:
|
200 |
[quartzPrefPaneDPI setStringValue:
|
| 202 |
[Preferences stringForKey:quartzPrefPaneDPIKey withDefault: @""]];
|
201 |
[Preferences stringForKey:quartzPrefPaneDPIKey withDefault: @""]];
|
| 203 |
#if R_VERSION >= R_Version(2,7,0)
|
- |
|
| 204 |
if (flag)
|
202 |
if (flag)
|
| 205 |
[[REngine mainEngine] executeString:[NSString stringWithFormat:@"quartz.options(width=%@,height=%@,dpi=%@)", [quartzPrefPaneWidth stringValue],
|
203 |
[[REngine mainEngine] executeString:[NSString stringWithFormat:@"quartz.options(width=%@,height=%@,dpi=%@)", [quartzPrefPaneWidth stringValue],
|
| 206 |
[quartzPrefPaneHeight stringValue], ([[quartzPrefPaneDPI stringValue] length] == 0) ? @"NA_real_" : [quartzPrefPaneDPI stringValue]]];
|
204 |
[quartzPrefPaneHeight stringValue], ([[quartzPrefPaneDPI stringValue] length] == 0) ? @"NA_real_" : [quartzPrefPaneDPI stringValue]]];
|
| 207 |
#endif
|
- |
|
| 208 |
|
205 |
|
| 209 |
[quartzPrefPaneLocation setEnabled:NSOnState];
|
206 |
[quartzPrefPaneLocation setEnabled:NSOnState];
|
| 210 |
NSString *i = [Preferences stringForKey:quartzPrefPaneLocationKey withDefault: @"Top Left"];
|
207 |
NSString *i = [Preferences stringForKey:quartzPrefPaneLocationKey withDefault: @"Top Left"];
|
| 211 |
if (i) [quartzPrefPaneLocation selectItemWithTitle:i];
|
208 |
if (i) [quartzPrefPaneLocation selectItemWithTitle:i];
|
| 212 |
}
|
209 |
}
|
The R Project SVN
R-packages