home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / math / matrix / src / pal / about.c < prev    next >
Text File  |  1990-10-10  |  3KB  |  75 lines
  1.  /********************************************************************/
  2.  /****                                                            ****/
  3.  /****                                                            ****/
  4.  /****    Program          : About.c                              ****/
  5.  /****                                                            ****/
  6.  /****    Version          : 01.00                                ****/
  7.  /****                                                            ****/
  8.  /****    Erstversion      : 01.07.1990                           ****/
  9.  /****                                                            ****/
  10.  /****    Letzte Änderung  : 08.08.1990                           ****/
  11.  /****                                                            ****/
  12.  /****    Compiliert mit   : siehe MAKEFILE                       ****/
  13.  /****                                                            ****/
  14.  /****    Gelinkt mit      : siehe MAKEFILE                       ****/
  15.  /****                                                            ****/
  16.  /********************************************************************/
  17.  /****                                                            ****/
  18.  /****                                                            ****/
  19.  /****               Copyright by Rüdiger Dreier                  ****/
  20.  /****                                                            ****/
  21.  /****                                                            ****/
  22.  /********************************************************************/
  23.  
  24.  /* Einbinden der Include-Files */
  25.  
  26.  #include <exec/types.h> 
  27.  #include <string.h>
  28.  #include <graphics/gfx.h>
  29.  #include <intuition/intuitionbase.h>
  30.  #include <graphics/text.h>
  31.  
  32.  
  33.  struct NewWindow Fenster3=
  34.   {
  35.    159,70,                                     /* Left/TopEdge    */
  36.    288,120,                                    /* Width/Height    */
  37.    3, 2,                                       /* Detail/BlockPen */
  38.    MOUSEBUTTONS,                               /* IDCMP-Flags     */
  39.    ACTIVATE,                                   /* Flags           */
  40.    NULL,                                       /* Gadget          */
  41.    NULL,                                       /* Image           */
  42.    "««««««««««   A B O U T   »»»»»»»»»»",      /* Titel           */
  43.    NULL,                                       /* Screen          */
  44.    NULL,                                       /* BitMap          */
  45.    0,0,0,0,                                    /* Limits          */
  46.    CUSTOMSCREEN                                /* Type            */
  47.   };
  48.  
  49.  
  50.  VOID About(VOID)
  51.   {
  52.    struct RastPort *RastPort;
  53.    struct Window   *Window3;
  54.    long enable;
  55.  
  56.    if(!(Window3=OpenWindow(&Fenster3)))return;
  57.  
  58.    RastPort=Window3->RPort;
  59.    
  60.    enable=AskSoftStyle(RastPort);
  61.    
  62.    SetSoftStyle(RastPort,FSF_UNDERLINED|FSF_BOLD,enable);
  63.    Center(Window3,"Matrix",3,30);
  64.    SetSoftStyle(RastPort,FS_NORMAL,enable);
  65.    Center(Window3,"zum Lösen lin. Gleichungen",3,50);
  66.    Center(Window3,"© by Rüdiger Dreier 1990",2,80);
  67.    Center(Window3,"Version 1.00, 05.08.1990",2,95);
  68.    Center(Window3,"Dies ist FreeWare",2,110);
  69.    
  70.    Wait(1L<<Window3->UserPort->mp_SigBit);
  71.    EventAbfrage(Window3,&msgInfo);
  72.    CloseWindow(Window3);
  73.   }
  74.  
  75.