examples/STComparator.st
branchdevelopment
changeset 2711 a00302fe5083
parent 2429 ebece4dcaab9
child 2731 13f5be2bf83b
equal deleted inserted replaced
2710:78c4f4a03914 2711:a00302fe5083
     6 	poolDictionaries:''
     6 	poolDictionaries:''
     7 	category:'Languages-Java-Examples'
     7 	category:'Languages-Java-Examples'
     8 !
     8 !
     9 
     9 
    10 
    10 
    11 
       
    12 !STComparator class methodsFor:'initialization'!
    11 !STComparator class methodsFor:'initialization'!
    13 
    12 
    14 initialize
    13 initialize
    15 
    14 
    16     self lookupObject: JavaLookup instance
    15     self lookupObject: JavaLookup instance
    17 
    16 
    18     "Created: / 13-05-2012 / 17:24:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    17     "Created: / 13-05-2012 / 17:24:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    19 ! !
    18 ! !
    20 
       
    21 
    19 
    22 !STComparator methodsFor:'comparing'!
    20 !STComparator methodsFor:'comparing'!
    23 
    21 
    24 compare: o1 and: o2
    22 compare: o1 and: o2
    25     ^ o1 = o2 ifTrue:[ 
    23     ^ o1 = o2 ifTrue:[ 
    37     "
    35     "
    38 
    36 
    39     "Created: / 21-08-2012 / 10:44:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    37     "Created: / 21-08-2012 / 10:44:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    40 ! !
    38 ! !
    41 
    39 
    42 
       
    43 !STComparator class methodsFor:'documentation'!
    40 !STComparator class methodsFor:'documentation'!
    44 
    41 
    45 version_CVS
    42 version_CVS
    46     ^ '$Header: /cvs/stx/stx/libjava/examples/STComparator.st,v 1.2 2013-02-25 11:15:32 vrany Exp $'
    43     ^ '$Header$'
    47 !
    44 !
    48 
    45 
    49 version_HG
    46 version_HG
    50 
    47 
    51     ^ '$Changeset: <not expanded> $'
    48     ^ '$Changeset: <not expanded> $'