# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1139412776 -3600
# Node ID f80f9edb6f460acf5627660f739f44165b649f6b
# Parent  6cdc8baf60fe626f6e5652a1b6bc2e1e856a3245
*** empty log message ***

diff -r 6cdc8baf60fe -r f80f9edb6f46 ClassBuilder.st
--- a/ClassBuilder.st	Wed Feb 08 16:16:48 2006 +0100
+++ b/ClassBuilder.st	Wed Feb 08 16:32:56 2006 +0100
@@ -402,8 +402,8 @@
     (oldClass isBehavior and:[oldClass isLoaded]) ifFalse:[
         oldClass := nil.
 
-        (buildingPrivateClass and:[Compiler warnSTXSpecials]) ifTrue:[
-            (self confirm:('support for private classes is an ST/X extension.\\continue ?') withCRs)
+        (buildingPrivateClass and:[ParserFlags warnings and:[ParserFlags warnSTXSpecials]]) ifTrue:[
+            (self confirm:('Support for private classes is an ST/X extension.\\continue ?') withCRs)
             ifFalse:[^ nil].
         ].
     ] ifTrue:[
@@ -2040,5 +2040,5 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.45 2005-04-12 17:16:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.46 2006-02-08 15:32:56 cg Exp $'
 ! !