Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<* PRAGMA LL *> UNSAFE INTERFACENTMsgs ; IMPORT NTClient, NTScreenType, TrestleComm, VBT, WinDef, WinUser; PROCEDURE CreateNTWindow (conn: NTClient.T; ch : VBT.T; st : NTScreenType.T; x, y: INTEGER := WinUser.CW_USEDEFAULT; iconic: BOOLEAN := FALSE) RAISES {TrestleComm.Failure}; <* LL <= VBT.mu *>
Schedules the creation of an NT window onconn
forch
with screentypest
.x
andy
are the horizontal and vertical position of the NW corner ofch
. Ificonic
then the window is created iconic.CreateNTWindow forks off a thread to handle NT messages for the window. The thread terminates when the window is deleted.
PROCEDURE Init(); <* LL = {} *>
Creates and registers the NT window class for Trestle VBT's
PROCEDURE NullWindow(trsl: NTClient.T): WinDef.HWND; <* LL = trsl *>
An invisible window for times when an HWND is needed
PROCEDURE DefaultAllMessages(); <* LL = undefined *>
Escape hatch for applications which get unexpected messages from NT. Call DefaultAllMessages to send all unexpected messages to the DefWindowProc
END NTMsgs.