<<>> <> <> <> <> <<>> 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.