home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / OTL-MC4.DMS / in.adf / Archive / Prog.lha / Source / ARexx / Beispiel4.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-02-01  |  1.9 KB  |  69 lines
  1. /*
  2.  
  3.    Das  Programm  öffnet ein HotHelp-Fenster und wertet dessen Inhalt aus,
  4.    nachdem  der Anwender Gelegenheit hatte, diesen zu verändern (oder auch
  5.    das Fenster zu schließen).
  6.  
  7. */
  8.  
  9. options results
  10. address HOTHELP_REXX
  11.  
  12. HH_OpenWindow "HotHelpTool*" "Fließtext*Marke" (-1) (-1)
  13. id = result
  14.  
  15. If id = 0 Then
  16.    Say "Sorry, aber irgendwas hat nicht geklappt..."
  17. Else Do
  18.    Say "Sie können nun den dargestellten Text beliebig verschieben,"
  19.    Say "einen neuen Text laden oder auch das Fenster schließen."
  20.    Say "Aktivieren Sie anschließend dieses Fenster hier und drücken"
  21.    Say "die Return-Taste, untersucht das Programm das Fenster und"
  22.    Say "gibt die aktuellen Einstellungen aus."
  23.    Pull x
  24.  
  25.    HH_CheckWindow id
  26.  
  27.    If result == "OPEN" Then Do
  28.       say "Die ID des Fensters lautet:           " id
  29.  
  30.       HH_Status id Pro
  31.       Say "Der aktuelle Projekt-String lautet:   " result
  32.  
  33.       HH_Status id Key
  34.       Say "Der aktuelle Schlüssel-String lautet: " result
  35.  
  36.       HH_Status id Act_Pro
  37.       Say "Das aktuelle Projekt heißt:           " result
  38.  
  39.       HH_Status id Act_Key
  40.       Say "Der aktuelle Schlüssel heißt:         " result
  41.  
  42.       HH_Status id Win_Lines
  43.       lines = result
  44.       HH_Status id Win_Columns
  45.       cols = result
  46.       Say "Das Fenster beinhaltet" lines "Zeilen und" cols "Spalten"
  47.  
  48.       HH_Status id Txt_Lines
  49.       lines = result
  50.       HH_Status id Txt_Columns
  51.       cols = result
  52.       Say "Der Text beinhaltet" lines "Zeilen und" cols "Spalten"
  53.  
  54.       HH_Status id First_Line
  55.       line = result
  56.       HH_Status id First_Column
  57.       col = result
  58.       Say "Die Darstellung beginnt in Zeile" line "und Spalte" col
  59.  
  60.       Say ""
  61.       Say "Das HotHelp-Fenster bleibt geöffnet, obwohl das ARexx-Programm"
  62.       Say "hier endet. Sie können es aber wie üblich über das Schließgadget"
  63.       Say "entfernen."
  64.  
  65.       End
  66.    Else
  67.       Say "Das Fenster wurde geschlossen"
  68. End
  69.