ui/src/nt/NTClient.i3


Copyright (C) 1994, Digital Equipment Corp.
 by Steve Glassman, Mark Manasse and Greg Nelson 
<*PRAGMA LL*>

UNSAFE INTERFACE NTClient;
NEW(NTClient.T).connect(xs) creates a Trestle.T that displays windows on the NT server ns.

IMPORT Trestle, TrestleComm, TrestleOnNT, VBT, Point;

TYPE
  T_Public = Trestle.T OBJECT END;
  T <: TrestleOnNT.Display;

REVEAL TrestleOnNT.Display <: T_Public;

PROCEDURE Init ();
Register NTClient as a source of Trestle connections. LL = {}

PROCEDURE InnerOverlap (         trsl         : T;
                                 v            : VBT.T;
                                 id           : Trestle.ScreenID;
                        READONLY nw           : Point.T;
                                 knownPosition: BOOLEAN;
                                 iconic                            := FALSE)
  RAISES {TrestleComm.Failure};

END NTClient.