Check for SYS/GL during library init. Reason is that
[AROS.git] / workbench / libs / datatypes / dodtmethoda.c
blob1d2be57dd8b7dad8a0bc01405d3eef65cdd5e246
1 /*
2 Copyright © 1995-2001, The AROS Development Team. All rights reserved.
3 $Id$
5 Desc:
6 Lang: English
7 */
8 #define USE_BOOPSI_STUBS
9 #include <proto/intuition.h>
10 #include <datatypes/datatypesclass.h>
11 #include <intuition/intuition.h>
12 #include <clib/boopsistubs.h>
13 #include "datatypes_intern.h"
15 /*****************************************************************************
17 NAME */
18 #include <proto/datatypes.h>
20 AROS_LH4(IPTR, DoDTMethodA,
22 /* SYNOPSIS */
23 AROS_LHA(Object *, o , A0),
24 AROS_LHA(struct Window *, win, A1),
25 AROS_LHA(struct Requester *, req, A2),
26 AROS_LHA(Msg , msg, A3),
28 /* LOCATION */
29 struct Library *, DataTypesBase, 15, DataTypes)
31 /* FUNCTION
33 Perform a specific datatypes methodl.
35 INPUTS
37 o -- pointer to data type object
38 win -- window the object is attached to
39 req -- requester the object is attached to
40 msg -- the message to send to the object
42 RESULT
44 The value returned by the specified method.
46 NOTES
48 EXAMPLE
50 BUGS
52 SEE ALSO
54 intuition.library/DoGadgetMethodA()
56 INTERNALS
58 HISTORY
60 *****************************************************************************/
62 AROS_LIBFUNC_INIT
64 IPTR retval;
66 switch(msg->MethodID)
68 case DTM_COPY:
69 case DTM_PRINT:
70 case DTM_WRITE:
71 ((struct dtGeneral *)msg)->dtg_GInfo = NULL;
72 retval = DoMethodA(o, msg);
73 break;
75 default:
76 retval = DoGadgetMethodA((struct Gadget *)o, win, req, msg);
77 break;
80 return retval;
82 AROS_LIBFUNC_EXIT
83 } /* DoDTMethodA */