;
;	File:			PuppetString.MacPaint.a
;
;	Contains:		Puppet string conversion table custumized for MacPaint
;
;	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 event sequences specifically
;	for MacPaint.  MacPaint is identified as having a creator equal to 'MPNT'.  The basic
;	instructions are handled by the default table defined in PuppetString.Default.a.
;
;--------------------------------------------------------------------

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

TableTop				
NumberOfEntries		DC.B	(EntriesBottom-EntriesTop)/6,0
EntriesTop
ResetEntry			DC.W	pstEventList		;Click in paint rectangle
					DC.L	RstEvtList-TableTop
CutEntry			DC.W	pstMenuItem
					DC.W	3,3
CopyEntry			DC.W	pstMenuItem
					DC.W	3,4
PasteEntry			DC.W	pstMenuItem
					DC.W	3,5
SelectRectEntry		DC.W	pstEventList
					DC.L	SREvtList-TableTop
SelectAllEntry		DC.W	pstEventList
					DC.L	SAEvtList-TableTop
MemCopyEntry		DC.W	pstIllegalInstr
					DC.L	0
OutlineRectEntry	DC.W	pstEventList
					DC.L	OREvtList-TableTop
EntriesBottom
RstEvtList
RstParamCount		DC.W	0
RstEvtListOffset	DC.L	6
RstEvtListCount		DC.W	(RstEvtListBottom-RstEvt1)/evtBlkSize
RstEvt1
RstEvt1what			DC.W	mButDwnEvt+evtMouseGlobal+evtIsImportant
RstEvt1message		DC.L	0
RstEvt1when			DC.L	0
RstEvt1where		DC.W	$69,$1D
RstEvt1modifiers	DC.W	0
RstEvt2
RstEvt2what			DC.W	mButUpEvt+evtMouseGlobal+evtIsUnimportant
RstEvt2message		DC.L	0
RstEvt2when			DC.L	0
RstEvt2where		DC.W	$69,$1D
RstEvt2modifiers	DC.W	$80
RstEvtListBottom

SREvtList
SRParamCount		DC.W	(SREvtListOffset-SRParams)/6
SRParams
SRParam1			DC.L	SRParam1LocStart-TableTop
					DC.W	SRParam1LocEnd-SRParam1LocStart
SRParam2			DC.L	SRParam2LocStart-TableTop
					DC.W	SRParam2LocEnd-SRParam2LocStart
SREvtListOffset		DC.L	6
SREvtListCount		DC.W	(SREvtListBottom-SREvt1)/evtBlkSize
SREvt1
SREvt1what			DC.W	mButDwnEvt+evtMouseGlobal+evtIsImportant
SREvt1message		DC.L	0
SREvt1when			DC.L	0
SREvt1where			DC.W	$29,$37
SREvt1modifiers		DC.W	0
SREvt2
SREvt2what			DC.W	mButUpEvt+evtMouseGlobal+evtIsUnimportant
SREvt2message		DC.L	0
SREvt2when			DC.L	0
SREvt2where			DC.W	$29,$37
SREvt2modifiers		DC.W	$80
SREvt3
SREvt3what			DC.W	mButDwnEvt+evtMouseEither+evtIsImportant
SREvt3message		DC.L	0
SREvt3when			DC.L	0
SRParam1LocStart
SREvt3where			DC.W	0,0
SRParam1LocEnd
SREvt3modifiers		DC.W	0
SREvt4
SREvt4what			DC.W	mButUpEvt+evtMouseEither+evtIsUnimportant
SREvt4message		DC.L	0
SREvt4when			DC.L	0
SRParam2LocStart
SREvt4where			DC.W	0,0
SRParam2LocEnd
SREvt4modifiers		DC.W	$80
SREvtListBottom

SAEvtList
SAParamCount		DC.W	0
SAEvtListOffset		DC.L	6
SAEvtListCount		DC.W	(SAEvtListBottom-SAEvt1)/evtBlkSize
SAEvt1
SAEvt1what			DC.W	mButDwnEvt+evtMouseGlobal+evtIsImportant
SAEvt1message		DC.L	0
SAEvt1when			DC.L	0
SAEvt1where			DC.W	$29,$37
SAEvt1modifiers		DC.W	0
SAEvt2
SAEvt2what			DC.W	mButUpEvt+evtMouseGlobal+evtIsUnimportant
SAEvt2message		DC.L	0
SAEvt2when			DC.L	0
SAEvt2where			DC.W	$29,$37
SAEvt2modifiers		DC.W	$80
SAEvt3
SAEvt3what			DC.W	mButDwnEvt+evtMouseGlobal+evtIsImportant
SAEvt3message		DC.L	0
SAEvt3when			DC.L	0
SAEvt3where			DC.W	$29,$37
SAEvt3modifiers		DC.W	0
SAEvt4
SAEvt4what			DC.W	mButUpEvt+evtMouseGlobal+evtIsUnimportant
SAEvt4message		DC.L	0
SAEvt4when			DC.L	0
SAEvt4where			DC.W	$29,$37
SAEvt4modifiers		DC.W	$80
SAEvtListBottom
OREvtList
ORParamCount		DC.W	(OREvtListOffset-ORParams)/6
ORParams
ORParam1			DC.L	ORParam1LocStart-TableTop
					DC.W	ORParam1LocEnd-ORParam1LocStart
ORParam2			DC.L	ORParam2LocStart-TableTop
					DC.W	ORParam2LocEnd-ORParam2LocStart
OREvtListOffset		DC.L	6
OREvtListCount		DC.W	(OREvtListBottom-OREvt1)/evtBlkSize
OREvt1
OREvt1what			DC.W	mButDwnEvt+evtMouseGlobal+evtIsImportant
OREvt1message		DC.L	0
OREvt1when			DC.L	0
OREvt1where			DC.W	280,28
OREvt1modifiers		DC.W	0
OREvt2
OREvt2what			DC.W	mButUpEvt+evtMouseGlobal+evtIsUnimportant
OREvt2message		DC.L	0
OREvt2when			DC.L	0
OREvt2where			DC.W	280,28
OREvt2modifiers		DC.W	$80
OREvt3
OREvt3what			DC.W	mButDwnEvt+evtMouseGlobal+evtIsImportant
OREvt3message		DC.L	0
OREvt3when			DC.L	0
OREvt3where			DC.W	150,29
OREvt3modifiers		DC.W	0
OREvt4
OREvt4what			DC.W	mButUpEvt+evtMouseGlobal+evtIsUnimportant
OREvt4message		DC.L	0
OREvt4when			DC.L	0
OREvt4where			DC.W	150,29
OREvt4modifiers		DC.W	$80
OREvt5
OREvt5what			DC.W	mButDwnEvt+evtMouseEither+evtIsImportant
OREvt5message		DC.L	0
OREvt5when			DC.L	0
ORParam1LocStart
OREvt5where			DC.W	0,0
ORParam1LocEnd
OREvt5modifiers		DC.W	0
OREvt6
OREvt6what			DC.W	mButUpEvt+evtMouseEither+evtIsUnimportant
OREvt6message		DC.L	0
OREvt6when			DC.L	0
ORParam2LocStart
OREvt6where			DC.W	0,0
ORParam2LocEnd
OREvt6modifiers		DC.W	$80
OREvtListBottom

					END