1#import "prefBoss.h"
2 NSString *TAPromptKey=@"Do I Prompt";
3 NSString *TADateStampKey=@"Do I Time-Date Stamp";
4 NSString *TAMacNLKey=@"Do I Mac NL Stamp";
5 NSString *TAAutoReloadKey=@"Do I Reload Data Automatically";
6 NSString *TACodeFromList=@"Do I use the list or the text field";
7 /* to be implemented */
8 NSString *TAUseToolTip=@"Do I use the a tooltip in the code column";
9 NSString *TACountSections=@"Do I tally empty for every section";
10 NSString *TAUseCoder=@"Do I use a coder ID when coding";
11  NSString *TACoderID=@"Actual coder identification";
12 NSString *TAShowCoder=@"Show codes in raw runs identification";
13 NSString *TASavedState=@"Save the state of the workbench";
14 NSString *TASavedFileList=@"Saved files for the state";
15 NSString *TAEOFIsEnd=@"Should an EOF be a {!END}?";
16 NSString *TAZapUnivAtEOF=@"Should the universal list be zapped (removeAll) at EOF";
17NSString *TABackendRepeat=@"Should repeat be evaluated at {!end} or at open tag";
18NSString *TAScanInit=@"Should an opening file scan the init file as well as itself for !buttons";
19 NSString *TANonSimpleRepeat = @"Should isolated repeat values be returned by non-simple searches";
20 NSString *TAUnichar = @"Should I export using unichar";
21 NSString *TADetachedSheet = @"should sheets float or be detached";
22 NSString *TATagColor = @"What color should the tags be";
23 NSString *TAZoomFactor = @"How many characters to add on each side for a string search";
24 NSString *TAEscapeBraces = @"Recognize \\ as the escape character";
25 NSString *TAAutoColor = @"Should the program re-color tags when the file opens";
26 NSString *TAScanForLN = @"Should the program be looking for line numbers at each line start";
27 NSString *TACommentForCode = @"Should the program present a comment sheet when user hits code button";
28NSString *TACancelAfterAddCode = @"should the program unmark everything after add code";
29 NSString *TACancelAfterRecode = @"after recoding, should the program remove all the marked";
30 NSString *TAGuessUpdate = @"At time of addcode and recode should I update all the records by guessing where the tags appear";
31NSString *TASaveGraphviz = @"Should graphviz files be saved via nssavepanel or just opened automatically";
32NSString *TAEnableBack = @"Should the data browser enable the back button (YES = lots of memory)";
33NSString *TAAVCode = @"The actual code that surronds a time constant";
34NSString *TAAVBackspace = @"The amount of backspace in seconds";
35NSString *TACodeAV = @"Should AV be coded?";
36NSString *TAAutoBackspace = @"Should I backspace when I tell AV to start?";
37NSString *TARealColor = @"color saved as an NSColor";
38NSString *TAMetaColor = @"sets the color of metas on refresh";
39NSString *TABatchOpenFiles = @"should operattions like recode and add code open the files rather than make the changes in the background?";
40NSString *TADefaultUnstruct=@"should the program assume that new projects/files are unstructured?";
41NSString * TATimeFormatHHMMSS=@"should the program format time as hh:mm:ss?";
42NSString *TACheckCodeDefinition=@"should code selections check the definitions as well?";
43NSString *TAHCLStackSize =@"Hot code list stack size.";
44NSString *TAGUseGV = @"Should TAG use gv as its image viewer?";
45NSString *TAGDotDir = @"What is the location of dot?";
46NSString *TAGGVDir = @"What is the location of GV?";
47
48prefBoss *gPrefBoss;
49
50@implementation prefBoss
51
52-(id) init
53{
54   gPrefBoss = self =  [super initWithWindowNibName: @"preference" owner: self];
55    return self;
56
57
58}
59
60-(int) promptValue
61{
62    return [[NSUserDefaults standardUserDefaults] integerForKey:
63	TAPromptKey];
64
65}
66
67-(int) dateTimeValue
68{
69   return [[NSUserDefaults standardUserDefaults] integerForKey:
70	TADateStampKey];
71
72}
73
74-(int) checkCodeDef
75{
76    return [[NSUserDefaults standardUserDefaults] integerForKey:
77	TACheckCodeDefinition];
78
79}
80
81-(int) hclStackSize
82{
83    return [[NSUserDefaults standardUserDefaults] integerForKey:
84	TAHCLStackSize];
85
86}
87
88-(int) macNLValue
89{
90    return [[NSUserDefaults standardUserDefaults] integerForKey:
91	TAMacNLKey];
92
93}
94-(int) autoReloadValue
95{
96    return [[NSUserDefaults standardUserDefaults] integerForKey:
97	TAAutoReloadKey];
98
99}
100-(int) codeFromListValue
101{
102    return [[NSUserDefaults standardUserDefaults] integerForKey:
103	TACodeFromList];
104
105
106}
107
108-(NSColor *) realColor
109{
110    NSData *dd =  [[NSUserDefaults standardUserDefaults] objectForKey:
111	TARealColor];
112    return (NSColor *)[NSUnarchiver unarchiveObjectWithData:dd];
113}
114-(NSColor *) metaColor
115{
116    NSData *dd =  [[NSUserDefaults standardUserDefaults] objectForKey:
117	TAMetaColor];
118    return (NSColor *)[NSUnarchiver unarchiveObjectWithData:dd];
119
120
121}
122
123-(int) useToolTipValue
124{
125    return [[NSUserDefaults standardUserDefaults] integerForKey:
126	TAUseToolTip];
127}
128
129
130-(int) countSectionsValue
131{
132    return [[NSUserDefaults standardUserDefaults] integerForKey:
133	TACountSections];
134}
135
136-(int) scanInitValue
137{
138    return [[NSUserDefaults standardUserDefaults] integerForKey:
139	TAScanInit];
140}
141-(int) useCoderValue
142{
143    return [[NSUserDefaults standardUserDefaults] integerForKey:
144	TAUseCoder];
145}
146
147-(int) backendRepeatValue
148{
149    return [[NSUserDefaults standardUserDefaults] integerForKey:
150	TABackendRepeat];
151}
152
153-(int) nonSimpleRepeatValue
154{
155    return [[NSUserDefaults standardUserDefaults] integerForKey:
156	TANonSimpleRepeat];
157}
158-(int) escapeBracesValue
159{
160    return [[NSUserDefaults standardUserDefaults] integerForKey:
161	TAEscapeBraces];
162}
163-(int) batchOpenFiles
164{
165    return [[NSUserDefaults standardUserDefaults] integerForKey:
166	TABatchOpenFiles];
167}
168
169-(int) unicharValue
170{
171    return [[NSUserDefaults standardUserDefaults] integerForKey:
172	TAUnichar];
173}
174
175-(int) zoomFactorValue
176{
177    return [[NSUserDefaults standardUserDefaults] integerForKey:
178	TAZoomFactor];
179}
180
181-(int) saveGraphviz
182{
183    return [[NSUserDefaults standardUserDefaults] integerForKey:
184	TASaveGraphviz];
185}
186
187-(int) enableBack
188{
189    return [[NSUserDefaults standardUserDefaults] integerForKey:
190	TAEnableBack];
191}
192-(NSString *) getAVCode
193{
194    return [[NSUserDefaults standardUserDefaults] stringForKey:
195	TAAVCode];
196}
197-(int) getAVBackspace
198{
199    return [[NSUserDefaults standardUserDefaults] integerForKey:
200	TAAVBackspace];
201}
202
203-(NSString *) getCoderID
204{
205    return [[NSUserDefaults standardUserDefaults] stringForKey:
206	TACoderID];
207}
208
209
210
211-(int) useGV
212{
213    return [[NSUserDefaults standardUserDefaults] integerForKey:
214	TAGUseGV];
215}
216
217-(NSString *) dotDir
218{
219    return [[NSUserDefaults standardUserDefaults] stringForKey:
220	TAGDotDir];
221}
222
223-(NSString *) gvDir
224{
225    return [[NSUserDefaults standardUserDefaults] stringForKey:
226	TAGGVDir];
227}
228
229
230
231-(int) showCoder
232{
233    return [[NSUserDefaults standardUserDefaults] integerForKey:
234	TAShowCoder];
235}
236
237-(int) EOFIsEndValue
238{
239    return [[NSUserDefaults standardUserDefaults] integerForKey:
240	TAEOFIsEnd];
241}
242
243-(int) zapUnivValue
244{
245    return [[NSUserDefaults standardUserDefaults] integerForKey:
246	TAZapUnivAtEOF];
247}
248
249-(int) detachedSheetValue
250{
251    return [[NSUserDefaults standardUserDefaults] integerForKey:
252	TADetachedSheet];
253}
254-(int) autoColorValue
255{
256    return [[NSUserDefaults standardUserDefaults] integerForKey:
257	TAAutoColor];
258}
259
260-(int) tagColorValue
261{
262    return  [[NSUserDefaults standardUserDefaults] integerForKey: TATagColor];
263}
264
265-(int) TAScanForLN
266{
267    return [[NSUserDefaults standardUserDefaults] integerForKey:
268	TAScanForLN];
269}
270
271-(int) commentForCode
272{
273    return [[NSUserDefaults standardUserDefaults] integerForKey:
274	TACommentForCode];
275}
276
277-(int) cancelAfterAddCode
278{
279    return [[NSUserDefaults standardUserDefaults] integerForKey:
280	TACancelAfterAddCode];
281}
282-(int) cancelAfterRecode
283{
284    return [[NSUserDefaults standardUserDefaults] integerForKey:
285	TACancelAfterRecode];
286}
287-(int) guessUpdate
288{
289    return [[NSUserDefaults standardUserDefaults] integerForKey:
290	TAGuessUpdate];
291}
292-(int) autoBackspace
293{
294    return [[NSUserDefaults standardUserDefaults] integerForKey:
295	TAAutoBackspace];
296
297}
298-(int) codeAV
299{
300    return [[NSUserDefaults standardUserDefaults] integerForKey:
301	TACodeAV];
302
303}
304
305-(int) defaultUnstruct
306{
307    return [[NSUserDefaults standardUserDefaults] integerForKey:
308	TADefaultUnstruct];
309
310}
311-(int) timeFormatHHMMSS
312{
313    return [[NSUserDefaults standardUserDefaults] integerForKey:
314	TATimeFormatHHMMSS];
315
316}
317-(void) windowDidLoad
318{
319    int myTag;
320    [dateStamp setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
321	TADateStampKey]];
322    [prompt setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
323	TAPromptKey]];
324     [macNLOption setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
325	TAMacNLKey]];
326     [checkCodeDef setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
327         TACheckCodeDefinition]];
328    [autoReloadOption setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
329	TAAutoReloadKey]];
330    [codeFromListOption setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
331	TACodeFromList]];
332    [useToolTip setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
333	TAUseToolTip]];
334    [countSections setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
335	TACountSections]];
336    [useCodeID setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
337	TAUseCoder]];
338    [codeAV setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
339	TACodeAV]];
340    [autoBackspace setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
341	TAAutoBackspace]];
342    [codeID setStringValue: [[NSUserDefaults standardUserDefaults] stringForKey:
343	TACoderID]];
344    [AVCode setStringValue: [[NSUserDefaults standardUserDefaults] stringForKey:
345	TAAVCode]];
346    [AVBackspace setStringValue: [[NSUserDefaults standardUserDefaults] stringForKey:
347	TAAVBackspace]];
348    [showCoderView setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
349	TAShowCoder]];
350     [EOFIsEndSwitch setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
351	TAEOFIsEnd]];
352    [zapUniv setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
353	TAZapUnivAtEOF]];
354    [escapeBracesOption setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
355	TAEscapeBraces]];
356    [backendRepeat setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
357	TABackendRepeat]];
358    [scanInit setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
359	TAScanInit]];
360    [zoomFactorView setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
361	TAZoomFactor]];
362    [scanForLNOption setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
363	TAScanForLN]];
364    [enableBack setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
365	TAEnableBack]];
366    [nonSimpleRepeat setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
367	TANonSimpleRepeat]];
368    [detachedSheetSwitch setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
369	TADetachedSheet]];
370    [commentForCodeOption setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
371	TACommentForCode]];
372    [hclStackSize setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
373	TAHCLStackSize]];
374    [autoColorOption setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
375	TAAutoColor]];
376    [batchOpenFiles setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
377	TABatchOpenFiles]];
378    [cancelAfterAddCode setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
379	TACancelAfterAddCode]];
380    [cancelAfterRecode setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
381	TACancelAfterRecode]];
382    [saveGraphviz setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
383	TASaveGraphviz]];
384    [guessUpdateOption setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
385	TAGuessUpdate]];
386    [timeFormat setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
387	TATimeFormatHHMMSS]];
388    [defaultUnstructSwitch setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
389	TADefaultUnstruct]];
390    {
391        NSData *dd;
392        dd =  [[NSUserDefaults standardUserDefaults] objectForKey:
393            TARealColor];
394        [realColorWell setColor:(NSColor *)[NSUnarchiver unarchiveObjectWithData: dd]];
395    }
396
397    {
398        NSData *dd;
399        dd =  [[NSUserDefaults standardUserDefaults] objectForKey:
400            TAMetaColor];
401        [metaColorWell setColor:(NSColor *)[NSUnarchiver unarchiveObjectWithData: dd]];
402    }
403
404    [charSwitch setAutoenablesItems: YES];
405    myTag = [[NSUserDefaults standardUserDefaults] integerForKey:
406	TAUnichar];
407    [dotDir setStringValue: [[NSUserDefaults standardUserDefaults] stringForKey:
408	TAGDotDir]];
409    [gvDir setStringValue: [[NSUserDefaults standardUserDefaults] stringForKey:
410	TAGGVDir]];
411    [useGV setIntValue: [[NSUserDefaults standardUserDefaults] integerForKey:
412	TAGUseGV]];
413
414    [charSwitch selectItemAtIndex: [charSwitch indexOfItemWithTag: myTag]];
415    [tagColorMenu selectItemAtIndex: [[NSUserDefaults standardUserDefaults] integerForKey:
416	TATagColor]];
417
418}
419
420-(void) windowWillClose:(NSNotification *)aNotification
421{
422    [[NSUserDefaults standardUserDefaults] setInteger: [zoomFactorView intValue]
423	forKey: TAZoomFactor];
424
425}
426
427-(IBAction)tweedleMacNL: (id) sender
428{
429    [[NSUserDefaults standardUserDefaults] setInteger: [macNLOption intValue]
430	forKey: TAMacNLKey];
431
432}
433
434-(IBAction)tweedleAutoReload: (id) sender
435{
436    [[NSUserDefaults standardUserDefaults] setInteger: [autoReloadOption intValue]
437	forKey: TAAutoReloadKey];
438
439
440}
441-(IBAction)tweedleAutoColor: (id) sender
442{
443    [[NSUserDefaults standardUserDefaults] setInteger: [autoColorOption intValue]
444	forKey: TAAutoColor];
445
446
447}
448
449-(IBAction)tweedleCheckCodeDef: (id) sender
450{
451    [[NSUserDefaults standardUserDefaults] setInteger: [checkCodeDef intValue]
452                                               forKey: TACheckCodeDefinition];
453
454
455}
456-(IBAction)tweedleHCLStackSize: (id) sender
457{
458    int n;
459    n = [hclStackSize intValue];
460    if(n <= 2) n = 2;
461    [[NSUserDefaults standardUserDefaults] setInteger: n
462                                               forKey: TAHCLStackSize];
463
464
465}
466-(IBAction)tweedleSaveGraphviz: (id) sender
467{
468    [[NSUserDefaults standardUserDefaults] setInteger: [saveGraphviz intValue]
469                                               forKey: TASaveGraphviz];
470
471
472}
473-(IBAction)tweedleCommentForCode: (id) sender
474{
475    [[NSUserDefaults standardUserDefaults] setInteger: [commentForCodeOption intValue]
476                                               forKey: TACommentForCode];
477
478
479}
480
481-(IBAction)tweedleTimeFormatHHMMSS: (id) sender
482{
483    [[NSUserDefaults standardUserDefaults] setInteger: [timeFormat intValue]
484	forKey: TATimeFormatHHMMSS];
485
486
487}
488-(IBAction)tweedleDefaultUnstruct: (id) sender
489{
490    [[NSUserDefaults standardUserDefaults] setInteger: [defaultUnstructSwitch intValue]
491                                               forKey: TADefaultUnstruct];
492
493
494}
495
496
497-(IBAction)tweedleCodeFromList: (id) sender
498{
499    [[NSUserDefaults standardUserDefaults] setInteger: [codeFromListOption intValue]
500	forKey: TACodeFromList];
501
502
503}
504
505-(IBAction)tweedleRealColor: (id) sender
506{
507    NSData *dd = [NSArchiver archivedDataWithRootObject: [realColorWell color]];
508    [[NSUserDefaults standardUserDefaults] setObject: dd
509                                               forKey: TARealColor];
510    if([self autoColorValue])
511        [[NSNotificationCenter defaultCenter] postNotificationName: @"rootColorChanged" object: self];
512
513
514}
515
516-(IBAction)tweedleMetaColor: (id) sender
517{
518    NSData *dd = [NSArchiver archivedDataWithRootObject: [metaColorWell color]];
519    [[NSUserDefaults standardUserDefaults] setObject: dd
520                                              forKey: TAMetaColor];
521    if([self autoColorValue])
522        [[NSNotificationCenter defaultCenter] postNotificationName: @"rootColorChanged" object: self];
523
524
525}
526
527
528-(IBAction)tweedleDateStamp: (id) sender
529{
530    [[NSUserDefaults standardUserDefaults] setInteger: [dateStamp intValue]
531	forKey: TADateStampKey];
532
533
534}
535-(IBAction)tweedleScanInit: (id) sender
536{
537    [[NSUserDefaults standardUserDefaults] setInteger: [scanInit intValue]
538	forKey: TAScanInit];
539
540
541}
542-(IBAction)tweedleZapUniv: (id) sender
543{
544    [[NSUserDefaults standardUserDefaults] setInteger: [zapUniv intValue]
545	forKey: TAZapUnivAtEOF];
546
547
548}
549
550-(IBAction)tweedleScanForLN: (id) sender
551{
552    [[NSUserDefaults standardUserDefaults] setInteger: [scanForLNOption intValue]
553	forKey: TAScanForLN];
554
555
556}
557
558-(IBAction)tweedleEnableBack: (id) sender
559{
560    [[NSUserDefaults standardUserDefaults] setInteger: [enableBack intValue]
561                                               forKey: TAEnableBack];
562
563
564}
565
566
567-(IBAction)tweedleEscapeBraces: (id) sender
568{
569    [[NSUserDefaults standardUserDefaults] setInteger: [escapeBracesOption intValue]
570	forKey: TAEscapeBraces];
571
572
573}
574-(IBAction)tweedleBatchOpenFiles: (id) sender
575{
576    [[NSUserDefaults standardUserDefaults] setInteger: [batchOpenFiles intValue]
577                                               forKey: TABatchOpenFiles];
578
579
580}
581
582-(IBAction)tweedleBackendRepeat: (id) sender
583{
584    [[NSUserDefaults standardUserDefaults] setInteger: [backendRepeat intValue]
585	forKey: TABackendRepeat];
586
587
588}
589-(IBAction)tweedleNonSimpleRepeat: (id) sender
590{
591    [[NSUserDefaults standardUserDefaults] setInteger: [nonSimpleRepeat intValue]
592	forKey: TANonSimpleRepeat];
593
594
595}
596
597-(IBAction)tweedleGuessUpdate: (id) sender
598{
599    [[NSUserDefaults standardUserDefaults] setInteger: [guessUpdateOption intValue]
600	forKey: TAGuessUpdate];
601
602
603}
604
605
606-(IBAction)tweedlePrompt: (id) sender
607{
608    [[NSUserDefaults standardUserDefaults] setInteger: [prompt intValue]
609	forKey: TAPromptKey];
610}
611-(IBAction)tweedleUseToolTip: (id) sender
612{
613    [[NSUserDefaults standardUserDefaults] setInteger: [useToolTip intValue]
614	forKey: TAUseToolTip];
615}
616-(IBAction)tweedleCountSections: (id) sender
617{
618    [[NSUserDefaults standardUserDefaults] setInteger: [countSections intValue]
619	forKey: TACountSections];
620}
621
622-(IBAction)tweedleUseCoder: (id) sender
623{
624    [[NSUserDefaults standardUserDefaults] setInteger: [useCodeID intValue]
625	forKey: TAUseCoder];
626}
627-(IBAction)tweedleShowCoder: (id) sender
628{
629    [[NSUserDefaults standardUserDefaults] setInteger: [showCoderView intValue]
630	forKey: TAShowCoder];
631}
632
633-(IBAction)tweedleDetachedSheet: (id) sender
634{
635    [[NSUserDefaults standardUserDefaults] setInteger: [detachedSheetSwitch intValue]
636	forKey: TADetachedSheet];
637}
638
639
640- (void)controlTextDidChange:(NSNotification *) aNotification
641{
642    [[NSUserDefaults standardUserDefaults] setObject: [codeID stringValue]
643	forKey: TACoderID];
644    [[NSUserDefaults standardUserDefaults] setInteger: [AVBackspace intValue]
645                                              forKey: TAAVBackspace];
646    [[NSUserDefaults standardUserDefaults] setObject: [AVCode stringValue]
647                                              forKey: TAAVCode];
648
649}
650
651-(IBAction)tweedleEOFIsEnd: (id) sender
652{
653    [[NSUserDefaults standardUserDefaults] setInteger: [EOFIsEndSwitch intValue]
654	forKey: TAEOFIsEnd];
655}
656-(IBAction)tweedleUnichar: (id) sender
657{
658    int v;
659    v = [[charSwitch selectedItem] tag];
660    [[NSUserDefaults standardUserDefaults] setInteger: v
661	forKey: TAUnichar];
662}
663-(IBAction)tweedleTagColor: (id) sender
664{
665    int v;
666    v = [tagColorMenu indexOfSelectedItem];
667    [[NSUserDefaults standardUserDefaults] setInteger: v
668	forKey: TATagColor];
669}
670
671-(IBAction) tweedleCancelAfterRecode: (id) sender
672{
673    [[NSUserDefaults standardUserDefaults] setInteger: [cancelAfterRecode intValue]
674	forKey: TACancelAfterRecode];
675}
676
677-(IBAction) tweedleCancelAfterAddCode: (id) sender
678{
679    [[NSUserDefaults standardUserDefaults] setInteger: [cancelAfterAddCode intValue]
680	forKey: TACancelAfterAddCode];
681}
682-(IBAction) tweedleCodeAV: (id) sender
683{
684    [[NSUserDefaults standardUserDefaults] setInteger: [codeAV intValue]
685                                               forKey: TACodeAV];
686}
687-(IBAction) tweedleAutoBackspace: (id) sender
688{
689    [[NSUserDefaults standardUserDefaults] setInteger: [autoBackspace intValue]
690                                               forKey: TAAutoBackspace];
691}
692
693
694-(IBAction)tweedleUseGV: (id) sender
695{
696    [[NSUserDefaults standardUserDefaults] setInteger: [useGV intValue]
697                                               forKey: TAGUseGV];
698
699
700}
701
702-(IBAction)tweedleGVDir: (id) sender
703{
704    [[NSUserDefaults standardUserDefaults] setObject: [gvDir stringValue]
705                                               forKey: TAGGVDir];
706
707
708}
709
710-(IBAction)tweedleDotDir: (id) sender
711{
712    [[NSUserDefaults standardUserDefaults] setObject: [dotDir stringValue]
713                                               forKey: TAGDotDir];
714
715
716}
717
718
719-(NSArray *) savedState
720{
721    return [[NSUserDefaults standardUserDefaults] objectForKey: TASavedState];
722
723}
724-(NSArray *) savedFileList
725{
726    return [[NSUserDefaults standardUserDefaults] objectForKey: TASavedFileList];
727
728}
729
730-(void) saveState: (NSArray *) state withFiles: (NSArray *) fileList
731{
732     [[NSUserDefaults standardUserDefaults] removeObjectForKey: TASavedState];
733     [[NSUserDefaults standardUserDefaults] setObject: state
734	forKey: TASavedState];
735    if(fileList)
736    {
737	[[NSUserDefaults standardUserDefaults] setObject: fileList
738		forKey: TASavedFileList];
739    }
740    [[NSUserDefaults standardUserDefaults] synchronize];
741
742}
743
744-(IBAction) niceClose: (id) sender
745{
746    [panelWindow performClose: sender];
747}
748@end
749