home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / e-tools / egui-tools / src / screenmode_test.e < prev    next >
Encoding:
Text File  |  1996-06-15  |  856 b   |  21 lines
  1. MODULE  'req/screenobject'      -> Für das Object...
  2. MODULE  'req/reqtypes'          -> Um einzustellen ob ASL oder REQTOOLS
  3. MODULE  'req/screenmode'        -> Das eigendliche Modul...
  4.  
  5. PROC main()
  6.  DEF    sd:PTR TO screenobj     -> Das Screenobject...
  7.   NEW sd                        -> Objekt Initialisieren (muß IMMER gemacht werden!)
  8.    screenmoderequest('test - ASL-Modus...',TYPE_ASL,sd)
  9.     WriteF(' Width : \d\n',sd.width)
  10.      WriteF(' Height: \d\n',sd.height)
  11.       WriteF(' Depth : \d\n',sd.depth)
  12.        WriteF(' ID    : $\h\n',sd.displayid)
  13.    screenmoderequest('test - REQTOOLS-Modus...',TYPE_REQTOOLS,sd)
  14.     WriteF(' Width : \d\n',sd.width)
  15.      WriteF(' Height: \d\n',sd.height)
  16.       WriteF(' Depth : \d\n',sd.depth)
  17.        WriteF(' ID    : $\h\n',sd.displayid)
  18.   END sd                        -> Objectspeicher wieder freigeben
  19. ENDPROC
  20.  
  21.