home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / OTL-MS01.DMS / in.adf / Macros / InLocator.rx next >
Encoding:
Text File  |  1994-11-26  |  1.1 KB  |  29 lines
  1. /* InLocator.rx
  2. Setzen der Startmarkierung (IN Locator) der Schnittliste auf die
  3. aktuelle Position. Ist bereits eine Startmarkierung gesetzt, wird
  4. diese lediglich gelöscht.
  5. */
  6.  
  7. Address MOVIESHOP               /* ARexx-Port von MovieShop */
  8. Options RESULTS                 /* Rückgabeauswertung einschalten */
  9.  
  10. GETTIMELINELOCATOR IN           /* aktuelle Startmarkierung holen */
  11. If ~RC Then Do
  12.   If (RESULT >= 0) then CLEARTIMELINELOCATOR IN
  13.                                 /* Markierung löschen */
  14.   Else Do
  15.     GETTIMELINEFRAMEPOS         /* aktuelle Position holen */
  16.     If RC Then Leave            /* Fehleraussprung */
  17.     InLoc = RESULT
  18.     GETTIMELINELOCATOR OUT      /* aktuelle Endmarkierung holen */
  19.     If RC Then Leave            /* Fehleraussprung */
  20.     OutLoc = RESULT
  21.     If (OutLoc < 0) Then OutLoc = InLoc
  22.                                 /* keine Endmarkierung gesetzt */
  23.     If (InLoc > OutLoc) Then DISPLAYBEEP
  24.                                 /* Fehler */
  25.     Else SETTIMELINELOCATOR IN InLoc
  26.                                 /* neue Startmarkierung setzen */
  27.   End
  28. End
  29.