mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-11-19 06:30:59 +00:00
31 lines
1.3 KiB
Plaintext
31 lines
1.3 KiB
Plaintext
;
|
|
; File: PaletteMgrPatches.a
|
|
;
|
|
; Contains: linked patches to/for the Palette Mgr.
|
|
;
|
|
; Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <1> 9/23/90 dba Created today. Currently the only patch here is a classic QD
|
|
; version of ActivatePalette that reduces overhead in checking for
|
|
; color QD in other patches.
|
|
;
|
|
|
|
load 'StandardEqu.d'
|
|
include 'LinkedPatchMacros.a'
|
|
|
|
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
; ActivatePalette — simple implementation for Classic QD machines
|
|
|
|
ClassicQDActivatePalette PatchProc _ActivatePalette,(Plus,SE,Portable)
|
|
|
|
move.l (sp)+,(sp) ; get rid of window parameter
|
|
rts ; return
|
|
|
|
EndProc
|
|
|
|
;————————————————————————————————————————————————————————————————————————————————————————————————————
|
|
|
|
End
|