--- parser3/src/include/Attic/pa_value.h	2001/02/25 14:47:12	1.32
+++ parser3/src/include/Attic/pa_value.h	2001/03/06 12:22:57	1.37
@@ -1,5 +1,5 @@
 /*
-  $Id: pa_value.h,v 1.32 2001/02/25 14:47:12 paf Exp $
+  $Id: pa_value.h,v 1.37 2001/03/06 12:22:57 paf Exp $
 */
 
 /*
@@ -21,6 +21,7 @@ class VClass;
 //class VOperator;
 class Junction;
 class WContext;
+class VAliased;
 
 class Method : public Pooled {
 public:
@@ -56,14 +57,14 @@ public:
 
 	Junction(Pool& apool,
 		Value& aself,
-		Method *amethod,
+		VClass *avclass, Method *amethod,
 		Value *aroot,
 		Value *arcontext,
 		WContext *awcontext,
 		const Array *acode) : Pooled(apool),
 		
 		self(aself),
-		method(amethod),
+		vclass(avclass), method(amethod),
 		root(aroot),
 		rcontext(arcontext),
 		wcontext(awcontext),
@@ -71,7 +72,7 @@ public:
 	}
 
 	Value& self;
-	Method *method;
+	VClass *vclass;  Method *method;
 	Value *root;
 	Value *rcontext;
 	WContext *wcontext;
@@ -93,6 +94,10 @@ public: // Value
 	// string: value
 	virtual void put_string(String *astring) { failed("storing string to '%s'"); }
 
+	// string: value
+	// double: value
+	virtual double get_double() { failed("getting numerical value of '%s'"); return 0; }
+
 	// junction: auto_calc,root,self,rcontext,wcontext, code
 	virtual Junction *get_junction() { return 0; }
 
@@ -115,6 +120,11 @@ public: // Value
 	// wcontext: none yet | transparent
 	virtual VClass *get_class() { return 0; }
 
+	// valiased: this
+	// wcontext: transparent
+	// methodframe: self_transparent
+	virtual VAliased *get_aliased() { return 0; }
+
 public: // usage
 
 	Value(Pool& apool) : Pooled(apool), fname(new(apool) String(apool)) {