home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac_os2 / supk101s.zip / SUPK101S.EX1 / SKDesk.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-03  |  3KB  |  117 lines
  1. /*
  2.  *  SKDesk.cmd
  3.  *
  4.  *  This program builds desktop objects for Soup KIDchen.
  5.  *
  6.  */
  7.  
  8. CALL RxFuncAdd SysLoadFuncs, RexxUtil, SysLoadFuncs
  9. CALL SysLoadFuncs
  10.  
  11. PARSE ARG instTo
  12.  
  13. IF( instTo == "" ) THEN  instTo = DIRECTORY( )
  14. IF( RIGHT(instTo, 1) \= '\' ) THEN  instTo=instTo||'\'
  15.  
  16.   SAY ""
  17.   SAY "Creating WorkPlace objects..."
  18.  
  19.   /*  Soup KIDchen folder  */
  20.   classname = 'WPFolder'
  21.   title = 'Soup KIDchen'
  22.   location = '<WP_DESKTOP>'
  23.   objectid = '<Soup_KIDchen_Folder>'
  24.   iconclosed = instTo||'SKFold0.ico'
  25.   iconopen = instTo||'SKFold1.ico'
  26.   setup='OBJECTID='||objectid||,
  27.         ';ICONFILE='||iconclosed||,
  28.         ';ICONNFILE=1,'||iconopen||,
  29.         ';'
  30.  
  31.   res = BldObj( classname, title, location, setup )
  32.   IF( res \= 1 ) THEN RETURN 1
  33.  
  34.   /*  Information object  */
  35.   classname = 'WPProgram'
  36.   title = 'Soup KIDchen^Information'
  37.   location = '<Soup_KIDchen_Folder>'
  38.   objectid = '<SoupKID_Info>'
  39.   progtype = 'PM'
  40.   exename =  'view.exe'
  41.   parameters = 'SoupKID.inf'
  42.   setup = 'OBJECTID='||objectid||,
  43.           ';PROGTYPE='||progtype||,
  44.           ';EXENAME='||exename||,
  45.           ';STARTUPDIR='||instTo||,
  46.           ';PARAMETERS='||parameters||,
  47.           ';CCVIEW=NO;'
  48.  
  49.   res = BldObj( classname, title, location, setup )
  50.   IF( res \= 1 ) THEN RETURN 1
  51.  
  52.   /*  Configuration object  */
  53.   classname = 'WPProgram'
  54.   title = 'Soup KIDchen^Configuration'
  55.   location = '<Soup_KIDchen_Folder>'
  56.   objectid = '<SoupKID_Config>'
  57.   progtype = 'PM'
  58.   exename =  instTo||'SoupKID.exe'
  59.   parameters = '/Windowed /Configure /NoMusic'
  60.   setup = 'OBJECTID='||objectid||,
  61.           ';PROGTYPE='||progtype||,
  62.           ';EXENAME='||exename||,
  63.           ';STARTUPDIR='||instTo||,
  64.           ';PARAMETERS='||parameters||,
  65.           ';CCVIEW=NO;'
  66.  
  67.   res = BldObj( classname, title, location, setup )
  68.   IF( res \= 1 ) THEN RETURN 1
  69.  
  70.  
  71.   /*  Executable object  */
  72.   classname = 'WPProgram'
  73.   title = 'Soup KIDchen'
  74.   location = '<Soup_KIDchen_Folder>'
  75.   objectid = '<Soup_KIDchen>'
  76.   progtype = 'PM'
  77.   exename =  instTo||'SoupKID.exe'
  78.   parameters = ''
  79.   setup = 'OBJECTID='||objectid||,
  80.           ';PROGTYPE='||progtype||,
  81.           ';EXENAME='||exename||,
  82.           ';STARTUPDIR='||instTo||,
  83.           ';PARAMETERS='||parameters||,
  84.           ';CCVIEW=NO;'
  85.  
  86.   res = BldObj( classname, title, location, setup )
  87.   IF( res \= 1 ) THEN RETURN 1
  88.  
  89.   RETURN 0
  90.  
  91. /***********************************************************/
  92.  
  93. BldObj :
  94. PARSE ARG classname, title, location, setup
  95.  
  96. CALL CHAROUT, 'Building: ('classname') 'title
  97.  
  98. /* option = 'UPDATE' */
  99. option = 'REPLACE'
  100.  
  101. res = SysCreateObject( classname, title, location, setup, option )
  102.  
  103. If( res = 1 ) THEN
  104. DO
  105.   CALL CHAROUT ,'...   Object created!'
  106. END
  107. ELSE
  108. DO
  109.   SAY '...   Not created! Return code='result
  110. END
  111.  
  112. SAY "";
  113.  
  114. RETURN res
  115.  
  116. /***********************************************************/
  117.