home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / connectpkg.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  2.1 KB  |  53 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/connectpkg.ads,v $ 
  2. -- $Revision: 1.2 $ $Date: 96/03/15 13:52:00 $ $Author: stm $ 
  3.  
  4. with Win32;
  5. with Win32.Windef;
  6. with Win32.Winuser;
  7.  
  8.  
  9. package ConnectPkg is
  10.  
  11.     IgnoredB : Win32.BOOL;
  12.  
  13.     ps       : aliased Win32.Winuser.PAINTSTRUCT;     -- WndProc
  14.     msg      : aliased Win32.Winuser.MSG;             -- WinMain
  15.     wndclass : aliased Win32.Winuser.WNDCLASS;        -- WinMain
  16.  
  17.     function WndProc (hwnd   : Win32.Windef.HWND;
  18.                       msg    : Win32.UINT;
  19.                       wParam : Win32.WPARAM;
  20.                       lParam : Win32.LPARAM) return Win32.LRESULT;
  21.  
  22.     pragma Convention(Stdcall, WndProc);              -- Important !
  23.  
  24.     
  25. -------------------------------------------------------------------------------
  26. --
  27. -- This program has been derived by Intermetrics, Inc. from the 
  28. -- connect.c program in "Programming Windows 3.1", third edition, 
  29. -- by Charles Petzold, Microsoft Press.
  30. -- The program is derived from source code which is restricted 
  31. -- by the license and under the following copyrights:
  32. --
  33. --      Copyright (c) 1992 by Charles Petzold
  34. --
  35. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  36. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  37. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  38. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  39. -- the accuracy and the use of this file.  This file may be used, copied,
  40. -- modified and distributed only by licensees of Microsoft Corporation's
  41. -- WIN32 Software Development Kit in accordance with the terms of the 
  42. -- licensee's End-User License Agreement for Microsoft Software for the
  43. -- WIN32 Development Kit.
  44. --
  45. -- Copyright (c) Intermetrics, Inc. 1995
  46. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  47. -- Microsoft is a registered trademark and Windows and Windows NT are
  48. -- trademarks of Microsoft Corporation.
  49. --
  50. -------------------------------------------------------------------------------
  51.  
  52. end ConnectPkg; 
  53.