<<>> <> <> <> <<>> DIRECTORY TiogaAccess USING [FromSelection, PeekRope, DoneWith, Reader], Rope, WindowSystemInterface; WindowSystemInterfaceImpl: CEDAR PROGRAM IMPORTS TiogaAccess EXPORTS WindowSystemInterface = BEGIN OPEN Rope; <> ROPE: TYPE ~ Rope.ROPE; <<>> <> GetSelectionContents: PUBLIC PROC [] RETURNS [ROPE] = BEGIN selection: TiogaAccess.Reader _ TiogaAccess.FromSelection[]; directoryName: ROPE _ TiogaAccess.PeekRope[selection]; TiogaAccess.DoneWith[selection]; RETURN [directoryName]; END; END.