home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / source / wpshidl / samples / pwfolder / test.cmd < prev    next >
Encoding:
Text File  |  1993-11-18  |  583 b   |  22 lines
  1. /*  */
  2. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4.  
  5. '@echo off'
  6.  
  7. RetCode = SysCreateObject( "PWFolder", "My Lockable Folder", "<WP_DESKTOP>", "PASSWORD=wps;OBJECTID=<MyFolder>")
  8.  
  9. if RetCode then
  10.    say 'PWFolder Object created'
  11. else do
  12.    say 'Error creating object'
  13.    exit(1)
  14.    end
  15.  
  16. RetCode = SysCreateObject( "WPProgram", "Editor", "<MyFolder>", "PROGTYPE=PM;EXENAME=\OS2\E.EXE;")
  17.  
  18. say 'A Folder has been created with the password: wps'
  19. say 'select the context menu option LOCK to lock it'
  20. say 'Switch to PM to test object.'
  21.  
  22.