home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / Intuitionwindow.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  663 b   |  18 lines
  1. { MaxonPASCAL3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2. Program IntuitionWindow;
  3. Var
  4.   wh: Ptr;
  5. Begin
  6.   wh:=Open_Window(0,0,     { Position }
  7.                   640,200, { Größe }
  8.                   $0201,   { schwarze Schrift, weißer Rahmem }
  9.                   $0200,   { IDMCP: nur _CLOSEWINDOW }
  10.                   $100f,   { Fester aktiv und alle Gadgets }
  11.                   'Intuitionwindow',    { Name }
  12.                   Nil,     { auf Workbench-Screen }
  13.                   200,40,  { Mindestgröße }
  14.                   640,256);{ maximale Größe }
  15.   Delay(3*50);             { 3 Sekunden warten }
  16.   Close_Window(wh)         { Fenster schließen }
  17. End.
  18.