--- a/Text.st Wed Jan 24 15:17:50 2001 +0100
+++ b/Text.st Thu Jan 25 15:32:31 2001 +0100
@@ -14,10 +14,10 @@
"{ Package: 'stx:libbasic2' }"
CharacterArray subclass:#Text
- instanceVariableNames:'string runs'
- classVariableNames:''
- poolDictionaries:''
- category:'Collections-Text'
+ instanceVariableNames:'string runs'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Collections-Text'
!
!Text class methodsFor:'documentation'!
@@ -446,7 +446,7 @@
e1 == e2 ifTrue:[^ nil].
e2 isSymbol ifTrue:[
- e1 isSymbol ifTrue:[^ nil].
+ e1 isSymbol ifTrue:[^ e2].
e1 isAssociation ifTrue:[
e1 key == e2 ifTrue:[^ nil].
^ e2
@@ -514,7 +514,8 @@
Text removeEmphasis:#color from:(Array with:#bold with:#underline with:#color->Color red)
"
- "Modified: 14.5.1996 / 17:23:46 / cg"
+ "Modified: / 14.5.1996 / 17:23:46 / cg"
+ "Modified: / 25.1.2001 / 15:24:46 / ps"
! !
!Text methodsFor:'accessing'!
@@ -766,7 +767,7 @@
font := savedFont
]
].
- font := font onDevice:device.
+ font := font onDevice:device.
aGC basicFont:font.
reverse ifTrue:[
aGC paint:bgPaint on:color
@@ -1330,6 +1331,6 @@
!Text class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.70 2000-12-19 16:19:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.71 2001-01-25 14:32:31 ps Exp $'
! !
Text initialize!