--- a/Scanner.st	Wed Jan 11 16:35:29 2006 +0100
+++ b/Scanner.st	Tue Jan 24 18:51:29 2006 +0100
@@ -2920,16 +2920,12 @@
 !
 
 commentType
-    "return the value of the instance variable 'commentType' (automatically generated)"
-
     ^ commentType
 
     "Created: / 17.2.1998 / 14:44:33 / cg"
 !
 
 commentType:something
-    "set the value of the instance variable 'commentType' (automatically generated)"
-
     commentType := something.
 
     "Created: / 17.2.1998 / 14:44:33 / cg"
@@ -2951,6 +2947,12 @@
     ^ commentString asStringCollection.
 ! !
 
+!Scanner::Comment methodsFor:'queries'!
+
+isEndOfLineComment
+    ^ commentType == #eolComment
+! !
+
 !Scanner::Directive class methodsFor:'instance creation'!
 
 newClassDirective
@@ -2992,7 +2994,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.206 2006-01-09 10:36:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.207 2006-01-24 17:51:29 cg Exp $'
 ! !
 
 Scanner initialize!