Notify.def: Translation to XDS Modula-2

Last updated: 17. 2.1998, 20:53

DEFINITION MODULE Notify;
(*---------------------------------------
   NOTIFY.C     -- Gadgets for a frame window.
                   (c) Paul Yao, 1996
   Notify.mod   -- Translation to Stony Brook-Modula-2
                   (c) Peter Stadler, 1997
  ---------------------------------------*)



IMPORT Windows;

IMPORT SYSTEM;
IMPORT CommCtrl;
IMPORT comcthlp;
TYPE
  CONTROLNOTIFICATIONS = RECORD
                           nCode : INTEGER;
                           pName : Windows.PSTR;
                         END;
TYPE
  cnLookupTableArray = ARRAY[0..91] OF CONTROLNOTIFICATIONS;

VAR
NOTIFY_COUNT  : INTEGER;

VAR
     cnLookupTable : cnLookupTableArray; 

(*-------------------------------------------------------------------*)
(* QueryNotifyText: Convert notification codes into text.*)
(*-------------------------------------------------------------------*)
(*++++*****************************************************************)
PROCEDURE QueryNotifyText (nNotifyCode : CARDINAL; pName : Windows.PSTR) : BOOLEAN;
(**********************************************************************)
END Notify.