home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / library / os2 / pmmsg.mod < prev    next >
Encoding:
Modula Implementation  |  1990-08-04  |  7.2 KB  |  153 lines
  1. (*----------------------------------------------------------------------------*)
  2. (* Example OS/2 Presentation Manager Program adapted from the book            *)
  3. (* "OS/2 Presentation Manager - Programming Primer" by Asael Dror &           *)
  4. (* Robert Lafore                                                              *)
  5. (*                                                                            *)
  6. (* Example programs converted to JPI Modula-2 Version 2 for OS/2 1.2 by       *)
  7. (* Chris Barker, August 1990                                                  *)
  8. (*                                                                            *)
  9. (* Notes:  I am distributing these programs so that others can learn and also *)
  10. (*         so I can elicit feedback from the user community on programming for*)
  11. (*         OS/2 PM using Modula-2.  If your have any questions, suggestions,  *)
  12. (*         or comments I'd love to hear from you.  I may be reached at the    *)
  13. (*         following addresses:                                               *)
  14. (*                                                                            *)
  15. (*         Compuserve ID: 72261,2312                                          *)
  16. (*         Pete Norloff's OS/2 Shareware BBS - (703) 385-4325                 *)
  17. (*         Max's Doghouse BBS - (703) 548-7849                                *)
  18. (*           The above two BBS carry the Fidonet OS/2 echo which I read       *)
  19. (*           regularly.                                                       *)
  20. (*         Programmer's Corner - (301) 596-1180                               *)
  21. (*         CPCUG Mix (Window Sig) BBS - (301) 738-9060                        *)
  22. (*                                                                            *)
  23. (*         I hope I hear from you!                                            *)
  24. (*                                                                            *)
  25. (*               - Chris                                                      *)
  26. (*                                                                            *)
  27. (*----------------------------------------------------------------------------*)
  28.  
  29. (*----------------------------------------------------------------------------*)
  30. (*  Program Notes:                                                            *)
  31. (*    Provides a excellent way to see what messages are really being sent     *)
  32. (*    during the execution of this program.  When it first starts, you        *)
  33. (*    hear beeps for about 15 seconds before the client window is drawn.      *)
  34. (*    Every time you move the mouse a message will be posted.                 *)
  35. (*    Source code on page 106.                                                *)
  36. (*----------------------------------------------------------------------------*)
  37.  
  38. IMPLEMENTATION MODULE PMMSG;
  39.  
  40. BEGIN
  41.   msglist := MsgArray('WM_NULL',
  42.                       'WM_CREATE',
  43.                       'WM_DESTROY',
  44.                       'WM_OTHERWINDOWDESTOYED',
  45.                       'WM_ENABLE',
  46.                       'WM_SHOW',
  47.                       'WM_MOVE',
  48.                       'WM_SIZE',
  49.                       'WM_ADJUSTWINDOWPOS',
  50.                       'WM_CALCVALIDRECTS',
  51.                       'WM_SETWINDOWPARAMS',
  52.                       'WM_QUERYWINDOWPARAMS',
  53.                       'WM_HITTEST',
  54.                       'WM_ACTIVATE',
  55.                       'VOID',
  56.                       'WM_SETFOCUS',
  57.                       'WM_SETSELECTION',
  58.                       'WM_PPAINT',
  59.                       'WM_PSETFOCUS',
  60.                       'WM_PSYSCOLORCHANGE',
  61.                       'WM_PSIZE',
  62.                       'WM_PACTIVATE',
  63.                       'WM_PCONTROL',
  64.                       '???','???','???','???','???','???','???','???','???',
  65.                       'WM_COMMAND',
  66.                       'WM_SYSCOMMAND',
  67.                       'WM_HELP',
  68.                       'WM_PAINT',
  69.                       'WM_TIMER',
  70.                       'WM_SEM1',
  71.                       'WM_SEM2',
  72.                       'WM_SEM3',
  73.                       'WM_SEM4',
  74.                       'WM_CLOSE',
  75.                       'WM_QUIT',
  76.                       'WM_SYSCOLORCHNAGE',
  77.                       '???',
  78.                       'WM_SYSVALUECHANGED',
  79.                       'WM_APPTERMINATENOTIFY',
  80.                       'WM_PRESPARMCHANGED',
  81. (* control notification messages *)
  82.                       'WM_CONTROL',
  83.                       'WM_VSCROLL',
  84.                       'WM_HSCROLL',
  85.                       'WM_INITMENU',
  86.                       'WM_MENUSELECT',
  87.                       'WM_MENUEND',
  88.                       'WM_DRAWITEM',
  89.                       'WM_MEASUREITEM',
  90.                       'WM_CONTROLPOINTER',
  91.                       'WM_CONTROLHEAP',
  92.                       'WM_QUERYDLGCODE',
  93.                       'WM_INITDLG',
  94.                       'WM_SUBSTITUTESTRING',
  95.                       'WM_MATCHMNEMONIC',
  96.                       'WM_SAVEAPPLICATION',
  97.                       '???',
  98. (* frame manager messages *)
  99.                       'WM_FLASHWINDOW',
  100.                       'WM_FORMATFRAME',
  101.                       'WM_UPDATEFRAME',
  102.                       'WM_FOCUSCHANGE',
  103.                       'WM_SETBORDERSIZE',
  104.                       'WM_TRACKFRAME',
  105.                       'WM_MINMAXFRAME',
  106.                       'WM_SETICON',
  107.                       'WM_QUERYICON',
  108.                       'WM_SETACCELTABLE',
  109.                       'WM_QUERYACCELTABLE',
  110.                       'WM_TRANSLATEACCEL',
  111.                       'WM_QUERYTRACKINFO',
  112.                       'WM_QUERYBORDERSIZE',
  113.                       'WM_NEXTMENU',
  114.                       'WM_ERASEBACKGROUND',
  115.                       'WM_QUERYFRAMEINFO',
  116.                       'WM_QUERYFOCUSCHAIN',
  117.                       '???',
  118.                       'WM_CALCFRAMERECT',
  119.                       '???',
  120.                       'WM_WINDOWPOSCHANGED',
  121.                       '???','???','???',
  122.                       'WM_QUERYFRAMECTLCOUNT',
  123.                       '???',
  124.                       'WM_QUERYHELPINFO',
  125.                       'WM_SETHELPINFO',
  126.                       'WM__ERROR',
  127.                       '???','???',
  128. (* clipboard messages *)
  129.                       'WM_RENDERFMT',
  130.                       'WM_RENDERALLFMTS',
  131.                       'WM_DESTROYCLIPBOARD',
  132.                       'WM_PAINTCLIPBOARD',
  133.                       'WM_SIZECLIPBOARD',
  134.                       'WM_HSCROLLCLIPBOARD',
  135.                       'WM_VSCROLLCLIPBOARD',
  136.                       'WM_DRAWCLIPBOARD',
  137.                       '???','???','???','???','???','???','???','???',
  138.                       'WM_MOUSEMOVE',
  139.                       'WM_BUTTON1DOWN',
  140.                       'WM_BUTTON1UP',
  141.                       'WM_BUTTON1DBLCLK',
  142.                       'WM_BUTTON2DOWN',
  143.                       'WM_BUTTON2UP',
  144.                       'WM_BUTTON2DBLCLK',
  145.                       'WM_BUTTON3DOWN',
  146.                       'WM_BUTTON3UP',
  147.                       'WM_BUTTON3DBLCLK',
  148. (* character input messages *)
  149.                       'WM_CHAR',
  150.                       'WM_QUEUESYNC',
  151.                       'WM_JOURNALNOTIFY');
  152. END PMMSG.
  153.