--- parser3/src/classes/classes.C	2001/04/27 16:48:19	1.1.2.1
+++ parser3/src/classes/classes.C	2001/04/28 08:45:15	1.2
@@ -5,20 +5,28 @@
 
 	Author: Alexander Petrosyan <paf@design.ru> (http://design.ru/paf)
 
-	$Id: classes.C,v 1.1.2.1 2001/04/27 16:48:19 paf Exp $
+	$Id: classes.C,v 1.2 2001/04/28 08:45:15 paf Exp $
 */
 
-#include "m_base.h"
+#include "classes.h"
+#include "pa_request.h"
+
+// Methoded
+
+void Methoded::register_directly_used(Request& r) {
+	if(used_directly())
+		r.classes().put(name(), this);
+}
 
 // Methoded_array
 
 // global variable
 
-extern Methoded_array *methoded_array;
+Methoded_array *methoded_array;
 
 // methods
 
-Methoded_array::Methoded_array(Pool& pool) : Array(pool) {
+Methoded_array::Methoded_array(Pool& apool) : Array(apool) {
 #	include "classes.inc"
 }
 
@@ -47,4 +55,3 @@ void Methoded_array::register_directly_u
 void init_methoded_array(Pool& pool) {
 	methoded_array=new(pool) Methoded_array(pool);
 }
-