GUI module ported to api_scilab. test_run("gui")
[scilab.git] / scilab / modules / graphics / src / c / getHandleProperty / set_callback_property.c
1 /*
2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3  * Copyright (C) 2004-2006 - INRIA - Fabrice Leray
4  * Copyright (C) 2006 - INRIA - Allan Cornet
5  * Copyright (C) 2006 - INRIA - Jean-Baptiste Silvy
6  * Copyright (C) 2009 - DIGITEO - Pierre Lando
7  * Copyright (C) 2011 - DIGITEO - Vincent COUVERT
8  *
9  * This file must be used under the terms of the CeCILL.
10  * This source file is licensed as described in the file COPYING, which
11  * you should have received as part of this distribution.  The terms
12  * are also available at
13  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
14  *
15  */
16
17 /*------------------------------------------------------------------------*/
18 /* file: set_callback_property.c                                          */
19 /* desc : function to modify in Scilab the callback field of              */
20 /*        a handle                                                        */
21 /*------------------------------------------------------------------------*/
22 #include "sci_types.h"
23 #include "setHandleProperty.h"
24 #include "getPropertyAssignedValue.h"
25 #include "Scierror.h"
26 #include "localization.h"
27 #include "SetPropertyStatus.h"
28 #include "graphicObjectProperties.h"
29 #include "setGraphicObjectProperty.h"
30 #include "api_scilab.h"
31 #include "MALLOC.h"
32 /*------------------------------------------------------------------------*/
33 int set_callback_property(void* _pvCtx, char* pobjUID, void* _pvData, int valueType, int nbRow, int nbCol)
34 {
35     // Callback must be only one character string
36
37     BOOL status = FALSE;
38     char * cbString = NULL;
39     int cbType = 0;
40
41     int strNbRow = 0, strNbCol = 0;
42     int iRows = 0, iCols = 0;
43     double* pdblData = NULL;
44
45     if (valueType == sci_strings)
46     {
47         if (nbCol != 1)
48         {
49             Scierror(999, _("Wrong size for '%s' property: A string expected.\n"), "Callback");
50             return SET_PROPERTY_ERROR;
51         }
52         cbString = (char*)_pvData;
53     }
54     else if (valueType == sci_list)
55     {
56         int iLen = 0;
57         if (nbRow * nbCol != 2)
58         {
59             Scierror(999, _("Wrong size for '%s' property: a 2-item list expected.\n"), "Callback");
60             return SET_PROPERTY_ERROR;
61         }
62
63         getMatrixOfDoubleInList(pvApiCtx, (int*)_pvData, 1, &iRows, &iCols, &pdblData);
64         if (iRows * iCols != 1)
65         {
66             Scierror(999, _("Wrong size for '%s' property: A real expected.\n"), "callback_type");
67             return SET_PROPERTY_ERROR;
68         }
69         else
70         {
71             cbType = (int)pdblData[0];
72         }
73
74
75         getMatrixOfStringInList(pvApiCtx, (int*)_pvData, 2, &iRows, &iCols, NULL, NULL);
76         if (iRows * iCols != 1)
77         {
78             Scierror(999, _("Wrong size for '%s' property: A string expected.\n"), "Callback");
79             return SET_PROPERTY_ERROR;
80         }
81
82         getMatrixOfStringInList(pvApiCtx, (int*)_pvData, 2, &iRows, &iCols, &iLen, NULL);
83         cbString = (char*)MALLOC(sizeof(char) * (iLen + 1));
84         getMatrixOfStringInList(pvApiCtx, (int*)_pvData, 2, &iRows, &iCols, &iLen, &cbString);
85     }
86     else
87     {
88
89         Scierror(999, _("Wrong type for '%s' property: A string or a 2-item list expected.\n"), "Callback");
90         return SET_PROPERTY_ERROR;
91     }
92
93     if (strcmp(cbString, "") == 0)
94     {
95         cbType = -1; /* Disabled */
96     }
97
98     status = setGraphicObjectProperty(pobjUID, __GO_CALLBACK__, cbString, jni_string, 1);
99
100     if (status != TRUE)
101     {
102         Scierror(999, _("'%s' property does not exist for this handle.\n"), "Callback");
103         return SET_PROPERTY_ERROR;
104     }
105
106     if (setGraphicObjectProperty(pobjUID, __GO_CALLBACKTYPE__, &cbType, jni_int, 1) == FALSE)
107     {
108         Scierror(999, _("'%s' property does not exist for this handle.\n"), "callback_type");
109         return SET_PROPERTY_ERROR;
110     }
111
112     return SET_PROPERTY_SUCCEED;
113 }
114 /*------------------------------------------------------------------------*/