home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / emulator / appleonamiga / txt / acgadgets.mod < prev    next >
Text File  |  1995-02-27  |  2KB  |  135 lines
  1. IMPLEMENTATION MODULE ACGadgets;
  2.  
  3. FROM SYSTEM IMPORT ADR,LONGSET;
  4.  
  5. IMPORT
  6.  g:GraphicsD,i:IntuitionD;
  7.  
  8. CONST
  9.  angleVertex=3;
  10.  boxL=20;
  11.  boxDif=20;
  12.  boxT1=20; boxT2=boxT1+boxDif; boxT3=boxT2+boxDif;
  13.  boxW=200; boxH=10;
  14.  textL=10; textT=2;
  15. TYPE
  16.  AngleBorder=ARRAY[0..2*angleVertex-1] OF INTEGER;
  17. VAR
  18.  border2:=i.Border{
  19.   leftEdge:0
  20.   ,topEdge:0
  21.   ,frontPen:1
  22.   ,backPen:0
  23.   ,drawMode:g.jam1
  24.   ,count:angleVertex
  25.   ,xy:ADR(AngleBorder{
  26.    boxW+1,-2
  27.    ,boxW+1,boxH+1
  28.    ,-2,boxH+1
  29.   })
  30.   ,nextBorder:NIL
  31.  };
  32.  border:=i.Border{
  33.   leftEdge:0
  34.   ,topEdge:0
  35.   ,frontPen:2
  36.   ,backPen:0
  37.   ,drawMode:g.jam1
  38.   ,count:angleVertex
  39.   ,xy:ADR(AngleBorder{
  40.    -2,boxH+1
  41.    ,-2,-2
  42.    ,boxW+1,-2
  43.   })
  44.   ,nextBorder:ADR(border2)
  45.  };
  46.  textAttr:=g.TextAttr{
  47.   name:ADR("topaz.font")
  48.   ,ySize:8
  49.   ,style:g.FontStyleSet{}
  50.   ,flags:g.FontFlagSet{}
  51.  };
  52.  gadget3:=i.Gadget{
  53.   nextGadget:NIL
  54.   ,leftEdge:boxL
  55.   ,topEdge:boxT3
  56.   ,width:boxW
  57.   ,height:boxH
  58.   ,flags:i.GadgetFlagSet{}
  59.   ,activation:i.ActivationFlagSet{i.relVerify}
  60.   ,gadgetType:i.boolGadget
  61.   ,gadgetRender:ADR(border)
  62.   ,selectRender:NIL
  63.   ,gadgetText:ADR(i.IntuiText{
  64.     frontPen:1
  65.     ,backPen:0
  66.     ,drawMode:g.jam1
  67.     ,leftEdge:textL
  68.     ,topEdge:textT
  69.     ,iTextFont:ADR(textAttr)
  70.     ,iText:ADR("Send AmigaComm")
  71.     ,nextText:NIL
  72.    })
  73.   ,mutualExclude:LONGSET{}
  74.   ,specialInfo:NIL
  75.   ,gadgetID:3
  76.   ,userData:NIL
  77.  };
  78.  gadget2:=i.Gadget{
  79.   nextGadget:ADR(gadget3)
  80.   ,leftEdge:boxL
  81.   ,topEdge:boxT2
  82.   ,width:boxW
  83.   ,height:boxH
  84.   ,flags:i.GadgetFlagSet{}
  85.   ,activation:i.ActivationFlagSet{i.relVerify}
  86.   ,gadgetType:i.boolGadget
  87.   ,gadgetRender:ADR(border)
  88.   ,selectRender:NIL
  89.   ,gadgetText:ADR(i.IntuiText{
  90.     frontPen:1
  91.     ,backPen:0
  92.     ,drawMode:g.jam1
  93.     ,leftEdge:textL
  94.     ,topEdge:textT
  95.     ,iTextFont:ADR(textAttr)
  96.     ,iText:ADR("Receive ROM")
  97.     ,nextText:NIL
  98.    })
  99.   ,mutualExclude:LONGSET{}
  100.   ,specialInfo:NIL
  101.   ,gadgetID:2
  102.   ,userData:NIL
  103.  };
  104.  gadget1:=i.Gadget{
  105.   nextGadget:ADR(gadget2)
  106.   ,leftEdge:boxL
  107.   ,topEdge:boxT1
  108.   ,width:boxW
  109.   ,height:boxH
  110.   ,flags:i.GadgetFlagSet{}
  111.   ,activation:i.ActivationFlagSet{i.relVerify}
  112.   ,gadgetType:i.boolGadget
  113.   ,gadgetRender:ADR(border)
  114.   ,selectRender:NIL
  115.   ,gadgetText:ADR(i.IntuiText{
  116.     frontPen:1
  117.     ,backPen:0
  118.     ,drawMode:g.jam1
  119.     ,leftEdge:textL
  120.     ,topEdge:textT
  121.     ,iTextFont:ADR(textAttr)
  122.     ,iText:ADR("Receive Disk")
  123.     ,nextText:NIL
  124.    })
  125.   ,mutualExclude:LONGSET{}
  126.   ,specialInfo:NIL
  127.   ,gadgetID:1
  128.   ,userData:NIL
  129.  };
  130.  
  131. BEGIN
  132.  gadgets:=ADR(gadget1);
  133. END ACGadgets.
  134.  
  135.