home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS2.0 / closeWB.p < prev    next >
Encoding:
Text File  |  1994-08-25  |  681 b   |  28 lines
  1. { Programm:  CloseWB                               
  2.   ~~~~~~~~~
  3.   Sprache:   MaxonPASCAL 3 / KP 2.12 (OS2)
  4.   ~~~~~~~~
  5.   Sinn:      schließt WBScreen wenn keine Windows darauf für 2 Sek
  6.   ~~~~~
  7.   Autor:     PackMAN
  8.   ~~~~~~     c/o Falk Zühlsdorff
  9.              Lindenberg 66
  10.              D-98693 Ilmenau / Thüringen
  11.  
  12.   Kommentar: Version für MAXON
  13.   ~~~~~~~~~                                                             } 
  14.  
  15. PROGRAM CloseWB;
  16. USES Intuition,Exec;
  17. VAR ok     : long;
  18.     oWB    : boolean;
  19.  
  20. BEGIN
  21.  ok:=CloseWorkbench;
  22.  IF ok<>0 THEN         { WBScreen ließ sich schließen }
  23.            BEGIN
  24.             delay(100);
  25.             oWB:=OpenWorkbench;
  26.            END;
  27. END.
  28.