--- mstools/samples/ole/clidemo/dialog.c	2018/08/09 18:20:49	1.1
+++ mstools/samples/ole/clidemo/dialog.c	2018/08/09 18:21:51	1.1.1.2
@@ -265,8 +265,8 @@ VOID AddExtension(                     /
 BOOL  APIENTRY fnInsertNew(            //* ENTRY:
    HWND           hDlg,                //* standard dialog box paramters
    UINT           msg, 
-   DWORD          wParam, 
-   LONG           lParam               //* (LPSTR) class name
+   WPARAM         wParam, 
+   LPARAM         lParam               //* (LPSTR) class name
 ){                                     //* LOCAL:
    HWND           hwndList;            //* handle to listbox 
    static LPSTR   lpClassName;         //* classname for return value
@@ -323,9 +323,8 @@ VOID FAR LinkProperties()
       hInst, 
       MAKEINTRESOURCE(DTPROP), 
       hwndFrame, 
-      (DLGPROC)fnProperties
+      (DLGPROC)fnProperties 
    );
-   FreeProcInstance(lpfnProperties);
 
 }
 
@@ -342,8 +341,8 @@ VOID FAR LinkProperties()
 BOOL  APIENTRY fnProperties(           //* ENTRY:
    HWND           hDlg,                //* standard dialog box parameters
    UINT           msg,                       
-   DWORD          wParam, 
-   LONG           lParam               //* (HWND) child window with focus
+   WPARAM         wParam, 
+   LPARAM         lParam               //* (HWND) child window with focus
 ){                                     //* LOCAL:
   static APPITEMPTR *pLinks;           //* pointer to links (associated windows)
   static INT      nLinks;              //* number of links
@@ -397,7 +396,7 @@ BOOL  APIENTRY fnProperties(           /
                return TRUE;
 
            case IDD_LINKNAME:          
-               if (HIWORD(lParam) == LBN_SELCHANGE)
+               if (HIWORD(wParam) == LBN_SELCHANGE)
                   UpdateLinkButtons(hDlg,nLinks,hwndList,pLinks);
                return TRUE;
 
@@ -949,8 +948,8 @@ VOID FAR InvalidLink()
 BOOL  APIENTRY fnInvalidLink(        //* ENTRY: 
    HWND           hDlg,              //* standard windows dialog box
    UINT           message, 
-   DWORD          wParam, 
-   LONG           lParam 
+   WPARAM         wParam, 
+   LPARAM         lParam 
 ){
 
    switch (message) 
@@ -990,8 +989,8 @@ VOID FAR AboutBox()
 BOOL  APIENTRY fnAbout(               //* ENTRY: 
    HWND         hDlg,                 //* standard windows dialog box
    UINT         message, 
-   DWORD        wParam, 
-   LONG         lParam 
+   WPARAM       wParam, 
+   LPARAM       lParam 
 ){
 
    switch (message) 
@@ -1089,8 +1088,8 @@ VOID FAR RetryMessage (                /
 BOOL  APIENTRY fnRetry(               //* ENTRY
    HWND   hDlg,                       //* standard dialog entry
    UINT   message, 
-   DWORD  wParam, 
-   LONG   lParam
+   WPARAM wParam, 
+   LPARAM lParam
 ){
    static RETRYPTR   pRetry;
 
@@ -1145,4 +1144,3 @@ BOOL  APIENTRY fnRetry(               //
 
    return FALSE;
 }
-