home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ARexxTools / TritonRexx376.lha / TritonRexx / Rexx / ImageDemo.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-09-17  |  3.7 KB  |  160 lines
  1. /*
  2. ** $VER: TritonRexx Image-Demo 1.0 (2.8.95)
  3. */
  4.  
  5. /*
  6. ** Name des Öffentlichen Bildschrims
  7. */
  8.  
  9. screenname = 'Workbench'
  10.  
  11.  
  12. /*
  13. ** Pfad der Grafikdatei zusammensetzen
  14. */
  15.  
  16. PARSE SOURCE . . . script .
  17.  
  18. position = LASTPOS('/',script)
  19.  
  20. IF position = 0 THEN
  21.    position = LASTPOS(':',script)
  22.  
  23. pfadname = SUBSTR(script,1,position) || 'A2000.IFF'
  24.  
  25.  
  26. /*
  27. ** Library mit *erhöhter* *Priorität* einbinden! Wenn noch andere
  28. ** Libraries eingebunden sind wird dies die Arbeitsgeschwindigkeit
  29. ** des Scripts positiv beeinflussen, da die 'tritonrexx.library'
  30. ** dann wegen ihrer Priorität immer als erstes nach Funktionen
  31. ** durchsucht wird.
  32. */
  33.  
  34. IF ~SHOW('LIBRARIES','tritonrexx.library') THEN
  35.    IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN
  36.       quit('Kann die <tritonrexx.library> nicht öffnen!',10)
  37.  
  38.  
  39. /*
  40. ** Unterbrechungssignale
  41. */
  42.  
  43. SIGNAL ON break_c
  44. SIGNAL ON failure
  45. SIGNAL ON halt
  46. SIGNAL ON ioerr
  47. SIGNAL ON syntax
  48.  
  49.  
  50. /*
  51. ** Applikation erzeugen
  52. */
  53.  
  54. app = TR_CREATEAPP('TRCA_Name     Image-Demo',
  55.                    'TRCA_LongName "TritonRexx Image-Demo"',
  56.                    'TRCA_Info     "Eine skalierbare Grafik"',
  57.                    'TRCA_Version  "1.0"',
  58.                    'TRCA_Release  "1"',
  59.                    'TRCA_Date     "1.8.95"',
  60.                    'TAG_END')
  61.  
  62. IF app = '00000000'x THEN
  63.    quit('Kann die Applikation nicht erzeugen!',10)
  64.  
  65.  
  66. /*
  67. ** Grafik laden
  68. */
  69.  
  70. imageflags = 'TRXIF_CENTER|TRXIF_SCALE|TRXIF_PROP'
  71.  
  72. IF ~CREATEIMAGE('Amiga',pfadname,'TRXIM_PubScreenName' screenname 'TRXIM_Flags' imageflags) THEN
  73.    quit('Kann die Grafik nicht laden!',10)
  74.  
  75.  
  76. /*
  77. ** Fenster öffnen
  78. */
  79.  
  80. window = TR_OPENPROJECT(app,WindowID(1),
  81.                             WindowPosition('TRWP_CENTERDISPLAY'),
  82.                             WindowFlags('TRWF_NOMINTEXTWIDTH'),
  83.                             WindowTitle("Image"),
  84.                             PubScreenName(screenname),
  85.                                'HorizGroupAC',
  86.                                   'Space',
  87.                                   'VertGroupAC',
  88.                                      'Space',
  89.                                      'GroupBox',
  90.                                      'HorizGroupAC',
  91.                                         BoopsiImageD('Amiga',IMAGEWIDTH('Amiga'),IMAGEHEIGHT('Amiga')),
  92.                                      'EndGroup',
  93.                                      'Space',
  94.                                   'EndGroup',
  95.                                   'Space',
  96.                                'EndGroup',
  97.                             'EndProject')
  98.  
  99.  
  100. /*
  101. ** Auf Schließsymbol warten
  102. */
  103.  
  104. IF window ~= '00000000'x THEN DO
  105.    ende = 0
  106.  
  107.    DO WHILE ~ende
  108.       CALL TR_WAIT(app,'')
  109.  
  110.       DO WHILE TR_HANDLEMSG(app,'event')
  111.          IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN
  112.             ende = 1
  113.       END
  114.    END
  115.  
  116.    CALL TR_CLOSEPROJECT(window)
  117. END
  118. ELSE
  119.    CALL quit('Kann das Fenster nicht öffnen',10)
  120.  
  121. CALL quit('',0)
  122.  
  123.  
  124. /*******************************************************************************
  125. ** Routine, die bei einer Unterbrechung des Scripts aufgerufen wird
  126. *******************************************************************************/
  127.  
  128. break_c:
  129. failure:
  130. halt:
  131. ioerr:
  132. syntax:
  133.    CALL quit('+++ Fehler' rc 'in Zeile' sigl '-' ERRORTEXT(rc)||'0a'x||SOURCELINE(sigl),20)
  134.  
  135.  
  136. /*******************************************************************************
  137. ** Script beenden
  138. *******************************************************************************/
  139.  
  140. quit:
  141.    PARSE ARG message,rcode
  142.  
  143.    IF app ~= '00000000'x THEN DO
  144.       IF message ~= '' THEN
  145.          CALL TR_EASYREQUEST(app,message,'_Okay','TAG_END')
  146.  
  147.       CALL TR_DELETEAPP(app)
  148.    END
  149.    ELSE DO
  150.       IF message ~= '' THEN DO
  151.          SAY message
  152.          SAY
  153.          OPTIONS PROMPT 'Bitte <RETURN> drücken'
  154.          PULL taste
  155.       END
  156.    END
  157.  
  158.    CALL DELETEIMAGE('Amiga')
  159.    EXIT(rcode)
  160.