WindowSystemInterfaceImpl.mesa
Copyright Ó 1990 by Xerox Corporation. All rights reserved.
Laurie Horton October 11, 1990 3:02 pm PDT Split from SystemInterfaceImpl
DIRECTORY
TiogaAccess USING [FromSelection, PeekRope, DoneWith, Reader],
Rope,
WindowSystemInterface;
WindowSystemInterfaceImpl: CEDAR PROGRAM
IMPORTS TiogaAccess
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 ← TiogaAccess.FromSelection[];
directoryName: ROPE ← TiogaAccess.PeekRope[selection];
TiogaAccess.DoneWith[selection];
RETURN [directoryName];
END;
END.