home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / gfoldr.zip / GFOLDER.CMD < prev    next >
OS/2 REXX Batch file  |  1994-01-12  |  6KB  |  120 lines
  1. /* Example of the REXX interface to a Group Folder                    */
  2. /*                                                                    */
  3. /* Those setting up many Group Folder uses (e.g., a LAN               */
  4. /* administrator) may want to use REXX to create a Group Folder with  */
  5. /* their own standard groups and objects.  This REXX command file     */
  6. /* creates the same objects as would choosing the "Create standard    */
  7. /* groups" choice from the Group Folder menu.                         */
  8. /*                                                                    */
  9. /* Note: The SysSetObjectData only accepts object IDs for folder      */
  10. /*       objects; paths are not accepted.  As a result, the           */
  11. /*       Group Folder must be created with an object ID.  I believe   */
  12. /*       this is a REXX bug, since WinSetObjectData/WinQueryObject    */
  13. /*       together work with either folder or data file objects.       */
  14.  
  15. signal on novalue
  16.  
  17. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  18. call RxFuncAdd 'SysSetObjectData', 'RexxUtil', 'SysSetObjectData'
  19. call RxFuncAdd 'SysIni', 'RexxUtil', 'SysIni'
  20.  
  21. rc = SysCreateObject("ExGroupFolder", "My Group Folder", ,
  22.     "<WP_DESKTOP>", "OBJECTID=<MY_GROUPFOLDER>", "Update");
  23.  
  24. rc = SysSetObjectData("<MY_GROUPFOLDER>", "NEWGROUP=Development");
  25. rc = SysSetObjectData("<MY_GROUPFOLDER>", "NEWGROUP=Games");
  26. rc = SysSetObjectData("<MY_GROUPFOLDER>", "NEWGROUP=System");
  27. rc = SysSetObjectData("<MY_GROUPFOLDER>", "NEWGROUP=Palettes");
  28. rc = SysSetObjectData("<MY_GROUPFOLDER>", "NEWGROUP=Misc");
  29. rc = SysSetObjectData("<MY_GROUPFOLDER>", "NEWGROUP=Help");
  30.  
  31. /* Development */
  32. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Development;" || ,
  33.      "CREATEOBJECT=Enhanced Editor;CLASS=WPProgram;" || ,
  34.      "EXENAME=?:\OS2\APPS\EPM.EXE;PROGTYPE=PM;HELPPANEL=20278");
  35. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Development;" || ,
  36.      "CREATEOBJECT=Seek and Scan Files;CLASS=WPProgram;" || ,
  37.      "EXENAME=?:\OS2\APPS\PMSEEK.EXE;PROGTYPE=PM;HELPPANEL=20285");
  38. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Development;" || ,
  39.      "CREATEOBJECT=OS/2 Window;CLASS=WPProgram;" || ,
  40.      "EXENAME=*;PROGTYPE=WINDOWABLEVIO;HELPPANEL=8010");
  41. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Development;" || ,
  42.      "CREATEOBJECT=OS/2 Full Screen;CLASS=WPProgram;" || ,
  43.      "EXENAME=*;PROGTYPE=FULLSCREEN;HELPPANEL=8009");
  44. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Development;" || ,
  45.      "CREATEOBJECT=Command Reference;CLASS=WPProgram;" || ,
  46.      "EXENAME=?:\OS2\VIEW.EXE;PARAMETERS=CMDREF.INF;HELPPANEL=9301");
  47.  
  48. /* Below is an example of how OBJECTID can be used to later refer */
  49. /* to an object created in a GFolder. */
  50.  
  51. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Development;" || ,
  52.      "CREATEOBJECT=Icon Editor;CLASS=WPProgram;OBJECTID=<MY_GROUPFOLDERICONEDIT>")
  53. rc = SysSetObjectData("<MY_GROUPFOLDERICONEDIT>", ,
  54.      "EXENAME=?:\OS2\ICONEDIT.EXE;PROGTYPE=PM;" || ,
  55.      "ASSOCFILTER=*.BMP,*.PTR,*.ICO;HELPPANEL=20279");
  56.  
  57. /* Games */
  58. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Games;" || ,
  59.      "CREATEOBJECT=Solitaire - Klondike;CLASS=WPProgram;" || ,
  60.      "EXENAME=?:\OS2\APPS\KLONDIKE.EXE;PROGTYPE=PM;HELPPANEL=20295");
  61. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Games;" || ,
  62.      "CREATEOBJECT=Reversi;CLASS=WPProgram;" || ,
  63.      "EXENAME=?:\OS2\APPS\REVERSI.EXE;PROGTYPE=PM;HELPPANEL=20297");
  64. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Games;" || ,
  65.      "CREATEOBJECT=OS/2 Chess;CLASS=WPProgram;" || ,
  66.      "EXENAME=?:\OS2\APPS\OS2CHESS.EXE;PROGTYPE=PM;" || ,
  67.      "STARTUPDIR=\OS2\APPS;HELPPANEL=20296");
  68. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Games;" || ,
  69.      "CREATEOBJECT=Games;CLASS=WPShadow;" || ,
  70.      "SHADOWID=<WP_GAMES>;");
  71.  
  72. /* System */
  73. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=System;" || ,
  74.      "CREATEOBJECT=OS/2 System;CLASS=WPShadow;" || ,
  75.      "SHADOWID=<WP_OS2SYS>;");
  76. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=System;" || ,
  77.      "CREATEOBJECT=Startup;CLASS=WPShadow;" || ,
  78.      "SHADOWID=<WP_START>;");
  79. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=System;" || ,
  80.      "CREATEOBJECT=System;CLASS=WPShadow;" || ,
  81.      "SHADOWID=<WP_SYSTEM>;");
  82.  
  83. /* Palettes */
  84. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Palettes;" || ,
  85.      "CREATEOBJECT=Font Palette;CLASS=WPFontPalette");
  86. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Palettes;" || ,
  87.      "CREATEOBJECT=Color Palette;CLASS=WPColorPalette");
  88. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Palettes;" || ,
  89.      "CREATEOBJECT=Scheme Palette;CLASS=WPSchemePalette;AUTOSETUP=YES");
  90.  
  91. /* Misc */
  92. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Misc;" || ,
  93.      "CREATEOBJECT=Templates;CLASS=WPShadow;" || ,
  94.      "SHADOWID=<WP_TEMPS>;");
  95. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Misc;" || ,
  96.      "CREATEOBJECT=Minimized"||D2C(10)||"Window Viewer;CLASS=WPShadow;" || ,
  97.      "SHADOWID=<WP_VIEWER>;");
  98. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Misc;" || ,
  99.      "CREATEOBJECT=Shredder;CLASS=WPShadow;" || ,
  100.      "SHADOWID=<WP_SHRED>;");
  101. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Misc;" || ,
  102.      "CREATEOBJECT=Drives;CLASS=WPShadow;" || ,
  103.      "SHADOWID=<WP_DRIVES>;");
  104. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Misc;" || ,
  105.      "CREATEOBJECT=Desktop;CLASS=WPShadow;" || ,
  106.      "SHADOWID=<WP_DESKTOP>;");
  107.  
  108. /* Help */
  109. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Help;" || ,
  110.      "CREATEOBJECT=Master Help Index;CLASS=Mindex;INDEX=HELP");
  111. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Help;" || ,
  112.      "CREATEOBJECT=Information;CLASS=WPShadow;SHADOWID=<WP_INFO>");
  113. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Help;" || ,
  114.      "CREATEOBJECT=Start Here;CLASS=WPProgram;" || ,
  115.      "EXENAME=STHR.EXE;PROGTYPE=PM;STARTUPDIR=\OS2\HELP;HELPPANEL=9278");
  116. rc = SysSetObjectData("<MY_GROUPFOLDER>", "INGROUP=Help;" || ,
  117.      "CREATEOBJECT=Glossary;CLASS=Mindex;INDEX=GLOSSARY");
  118.  
  119. rc = SysSetObjectData("<MY_GROUPFOLDER>", "OPEN=DEFAULT");
  120.