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