;
;	File:			PuppetString.Default.a
;
;	Contains:		Default puppet string conversion table.
;
;	Written by:		Phil Goldman
;
;	Copyright:		© 1986-1991 by Apple Computer, Inc., all rights reserved.
;
;	Change History (most recent first):
;
;		 <0>	 x/xx/86	PYG		New Today.
;
;--------------------------------------------------------------------

;--------------------------------------------------------------------
;
;	This table is used to convert puppet instructions to an event sequence for the target
;	process.  Any application can define its own custom table (placed in an application
;	file resource with the type equal to the creator of the application file, and an ID
;	of 127).  If that does not exist, we look for a table that *we* have customized for
;	the app (type equal to application file creator, ID of -16458).  If that does not
;	exist, we use the table we defined here (resource type 'TWIT', ID -16458).
;
;--------------------------------------------------------------------

					PRINT	OFF
					LOAD	'ProcessMgrIncludes.D'
					INCLUDE	'PuppetStringDefs.a'
					PRINT	ON
					
					FUNC
					BLANKS	ON
					STRING	ASIS

TableTop				
NumberOfEntries		DC.B	(EntriesBottom-EntriesTop)/6,0
EntriesTop
ResetEntry			DC.W	pstNullInstr
					DC.L	0
CutEntry			DC.W	pstIllegalInstr
					DC.L	0
CopyEntry			DC.W	pstIllegalInstr
					DC.L	0
PasteEntry			DC.W	pstIllegalInstr
					DC.L	0
SelectRectEntry		DC.W	pstIllegalInstr
					DC.L	0
SelectAllEntry		DC.W	pstIllegalInstr
					DC.L	0
MemCopyEntry		DC.W	pstIllegalInstr
					DC.L	0
OutlineRectEntry	DC.W	pstIllegalInstr
					DC.L	0
Private1Entry		DC.W	pstIllegalInstr
					DC.L	0
QuitEntry			DC.W	pstMenuString
					DC.W	strIDQuitMenu, strIDQuitItem
OpenEntry			DC.W	pstMenuString
					DC.W	strIDOpenMenu, strIDOpenItem
CancelEntry			DC.W	pstImplementCode
					DC.L	CancelImplCode-TableTop
EntriesBottom

CancelImplCode
					_CancelSwitch				; Cancel the switch
					move.l	(sp)+,a0			; Get ret addr
					addq.w	#4,sp				; get rid of param
					move.w	#1,(sp)				; non-0 retval signals success
					jmp		(a0)				; and return

					END