--- a/Metaclass.st	Fri Sep 07 15:09:25 2001 +0200
+++ b/Metaclass.st	Fri Sep 07 15:10:43 2001 +0200
@@ -529,6 +529,72 @@
     "Modified: / 31.7.1998 / 18:02:00 / cg"
 ! !
 
+!Metaclass methodsFor:'compiler interface'!
+
+browserClass
+    "return the browser to use for this class - 
+     this can be redefined in special classes, to get different browsers"
+
+    ^ UserPreferences current systemBrowserClass.
+
+    "Created: 3.5.1996 / 12:36:40 / cg"
+!
+
+compilerClass
+    "return the compiler to use for this class - 
+     this can be redefined in special classes, to compile classes with
+     Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+
+    ^ Compiler
+!
+
+evaluatorClass
+    "return the compiler to use for expression evaluation for this class - 
+     this can be redefined in special classes, to evaluate expressions with
+     Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+
+    ^ Compiler
+!
+
+formatterClass
+    "return the parser to use for formatting (prettyPrinting) this class - 
+     this can be redefined in special classes, to format classes with
+     Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+
+    ^ Parser
+
+    "Created: / 27.4.1998 / 15:33:34 / cg"
+!
+
+parserClass
+    "return the parser to use for parsing this class - 
+     this can be redefined in special classes, to parse classes with
+     Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+
+    ^ Parser
+
+    "Created: 18.4.1997 / 21:02:41 / cg"
+!
+
+subclassDefinerClass
+    "Answer an evaluator class appropriate for evaluating definitions of new 
+     subclasses of this class."
+
+    ^ self evaluatorClass
+
+
+!
+
+syntaxHighlighterClass
+    "return the class to use for syntaxHighlighting (prettyPrinting) this class - 
+     this can be redefined in special classes, to highlight classes with
+     Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
+
+    ^ SyntaxHighlighter
+
+    "Created: / 27.4.1998 / 15:34:08 / cg"
+! !
+
 !Metaclass methodsFor:'copying'!
 
 postCopy
@@ -2147,6 +2213,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.177 2001-07-20 12:08:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.178 2001-09-07 13:10:43 cg Exp $'
 ! !
 Metaclass initialize!