Return to welcome2.c CVS log

Up to [OS/2 SDKs] / pmsdk / samples / petzold / chap03

Annotation of pmsdk/samples/petzold/chap03/welcome2.c, revision 1.1

1.1     ! root        1: /*------------------------------------------------------------
        !             2:    WELCOME2.C -- A Program that Creates Two Top-Level Windows
        !             3:   ------------------------------------------------------------*/
        !             4: 
        !             5: #include <os2.h>
        !             6: #include <stddef.h>
        !             7: 
        !             8: MRESULT EXPENTRY Client1WndProc (HWND, USHORT, MPARAM, MPARAM) ;
        !             9: MRESULT EXPENTRY Client2WndProc (HWND, USHORT, MPARAM, MPARAM) ;
        !            10: 
        !            11: int main (void)
        !            12:      {
        !            13:      static CHAR szClientClass1 [] = "Welcome1",                 
        !            14:                  szClientClass2 [] = "Welcome2" ;
        !            15:      HAB         hab ;
        !            16:      HMQ         hmq ;
        !            17:      HWND        hwndFrame1, hwndFrame2, hwndClient1, hwndClient2 ;
        !            18:      QMSG        qmsg ;
        !            19:      ULONG       flFrameFlags = FCF_STANDARD & ~FCF_MENU ;
        !            20:      ULONG       flFrameStyle = WS_VISIBLE ;
        !            21: 
        !            22:      hab = WinInitialize (0) ;
        !            23:      hmq = WinCreateMsgQueue (hab, 0) ;
        !            24: 
        !            25:      WinRegisterClass (
        !            26:                     hab,                /* Anchor block handle             */
        !            27:                    szClientClass1,     /* Name of class being registered  */
        !            28:                     Client1WndProc,     /* Window procedure for class      */
        !            29:                     CS_SIZEREDRAW,      /* Class style                     */
        !            30:                     0) ;                /* Extra bytes to reserve          */
        !            31: 
        !            32:      WinRegisterClass (
        !            33:                     hab,                /* Anchor block handle             */
        !            34:                    szClientClass2,     /* Name of class being registered  */
        !            35:                     Client2WndProc,     /* Window procedure for class      */
        !            36:                     CS_SIZEREDRAW,      /* Class style                     */
        !            37:                     0) ;                /* Extra bytes to reserve          */
        !            38: 
        !            39:      hwndFrame1 = WinCreateStdWindow (
        !            40:                     HWND_DESKTOP,       /* Parent window handle            */
        !            41:                     flFrameStyle,       /* Style of frame window           */
        !            42:                    &flFrameFlags,      /* Pointer to control data         */
        !            43:                    szClientClass1,     /* Client window class name        */
        !            44:                     "Window No. 1",     /* Title bar text                  */
        !            45:                     0L,                 /* Style of client window          */
        !            46:                     NULL,               /* Module handle for resources     */
        !            47:                     0,                  /* ID of resources                 */
        !            48:                     &hwndClient1) ;     /* Pointer to client window handle */
        !            49: 
        !            50:      hwndFrame2 = WinCreateStdWindow (
        !            51:                     HWND_DESKTOP,       /* Parent window handle            */
        !            52:                     flFrameStyle,       /* Style of frame window           */
        !            53:                    &flFrameFlags,      /* Pointer to control data         */
        !            54:                    szClientClass2,     /* Client window class name        */
        !            55:                     "Window No. 2",     /* Title bar text                  */
        !            56:                     0L,                 /* Style of client window          */
        !            57:                     NULL,               /* Module handle for resources     */
        !            58:                     0,                  /* ID of resources                 */
        !            59:                     &hwndClient2) ;     /* Pointer to client window handle */
        !            60: 
        !            61:      while (WinGetMsg (hab, &qmsg, NULL, 0, 0))
        !            62:           WinDispatchMsg (hab, &qmsg) ;
        !            63: 
        !            64:      WinDestroyWindow (hwndFrame1) ;
        !            65:      WinDestroyWindow (hwndFrame2) ;
        !            66:      WinDestroyMsgQueue (hmq) ;
        !            67:      WinTerminate (hab) ;
        !            68: 
        !            69:      return 0 ;
        !            70:      }
        !            71: 
        !            72: MRESULT EXPENTRY Client1WndProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
        !            73:      {
        !            74:      static CHAR szText [] = "Welcome to Window No. 1" ;
        !            75:      HPS         hps ;
        !            76:      RECTL       rcl ;
        !            77: 
        !            78:      switch (msg)
        !            79:           {
        !            80:           case WM_PAINT:
        !            81:                hps = WinBeginPaint (hwnd, NULL, NULL) ;
        !            82: 
        !            83:                WinQueryWindowRect (hwnd, &rcl) ;
        !            84: 
        !            85:                WinDrawText (hps, -1, szText, &rcl,
        !            86:                             CLR_NEUTRAL, CLR_BACKGROUND,
        !            87:                             DT_CENTER | DT_VCENTER | DT_ERASERECT) ;
        !            88: 
        !            89:                WinEndPaint (hps) ;
        !            90:                return 0 ;
        !            91:           }
        !            92:      return WinDefWindowProc (hwnd, msg, mp1, mp2) ;
        !            93:      }
        !            94: 
        !            95: MRESULT EXPENTRY Client2WndProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
        !            96:      {
        !            97:      static CHAR szText [] = "Welcome to Window No. 2" ;
        !            98:      HPS         hps ;
        !            99:      RECTL       rcl ;
        !           100: 
        !           101:      switch (msg)
        !           102:           {
        !           103:           case WM_PAINT:
        !           104:                hps = WinBeginPaint (hwnd, NULL, NULL) ;
        !           105: 
        !           106:                WinQueryWindowRect (hwnd, &rcl) ;
        !           107: 
        !           108:                WinDrawText (hps, -1, szText, &rcl,
        !           109:                             CLR_NEUTRAL, CLR_BACKGROUND,
        !           110:                             DT_CENTER | DT_VCENTER | DT_ERASERECT) ;
        !           111: 
        !           112:                WinEndPaint (hps) ;
        !           113:                return 0 ;
        !           114: 
        !           115:           case WM_CLOSE:
        !           116:                return 0 ;
        !           117:           }
        !           118:      return WinDefWindowProc (hwnd, msg, mp1, mp2) ;
        !           119:      }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.