(* Copyright 1992 Digital Equipment Corporation.               *)
(* Distributed only by permission.                             *)
(* Last modified on Thu Aug 20 19:14:02 PDT 1992 by johnh  *)
(*      modified on Tue May 12 04:35:49 1992 by mhb        *)

MODULE ZeusClass;

IMPORT List, Wr;
IMPORT ReactivityVBT;

REVEAL
   Private = ReactivityVBT.T BRANDED OBJECT END;

REVEAL
  T = Public BRANDED OBJECT
      OVERRIDES
        install    := DefaultInstall;
        delete     := DefaultDelete;
        snapshot   := DefaultSnapshot;
        restore    := DefaultRestore;
        config     := DefaultConfig;
        reactivity := DefaultReactivity;
      END;


PROCEDURE DefaultInstall (<*UNUSED*> v: T) = 
  BEGIN
  END DefaultInstall;

PROCEDURE DefaultDelete (<*UNUSED*> v: T) = 
  BEGIN
  END DefaultDelete;

PROCEDURE DefaultSnapshot (<*UNUSED*> v: T; <*UNUSED*> wr: Wr.T)
  RAISES {Error} =
  BEGIN
  END DefaultSnapshot;

PROCEDURE DefaultRestore (<*UNUSED*> v: T; <*UNUSED*> list: List.T)
  RAISES {Error} =
  BEGIN
  END DefaultRestore;

PROCEDURE DefaultConfig (<*UNUSED*> v: T; 
                         <*UNUSED*> state: StateChange; 
                         <*UNUSED*> object: T) =
  BEGIN
  END DefaultConfig;

PROCEDURE DefaultReactivity (<*UNUSED*> v: T; <*UNUSED*> on: BOOLEAN) = 
  BEGIN
  END DefaultReactivity;

BEGIN
END ZeusClass.