ui/src/winvbt/WinAux.m3


Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
                                                                           
       Created on Wed Jan 18 14:27:10 PST 1995 by najork                   

MODULE WinAux;

IMPORT VBT, VBTClass, WinDef, WinTrestle;

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