--- a/ListEntry.st Wed Dec 21 18:49:34 2016 +0100
+++ b/ListEntry.st Tue Jan 03 15:04:04 2017 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libwidg2' }"
+"{ NameSpace: Smalltalk }"
+
Object subclass:#ListEntry
instanceVariableNames:''
classVariableNames:''
@@ -50,6 +52,29 @@
"
! !
+!ListEntry methodsFor:'comparing'!
+
+< aString
+ "behave like a string when comparing"
+
+ ^ self asString < aString asString
+
+ "Created: 8.2.1996 / 12:01:29 / cg"
+!
+
+= aString
+ "behave like a string when comparing"
+
+ self == aString ifTrue:[^ true].
+ ^ self asString = aString asString
+!
+
+hash
+ "return an integer useful for hashing"
+
+ ^ self asString hash
+! !
+
!ListEntry methodsFor:'printing & storing'!
printOn:aStream
@@ -141,21 +166,6 @@
!ListEntry methodsFor:'string protocol'!
-< aString
- "behave like a string when comparing"
-
- ^ self asString < aString asString
-
- "Created: 8.2.1996 / 12:01:29 / cg"
-!
-
-= aString
- "behave like a string when comparing"
-
- self == aString ifTrue:[^ true].
- ^ self asString = aString asString
-!
-
at:index
"behave like a string when accessing characters"
@@ -172,20 +182,15 @@
"Created: / 8.2.1996 / 12:56:06 / cg"
"Modified: / 30.10.1997 / 15:42:06 / cg"
-!
-
-hash
- "return an integer useful for hashing"
-
- ^ self asString hash
! !
!ListEntry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.20 2009-10-16 09:11:08 cg Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/ListEntry.st,v 1.20 2009-10-16 09:11:08 cg Exp $'
+ ^ '$Header$'
! !
+