home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 274.lha / SimGen_Src / window1.c < prev   
Encoding:
C/C++ Source or Header  |  1989-07-26  |  2.6 KB  |  88 lines
  1. /*                        window1.c
  2. */
  3.  
  4. #include <exec/types.h>
  5. #include <intuition/intuition.h>
  6.  
  7. struct TextAttr NormFont = {
  8.     (UBYTE *)"topaz.font",    /* Font Name        */
  9.     8,            /* Font Height        */
  10.     FS_NORMAL,        /* Style        */
  11.     FPF_ROMFONT };        /* Preferences        */
  12.  
  13. #define NFONT    &NormFont
  14.  
  15. char credits0[] = "          SimGen Version 1.0";
  16. char credits1[] = "          © 1989 Gregg Tavares";
  17. char credits2[] = "Echidna                     CIS: 72411,2772";
  18. char credits3[] = "3501 Jasmine Ave #15        BIX: echidna";
  19. char credits4[] = "Los Angeles, CA  90034    PLINK: GreggT";
  20.  
  21. #define CTextS(line,text,next)    {2,0,JAM1,CX+1,CY+1+line*8,NFONT,(UBYTE *)text,next,}
  22. #define CText(line,text,next)    {1,0,JAM1,CX,CY+line*8,NFONT,(UBYTE *)text,next,}
  23. #define CX    8
  24. #define    CY    3
  25.  
  26. struct IntuiText CIText[] = {
  27.     CTextS(0,credits0,&CIText[1]),
  28.     CText (0,credits0,&CIText[2]),
  29.     CTextS(1,credits1,&CIText[3]),
  30.     CText (1,credits1,&CIText[4]),
  31.     CTextS(3,credits2,&CIText[5]),
  32.     CText (3,credits2,&CIText[6]),
  33.     CTextS(4,credits3,&CIText[7]),
  34.     CText (4,credits3,&CIText[8]),
  35.     CTextS(5,credits4,&CIText[9]),
  36.     CText (5,credits4,NULL),
  37. };
  38.  
  39. struct Image CImage = {
  40.     0,0,360,56,2,NULL,0,3,NULL,
  41. };
  42.  
  43. struct Gadget CGadget = {
  44.     NULL,2,1,0,0,GADGIMAGE,NULL,BOOLGADGET,(APTR)&CImage,NULL,
  45.     &CIText[0],NULL,NULL,0,NULL,
  46. };
  47.  
  48. #define PWFLAGS SMART_REFRESH | ACTIVATE
  49.  
  50. #define IFLAGS1    MOUSEBUTTONS
  51. #define IFLAGS2    NULL
  52. #define IFLAGS    IFLAGS1 | IFLAGS2
  53.  
  54. struct NewWindow NewWindow =
  55. {
  56. /* --SHORT------------------------------------------------------------*/
  57. /* LeftEdge    */    138,
  58. /* Top Edge    */     50,
  59. /* Width       */    364,
  60. /* Height      */     58,
  61. /* --UBYTE------------------------------------------------------------*/
  62. /* DetailPen   */      1,
  63. /* BlockPen    */      2,
  64. /* --USHORT-----------------------------------------------------------*/
  65. /* IDCMPFlags  */    IFLAGS,
  66. /* --ULONG------------------------------------------------------------*/
  67. /* Flags       */    PWFLAGS,
  68. /* --struct Gadget * -------------------------------------------------*/
  69. /* FirstGadget */    &CGadget,
  70. /* --struct Image * --------------------------------------------------*/
  71. /* CheckMark   */    NULL,
  72. /* --UBYTE * ---------------------------------------------------------*/
  73. /* Title       */    NULL,
  74. /* --struct Screen * -------------------------------------------------*/
  75. /* Screen      */    NULL,
  76. /* --struct BitMap * -------------------------------------------------*/
  77. /* BitMap      */    NULL,
  78. /* --SHORT------------------------------------------------------------*/
  79. /* MinWidth    */    0,
  80. /* MinHeight   */    0,
  81. /* MaxWidth    */    0,
  82. /* MaxHeight   */    0,
  83. /* --USHORT-----------------------------------------------------------*/
  84. /* Type        */    WBENCHSCREEN
  85.  
  86. };
  87.  
  88.