; ------------------------------------------------------------------------
;     Activate a gadget.  A0 = Gadget
; ------------------------------------------------------------------------

ActivateGadget:
	move.l	IntBase(pc),a6
	move.l	WindowHd(pc),a1
	sub.l	a2,a2
	CallLib	ActivateGadget
	rts