TYPE
      ViewHook = POINTER TO RECORD (Views.ViewHook)
         prev: Views.ViewHook;
         tiled: BOOLEAN   (* whether tiling is on or off *)
      END;
…
   PROCEDURE (h: ViewHook) OldView+ (loc: Files.Locator; VAR name: Files.Name;
                                                   VAR conv: Converters.Converter): Views.View;
   BEGIN RETURN h.prev.OldView(loc, @name, @conv)
   END OldView;

   PROCEDURE (h: ViewHook) RegisterView+ (s: Views.View; loc: Files.Locator; name: Files.Name;
                                                         conv: Converters.Converter);
   BEGIN h.prev.RegisterView(s, loc, name, conv)
   END RegisterView;

   PROCEDURE (h: ViewHook) Open+ (v: Views.View; title: ARRAY OF CHAR; loc: Files.Locator;
                                                name: Files.Name; conv: Converters.Converter; openflags: SET);
   VAR
      flags: SET;
      proxy: Proxy;
      done: BOOLEAN;
      len: INTEGER;
      viewsTitle: Views.Title;
      w_: StdWindows.Window;
   BEGIN
      IF conv = NIL THEN conv := Converters.list END;   (* use document converter *)
… и так далее
[code]
и:
[code]
   PROCEDURE InstallViewHook*;
   BEGIN ASSERT(viewHook.prev = NIL, 20);
      viewHook.prev := Views.viewHook;
      Views.SetViewHook(viewHook);
   END InstallViewHook;

   PROCEDURE UninstallViewHook*;
   BEGIN IF viewHook.prev # NIL THEN Views.SetViewHook(viewHook.prev); viewHook.prev := NIL END
   END UninstallViewHook;
[/code]
и:
[code]
BEGIN Init
CLOSE
   StdWindows.SetAttachedCheckHook(NIL);
   UninstallViewHook
END StdTiles.