bgui/CAD/cad_support.c

   1 /*
   2  * @(#) $Header$
   3  *
   4  * Change AutoDoc program
   5  * cad_support.c
   6  *
   7  * (C) Copyright 1998 Manuel Lemos.
   8  * (C) Copyright 1996-1997 Ian J. Einman.
   9  * (C) Copyright 1993-1996 Jaba Development.
  10  * (C) Copyright 1993-1996 Jan van den Baard.
  11  * All Rights Reserved.
  12  *
  13  * $Log$
  14  * Revision 42.0  2000/05/09 22:10:58  mlemos
  15  * Bumped to revision 42.0 before handing BGUI to AROS team
  16  *
  17  * Revision 41.11  2000/05/09 20:23:20  mlemos
  18  * Bumped to revision 41.11
  19  *
  20  * Revision 1.2  2000/05/09 19:55:42  mlemos
  21  * Merged with the branch Manuel_Lemos_fixes.
  22  *
  23  * Revision 1.1.2.2  1999/05/31 02:52:53  mlemos
  24  * Integrated Anton Rolls changes to generate documentation files in
  25  * AmigaGuide and HTML formats.
  26  *
  27  * Revision 1.1.2.1  1998/09/19 01:50:22  mlemos
  28  * Ian sources.
  29  *
  30  *
  31  *
  32  */
  33
  34 #include "cad.h"
  35
  36 /*
  37  *      Import data.
  38  */
  39 extern struct Window            *MainWindow;
  40
  41 /*
  42  *      Show an AmigaDOS error via BGUI_Request().
  43  */
  44 STATIC ULONG DosRequestA( UBYTE *gadgets, UBYTE *body, IPTR *args)
  45 {
  46         static struct bguiRequest               req = { (LONG)NULL };
  47         UBYTE                                   buffer[ 256 ], ebuf[ 80 ];
  48
  49         /*
  50          *      Copy the body text into the buffer.
  51          */
  52         strcpy( buffer, body );
  53
  54         /*
  55          *      Obtain the textual DOS error.
  56          */
  57         Fault( IoErr(), (LONG)NULL, ebuf, 80 );
  58
  59         /*
  60          *      Add this to the buffer.
  61          */
  62         strncat( buffer, "\n\n\"" ISEQ_HIGHLIGHT, 256 );
  63         strncat( buffer, ebuf, 256 );
  64         strncat( buffer, ISEQ_TEXT "\"", 256 );
  65
  66         /*
  67          *      Setup the requester.
  68          */
  69         req.br_Title            =       NAME;
  70         req.br_TextFormat       =       buffer;
  71         req.br_GadgetFormat     =       gadgets;
  72         req.br_Flags            =       BREQF_CENTERWINDOW | BREQF_AUTO_ASPECT | BREQF_LOCKWINDOW;
  73         req.br_Underscore       =       '_';
  74
  75         /*
  76          *      Pop it.
  77          */
  78         return BGUI_RequestA( MainWindow, &req, args);
  79 }
  80
  81 /*
  82  *      Show a requester via BGUI_Request().
  83  */
  84 ULONG MyRequestA( UBYTE *gadgets, UBYTE *body, IPTR *args )
  85 {
  86         static struct bguiRequest               req = { (LONG)NULL };
  87
  88         /*
  89          *      Setup the requester.
  90          */
  91         req.br_Title            =       NAME;
  92         req.br_TextFormat       =       body;
  93         req.br_GadgetFormat     =       gadgets;
  94         req.br_Flags            =       BREQF_CENTERWINDOW | BREQF_AUTO_ASPECT | BREQF_LOCKWINDOW;
  95         req.br_Underscore       =       '_';
  96
  97         /*
  98          *      Pop it.
  99          */
 100         return( BGUI_RequestA( MainWindow, &req, args));
 101 }
 102
 103 /*
 104  *      Set attributes on multiple-objects.
 105  */
 106 VOID MultiSetAttr( struct GadgetInfo *gi, Tag tag, ULONG data, ... )
 107 {
 108         Object                  *obj;
 109         struct TagItem            tags[ 2 ];
 110         va_list ap;
 111
 112         va_start(ap, data);
 113
 114         tags[ 0 ].ti_Tag  = tag;
 115         tags[ 0 ].ti_Data = data;
 116         tags[ 1 ].ti_Tag  = TAG_END;
 117
 118         while ( (obj = va_arg(ap, Object *)) ) {
 119                 DoMethod(obj, OM_SET, &tags[ 0 ], gi );
 120         }
 121
 122         va_end(ap);
 123 }
 124
 125 /*
 126  *      Set attributes to an object.
 127  */
 128 ULONG SetAttr( Object *obj, struct GadgetInfo *gi, Tag tag1, ... )
 129 {
 130         AROS_SLOWSTACKTAGS_PRE_AS(tag1, ULONG);
 131         retval = DoMethod( obj, OM_SET, AROS_SLOWSTACKTAGS_ARG(tag1), gi );
 132         AROS_SLOWSTACKTAGS_POST
 133 }