WDragger::dispose:
		pushi	$359		; 857, stopDragging
		push0
		self	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Obj, $4
		bnot
		ret

WDragger::startDragging:
		link	$2
		pushi	$f4		; 244, curEvent
		push0
		lag	global[$e]
		send	$4
		bnot
		sat	temp[$0]
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push1
		push0
		lat	temp[$0]
		send	$4
		bnot
		sub
		aTop	pOfsX
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lat	temp[$0]
		send	$4
		bnot
		sub
		aTop	pOfsY
		pushi	$5		; scaleY
		pushi	$19		; 25, lsBottom
		push0
		lsp	param[$1]
		pTos	pOfsX
		pTos	pOfsY
		callk	kernel_118, $a
		bnot
		ldi	$1
		aTop	pDragging
		ret

WDragger::stopDragging:
		ldi	$0
		aTop	pDragging
		push2
		pushi	$19		; 25, lsBottom
		push1
		callk	kernel_118, $4
		bnot
		ret

