home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / src / guide / screens2.e < prev    next >
Text File  |  1977-12-31  |  880b  |  34 lines
  1. MODULE 'intuition/intuition', 'graphics/view'
  2.  
  3. ENUM WIN=1, SCRN
  4.  
  5. RAISE WIN  IF OpenW()=NIL,
  6.       SCRN IF OpenS()=NIL
  7.  
  8. PROC main() HANDLE
  9.   DEF sptr=NIL, wptr=NIL, i
  10.   sptr:=OpenS(640,200,4,V_HIRES,'Screen demo')
  11.   wptr:=OpenW(0,20,640,180,IDCMP_CLOSEWINDOW,
  12.               WFLG_CLOSEGADGET OR WFLG_ACTIVATE,
  13.               'Graphics demo window',sptr,$F,NIL)
  14.   TextF(20,20,'Hello World')
  15.   FOR i:=0 TO 15  /* Draw a line and box in each colour */
  16.     Line(20,30,620,30+(7*i),i)
  17.     Box(10+(40*i),140,30+(40*i),170,1)
  18.     Box(11+(40*i),141,29+(40*i),169,i)
  19.   ENDFOR
  20.   WHILE WaitIMessage(wptr)<>IDCMP_CLOSEWINDOW
  21.   ENDWHILE
  22. EXCEPT DO
  23.   IF wptr THEN CloseW(wptr)
  24.   IF sptr THEN CloseS(sptr)
  25.   SELECT exception
  26.   CASE 0
  27.     WriteF('Program finished successfully\n')
  28.   CASE WIN
  29.     WriteF('Could not open window\n')
  30.   CASE SCRN
  31.     WriteF('Could not open screen\n')
  32.   ENDSELECT
  33. ENDPROC
  34.