GUI module ported to api_scilab. test_run("gui")
[scilab.git] / scilab / modules / graphics / src / c / getHandleProperty / set_figure_style_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  *
8  * This file must be used under the terms of the CeCILL.
9  * This source file is licensed as described in the file COPYING, which
10  * you should have received as part of this distribution.  The terms
11  * are also available at
12  * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
13  *
14  */
15
16 /*------------------------------------------------------------------------*/
17 /* file: set_figure_style_property.c                                      */
18 /* desc : function to modify in Scilab the figure_style field of          */
19 /*        a handle                                                        */
20 /*------------------------------------------------------------------------*/
21
22 #include "stricmp.h"
23 #include "setHandleProperty.h"
24 #include "SetProperty.h"
25 #include "getPropertyAssignedValue.h"
26 #include "Scierror.h"
27 #include "localization.h"
28 #include "SetPropertyStatus.h"
29 #include "MALLOC.h"
30 /*------------------------------------------------------------------------*/
31 int set_figure_style_property(void* _pvCtx, char* pobjUID, void* _pvData, int valueType, int nbRow, int nbCol)
32 {
33
34     if (valueType != sci_strings)
35     {
36         Scierror(999, _("Wrong type for '%s' property: String expected.\n"), "figure_style");
37         return SET_PROPERTY_ERROR;
38     }
39
40     if (stricmp((char*)_pvData, "old") == 0)
41     {
42         FREE(_pvData);
43         Scierror(999, _("Old graphic mode is no longer available. Please refer to the set help page.\n"));
44         return SET_PROPERTY_ERROR;
45     }
46     else if (stricmp((char*)_pvData, "new") == 0)
47     {
48         FREE(_pvData);
49         /* graphic mode must be new */
50         /* nothing to do */
51         return SET_PROPERTY_UNCHANGED;
52     }
53     else
54     {
55         Scierror(999, _("Wrong value for '%s' property: %s or %s expected.\n"), "figure_style", "'old'", "'new'");
56
57     }
58
59     return SET_PROPERTY_ERROR;
60 }
61 /*------------------------------------------------------------------------*/