Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
Created on Wed Jan 18 14:27:10 PST 1995 by najork
MODULE; IMPORT VBT, VBTClass, WinDef, WinTrestle; PROCEDURE WinAux WindowHandle (v: VBT.T): WinDef.HWND = BEGIN WHILE v # NIL DO TYPECASE v.upRef OF | WinTrestle.Child (ch) => IF ch # NIL THEN RETURN ch.hwnd END ELSE (* skip *) END; v := v.parent; END; RETURN NIL; END WindowHandle; BEGIN END WinAux.