home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / OTL-MC4.DMS / in.adf / Archive / Prog.lha / Source / ARexx / Beispiel3.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-02-01  |  1.3 KB  |  43 lines
  1. /*
  2.  
  3.    Das Programm öffnet ein HotHelp-Fenster und manipuliert dieses dann mit
  4.    einer Reihe von Kommandos.
  5.  
  6. */
  7.  
  8. options results
  9. address HOTHELP_REXX
  10.  
  11. HH_OpenWindow "HotHelp" "Startseite" (-1) (-1)
  12. id = result
  13.  
  14. If id = 0 Then
  15.    Say "Sorry, aber irgendwas hat nicht geklappt..."
  16. Else Do
  17.    Say "Aktivieren Sie bitte dieses Fenster und drücken Sie die Return-Taste!"; Pull x
  18.    Say "Der Fensterinhalt wird nun zeilenweise verschoben..."
  19.    Do 30; HH_ScrollWindow id 1 0; End
  20.    Do 30; HH_ScrollWindow id (-1) 0; End
  21.  
  22.    Say "Drücken Sie bitte die Return-Taste!"; Pull x
  23.    Say "Der Fensterinhalt wird nun seitenweise verschoben..."
  24.    Do 11; HH_ScrollPage id Down; End
  25.    Do 11; HH_ScrollPage id Up; End
  26.  
  27.    Say "Drücken Sie bitte die Return-Taste!"; Pull x
  28.    Say "Nun wird der Text 'Exchange' gesucht. Groß-/Kleinschreibung wird ignoriert..."
  29.    HH_SearchWindow id "Exchange" IGNORE
  30.  
  31.    Say "Drücken Sie bitte die Return-Taste!"; Pull x
  32.    Say "Ein neuer Text wird dargestellt..."
  33.    HH_SetStrGadget id "ANSI-C" "strcmp"
  34.  
  35.    Say "Drücken Sie bitte die Return-Taste!"; Pull x
  36.    Say "Nun wird das Fenster wieder aktiviert..."
  37.    HH_ActivateWindow id
  38.  
  39.    Say "Aktivieren Sie bitte dieses Fenster und drücken Sie die Return-Taste!"; Pull x
  40.    Say "Nun wird das Fenster wieder geschlossen."
  41.    HH_CloseWindow id
  42. End
  43.