home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / Src / Tools / CloneScreen / testclone.e < prev   
Text File  |  1992-09-02  |  634b  |  22 lines
  1. -> test screen cloning
  2.  
  3. OPT OSVERSION=37
  4.  
  5. MODULE 'tools/clonescreen'
  6.  
  7. PROC main() HANDLE
  8.   DEF screen=NIL,font=NIL,win=NIL,xsize,ysize,depth
  9.   screen,font:=openclonescreen('Workbench','My Cloned Workbench')
  10.   win:=backdropwindow(screen)
  11.   depth,xsize,ysize:=getcloneinfo(screen)
  12.   EasyRequestArgs(win,[20,0,'On My Own Screen + Backdrop Window!',
  13.                             'Screen Dimensions Are \dx\dx\d',
  14.                             'Continue'],0,[xsize,ysize,depth])
  15. EXCEPT DO
  16.   closeclonescreen(screen,font,win)
  17.   SELECT exception
  18.     CASE "SCR"; WriteF('no screen!\n')
  19.     CASE "WIN"; WriteF('no window!\n')
  20.   ENDSELECT
  21. ENDPROC
  22.