DIRECTORY TiogaAccess USING [PeekRope, DoneWith, Reader], TiogaAccessViewers USING [FromSelection], Rope, WindowSystemInterface; WindowSystemInterfaceImpl: CEDAR PROGRAM IMPORTS TiogaAccess, TiogaAccessViewers EXPORTS WindowSystemInterface = BEGIN OPEN Rope; ROPE: TYPE ~ Rope.ROPE; GetSelectionContents: PUBLIC PROC [] RETURNS [ROPE] = BEGIN selection: TiogaAccess.Reader ¬ TiogaAccessViewers.FromSelection[]; directoryName: ROPE ¬ TiogaAccess.PeekRope[selection]; TiogaAccess.DoneWith[selection]; RETURN [directoryName]; END; END.  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 Useful shorthand Routines that abstract the TiogaAccess interface. Κ?–(cedarcode) style•NewlineDelimiter ™codešœ™Kšœ Οeœ7™BK™IK™#K™—šΟk ˜ Kšœ žœ˜/Kšœžœ˜)Kšœ˜Kšœ˜—K˜K˜KšΠbnœžœžœ˜)Kšžœ œœœ˜'Kšžœ˜Kšœž˜˜K™Kšžœžœžœ˜K™K™1K˜š Ÿœžœžœžœžœ˜5Kšž˜K˜CKšœžœ#˜6Kšœ ˜ Kšžœ˜Kšžœ˜—K˜—Kšžœ˜—…—w