paneman/src/Starter.m3


 Copyright (c) 2000 California Institute of Technology 
 All rights reserved. See the file COPYRIGHT for a full description. 
 $Id: Starter.m3.html,v 1.3 2010-04-29 17:19:46 wagner Exp $ 

MODULE Starter;
REVEAL
  T = Public BRANDED OBJECT
  OVERRIDES
    init := Init;
  END;

PROCEDURE Init(self: T; name, ext: TEXT; key: CHAR): T =
  BEGIN
    self.name := name;
    self.ext := ext;
    self.key := key;
    RETURN self;
  END Init;

PROCEDURE Equal(a,b:T):BOOLEAN=BEGIN RETURN a=b;END Equal;
BEGIN
END Starter.