embutils/src/EmbProxiedObj.m3


                            -*- Mode: Modula-3 -*- 
 * 
 * For information about this program, contact Blair MacIntyre            
 * (bm@cs.columbia.edu) or Steven Feiner (feiner@cs.columbia.edu)         
 * at the Computer Science Dept., Columbia University,                    
 * 1214 Amsterdam Ave. Mailstop 0401, New York, NY, 10027.                
 *                                                                        
 * Copyright (C) 1995, 1996 by The Trustees of Columbia University in the 
 * City of New York.  Blair MacIntyre, Computer Science Department.       
 * See file COPYRIGHT-COLUMBIA for details.
 * 
 * Author          : Blair MacIntyre
 * Created On      : Mon Jan 26 12:07:04 1998
 * Last Modified By: Blair MacIntyre
 * Last Modified On: Wed Apr  8 17:40:13 1998
 * Update Count    : 4
 * 
 * $Source: /opt/cvs/cm3/doc/help/gen_html/embutils/src/EmbProxiedObj.m3.html,v $
 * $Date: 2010-04-29 17:18:12 $
 * $Author: wagner $
 * $Revision: 1.5 $
 * 
 * $Log: not supported by cvs2svn $
 * Revision 1.4.2.1  2010-04-15 20:58:49  wagner
 * update generated HTML doc to RC5
 *
 * Revision 1.2  2001/12/02 00:06:28  wagner
 * add copyright notes and fix overrides for cm3
 *
 * added: embutils/src/COPYRIGHT-COLUMBIA
 * modified: embutils/src/EmbProxiedObj.m3
 * modified: embutils/src/m3makefile
 * modified: embutils/src/m3overrides
 *
 * Revision 1.1.1.1  2001/12/01 23:53:22  wagner
 * Blair MacIntyre's embutils library
 *
 * Revision 1.1  1998/05/13 17:28:21  bm
 * new file
 *
 * 
 * HISTORY
 

MODULE EmbProxiedObj;

REVEAL
  Proxy = PublicProxy BRANDED "EmbProxiedObj v1.0" OBJECT OVERRIDES
    init := Init;
    changeProxy := ChangeProxy;
  END;

PROCEDURE Init (self: Proxy; obj: REFANY): Proxy =
  BEGIN
    self.obj := obj;
    RETURN self;
  END Init;

PROCEDURE ChangeProxy (self: Proxy; obj: REFANY) =
  BEGIN
    self.obj := obj;
  END ChangeProxy;

BEGIN
END EmbProxiedObj.