examples/STComparator.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 15 Sep 2013 01:44:55 +0100
branchdevelopment
changeset 2731 13f5be2bf83b
parent 2711 a00302fe5083
parent 2678 c865275e48a7
child 3360 1a8899091305
child 3370 0d56a220d44c
permissions -rw-r--r--
Merged d87e89dd5276 and fe83a843a7bf (branch default - CVS HEAD)

"{ Package: 'stx:libjava/examples' }"

Object subclass:#STComparator
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Languages-Java-Examples'
!


!STComparator class methodsFor:'initialization'!

initialize

    self lookupObject: JavaLookup instance

    "Created: / 13-05-2012 / 17:24:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!STComparator methodsFor:'comparing'!

compare: o1 and: o2
    ^ o1 = o2 ifTrue:[ 
        0 
    ] ifFalse: [
        o1 < o2 ifTrue:[
            -1
        ] ifFalse:[
            1
        ]            
    ]

    "
        STComparator new compare: 1 and: 1
    "

    "Created: / 21-08-2012 / 10:44:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!STComparator class methodsFor:'documentation'!

version_CVS
    ^ '$Header: /cvs/stx/stx/libjava/examples/STComparator.st,v 1.3 2013-09-06 00:41:46 vrany Exp $'
!

version_HG

    ^ '$Changeset: <not expanded> $'
!

version_SVN
    ^ '$Id: STComparator.st,v 1.3 2013-09-06 00:41:46 vrany Exp $'
! !


STComparator initialize!