"{ Package: 'jv:smallsense' }"

Object subclass:#SmallSensePosition

	instanceVariableNames:'node position position1'

	classVariableNames:''

	poolDictionaries:''

	category:'SmallSense-Core'

!

!SmallSensePosition class methodsFor:'instance creation'!

node: node position: position

    ^self new node: node position: position

    "Created: / 26-11-2011 / 16:22:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSensePosition methodsFor:'accessing'!

node

    ^ node

!

position

    ^ position

! !

!SmallSensePosition methodsFor:'initialization'!

node:nd position: pos

    node := nd.

    position := pos.

    position1 := pos - 1

    "Created: / 26-11-2011 / 16:22:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSensePosition methodsFor:'queries'!

afterNode

    ^node endPosition < position1

    "Created: / 26-11-2011 / 16:24:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

beforeNode

    ^position < node startPosition

    "Created: / 26-11-2011 / 16:24:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

inNode

    ^position1 between: node startPosition and: node endPosition

    "Created: / 26-11-2011 / 16:24:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmallSensePosition class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

!

version_SVN

    ^ '$Id: SmallSensePosition.st 7823 2011-11-26 16:55:59Z vranyj1 $'

! !