home *** CD-ROM | disk | FTP | other *** search
- /********************************************************************/
- /**** ****/
- /**** ****/
- /**** Program : About.c ****/
- /**** ****/
- /**** Version : 01.00 ****/
- /**** ****/
- /**** Erstversion : 01.07.1990 ****/
- /**** ****/
- /**** Letzte Änderung : 08.08.1990 ****/
- /**** ****/
- /**** Compiliert mit : siehe MAKEFILE ****/
- /**** ****/
- /**** Gelinkt mit : siehe MAKEFILE ****/
- /**** ****/
- /********************************************************************/
- /**** ****/
- /**** ****/
- /**** Copyright by Rüdiger Dreier ****/
- /**** ****/
- /**** ****/
- /********************************************************************/
-
- /* Einbinden der Include-Files */
-
- #include <exec/types.h>
- #include <string.h>
- #include <graphics/gfx.h>
- #include <intuition/intuitionbase.h>
- #include <graphics/text.h>
-
-
- struct NewWindow Fenster3=
- {
- 159,70, /* Left/TopEdge */
- 288,120, /* Width/Height */
- 3, 2, /* Detail/BlockPen */
- MOUSEBUTTONS, /* IDCMP-Flags */
- ACTIVATE, /* Flags */
- NULL, /* Gadget */
- NULL, /* Image */
- "«««««««««« A B O U T »»»»»»»»»»", /* Titel */
- NULL, /* Screen */
- NULL, /* BitMap */
- 0,0,0,0, /* Limits */
- CUSTOMSCREEN /* Type */
- };
-
-
- VOID About(VOID)
- {
- struct RastPort *RastPort;
- struct Window *Window3;
- long enable;
-
- if(!(Window3=OpenWindow(&Fenster3)))return;
-
- RastPort=Window3->RPort;
-
- enable=AskSoftStyle(RastPort);
-
- SetSoftStyle(RastPort,FSF_UNDERLINED|FSF_BOLD,enable);
- Center(Window3,"Matrix",3,30);
- SetSoftStyle(RastPort,FS_NORMAL,enable);
- Center(Window3,"zum Lösen lin. Gleichungen",3,50);
- Center(Window3,"© by Rüdiger Dreier 1990",2,80);
- Center(Window3,"Version 1.00, 05.08.1990",2,95);
- Center(Window3,"Dies ist FreeWare",2,110);
-
- Wait(1L<<Window3->UserPort->mp_SigBit);
- EventAbfrage(Window3,&msgInfo);
- CloseWindow(Window3);
- }
-
-