home *** CD-ROM | disk | FTP | other *** search
/ DTP Toolbox / DTPToolbox.iso / goodies / finalwriter / arexx / finalwrapper / finalwrapper3_0 / fw_macros / fw_tutorial.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-01-28  |  12.1 KB  |  149 lines

  1. /* FW_Tutorial.rexx 1.0 (04.01.95) by NDY's
  2.  
  3. Interactive tutorial. */
  4.  
  5.  
  6. /* Initialisation (this one or a similar code should be used by all FW macros)
  7.    The first IF statement could also be replaced by a simple:
  8.      IF ~Show("P",rxport) THEN EXIT 10
  9.    With this, the macro will only work if FinalWrapper is already started */
  10.  
  11. /* BEGIN init */
  12. OPTIONS RESULTS
  13. rxport="FinalWrapperPort"
  14. IF ~Show("P",rxport) THEN /* Port not found? */
  15.   DO
  16.     /* Read FinalWrapper's default macro path */
  17.     IF Open("path","ENV:FinalWrapper/FWPath","R") THEN
  18.       DO
  19.         path=ReadLn("path")
  20.         CALL Close("path")
  21.       END
  22.     ELSE
  23.       path=""
  24.     /* Run FinalWrapper */
  25.     ADDRESS COMMAND "Run >NIL: Rx" path||"FinalWrapper.rexx"
  26.     /* Wait for port to be created */
  27.     DO i=1 TO 10 WHILE ~Show("P",rxport)
  28.       ADDRESS COMMAND "Wait 3 SECS" /* Wait a moment */
  29.     END
  30.     /* Still not found? -> EXIT  */
  31.     IF ~Show("P",rxport) THEN EXIT 10
  32.   END
  33. ADDRESS VALUE rxport
  34. Lock ON
  35. Prefs STORE
  36. SIGNAL ON ERROR
  37. /* END Init */
  38.  
  39. /* Initialize localized strings */
  40. CALL locale
  41. /* Final Writer started? */
  42. Get PORT
  43. IF RESULT="" THEN
  44.   DO
  45.     Message nofw
  46.     CALL ERROR
  47.   END
  48. /* reqtools available? */
  49. Get REQTOOLS
  50. IF RESULT=0 THEN
  51.   DO
  52.     Message noreqtools
  53.     CALL ERROR
  54.   END
  55. /* Set default settings */
  56. Use MDEF
  57. title="FinalWrapper Tutorial 1.0 by NDY's"
  58. Set WINDOW title
  59.  
  60. /* Begin of tutorial */
  61. DO i=1 TO steps UNTIL ~ok
  62.   ok=message(t.i,b.i)
  63. END
  64. /* END of tutorial */
  65.  
  66. /* Exit */
  67. ERROR:
  68.   Set WINDOW
  69.   Prefs RESET
  70.   Lock OFF
  71.   EXIT
  72. RETURN
  73. locale:
  74.   IF Open(prefs,"ENV:Language","R") THEN
  75.     DO
  76.       language=ReadLn(prefs)
  77.       CALL Close(prefs)
  78.     END
  79.   ELSE
  80.     language="english"
  81.   SELECT
  82.   WHEN language="deutsch" THEN
  83.     DO
  84.       nofw="Bitte_Final_Writer_starten|und_nochmals_versuchen!"
  85.       noreqtools="Dieses_Makro_braucht_die folgenden|Libraries:||rexxreqtools.library|reqtools.library"
  86.       steps=15
  87.       DO i=1 TO steps
  88.         b.i="Hab ich gemacht, weiter geht's!|Abbruch"
  89.       END
  90.       t.1="Willkommen zur Einführung in FinalWrapper!||Sie werden die Grundzüge von Final-|Wrapper (in dieser Einleitung einfach|FW genannt) anhand eines einfachen|Beispiels kennenlernen.||In der Folge erscheinen einige Requester.|Alles was Sie tun müssen, ist den Anweisungen|zu folgen. Klicken Sie dann auf 'Weiter', um|fortzufahren.||Also dann... viel Glück!"
  91.       b.1="Einführung beginnen|Abbruch"
  92.       t.2="Zuerst probieren wir die Online-Hilfe aus!||Wählen Sie den Menupunkt 'Hilfe' im Menu von FW.|Vergessen Sie nicht, erst FWs Fenster zu aktivieren!||Es sollte dann ein AmigaGuide-Text über alle|Schalter und Menupunkte von FW angezeigt|werden.||Wenn ein Requester mit der Meldung 'Online-Hilfe|nicht verfügbar' erscheinen sollte, existiert ent-|weder kein deutscher Hilfstext, oder Sie haben die|'amigaguide.library' nicht installiert (für weitere|Details ziehen Sie bitte die Anleitung zu Rate!).|In diesem Fall können Sie die folgenden zwei|Requester ebenfalls überspringen."
  93.       t.3="Gut gemacht! Jetzt versuchen wir die Hilfe|für Schalter!||Bewegen Sie den Mauszeiger über einen|Schalter in FWs Fenster (wiederum nicht|vergessen, das Fenster zu aktivieren!) und|drücken Sie die Help-Taste.||Es wird dann ein kurzer Text über den Schalter|unter dem Mauszeiger erscheinen."
  94.       t.4="Und jetzt die Hilfe für das Menu...||Drücken Sie die rechte Maustaste,|und bewegen Sie den Mauszeiger|über irgend einen Menupunkt.|Drücken Sie dann wieder die Help-|Taste (bevor Sie die Maustaste|loslassen!).||Wen wundert's: Es wird ein Text über|den Menupunkt angezeigt."
  95.       t.5="Ok, beginnen wir unser erstes Projekt!||Wir wollen einen Text erzeugen, der|ungefähr folgendermassen aussieht:||               o  d  u            |           r                c        |        t                      i     |     n                          n  |    I                            g|    -                             -|    F                            r |     i                          e  |       n                     p     |          a               p        |             l  W  r  a           ||Dies ist eine einfache Aufgabe für FW!"
  96.       b.5="Ok, fangen wir an!|Abbruch"
  97.       t.6="Zuerst müssen wir das Oval definieren.|Wir tun dies, indem wir die Position und|die Grösse in die entsprechenden Felder|eingeben. (Wir könnten auch einfach ein|Oval mit Final Writer zeichnen).||Unser Oval soll 2 cm weg vom oberen|und vom linken Rand zu liegen kommen.|Geben Sie also 2 ins X und ins Y Feld ein.|Breite und Höhe sollen beide 5 cm sein,|geben Sie daher 5 in beide Felder ein.||(Sollten Sie Inch oder Pica verwenden,|müssen Sie die Werte entsprechend|anpassen.)"
  98.       t.7="Jetzt wird es Zeit für den Text!|Wir beginnen mit dem oberen Teil.||Geben Sie also '- Introducing -'|ins Text feld ein."
  99.       t.8="Der Text sollte um das halbe Oval herum|laufen. Daher brauchen wir einen Sektor von 180°.|Geben Sie also 180 in das Feld neben 'Nutze|Sektor'ein (dasjenige, das 360 anzeigt).|Der Schalter mit dem Häkchen wird automatisch|angewählt sobald Sie den Wert eingegeben|haben. Wenn dieser Schalter nicht angewählt|ist, wird die Option einfach ignoriert! Das|erlaubt Ihnen, Optionen, die Sie nicht mehr|benötigen, abzuschalten."
  100.       t.9="Lassen wir nun die erste Hälfte unseres|Textes zeichnen!||Klicken Sie auf Ok.||Das Fenster wird sogleich verkleinert,|so dass nur noch die Titelleiste sichtbar|bleibt. Sobald es wieder seine normale|Grösse annimmt, ist die Operation|beendet."
  101.       t.10="Fahren wir weiter mit den zweiten Teil.||Tippen Sie nun 'FinalWrapper' ins Textfeld."
  102.       t.11="Der Sektor müsste wieder 180° sein.|Wir machen ihn ein wenig kleiner, um|einen kleinen Leerraum einzufügen...|sagen wir 170°. Dies ist der neue Wert|für das Sektor-Feld.||Der Text soll im Gegenuhrzeigersinn|geschrieben werden, daher müssen|wir den Schalter auf 'Nutze Sektor:|Gegenuhrz.' umschalten."
  103.       t.12="Würden wir jetzt Ok anwählen, würde|der neue Text genau über demjenigen|erscheinen, den wir bereits erstellt haben.|Da wir ihn aber unten am Oval haben|möchten, muss er um 180° gedreht werden.||Dies kann mit dem Position-Schalter|erreichnt werden: Setzen Sie ihn auf|'Uhrzeigersinn' (oder 'Gegenuhrzeiger',|da ja 180° in beiden Richtungen dasselbe|ist) und geben Sie 180 als Wert ein."
  104.       t.13="Wir wollen noch eine andere Schrift und|Farbe für den zweiten Teil verwenden:|Wählen Sie den Menupunkt 'Textblock-|Einstellungen'. Es wird dann Final Writers|Textblock Requester angezeigt, in dem|Sie die neue Farbe und Schrift auswählen|können."
  105.       t.14="Klicken Sie erneut auf Ok und warten Sie,|bis das Ganze fertig ist.||Das Einzige, was uns zu tun bleibt, ist,|die beiden Objekte zu Gruppieren, was|ein späteres Herumschieben vereinfacht."
  106.       t.15="Das war's!||Jetzt, da Sie Ihre ersten Schritte mit|FinalWrapper hinter sich haben, können|Sie die Anleitung lesen (oder einfach|die Online-Hilfe verwenden), um die|anderen Effekte auszuprobieren.||Sollten Sie wirklich Probleme haben (was|ich nicht hoffe!), schreiben Sie mir einfach|(aber bitte erst, nachdem Sie die Anleitung|studiert haben!).||Meine Adresse ist im 'Über'-Requester zu|finden.||Viel Spass mit dem Makro!||                   ND"
  107.       b.15="Wiedersehen"
  108.     END
  109.   OTHERWISE
  110.     DO
  111.       nofw="Please_start_Final_Writer|and_try_again!"
  112.       noreqtools="This_macro_needs_the following|libraries_to_run:||rexxreqtools.library|reqtools.library"
  113.       steps=15
  114.       DO i=1 TO steps
  115.         b.i="I've done so, let's go on!|Abort"
  116.       END
  117.       t.1="Welcome to the FinalWrapper tutorial!||You'll be introduced to the basics of|FinalWrapper (in this tutorial simply|called FW) with an easy example.||There will be a series of requesters|appearing. All you have to do is to|follow the instructions in the requester|and then click on 'Let's go on!' to|continue.||Well then... good luck!"
  118.       b.1="Start tutorial|Abort"
  119.       t.2="First, let's try the online help!||Select the Help item in FW's menu. Don't forget|to activate FW's window first!||You should then be shown an AmigaGuide text|about all gadgets and menu items of FW.||If a requester appears saying 'Online help not|available', there's no help file for your language|or you don't have the amigaguide.library installed|(for further details consult the manual!). In this case|you can skip the following two requesters as well."
  120.       t.3="Well done! Now we try the gadget help!||Move the mouse pointer over a gadget|in FW's window (again don't forget to|activate the window first!) and press the|Help key.||You should then be shown a short text|about the gadget beneath the pointer."
  121.       t.4="And now try the menu help...||Press the right mouse button to view|the menu and move the mouse|pointer over anyone menu item.|Then press the Help key again (before|releasing the mouse button!).||Unsurprisingly, you'll be shown a text|about the menu item."
  122.       t.5="Ok, let's start with our first project!||We want to create a text that|looks about like that:||               o  d  u            |           r                c        |        t                      i     |     n                          n  |    I                            g|    -                             -|    F                            r |     i                          e  |       n                     p     |          a               p        |             l  W  r  a           ||This is an easy task for FW!"
  123.       b.5="Ok, let's begin!|Abort"
  124.       t.6="To begin with, we have to define the oval.|We'll do this by entering the position and|size into the apropriate gadgets. (We|could also draw an oval in FinalWriter.)||Our oval should be placed 2 cm away|from the top and the left of the page.|So enter 2 in the X and in the Y gadget.|The width and height should both be 5 cm,|therefore enter 5 in both gadgets.||(If you're using Inch or Pica, you probably|have to modify the suggested values.)"
  125.       t.7="Now we need the text!|We begin with the upper|part. So enter '- Introducing -'|into the text gadget."
  126.       t.8="The text should use about half the|oval. This means we need a 180° arc.|Therefore enter 180 into the gadget|besides 'Use arc' (the one that reads 360).|The check gadget will be automatically|selected when you have entered|the value. Unless it is selected, the|option will be completely ignored!|This allows you to switch off any option|you don't want anymore."
  127.       t.9="Now it's time to let the first half|of our text be drawn!||Click on the Ok gadget.||The window will be reduced in size,|only leaving the title bar visible.|When it changes to it's normal size|again, the drawing is finished."
  128.       t.10="Let's continue with the second part.||Now type 'FinalWrapper' into the|text gadget."
  129.       t.11="Again the arc would have to be 180°.|We make it a little smaller to add|some space between... let's say 170°.|This is the new value for the arc gadget.||The text has to be written anticlockwise,|so you have to change the gadget|to Use arc: Anticlockwise."
  130.       t.12="If we would click on Ok now, the new|text would be placed exactly over the|one we already created. But we want|it at the bottom of the oval. This means|it has to be turned around by 180°.||This can be done using the Begin gadget:|Set it to Clockwise (or Anticlockwise|as 180° in either direction is the same)|and enter 180 as value."
  131.       t.13="Now let's use another font and colour|for our second part: Select the menu|item 'Textblock preferences'. You'll be|shown Final Writer's textblock requester|where you can set the new colour etc."
  132.       t.14="Again click on Ok and wait till it's|finished.||The only thing we have to do now is|grouping the two objects together|so we can move them around easily."
  133.       t.15="That's it!||Now you have done your first steps with|FinalWrapper, you can read the manual|(or just use the online help!) to explore the|other effects.||If you really should have troubles (I don't|hope so!), just write me (but please do|consult the manual first!).||My address can be found in the About|requester.||Have fun using the macro!||                   ND"
  134.       b.15="Bye"
  135.     END
  136.   END
  137. RETURN
  138. message:
  139.   PARSE ARG msg,button
  140.   IF button="" THEN button="Ok"
  141.   p=Pos("|",msg)
  142.   DO WHILE p>0
  143.     msg=Left(msg,p-1)||"0A"x||SubStr(msg,p+1)
  144.     p=Pos("|",msg)
  145.   END
  146.   button=RTEZRequest(msg,button,title)
  147. RETURN button
  148.  
  149.