home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 031-040 / amok31 / sysrequest / sysrequest.dok < prev    next >
Encoding:
Text File  |  1993-11-04  |  1.6 KB  |  37 lines
  1. ************************************************************
  2. Dokumentation zum Modul SysRequest    Bernd Preusing 9.11.89
  3. ************************************************************
  4.  
  5. Falls Programme einen Customscreen öffnen und darauf laufen, wird
  6. normalerweise bei einem System-Requester ('Please insert volume..')
  7. der Workbench-Screen nach vorne gebracht und darauf der Requester
  8. angezeigt. Danach bleibt der eigene Screen hinten. Das ist manchmal
  9. sehr störend.
  10.  
  11. Um dies zu vermeiden, habe ich dieses Modul geschrieben. Es stellt
  12. zwei Prozeduren zur Verfügung:
  13.  
  14.   PROCEDURE SetReqWindow(Win:Intuition.WindowPtr);
  15.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  16. Hiermit werden alle Requester auf den Screen des Windows umgeleitet.
  17. Die Prozedur kann mehrfach aufgerufen werden, um jeweils umzuschalten.
  18. Eine TermProcedure setzt am Programmende den ursprünglichen Wert wieder
  19. ein.
  20.  
  21.   PROCEDURE Requester(header, body, pos, neg:ADDRESS):BOOLEAN
  22.   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  23. Diese Prozedur ist identisch mit Arts.Requester, bis auf die Tatsache,
  24. daß dort immer der Workbench-Screen benutzt wird, hier hingegen der
  25. mittels SetReqWindow() gesetzte. Falls SetReqWindow vorher nicht
  26. aufgerufen wurde, wird hier einfach der Workbench-Screen benutzt.
  27.  
  28. Die Parameter sind die Adressen von Texten.
  29.     header: die oberste Zeile
  30.     body:    die zweite Zeile (kann auch NIL sein)
  31.     pos:    der Text des Positiv-Gadgets (kann auch NIL sein, dann ist
  32.         nur eine negative Antwort des Benutzers möglich)
  33.     neg:    der Text des Negativ-Gadgets
  34.     Resultat: TRUE, wenn Pos angeklickt wurde, sonst FALSE
  35.  
  36. ************************************************************
  37.