home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Sample Code / Newton Sample Code 1.1 / Application Design / GoodForm-1 / Project Data < prev    next >
Encoding:
Text File  |  1994-03-09  |  1.3 KB  |  50 lines  |  [TEXT/ttxt]
  1. // Copyright © 1993,4 Apple Computer, Inc. All rights reserved
  2. //Project Data for GoodForm
  3.  
  4. // application based constants
  5. constant kAppSymbol := '|GoodForm:PIEDTS|;
  6. constant kAppName := "GoodForm";
  7. constant kPackageName := "GoodForm:PIEDTS";
  8. constant kAppObject := '["Datum","Data"];
  9. constant kAppAll:= "All Data";
  10.  
  11. // soup based constants
  12. constant kSoupName := kPackageName;
  13. constant kSoupIndexes := '[];
  14.  
  15. // a default soup entry
  16. DefConst('kDefaultEntry, {text: "", labels: nil}); 
  17.  
  18.  
  19. // GetAppParams constants
  20. constant kMaxApplicationWidth:= 250;
  21. constant kMaxApplicationHeight:= 336;
  22.  
  23. // Install and RemoveScripts
  24.  
  25. InstallScript := func(partFrame)
  26. begin
  27.    // register support for routing
  28.     GetGlobals().routing.(kAppSymbol) := partFrame.theForm.entryRoutingFrame;
  29.     
  30.     // Register global find support
  31.     AddArraySlot(findApps, kAppSymbol);
  32.    
  33.     // register filing support
  34.     AddArraySlot(soupNotify, kSoupName);
  35.     AddArraySlot(soupNotify, kAppSymbol);
  36. end;
  37.  
  38.  
  39. RemoveScript := func(packageFrame)
  40. begin
  41.     // Unregister global find support
  42.     SetRemove(findApps, kAppSymbol);
  43.    
  44.     // un-register filing support
  45.     local soupNotifyPos:= ArrayPos(soupNotify, kAppSymbol, 0, nil);
  46.     ArrayRemoveCount(soupNotify, soupNotifyPos - 1, 2);
  47.     
  48.     // un-register routing support
  49.     RemoveSlot(GetGlobals().routing, kAppSymbol);
  50. end;