![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to Controller.m CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot / NeXT|
Return to Controller.m CVS log | Up to [local] / OpenXM_contrib / gnuplot / NeXT |
1.1 maekawa 1: #import <defaults/defaults.h>
2: #import "Controller.h"
3: #import "gnuviewController.h"
4: #import "GnuView.h"
5:
6:
7: @implementation Controller
8:
9: - (id) activeTerm
10: {
11: return activeTerm;
12: }
13:
14:
15: - appDidInit:sender
16: {
17: id prInfo;
18: NXRect *paperRect;
19:
20: static NXDefaultsVector GnuTermDefaults = {
21: {"Width", "400"},
22: {"Height", "300"},
23: {"Backing", "Buffered"},
24: {NULL}
25: };
26:
27:
28: activeTerm = keyTerm = nil;
29:
30: myConnection = [NXConnection registerRoot:self withName:"gnuplotServer"];
31: [myConnection runFromAppKit];
32:
33: prInfo = [NXApp printInfo];
34: paperRect = (NXRect *) [prInfo paperRect];
35: [prInfo setOrientation:NX_LANDSCAPE andAdjust:YES];
36: [prInfo setHorizCentered:YES];
37: [prInfo setVertCentered:YES];
38:
39: /* Get user Preferences */
40: NXRegisterDefaults("GnuTerm", GnuTermDefaults);
41:
42: [DefaultSize setStringValue:NXGetDefaultValue("GnuTerm","Width") at:0];
43: [DefaultSize setStringValue:NXGetDefaultValue("GnuTerm","Height") at:1];
44:
45: if (!strcmp(NXGetDefaultValue("GnuTerm","Backing"), "Buffered")) {
46: backing = NX_BUFFERED;
47: [useBufferedSwitch setState:YES];
48: }
49: else {
50: backing = NX_RETAINED;
51: [useBufferedSwitch setState:NO];
52: }
53:
54: gvList = [[List new] initCount:10];
55:
56: return self;
57: }
58:
59: - newGnuTerm:sender
60: {
61: NXRect frame;
62:
63: if ([gvList indexOf:keyTerm] != NX_NOT_IN_LIST) {
64: [[keyTerm window] getFrame: &frame];
65: NX_X(&frame) += 24;
66: NX_Y(&frame) -= 24;
67: }
68: else {
69: NX_WIDTH(&frame) = atof(NXGetDefaultValue("GnuTerm","Width"));
70: NX_HEIGHT(&frame) = atof(NXGetDefaultValue("GnuTerm","Height"));
71: NX_X(&frame) = 200;
72: NX_Y(&frame) = 350;
73: }
74:
75: if ([NXApp loadNibSection: "gnuview.nib" owner: self] == nil) {
76: return nil;
77: }
78: // fprintf(stderr,"newGnuTerm: %g x %g\n",NX_WIDTH(&frame),NX_HEIGHT(&frame));
79:
80: [[activeTerm window] setBackingType:backing];
81: [[activeTerm window] placeWindowAndDisplay: &frame];
82: [self setKeyTerm:activeTerm];
83:
84: [gvList addObject:activeTerm];
85: ++wcnt;
86:
87: return activeTerm;
88: }
89:
90:
91: - setActiveTerm:(id) newTerm
92: {
93: if (activeTerm != nil) [activeTerm deactivate:self];
94:
95: activeTerm = newTerm;
96: [activeTerm GVactivate:self];
97:
98: return self;
99: }
100:
101: - printPScodeInKey:sender
102: {
103: [[keyTerm gnuView] printPSCode:sender];
104:
105: return self;
106:
107:
108: }
109:
110: - setKeyTerm:newTerm
111: {
112: keyTerm = newTerm;
113:
114: [NameField setStringValue:[[keyTerm window] title]];
115: [NameField selectText:self];
116:
117: return self;
118: }
119:
120: - setKeyTitle:sender
121: {
122: [[keyTerm window] setTitle:[NameField stringValue]];
123: [[NameField window] performClose:self];
124: return self;
125: }
126:
127: - executePScode:(char *)PSstring termTitle:(char *)title
128: {
129: int i, cnt;
130: id test;
131: char buf[50];
132:
133: //fprintf(stderr, "Request for window: %s\n", title);
134:
135: if (*title) {
136: /* If the window exists, use it */
137: cnt = [gvList count];
138: for (i=0; i < cnt; ++i) {
139: test = [gvList objectAt:i];
140: if ( !strcmp([[test window] title], title)) {
141: if (test != activeTerm) [self setActiveTerm:test];
142: break;
143: }
144: }
145: /* O.K., it doesn't exist, what now? */
146: if (i == cnt) {
147: [self newGnuTerm:self];
148: [[activeTerm window] setTitle: title];
149: }
150: }
151: else {
152: if (activeTerm == nil) {
153: [self newGnuTerm:self];
154: sprintf(buf, "gnuplot %d", wcnt);
155: [[activeTerm window] setTitle: buf];
156: }
157: }
158:
159:
160: [[activeTerm window] makeKeyAndOrderFront: nil];
161: [[activeTerm gnuView] executePS:PSstring];
162:
163: return activeTerm;
164: }
165:
166: - termWillClose:sender
167: {
168: [gvList removeObject:sender];
169: if (activeTerm == sender) activeTerm =nil;
170:
171: return self;
172: }
173:
174: - setDefaultGTSize:sender
175: {
176: NXRect frame;
177:
178: if (sender == useKeyButton) {
179: fprintf(stderr, "useKey\n");
180: if ([gvList indexOf:keyTerm] != NX_NOT_IN_LIST) {
181: [[keyTerm window] getFrame: &frame];
182: [DefaultSize setFloatValue:NX_WIDTH(&frame) at:0];
183: [DefaultSize setFloatValue:NX_HEIGHT(&frame) at:1];
184: }
185: }
186:
187: NXWriteDefault("GnuTerm", "Width", [DefaultSize stringValueAt:0]);
188: NXWriteDefault("GnuTerm", "Height", [DefaultSize stringValueAt:1]);
189:
190:
191: fprintf(stderr, "setDefaultGTSize: %s x %s\n",
192: [DefaultSize stringValueAt:0],[DefaultSize stringValueAt:1]);
193:
194: return self;
195: }
196:
197: - setUseBuffered:sender
198: {
199: if ([sender state] == YES) {
200: backing = NX_BUFFERED;
201: NXWriteDefault("GnuTerm", "Backing", "Buffered");
202: }
203: else {
204: backing = NX_RETAINED;
205: NXWriteDefault("GnuTerm", "Backing", "Retained");
206: }
207: [[activeTerm window] setBackingType:backing];
208:
209:
210: return self;
211: }
212:
213:
214: - closeAll:sender
215: {
216: while([gvList count]) [[[gvList objectAt:0] window] performClose:self];
217: return self;
218: }
219: - miniaturizeAll:sender
220: {
221: int i, cnt;
222:
223: cnt = [gvList count];
224:
225: for (i=0; i < cnt; ++i)
226: [[[gvList objectAt:i] window] performMiniaturize:self];
227:
228: return self;
229: }
230:
231: @end