|
|
1.1 root 1: /****************************** Module Header ******************************\
2: * Module Name: skelinit.c
3: *
4: * Initialization portion of Presentation Manager Skeleton VIO Application
5: *
6: * Created: 25-Jul-88 (adapted from PM Template App.)
7: *
8: * Created by Microsoft Corporation
9: *
10: *
11: \***************************************************************************/
12:
13: #define INCL_WINCOMMON
14: #define INCL_WINMESSAGEMGR
15: #define INCL_AVIO
16: #define INCL_BASE
17:
18: #include <os2.h>
19: #include "browse.h"
20:
21: extern HAB hAB;
22: extern HMQ hMsgQ;
23: extern HWND hwndSkel;
24: extern HWND hwndSkelFrame;
25: extern HDC hDC;
26: extern HVPS hVPS;
27: extern HPS hPS;
28:
29: /***************************** Private Function ****************************\
30: *
31: * BOOL FAR SkelInitApp( )
32: *
33: * Effects: Registers Application Window Class
34: * Creates Standard Window
35: *
36: * Warnings: None
37: *
38: \***************************************************************************/
39:
40: BOOL FAR SkelInitApp( VOID )
41: {
42:
43: char szTitle[21];
44: ULONG ctldata;
45:
46: /* Register Application Window Class */
47:
48: if ( !WinRegisterClass( hAB, (PCH)"Skel", (PFNWP)SkelWndProc,
49: CS_SYNCPAINT, 0 ) )
50: return( FALSE );
51:
52:
53: /* Create a window instance of class "Skel" */
54:
55: WinLoadString( hAB, NULL, IDSTITLE, sizeof(szTitle), (PCH)szTitle );
56:
57: ctldata = FCF_STANDARD | FCF_VERTSCROLL | FCF_HORZSCROLL ;
58:
59: hwndSkelFrame = WinCreateStdWindow(
60: HWND_DESKTOP, /* specify desktop as parent window */
61: /* window styles */
62: WS_VISIBLE | FS_ICON | FS_ACCELTABLE ,
63: &ctldata, /* frame creation flags */
64: (PCH)"Skel",/* window class name */
65: (PCH)szTitle, /* name appearing in window caption */
66: 0L, /* */
67: (HMODULE)NULL, /* use current executable module id */
68: ID_SKEL , /* menu id + accelerator id + icon id */
69: (HWND FAR *)&hwndSkel /* window handle */
70: );
71:
72: return( TRUE );
73: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.