(* Copyright (C) 1990, Digital Equipment Corporation *) (* All rights reserved. *) (* See the file COPYRIGHT for a full description. *) INTERFACE M3Files_m3p; (* This interface is specific to the implementation which uses M3Path and finder objects. It allows access to the current finder and also permits the finder to be updated. *) IMPORT M3FindFile; PROCEDURE GetFinder(): M3FindFile.T RAISES {}; PROCEDURE SetFinder(f: M3FindFile.T) RAISES {}; END M3Files_m3p.