--- a/TextColl.st	Sat Jun 20 19:42:23 1998 +0200
+++ b/TextColl.st	Sat Jun 20 20:25:06 1998 +0200
@@ -234,7 +234,7 @@
         self installDelayedUpdate
     ]
 
-    "Modified: / 11.6.1998 / 10:39:02 / cg"
+    "Modified: / 20.6.1998 / 20:24:09 / cg"
 !
 
 lineLimit:aNumber
@@ -528,6 +528,13 @@
     currentEmphasis := nil
 !
 
+reverse
+    currentEmphasis := Array with:#color->bgColor
+                             with:#backgroundColor->fgColor.
+
+    "Created: / 20.6.1998 / 20:10:45 / cg"
+!
+
 show:anObject
     "insert the argument aString at current cursor position"
 
@@ -611,5 +618,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.48 1998-06-11 08:54:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.49 1998-06-20 18:25:06 cg Exp $'
 ! !

--- a/TextCollector.st	Sat Jun 20 19:42:23 1998 +0200
+++ b/TextCollector.st	Sat Jun 20 20:25:06 1998 +0200
@@ -234,7 +234,7 @@
         self installDelayedUpdate
     ]
 
-    "Modified: / 11.6.1998 / 10:39:02 / cg"
+    "Modified: / 20.6.1998 / 20:24:09 / cg"
 !
 
 lineLimit:aNumber
@@ -528,6 +528,13 @@
     currentEmphasis := nil
 !
 
+reverse
+    currentEmphasis := Array with:#color->bgColor
+                             with:#backgroundColor->fgColor.
+
+    "Created: / 20.6.1998 / 20:10:45 / cg"
+!
+
 show:anObject
     "insert the argument aString at current cursor position"
 
@@ -611,5 +618,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.48 1998-06-11 08:54:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.49 1998-06-20 18:25:06 cg Exp $'
 ! !