home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / major13.zip / makefolder.cmd < prev    next >
OS/2 REXX Batch file  |  2000-09-21  |  3KB  |  108 lines
  1. /****************************************************************/
  2. /*             Creation of MajorMajor desktop folder            */
  3. /****************************************************************/
  4.  
  5. /* Register with REXX API extensions. */
  6. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  7. Call SysLoadFuncs
  8.  
  9. /* Get creation disposition. */
  10. Call SysCls
  11. Say 'Major Major for OS/2 - Installation Script.'
  12. Say
  13. Say 'Creates desktop folder.'
  14. Say
  15. CreateCollision = 'Update'
  16.  
  17. Call CreateObjects
  18. Exit
  19.  
  20. CreateObject: procedure
  21.     Parse Arg Class, Title, Location, Setup, Collision
  22.     Say 'Creating ['Title']'
  23.     rc = SysCreateObject( Class, Title, Location, Setup, Collision )
  24.     If rc <> 1 Then
  25.         Say ' > failed to create ['Title' | 'Class'] at location ['Location']'
  26.     return rc
  27.  
  28. CreateShadow: procedure
  29.     Parse Arg Class, Location
  30.     Say 'Creating Shadow ['Class']'
  31.     rc = SysCreateShadow( Class, Location )
  32.     If rc <> 1 Then
  33.         Say ' > failed to create ['Class'] at location ['Location']'
  34.     return rc
  35.  
  36. CreateObjects:
  37.  
  38. current_dir = directory()
  39. previous_dir = left(current_dir, ( length(current_dir) - 4 ))
  40.  
  41. /***************/
  42. /* MAIN FOLDER */
  43.  
  44. rc = CreateObject( 'WPFolder',,
  45.     'Major Major',,
  46.     '<WP_DESKTOP>',,
  47.     'NOPRINT=YES;'||,
  48.         'DEFAULTVIEW=CONTENTS;'||,
  49.         'SELFCLOSE=1;'||,
  50.         'ICONVIEW=NONGRID,NORMAL;'||,
  51.         'DETAILSVIEW=MINI;'||,
  52.         'TREEVIEW=LINES,NORMAL;'||,
  53.         'ALWAYSSORT=YES;'||,
  54.         'ICONFILE='||current_dir||'\folder.ico;'||,
  55.         'OBJECTID=<MajorMajor_folder>',,
  56.     CreateCollision )
  57.  
  58. /*******************/
  59. /* PROGRAM OBJECTS */
  60.  
  61.   rc = CreateObject( 'WPProgram',,
  62.       'Major Major list manager',,
  63.       '<MajorMajor_folder>',,
  64.       'NOPRINT=YES;'||,
  65.           'DEFAULTVIEW=RUNNING;'||,
  66.           'EXENAME='||current_dir||'\MAJOR.EXE;'||,
  67.           'STARTUPDIR='||current_dir||';'||,
  68.           'MINIMIZED=YES;'||,
  69.           'OBJECTID=<MajorMajor_Program>',,
  70.       CreateCollision )
  71.  
  72.   rc = CreateObject( 'WPProgram',,
  73.       'Configuration program',,
  74.       '<MajorMajor_folder>',,
  75.       'NOPRINT=YES;'||,
  76.           'DEFAULTVIEW=RUNNING;'||,
  77.           'EXENAME='||current_dir||'\ADMIN.EXE;'||,
  78.           'STARTUPDIR='||current_dir||';'||,
  79.           'OBJECTID=<MajorMajor_Admin>',,
  80.       CreateCollision )
  81.  
  82.   rc = CreateObject( 'WPProgram',,
  83.       'Major Major Manual',,
  84.       '<MajorMajor_folder>',,
  85.       'NOPRINT=YES;'||,
  86.           'DEFAULTVIEW=RUNNING;'||,
  87.           'EXENAME='||'VIEW.EXE;'||,
  88.           'PARAMETERS='||current_dir||'\MAJOR.INF;'||,
  89.           'STARTUPDIR='||current_dir||';'||,
  90.           'MINIMIZED=NO;'||,
  91.           'OBJECTID=<MajorMajor_Manual>',,
  92.       CreateCollision )
  93.  
  94.   rc = CreateObject( 'WPShadow',,
  95.       'Register',,
  96.       '<MajorMajor_folder>',,
  97.       'SHADOWID='||current_dir||'\Register.BMT',,
  98.       CreateCollision )
  99.  
  100.   rc = CreateObject( 'WPURL',,
  101.       'Updates',,
  102.       '<MajorMajor_folder>',,
  103.       'NOPRINT=YES;'||,
  104.           'URL=http://eepjm.newcastle.edu.au/os2/major.html',,
  105.       CreateCollision )
  106.  
  107. return
  108.