*** /space/home/jwu/tcl/blend.orig/tclBlend1.2.6/src/tcljava/tcl/lang/InternalRep.java	Tue Aug 22 10:35:03 2000
--- InternalRep.java	Tue Aug 22 10:34:46 2000
***************
*** 32,37 ****
--- 32,39 ----
   * (4) class method set<Type>FromAny() if appropriate
   *
   * (5) class method get() if appropriate
+  *
+  * (6) class method incrRefCount() decrRefCount() if appropriate
   */
  
  abstract public class InternalRep {
***************
*** 75,80 ****
--- 77,130 ----
   */
  
  abstract protected InternalRep duplicate();
+     
+ 
+ /*
+  *----------------------------------------------------------------------
+  *
+  * incrRefCount -- 
+  *
+  *	Makes the internal object increment its reference count. This 
+  *      gives the internal object a chance to implments its own ref
+  *      counting scheme.
+  *
+  * Results:
+  *	None.
+  *
+  * Side effects:
+  *	None.
+  *
+  *----------------------------------------------------------------------
+  */
+ protected void
+ incrRefCount ()
+ {
+     // The default implementation does nothing.
+ }
  
+ 
+ /*
+  *----------------------------------------------------------------------
+  *
+  * decrRefCount -- 
+  *
+  *	Makes the internal object decrement its reference count. This 
+  *      gives the internal object a chance to implments its own ref
+  *      counting scheme.
+  *
+  * Results:
+  *	None.
+  *
+  * Side effects:
+  *	None.
+  *
+  *----------------------------------------------------------------------
+  */
+ protected void
+ decrRefCount ()
+ {
+     // The default implementation does nothing.
+ }
+ 	
  } // end InternalRep