home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / LOCKFOLD.ZIP / lfolder.c next >
Text File  |  1992-06-29  |  2KB  |  77 lines
  1.  
  2. /*
  3.  * This file was generated by the SOM Compiler.
  4.  * FileName: lfolder.c.
  5.  * Generated using:
  6.  *     SOM Precompiler spc: 1.22
  7.  *     SOM Emitter emitc: 1.24
  8.  */
  9.  
  10. #define WPSLockedFolder_Class_Source
  11. #include "lfolder.ih"
  12.  
  13. #define PASSWORD "demo"
  14.  
  15. MRESULT APIENTRY PasswordDlgProc(HWND, ULONG, MPARAM, MPARAM);
  16.  
  17. SOM_Scope HWND   SOMLINK wpOpen(WPSLockedFolder *somSelf,
  18.         HWND hwndCnr,
  19.         ULONG ulView,
  20.         ULONG param)
  21. {
  22.     HMODULE hModule;
  23.  
  24.     WPSLockedFolderData *somThis = WPSLockedFolderGetData(somSelf);
  25.     WPSLockedFolderMethodDebug("WPSLockedFolder","wpOpen");
  26.  
  27.     if (DosQueryModuleHandle("LFOLDER", &hModule) == 123)
  28.     { 
  29.        WinMessageBox(HWND_DESKTOP,
  30.                      HWND_DESKTOP,
  31.                      "DosQueryModuleHandle()",
  32.                      NULL,
  33.                      0,
  34.                      MB_OK | MB_ERROR);
  35.        return FALSE;
  36.     }
  37.  
  38.     if (WinDlgBox(HWND_DESKTOP,
  39.                   HWND_DESKTOP,
  40.                   (PFNWP) PasswordDlgProc,
  41.                   hModule,
  42.                   PasswordDlgBox,
  43.                   NULL))
  44.       return (parent_wpOpen(somSelf,hwndCnr,ulView,param));
  45.     else
  46.       return FALSE;
  47. }
  48.  
  49. MRESULT APIENTRY PasswordDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
  50. {
  51.     CHAR  szPW[20];
  52.  
  53.     switch(msg)
  54.     {
  55.       case WM_COMMAND:
  56.         switch(SHORT1FROMMP(mp1))
  57.         {
  58.            case DID_OK:    
  59.              WinQueryDlgItemText(hwnd, EF_PASSWORD, 20, szPW);
  60.              WinDismissDlg(hwnd, (BOOL) !stricmp(szPW, PASSWORD));
  61.              break;
  62.  
  63.            case DID_CANCEL:
  64.              WinDismissDlg(hwnd, FALSE);
  65.              break;
  66.         }
  67.         break;
  68.  
  69.       default:
  70.         return WinDefDlgProc(hwnd, msg, mp1, mp2);
  71.         break;
  72.     }
  73.  
  74.     return FALSE;
  75.  
  76. }
  77.