WindowSystemInterfaceImpl.mesa
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Laurie Horton October 11, 1990 3:02 pm PDT Split from SystemInterfaceImpl
Willie-s, May 14, 1992 12:55 pm PDT
DIRECTORY
TiogaAccess USING [PeekRope, DoneWith, Reader],
TiogaAccessViewers USING [FromSelection],
Rope,
WindowSystemInterface;
WindowSystemInterfaceImpl: CEDAR PROGRAM
IMPORTS TiogaAccess, TiogaAccessViewers
EXPORTS WindowSystemInterface
= BEGIN OPEN Rope;
Useful shorthand
ROPE: TYPE ~ Rope.ROPE;
Routines that abstract the TiogaAccess interface.
GetSelectionContents:
PUBLIC
PROC []
RETURNS [
ROPE] =
BEGIN
selection: TiogaAccess.Reader ¬ TiogaAccessViewers.FromSelection[];
directoryName: ROPE ¬ TiogaAccess.PeekRope[selection];
TiogaAccess.DoneWith[selection];
RETURN [directoryName];
END;
END.