(* Copyright 1992 Digital Equipment Corporation. *)
(* Distributed only by permission. *)
(* Last modified on Mon Oct 26 13:19:20 PST 1992 by mhb *)
(*      modified on Thu Jul 30 21:11:35 PDT 1992 by johnh *)
<* PRAGMA LL *>

INTERFACE ZeusPanelPrivate;

IMPORT View;

VAR (* Hack to stop drifting snapshot/restore *)
  XDRIFT: INTEGER := 0;
  YDRIFT: INTEGER := 24;

PROCEDURE DetachView (view: View.T);
(* Detach the specified view from its ZeusPanel.Session and remove the
   session from view's property list.  If the view was previously attached
   with Zeus.AttachView, this is identical to Zeus.DetachView.  If the view
   wasn't previously attached, then this just deletes the view from the
   session's list of not-yet-attached views.  LL = VBT.mu *)

END ZeusPanelPrivate.