--- a/Scanner.st	Wed Jun 15 13:30:54 2005 +0200
+++ b/Scanner.st	Wed Jun 15 13:31:20 2005 +0200
@@ -2917,6 +2917,12 @@
     ^ ClassHintDirective new
 ! !
 
+!Scanner::Directive methodsFor:'queries'!
+
+isClassHintDirective
+    ^ false
+! !
+
 !Scanner::Directive::ClassDirective methodsFor:'accessing'!
 
 className
@@ -2927,6 +2933,12 @@
     className := something.
 ! !
 
+!Scanner::Directive::ClassHintDirective methodsFor:'queries'!
+
+isClassHintDirective
+    ^ true
+! !
+
 !Scanner::DoNotShowCompilerWarningAgainActionQuery class methodsFor:'queries'!
 
 actionQuery
@@ -2936,7 +2948,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.200 2005-06-15 10:42:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.201 2005-06-15 11:31:20 cg Exp $'
 ! !
 
 Scanner initialize!

--- a/Variable.st	Wed Jun 15 13:30:54 2005 +0200
+++ b/Variable.st	Wed Jun 15 13:31:20 2005 +0200
@@ -13,7 +13,7 @@
 "{ Package: 'stx:libcomp' }"
 
 Object subclass:#Variable
-	instanceVariableNames:'value name used type domain'
+	instanceVariableNames:'value name used type domain classHint'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Compiler-Support'
@@ -58,6 +58,14 @@
 
 !Variable methodsFor:'accessing'!
 
+classHint
+    ^ classHint
+!
+
+classHint:something
+    classHint := something.
+!
+
 name
     "return the name of the variable"
 
@@ -153,5 +161,5 @@
 !Variable class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.19 2003-10-07 13:38:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.20 2005-06-15 11:31:10 cg Exp $'
 ! !