"{ Package: 'stx:libwidg2' }"

ButtonController subclass:#LinkButtonController
	instanceVariableNames:'lastX lastY'
	classVariableNames:''
	poolDictionaries:''
	category:'Interface-Support-Controllers'
!


!LinkButtonController methodsFor:'accessing'!

lastMousePoint
    ^ lastX @ lastY
! !

!LinkButtonController methodsFor:'event handling'!

buttonMotion:buttonState x:x y:y
    lastX := x.
    lastY := y.
    super buttonMotion:buttonState x:x y:y.
!

buttonPress:button x:x y:y
    lastX := x.
    lastY := y.
    super buttonPress:button x:x y:y.
!

buttonRelease:button x:x y:y
    lastX := x.
    lastY := y.
    super buttonRelease:button x:x y:y.
! !

!LinkButtonController class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libwidg2/LinkButtonController.st,v 1.2 2009-03-09 13:34:48 cg Exp $'
! !