;
;	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