home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 432a.lha / ToolLibrary_2.06 / src / Intui2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-11  |  3.5 KB  |  85 lines
  1.  /********************************************************************/
  2.  /****                                                            ****/
  3.  /****                                                            ****/
  4.  /****    Program          : Intui-Funktionen                     ****/
  5.  /****                                                            ****/
  6.  /****    Version          :    01.06                             ****/
  7.  /****                                                            ****/
  8.  /****    Erstversion      : 21.05.1988                           ****/
  9.  /****                                                            ****/
  10.  /****    Letzte Änderung  : 23.03.1990                           ****/
  11.  /****                                                            ****/
  12.  /****    Compiliert mit   : siehe MAKE                           ****/
  13.  /****                                                            ****/
  14.  /****    Gelinkt mit      : Für Tool.Library                     ****/
  15.  /****                                                            ****/
  16.  /********************************************************************/
  17.  /****                                                            ****/
  18.  /****                                                            ****/
  19.  /****               Copyright by Rüdiger Dreier                  ****/
  20.  /****                                                            ****/
  21.  /****                                                            ****/
  22.  /********************************************************************/
  23.  
  24.  #include "ToolProto.h"
  25.  #include <intuition/intuition.h>
  26.  #include <intuition/intuitionbase.h>
  27.  #include <libraries/dos.h>
  28.  #include <graphics/gfxmacros.h>
  29.  #include <exec/memory.h>
  30.  #include <intuition/intuitionbase.h>
  31.  #include <proto/intuition.h>
  32.  #include <proto/graphics.h>
  33.  #include <stdlib.h>
  34.  #include <stdio.h>
  35.  #include <string.h>
  36.  
  37.  
  38.  #define ACTIVE_SCREEN IntuitionBase->ActiveScreen
  39.  #define ACTIVE_WINDOW IntuitionBase->ActiveWindow
  40.  #define CODE  ((Message!=0) ? Message->Code  : 0)
  41.  #define CLASS ((Message!=0) ? Message->Class : 0)
  42.  #define CircleFill(RP,x,y,r) EllFill(RP,x,y,r,r);
  43.  
  44.  extern struct IntuitionBase *IntuitionBase;
  45.  extern struct GfxBase       *GfxBase;
  46.  
  47.  extern long ARequest(struct Window *, struct IntuiText *, struct IntuiText *, struct IntuiText *, long, long, long, long);
  48.  
  49.  
  50.  LONG __asm request(register __d0 char *JaPointer,
  51.                     register __d1 char *NeinPointer,
  52.                     register __d2 char *BodyPointer)
  53.   {
  54.    return(NewRequest(ACTIVE_WINDOW,JaPointer,NeinPointer,BodyPointer));
  55.   }
  56.  
  57.  
  58.  LONG __asm NewRequest(register __a0 struct Window *AktWindow,
  59.                        register __d0 char *JaPointer,
  60.                        register __d1 char *NeinPointer,
  61.                        register __d2 char *BodyPointer)
  62.   {
  63.    struct IntuiText Ja,Nein,ReqText;
  64.    LONG MaxPix,la,lb;
  65.    
  66.    la=strlen(JaPointer)+strlen(NeinPointer);
  67.    lb=strlen(BodyPointer);
  68.    MaxPix=max(la*8+90,lb*8+50);
  69.    
  70.    Ja.FrontPen=Nein.FrontPen=ReqText.FrontPen=0;
  71.    Ja.BackPen=Nein.BackPen=ReqText.BackPen=1;
  72.    Ja.DrawMode=Nein.DrawMode=ReqText.DrawMode=JAM2;
  73.    Ja.LeftEdge=Nein.LeftEdge=6;
  74.    Ja.TopEdge=Nein.TopEdge=4;
  75.    ReqText.LeftEdge=ReqText.TopEdge=8;
  76.    Ja.ITextFont=Nein.ITextFont=ReqText.ITextFont=NULL;
  77.    Ja.NextText=Nein.NextText=ReqText.NextText=NULL;
  78.    Ja.IText=JaPointer;
  79.    Nein.IText=NeinPointer;
  80.    ReqText.IText=BodyPointer;
  81.    la=AutoRequest(AktWindow,&ReqText,&Ja,&Nein,0L,0L,MaxPix,60L);
  82.    return(la);
  83.   }
  84.  
  85.