home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / FTRANS12.DMS / in.adf / MoreRexx / FTransFW.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-10-28  |  1.9 KB  |  68 lines
  1. /*  $VER: FTransFW.rexx 1.0 (Oct 20 1994)
  2.  *
  3.  *  Script um in Finalwriter ein Wort einzufügen.
  4.  *
  5.  *  Beispiel Arexx-Script für das Arexx-Interface von FTrans und
  6.  *  der Textverarbeitung Finalwriter.
  7.  *  Copyright (c) 1994 by Rainer Hess.
  8.  *
  9.  *  Script-Installation in Finalwriter:
  10.  *
  11.  *   1.Wählen Sie im Menü <Projekt> <Voreinstellungen/Benutzerbefehlsleiste>
  12.  *     aus.
  13.  *   2.Im nun neu geöffneten Fenster müssen Sie die Befehlsleiste auswählen
  14.  *     (evtl. 2).
  15.  *   3.Nun ziehen Sie aus der Reihe Schalter ein passendes Icon in die
  16.  *     mittlere Listbox; z.B. das Icon "F".
  17.  *   4.Als "Type" müssen Sie ARexx-Script einstellen. (recht oben)
  18.  *   5.Nun selektieren Sie "Auswählen" und wählen diese Datei
  19.  *   ("FTransFW.rexx") aus.
  20.  *   6. Nun selektieren Sie "sichern".
  21.  *
  22.  *   Es müßte nun ein neues Icon in der Befehlsleiste zu finden sein.
  23.  *   Drücken Sie hierzu oben rechts auf den Pfeil. Um die Anpassung
  24.  *   nun zu testen.
  25.  *
  26.  *  -> Beachten Sie, daß die Programme FTrans und RexxMast aktiv
  27.  *     sein müssen.
  28.  */
  29.  
  30. options results
  31.  
  32. /*
  33.  * Läuft Ftrans mit ARexx-Port "rexx_FTrans"?
  34.  */
  35.  
  36. ok = show("P","rexx_FTrans")
  37. if ok = 0 then do
  38.    ShowMessage 1 1 '"Entschuldigung, das Programm FTrans" "mit Arexx-Port rexx_FTrans läuft nicht!" "" " Abbruch   " "" ""'
  39.    exit 0
  40. end
  41.  
  42. RequestText '"FTrans FinalWriter ARexx Script" "Bitte ein Wort zum übersetzen eingeben"'
  43. UebergabeWort = result
  44.  
  45. if UebergabeWort = -1 then do
  46.   exit 0
  47. end
  48.  
  49. /*
  50.  * FTrans Arexx-Port aktivieren.
  51.  */
  52.  
  53. address 'rexx_FTrans'
  54.  
  55. /*
  56.  * FTrans holt das Wort als Argument direkt ab. Wurde das Wort nicht
  57.  * gefunden steht es in den geschweiften Blockklammern { und }.
  58.  */
  59.  
  60. WortArg UebergabeWort
  61. TranslateWort = result
  62.  
  63. address            /* Adresse Final-Writer                           */
  64. FindCursor        /* Cursorpostition zeigen - nicht unbeding nötigt */
  65. Type TranslateWort    /* Bei Cursorposition Wort einfügen               */
  66.  
  67. exit 0
  68.