--- a/ListEntry.st	Sat Oct 20 11:32:19 2018 +0200
+++ b/ListEntry.st	Sat Oct 27 10:15:43 2018 +0200
@@ -109,6 +109,15 @@
 
 !ListEntry methodsFor:'queries'!
 
+hasChangeOfEmphasis
+    "return true, if the receiver contains non-empty emphasis information
+     i.e. any non-normal (=emphasized) characters"
+
+    ^ false
+
+    "Created: / 27-10-2018 / 09:51:45 / Claus Gittinger"
+!
+
 hasIcon
     ^ false
 !
@@ -199,6 +208,13 @@
 
     "Created: / 8.2.1996 / 12:56:06 / cg"
     "Modified: / 30.10.1997 / 15:42:06 / cg"
+!
+
+withoutAnyColorEmphasis
+    "/ to be redefined in subclasses
+    ^ self.
+
+    "Created: / 27-10-2018 / 10:09:14 / Claus Gittinger"
 ! !
 
 !ListEntry::SeparatingLineEntry class methodsFor:'documentation'!