home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: OtherApp / OtherApp.zip / stwtv113.zip / Script / Install.STS < prev    next >
Text File  |  2000-02-17  |  3KB  |  76 lines
  1. /* Install.STS */
  2.  
  3. Call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  4. Call SysLoadFuncs
  5.  
  6. /* Get current directory */
  7. CDir=Directory()
  8.  
  9. /* If no toolbar exists create one */
  10. rc=RxMessageBox("Create a toolbar with some stations in it ?","Question","YESNO","QUERY")
  11. If rc=6 Then
  12. Do
  13.  /* Create a Toolbar */
  14.  ToolBar.Name='First Toolbar'
  15.  ToolBar.Location='TOP'
  16.  ToolBar.NumOfStationsPerLine=8
  17.  tb=StWTVSetToolBar('FULL',0,ToolBar,'CREATE')
  18.  
  19.  /* Set some global variables for all stations */
  20.  Station.Brightness=125
  21.  Station.Contrast=125
  22.  Station.Saturation=125
  23.  Station.Hue=125
  24.  Station.Signal='TUNER'
  25.  
  26.  /* Add some german stations to the sender pool */
  27.  rc=CreateStation('ARD'        ,'55'  ,'74325'  ,'ARD' )
  28.  rc=CreateStation('ZDF'        ,'32'  ,'55925'  ,'ZDF' )
  29.  rc=CreateStation('N3'         ,'42'  ,'63925'  ,'N3'  )
  30.  rc=CreateStation('SAT 1'      ,'29'  ,'53525'  ,'SAT1')
  31.  rc=CreateStation('RTL'        ,'36'  ,'59125'  ,'RTL' )
  32.  rc=CreateStation('PRO 7'      ,'46'  ,'67125'  ,'PRO7')
  33.  rc=CreateStation('RTL 2'      ,'58'  ,'76725'  ,'RTL2')
  34.  rc=CreateStation('VOX'        ,'49'  ,'69525'  ,'VOX' )
  35. End
  36.  
  37. /* Create WPS object */
  38. rc=RxMessageBox("Create WPS objects for StWTV ?","Question","YESNO","QUERY")
  39. If rc=6 Then
  40. Do
  41.  Fldr="OBJECTID=<StWTV>;ICONFILE="CDir"\STSFTFLD.ICO;OPEN=ICON"
  42.  ExN="EXENAME="CDir"\StWTV.EXE;OBJECTID=<StWTV_Application>"
  43.  DEInfN="EXENAME=VIEW.EXE;PARAMETERS="CDir"\StWTV_DE.INF"
  44.  ENInfN="EXENAME=VIEW.EXE;PARAMETERS="CDir"\StWTV_EN.INF"
  45.  RXApi="EXENAME=E.EXE;PARAMETERS="CDir"\RexxApi.TXT"
  46.  His="EXENAME=E.EXE;PARAMETERS="CDir"\StWTV.HIS;"
  47.  Prblm="EXENAME=E.EXE;PARAMETERS="CDir"\Problm.rpt"
  48.  Gra="EXENAME=E.EXE;PARAMETERS="CDir"\GRADD.TXT"
  49.  Debug="EXENAME="CDir"\StWTVDEB.CMD;ICONFILE="CDir"\StWTVDEB.ICO"
  50.  Audio="EXENAME=E.EXE;PARAMETERS="CDir"\AUDIO.TXT"
  51.  Ver=StWTVGetVersion("FULL")
  52.  rc=SysCreateObject("WPFolder","Stan-Soft WinCast TV","<WP_DESKTOP>",Fldr,"REPLACE")
  53.  rc=SysCreateObject("WPProgram",Ver,"<StWTV>",ExN,"REPLACE")
  54.  rc=SysCreateObject("WPProgram","deutsche online hilfe","<StWTV>",DEInfN,"REPLACE")
  55.  rc=SysCreateObject("WPProgram","english online help","<StWTV>",ENInfN,"REPLACE")
  56.  rc=SysCreateObject("WPProgram","REXX API documentation","<StWTV>",RXApi,"REPLACE")
  57.  rc=SysCreateObject("WPProgram","Version history","<StWTV>",His,"REPLACE")
  58.  rc=SysCreateObject("WPProgram","Problem report template","<StWTV>",Prblm,"REPLACE")
  59.  rc=SysCreateObject("WPProgram","GRADD instructions","<StWTV>",Gra,"REPLACE")
  60.  rc=SysCreateObject("WPProgram","Audio Help","<StWTV>",Audio,"REPLACE")
  61.  rc=SysCreateObject("WPProgram","Start StWTV with trace output","<StWTV>",Debug,"REPLACE")
  62. End
  63.  
  64. /* Shutdown StWTV */
  65. rc=StWTVShutDown()
  66. Exit 0
  67.  
  68. CreateStation:
  69.  Station.Name=Arg(1)
  70.  Station.Channel=Arg(2)
  71.  Station.Frequency=Arg(3)
  72.  Station.Bitmap=CDir'\'Arg(4)'.BMP'
  73.  rx=StWTVSetStation('FULL',0,Station,'CREATE')
  74.  rc=StWTVAddStation(rx,tb)
  75. Return rc
  76.