Package Name: notification

Return to: Package List

with Types; use Types;
with OSUtils; use OSUtils;

package Notification is
   --  
   --  File:       Notification.h
   --  
   --  Contains:   Notification Manager interfaces
   --  
   --  Version:    Technology: System 7.5
   --              Package:    Universal Interfaces 2.1 in ÒMPW LatestÓ on ETO #18
   --  
   --  Copyright:  © 1984-1995 by Apple Computer, Inc.

   --              All rights reserved.
   subtype NMUPP is UniversalProcPtr;
   type NMRec is 
      record
         qLink : QElemPtr;                        --  next queue entr
         qType : Short_Integer;                   --  queue type -- ORD(nmType) =
         nmFlags : Short_Integer;                 --  reserve
         nmPrivate : Long_Integer;                --  reserve
         nmReserved : Short_Integer;              --  reserve
         nmMark : Short_Integer;                  --  item to mark in Apple men
         nmIcon : Handle;                         --  handle to small ico
         nmSound : Handle;                        --  handle to sound recor
         nmStr : StringPtr;                       --  string to appear in aler
         nmResp : NMUPP;                          --  pointer to response routin
         nmRefCon : Long_Integer;                 --  for application us
      end record;

   type NMRecPtr is Access NMRec;
	uppNMProcInfo : constant := 16#000000C0#; -- PROCEDURE (4 byte param); }
   type NMProcPtr is Access procedure

     (nmReqPtr : in     NMRecPtr);
   procedure CallNMProc
     (nmReqPtr           : in     NMRecPtr;
      userRoutine        : in     NMUPP);

   pragma Import (C, CallNMProc, "CallNMProc", "CallNMProc");
   function NewNMProc
     (userRoutine        : in     NMProcPtr)
      return                      NMUPP;

   pragma Import (C, NewNMProc, "NewNMProc", "NewNMProc");
   function NMInstall
     (nmReqPtr           : in     NMRecPtr)
      return                      OSErr;

   pragma Import (C, NMInstall, "NMInstall", "NMInstall");
   function NMRemove
     (nmReqPtr           : in     NMRecPtr)
      return                      OSErr;

   pragma Import (C, NMRemove, "NMRemove", "NMRemove");
end Notification;