home *** CD-ROM | disk | FTP | other *** search
/ Apple WWDC 1996 / WWDC96_1996 (CD).toast / Technology Materials / Newton Platform Info / Newton 2.0 Sample Code / NewtApp / Checkbook-6 / Install&Remove Scripts < prev    next >
Encoding:
Text File  |  1995-11-27  |  1.0 KB  |  30 lines  |  [TEXT/NTP1]
  1. /*
  2. **      Newton Developer Technical Support Sample Code
  3. **
  4. **      Checkbook, a complete NewtApp sample
  5. **
  6. **      by Neil Rhodes, Calliope &
  7. **          Newton Developer Technical Support
  8. **
  9. **      Copyright © 1994-5 by Apple Computer, Inc.  All rights reserved.
  10. **
  11. **      You may incorporate this sample code into your applications without
  12. **      restriction.  This sample code has been provided "AS IS" and the
  13. **      responsibility for its operation is 100% yours.  You are not
  14. **      permitted to modify and redistribute the source as "DTS Sample Code."
  15. **      If you are going to re-distribute the source, we require that you
  16. **      make it clear in the source that the code was descended from
  17. **      Apple-provided sample code, but that you've made changes.
  18. */
  19.  
  20. InstallScript := func(partFrame)
  21. begin
  22.     local mainLayout := partFrame.theForm;
  23.     
  24.     partFrame.removeFrame := mainLayout:NewtInstallScript(mainLayout);
  25. end;
  26.  
  27. RemoveScript := func(partFrame)
  28. begin
  29.     (partFrame.removeFrame):NewtRemoveScript(partFrame.removeFrame);
  30. end;