home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / Windowstructdemo.p < prev   
Encoding:
Text File  |  1994-07-23  |  415 b   |  22 lines
  1. Program WindowStructDemo;
  2. USES INTUITION;
  3. Const
  4.  x=80;
  5.  y=40;
  6.  b=200;
  7.  h=100;
  8. Var
  9.  Win: ^Window;
  10. Begin
  11.  Win:=Open_Window(x,y,b,h,1,0,$1007,'Touch me!',Nil,0,0,640,256);
  12.  { Fenster wie immer öffnen }
  13.  Repeat
  14.    { Eine Warteschleife - miserabler Programmierstil! }
  15.  Until (Win^.LeftEdge <> x) or (Win^.TopEdge <> y)
  16.     or (Win^.Width <> b) or (Win^.Height <> h);
  17.  Close_Window(Win);
  18.  CloseLib(Intuitionbase);
  19. End.
  20.  
  21.  
  22.