/*
**      Newton Developer Technical Support Sample Code
**
**      Checkbook, a complete NewtApp sample
**
**      by Neil Rhodes, Calliope &
**		  Newton Developer Technical Support
**
**      Copyright © 1994-7 by Apple Computer, Inc.  All rights reserved.
**
**      You may incorporate this sample code into your applications without
**      restriction.  This sample code has been provided "AS IS" and the
**      responsibility for its operation is 100% yours.  You are not
**      permitted to modify and redistribute the source as "DTS Sample Code."
**      If you are going to re-distribute the source, we require that you
**      make it clear in the source that the code was descended from
**      Apple-provided sample code, but that you've made changes.
*/

InstallScript := func(partFrame)
begin
	local mainLayout := partFrame.theForm;
	
	// A work around until NewtInstallScript correctly handles Ensuring internal 
	// the symbol, see Q&A: How to Avoid NewtApp "Please insert the card" (5/10/96)
	// for more details
	if mainLayout.allViewDefs then
		foreach dataDefSym,viewDefsFrame in mainLayout.allViewDefs do
			foreach viewDef in viewDefsFrame do
			RegisterViewDef( viewDef, EnsureInternal (dataDefSym) );

	partFrame.removeFrame := mainLayout:NewtInstallScript(mainLayout);
end;

RemoveScript := func(partFrame)
begin
	(partFrame.removeFrame):NewtRemoveScript(partFrame.removeFrame);
end;