sys7.1-doc-wip/ProcessMgr/PuppetString.MacPaint.a

190 lines
5.0 KiB
Plaintext
Raw Normal View History

2019-07-27 14:37:48 +00:00
;
; 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