home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / programmieren / e / e_v3.3a / src.lha / Src / Gfx / TextureMapping / screenmodereq_db.e < prev    next >
Encoding:
Text File  |  1997-03-09  |  944 b   |  35 lines
  1. -> asl screenmode module for db
  2.  
  3. OPT OSVERSION=38, MODULE
  4. OPT EXPORT
  5.  
  6. MODULE 'asl', 'libraries/asl', 'intuition/screens', 'tools/scrbuffer'
  7.  
  8. PROC openreqscreen(xs,ys,depth,title) HANDLE
  9.   DEF fr:PTR TO screenmoderequester,scr:PTR TO screen
  10.   IF (aslbase:=OpenLibrary('asl.library',37))=NIL THEN Raise("ASL")
  11.   IF (fr:=AllocAslRequest(ASL_SCREENMODEREQUEST,NIL))=NIL THEN Raise("REQ")
  12.   IF AslRequest(fr, NIL)
  13.     IF (scr:=sb_OpenScreen(
  14.       [SA_WIDTH,      xs,
  15.        SA_HEIGHT,     ys,
  16.        SA_DEPTH,      depth,
  17.        SA_TYPE,       CUSTOMSCREEN,
  18.        SA_QUIET,      TRUE,
  19.        SA_OVERSCAN,   OSCAN_TEXT,
  20.        SA_AUTOSCROLL, TRUE,
  21.        SA_DISPLAYID,  fr.displayid,
  22.        SA_TITLE,      title,
  23.        NIL],0))=NIL THEN Raise("SCR")
  24.     RETURN scr
  25.   ENDIF
  26. EXCEPT DO
  27.   IF fr THEN FreeAslRequest(fr)
  28.   IF aslbase THEN CloseLibrary(aslbase)
  29.   ReThrow()
  30. ENDPROC NIL
  31.  
  32. PROC closereqscreen(scr)
  33.   IF scr THEN sb_CloseScreen(scr)
  34. ENDPROC
  35.