home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestScreen < prev    next >
Encoding:
Text File  |  2004-01-31  |  226 b   |  12 lines
  1. scr <- Screen new
  2.  
  3. scr setScreenModeID: 16r40D20042
  4.  
  5. scr open: 'TestScreen script!'
  6.  
  7. depth <- scr getDepth
  8. viObj <- scr getVisualInfo: nil
  9.  
  10. ( 'Screen depth is ', depth asString) print
  11.  
  12. ( 'VisualInfo   is ', viObj asHex ) print