home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / OTL-MC7.DMS / in.adf / ansicdemo.lha / ANSI-C / RCT / ScrWin.c < prev   
Encoding:
C/C++ Source or Header  |  1994-10-30  |  1.3 KB  |  49 lines
  1. #include <exec/types.h>
  2. #include <intuition/intuition.h>
  3. #include <libraries/dosextens.h>
  4. #include <functions.h>
  5. #include <stdio.h>
  6. #include <pragma/rct_lib.h>
  7.  
  8.  
  9. APTR ApplBase;
  10. APTR RctBase;
  11.  
  12. void main( void)
  13. {
  14. struct Window *win,*win1;
  15. SHORT handle,quit = 1;
  16. struct TagItem taglist[8];
  17. struct Screen *scr;
  18.  
  19. taglist[0].ti_Tag = 40;
  20.  
  21.  
  22. if( ! (RctBase =(APTR)OpenLibrary( ( UBYTE *)"rct.library",16L)))
  23.   {
  24.   printf("Can't open libraries\n");
  25.   return;
  26.   }
  27. if( ApplBase = R_InitApplTags( TAG_DONE))
  28.   {
  29.   scr = ( struct Screen *)R_ShowScreenTags( ApplBase, RSA_CloneWB, 1L, TAG_DONE);
  30.  
  31.  
  32.    /* Hier Hauptprogramm einügen! */
  33.  
  34.     /* Dieses Window wird in voller Größe auf dem neuen Screen geöffnet */
  35.   win = ( struct Window *)R_ShowWindowTags( ApplBase, RWA_SCRCPY, 1, RWA_CustomScreen, ( ULONG)scr, TAG_DONE);
  36.     /* Und dieses auf der Workbench */
  37.   win1 = ( struct Window *)R_ShowWindowTags( ApplBase, RWA_SCRCPY, 1, RWA_Height, 200, TAG_DONE);
  38.  
  39.   Delay( 100);
  40.     R_FormAlertTags( ApplBase, RFA_Center, 1L, RFA_CloseID , 2L, RFA_WindowDrag, 1L, RFA_WindowClose, 1L, RFA_WindowDepth, 1L, RFA_DefaultID, 2, RFA_GadgetText,"_OK|_Zurück",RFA_AlertText, "[2][ |Programm beenden ?]",TAG_DONE);
  41.  
  42.   R_ExitAppl( ApplBase);
  43.   }
  44. CloseLibrary( ( struct Library *)RctBase);
  45. }
  46.  
  47. #include <rct/rcttagfuncs.h>
  48.  
  49.