Replace sciprint by Scierror in set functions. And fix graphic crash I created in...
Jean-Baptiste Silvy [Mon, 15 Dec 2008 14:40:09 +0000 (15:40 +0100)]
143 files changed:
scilab/modules/graphics/sci_gateway/c/sci_get.c
scilab/modules/graphics/sci_gateway/c/sci_set.c
scilab/modules/graphics/src/c/BuildObjects.c
scilab/modules/graphics/src/c/Champ.c
scilab/modules/graphics/src/c/CloneObjects.c
scilab/modules/graphics/src/c/ColorMapManagement.c
scilab/modules/graphics/src/c/GetProperty.c
scilab/modules/graphics/src/c/SetProperty.c
scilab/modules/graphics/src/c/axesScale.c
scilab/modules/graphics/src/c/getHandleProperty/CheckTicksProperty.c
scilab/modules/graphics/src/c/getHandleProperty/CheckTicksProperty.h
scilab/modules/graphics/src/c/getHandleProperty/get_current_entity_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_font_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_font_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_hidden_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_pixel_drawing_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/get_screen_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_alignment_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_arc_drawing_method_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_arrow_size_factor_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_arrow_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_clear_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_dimensionning_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_resize_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_rotation_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_scale_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_auto_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_axes_bounds_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_axes_reverse_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_axes_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_axes_visible_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_background_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_bar_layout_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_bar_width_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_callback_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_callback_type_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_callbackmevent_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_cdata_mapping_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_children_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_clip_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_clip_state_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_closed_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_color_flag_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_color_map_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_color_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_colored_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_cube_scaling_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_current_axes_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_current_entity_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_current_figure_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_data_bounds_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_data_mapping_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_data_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_default_values_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_dimension_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_event_handler_enable_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_event_handler_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_id_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_name_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_figure_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_fill_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_filled_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_angle_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_foreground_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_font_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_foreground_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_format_n_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_fractional_font_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_grid_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_handle_visible_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_hidden_axis_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_hidden_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_immediate_drawing_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_info_message_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_isoview_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_label_font_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_labels_font_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_labels_font_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_legend_location_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_line_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_line_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_links_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_log_flags_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_margins_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_background_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_foreground_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_size_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_size_unit_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_mark_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_old_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_parent_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_pixel_drawing_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_pixmap_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_polyline_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_rotation_angles_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_rotation_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_screen_position_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_segs_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_sub_tics_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_surface_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_surface_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_text_box_mode_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_text_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_text_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_thickness_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_color_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_direction_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_labels_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_segment_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tics_style_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_tight_limits_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_title_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_triangles_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_user_data_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_view_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_viewport_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_visible_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_x_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_x_location_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_x_shift_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_x_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_xtics_coord_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_y_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_y_location_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_y_shift_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_y_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_yticks_coord_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_z_bounds_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_z_label_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_z_shift_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_z_ticks_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_zoom_box_property.c
scilab/modules/graphics/src/c/getHandleProperty/set_zoom_state_property.c
scilab/modules/graphics/src/c/get_ticks_utils.c
scilab/modules/graphics/src/c/get_ticks_utils.h

index ddcbe12..38d7f98 100644 (file)
@@ -121,34 +121,9 @@ int sci_get(char *fname,unsigned long fname_len)
        case sci_strings:/* string argument (string) */
                CheckRhs(1,1);
                GetRhsVar(1,STRING_DATATYPE,&numrow2,&numcol2,&l2);
-               if (strcmp(cstk(l2),"default_figure") != 0 && strcmp(cstk(l2),"default_axes") != 0)
-               {
-                       if (strcmp(cstk(l2),"old_style") == 0 || strcmp(cstk(l2),"current_figure") == 0) {
-                               hdl = 0;
-                       }
-                       else
-                       {
 
-                               /* Test debug F.Leray 13.04.04 */
-                               if ((strcmp(cstk(l2),"children") != 0) &&  
-                                       (strcmp(cstk(l2),"zoom_") !=0) && 
-                                       (strcmp(cstk(l2),"clip_box") !=0) && 
-                                       (strcmp(cstk(l2),"auto_") !=0)) 
-                               {
-                                       SciWin();
-                                       hdl = sciGetHandle(sciGetCurrentObj());
-                               }
-                               else
-                               {
-                                       hdl = sciGetHandle(sciGetCurrentSubWin());/* on recupere le pointeur d'objet par le handle */
-                               }
-
-                       }/* DJ.A 08/01/04 */
-               }
-               else
-               {
-                       hdl = 0;
-               }
+               /* no handle there */
+               hdl = 0;
 
                break;
        default:
@@ -161,6 +136,7 @@ int sci_get(char *fname,unsigned long fname_len)
        CheckLhs(0,1);
 
        if (hdl == 0) {
+               /* No handle specified */
                if (sciGet(NULL, cstk(l2)) != 0) {
                        /* An error has occured */
                        return 0;
@@ -183,7 +159,7 @@ int sci_get(char *fname,unsigned long fname_len)
                        Scierror(999,_("%s: The handle is not or no more valid.\n"),fname);
                }
        }
-       LhsVar(1 )= Rhs + 1;
+       LhsVar(1) = Rhs + 1;
        return 0;
 }
 /*--------------------------------------------------------------------------*/
index abe58b3..0e2b4f9 100644 (file)
@@ -163,58 +163,12 @@ int sci_set(char *fname, unsigned long fname_len)
                        }
                        break;
 
-               case sci_strings:/* first is a string argument so it's a gset("command",[param]) */ 
+               case sci_strings:/* first is a string argument so it's a set("command",[param]) */ 
                        CheckRhs(2,2);
                        GetRhsVar(1,STRING_DATATYPE,&m2,&n2,&l2);
-                       if (strcmp(cstk(l2),"default_figure") !=0 && strcmp(cstk(l2),"default_axes") !=0 )
-                       {
-                               if ((strcmp(cstk(l2),"old_style") ==0) || (strcmp(cstk(l2),"current_figure") ==0)) 
-                               {
-                                       hdl = 0;
-                                       pobj = NULL;
-                               }
-                               else
-                               {
-                                       if ((strcmp(cstk(l2),"zoom_") !=0) && 
-                                               (strcmp(cstk(l2),"auto_") !=0) && 
-                                               (strcmp(cstk(l2),"clip_box") !=0) )   
-                                       {
-                                               hdl = sciGetHandle(sciGetCurrentObj ()) ;
-                                       }
-                                       else
-                                       {
-                                               hdl = sciGetHandle(sciGetCurrentSubWin());
-                                       }
-
-                                       if (hdl == 0 )
-                                       {
-                                               pobj = NULL;
-                                       }
-                                       else
-                                       {
-                                               pobj = sciGetPointerFromHandle(hdl);
-                                       }
-                               }
-                       }
-                       else
-                       {
-                               hdl = 0;
-                               pobj = NULL;
-                       }
+                       hdl = 0;
+                       pobj = NULL;
                        valueType = VarType(2) ;
-                       t2=sciType(cstk(l2),pobj);
-                       if (t2<0) 
-                       {
-                               Scierror(999,_("%s: Unknown property name '%s'.\n"),fname,cstk(l2));
-                               return 0;
-                       } 
-                       if ( valueType != t2 && strcmp(cstk(l2),"current_figure") != 0 && VarType(2) != sci_matrix )
-                       {  
-                               /* F.Leray : special unique case here set("current_figure", HANDLE);*/
-                               /* HANDLE type is 9 */
-                               Scierror(999,_("%s: Uncompatible values for property type '%s'.\n"),fname,cstk(l2));
-                               return 0;
-                       }
 
                        if (valueType == sci_matrix )
                        {
@@ -226,17 +180,17 @@ int sci_set(char *fname, unsigned long fname_len)
                        }
                        else if ( valueType == sci_strings )
                        {
-                               if (strcmp( cstk(l2), "tics_labels"  ) != 0
-                                       && strcmp( cstk(l2), "auto_ticks"   ) != 0
-                                       && strcmp( cstk(l2), "axes_visible" ) != 0
-                                       && strcmp( cstk(l2), "axes_reverse" ) != 0
-                                       && strcmp( cstk(l2), "text"      ) != 0 )
+                               if (strcmp( cstk(l2), "tics_labels"  ) == 0
+                                       || strcmp( cstk(l2), "auto_ticks"   ) == 0
+                                       || strcmp( cstk(l2), "axes_visible" ) == 0
+                                       || strcmp( cstk(l2), "axes_reverse" ) == 0
+                                       || strcmp( cstk(l2), "text"      ) == 0 )
                                {
-                                       GetRhsVar(2,STRING_DATATYPE,&numrow3,&numcol3,&l3);
+                                       GetRhsVar(2,MATRIX_OF_STRING_DATATYPE,&numrow3,&numcol3,&l3);
                                } 
                                else
                                {
-                                       GetRhsVar(2,MATRIX_OF_STRING_DATATYPE,&numrow3,&numcol3,&l3);
+                                       GetRhsVar(2,STRING_DATATYPE,&numrow3,&numcol3,&l3);
                                }
                        }
                        break;
@@ -275,6 +229,7 @@ int sci_set(char *fname, unsigned long fname_len)
 
                        if ( setStatus < 0 )
                 {
+                        /* An error occured */
                         LhsVar(1)=0;
                         return 0 ;
                 }
@@ -282,13 +237,11 @@ int sci_set(char *fname, unsigned long fname_len)
                        if ( !( vis_save == 0 && sciGetVisibility(pobj)== 0) && setStatus == 0 ) 
                 {
                         /* do not redraw figure if object remains invisible */
-                        if ((strcmp(cstk(l2),"figure_style") !=0) &&
-                                (strcmp(cstk(l2),"old_style") !=0 ) && 
-                                (strcmp(cstk(l2),"current_axes") !=0) &&
-                                (strcmp(cstk(l2),"default_figure") !=0) && 
-                                (strcmp(cstk(l2),"default_axes") !=0) &&
-                                !isModelObject(pobj) &&
-                                !sciIsAutomaticallyRedrawn(pobj))
+                        /* and if its not a model object and if it's not a gui object */
+                        if (   setStatus == SET_PROPERTY_SUCCEED
+                                  && (vis_save || sciGetVisibility(pobj))
+                                        && !isModelObject(pobj)
+                                        && !sciIsAutomaticallyRedrawn(pobj))
                         { 
                                 sciDrawObj(pobj) ;
                         }
@@ -296,6 +249,7 @@ int sci_set(char *fname, unsigned long fname_len)
                }
                else
                {
+                       /* No object specified */
                        sciSet( NULL, cstk(l2), &l3, valueType, &numrow3, &numcol3);
                }
                LhsVar(1)=0;
index 40b7f67..a508b1d 100644 (file)
@@ -42,7 +42,7 @@
 #include "SetProperty.h"
 #include "CloneObjects.h"
 #include "StringMatrix.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "CurrentObjectsManagement.h"
 #include "ObjectSelection.h"
 #include "BuildDrawingObserver.h"
@@ -531,8 +531,8 @@ ConstructSubWin(sciPointObj * pparentfigure)
     }
   else
     {
-      sciprint(_("The parent has to be a FIGURE\n"));
-      return (sciPointObj *) NULL;
+      Scierror(999, _("The parent has to be a FIGURE\n"));
+      return NULL;
     }
 }
 
@@ -718,7 +718,7 @@ ConstructText (sciPointObj * pparentsubwin, char ** text, int nbRow, int nbCol,
 
   }
 
-  sciprint(_("The parent has to be a SUBWIN\n"));
+  Scierror(999, _("The parent has to be a SUBWIN\n"));
   return NULL;
 }
 
@@ -785,7 +785,7 @@ ConstructLegend (sciPointObj * pparentsubwin, char **text, long long tabofhandle
       /* Allocation de la structure sciText */
       if ( ppLegend->text.pStrings == NULL)
       {
-        sciprint(_("No more place to allocates text string, try a shorter string.\n"));
+        Scierror(999, _("No more place to allocates text string, try a shorter string.\n"));
         sciDelThisToItsParent (pobj, sciGetParent (pobj));
         sciDelHandle (pobj);
         FREE(ppLegend);
@@ -798,7 +798,7 @@ ConstructLegend (sciPointObj * pparentsubwin, char **text, long long tabofhandle
       if ((ppLegend->tabofhandles =
           MALLOC(nblegends*sizeof(long long))) == NULL)
        {
-         sciprint(_("%s: No more memory.\n"),"ConstructLegend");
+         Scierror(999, _("%s: No more memory.\n"),"ConstructLegend");
          deleteMatrix( ppLegend->text.pStrings ) ;
          sciDelThisToItsParent (pobj, sciGetParent (pobj));
          sciDelHandle (pobj);
@@ -836,7 +836,7 @@ ConstructLegend (sciPointObj * pparentsubwin, char **text, long long tabofhandle
 
       if (sciInitFontContext (pobj) == -1)
        {
-         sciprint(_("Problem with sciInitFontContext\n"));
+         Scierror(999, _("Problem with sciInitFontContext\n"));
          FREE(ppLegend->tabofhandles);
          deleteMatrix( ppLegend->text.pStrings ) ;
          sciDelThisToItsParent (pobj, sciGetParent (pobj));
@@ -850,7 +850,7 @@ ConstructLegend (sciPointObj * pparentsubwin, char **text, long long tabofhandle
     }
   else
     {
-      sciprint(_("The parent has to be a SUBWIN\n"));
+      Scierror(999, _("The parent has to be a SUBWIN\n"));
       return (sciPointObj *) NULL;
     }
 }
@@ -871,7 +871,7 @@ sciPointObj * allocatePolyline(sciPointObj * pparentsubwin, double *pvecx, doubl
   int i = 0;
   if (sciGetEntityType (pparentsubwin) != SCI_SUBWIN)
   {
-    sciprint(_("The parent has to be a SUBWIN\n"));
+    Scierror(999, _("The parent has to be a SUBWIN\n"));
     return (sciPointObj *) NULL;
   }
 
@@ -1135,7 +1135,6 @@ ConstructArc (sciPointObj * pparentsubwin, double x, double y,
          sciDelHandle (pobj);
          FREE(ppArc);
          FREE(pobj);
-         sciprint(_("No context"));
          return (sciPointObj *) NULL;
        }
 
@@ -1157,7 +1156,7 @@ ConstructArc (sciPointObj * pparentsubwin, double x, double y,
     }
   else
     {
-      sciprint(_("The parent has to be a SUBWIN\n"));
+      Scierror(999, _("The parent has to be a SUBWIN\n"));
       return (sciPointObj *) NULL;
     }
 }
@@ -1237,7 +1236,7 @@ ConstructRectangle (sciPointObj * pparentsubwin, double x, double y,
     }
   else
     {
-      sciprint(_("The parent has to be a SUBWIN\n"));
+      Scierror(999, _("The parent has to be a SUBWIN\n"));
       return (sciPointObj *) NULL;
     }
 }
@@ -1528,7 +1527,7 @@ ConstructSurface (sciPointObj * pparentsubwin, sciTypeOf3D typeof3d,
     }
   else
     {
-      sciprint(_("The parent has to be a SUBWIN\n"));
+      Scierror(999, _("The parent has to be a SUBWIN\n"));
       return (sciPointObj *) NULL;
     }
 }
@@ -1635,7 +1634,7 @@ ConstructGrayplot (sciPointObj * pparentsubwin, double *pvecx, double *pvecy,
     }
   else
     {
-      sciprint(_("The parent has to be a SUBWIN\n"));
+      Scierror(999, _("The parent has to be a SUBWIN\n"));
       return (sciPointObj *) NULL;
     }
 }
@@ -1729,7 +1728,7 @@ ConstructAxes (sciPointObj * pparentsubwin, char dir, char tics, double *vx,
     if(str != (char **) NULL)
          {
            if(pAXES_FEATURE (pobj)->nb_tics_labels == -1){
-             sciprint(_("Impossible case when building axis\n"));
+             Scierror(999, _("Impossible case when building axis\n"));
              return (sciPointObj *) NULL;
            }
 
@@ -1792,7 +1791,7 @@ ConstructAxes (sciPointObj * pparentsubwin, char dir, char tics, double *vx,
   }
   else
   {
-    sciprint(_("The parent has to be a SUBWIN\n"));
+    Scierror(999, _("The parent has to be a SUBWIN\n"));
     return (sciPointObj *) NULL;
   }
 }
@@ -1917,7 +1916,7 @@ ConstructFec (sciPointObj * pparentsubwin, double *pvecx, double *pvecy, double
     }
   else
     {
-      sciprint(_("The parent has to be a SUBWIN\n"));
+      Scierror(999, _("The parent has to be a SUBWIN\n"));
       return (sciPointObj *) NULL;
     }
 }
@@ -2099,7 +2098,7 @@ ConstructSegs (sciPointObj * pparentsubwin, int type,double *vx, double *vy,
     }
   else
     {
-      sciprint(_("The parent has to be a SUBWIN\n"));
+      Scierror(999, _("The parent has to be a SUBWIN\n"));
       return (sciPointObj *) NULL;
     }
 }
@@ -2205,7 +2204,7 @@ ConstructCompoundSeq (int number)
 
   if (sciAddNewHandle (pobj) == -1)
   {
-    sciprint(_("No handle to allocate\n"));
+    Scierror(999, _("No handle to allocate\n"));
     FREE(pobj->pfeatures);FREE(pobj);
     return (sciPointObj *) NULL;
   }
@@ -2308,7 +2307,7 @@ ConstructLabel (sciPointObj * pparentsubwin, char *text, int type)
   }
   else
   {
-    sciprint(_("The parent has to be a SUBWIN\n"));
+    Scierror(999, _("The parent has to be a SUBWIN\n"));
     return (sciPointObj *) NULL;
   }
 }
index 0093d4c..1f62c00 100644 (file)
@@ -15,7 +15,6 @@
  *    Graphic library
  --------------------------------------------------------------------------*/
 
-#include <math.h>
 #include <stdio.h>
 #include <string.h>
 #include "math_graphics.h"
 #include "BuildObjects.h"
 #include "Axes.h"
 #include "Champ.h"
-#include "sciprint.h"
 #include "CurrentObjectsManagement.h"
 #include "DrawingBridge.h"
 
 #include "MALLOC.h" /* MALLOC */
 #include "localization.h"
 #include "Plot2d.h"
+#include "Scierror.h"
 
 /*-----------------------------------------------------------------
  *  int C2F(champ)(x,y,fx,fy,n1,n2,strflag,brect,arfact,lstr)
@@ -83,7 +82,7 @@ void champg(char *name, int colored, double *x, double *y, double *fx, double *f
   /* F.Leray Allocation de style[dim = Nbr1] */
   if ((style = MALLOC ((*n1) * sizeof (int) )) == NULL)
   {
-    sciprint(_("%s: No more memory.\n"),"champg");
+    Scierror(999, _("%s: No more memory.\n"),"champg");
     return;
   }
 
index 437636e..cb41304 100644 (file)
@@ -23,7 +23,6 @@
 
 #include <stdio.h> 
 #include <string.h>
-#include <math.h>
 #include <stdlib.h>
 #include <stdarg.h>
 #include <time.h>
 #include "GetProperty.h"
 #include "BuildObjects.h"
 #include "SetProperty.h"
-#include "sciprint.h"
 #include "CurrentObjectsManagement.h"
 
 #include "MALLOC.h" /* MALLOC */
 #include "localization.h"
-
+#include "Scierror.h"
 
 
 /**CloneText
@@ -109,7 +107,7 @@ CloneText (sciPointObj * pthis)
     int size = ppThisText->size_of_user_data;
     
     if((ppCopyText->user_data = (int *) MALLOC(size*sizeof(int)))==NULL){
-      sciprint(_("Can not allocate user_data for cloned object.\n"));
+      Scierror(999, _("Can not allocate user_data for cloned object.\n"));
       ppCopyText->user_data = (int *) NULL;
       ppCopyText->size_of_user_data = 0;
     }
@@ -156,7 +154,7 @@ sciCloneObj (sciPointObj * pobj)
     case SCI_LABEL: /* F.Leray 28.05.04 */
     case SCI_UIMENU:
     default:
-      sciprint (_("This object cannot be cloned.\n"));
+      Scierror (999, _("This object cannot be cloned.\n"));
       return (sciPointObj *)NULL;
       break;
     }
@@ -205,7 +203,7 @@ CloneRectangle (sciPointObj * pthis)
       int size = pRECTANGLE_FEATURE (pthis)->size_of_user_data;
       
       if((pRECTANGLE_FEATURE (pobj)->user_data = (int *) MALLOC(size*sizeof(int)))==NULL){
-                 sciprint(_("%s: No more memory.\n"),"CloneRectangle");
+                 Scierror(999, _("%s: No more memory.\n"),"CloneRectangle");
                  pRECTANGLE_FEATURE (pobj)->user_data = (int *) NULL;
                  pRECTANGLE_FEATURE (pobj)->size_of_user_data = 0;
       }
@@ -265,7 +263,7 @@ ClonePolyline (sciPointObj * pthis)
       int size = pPOLYLINE_FEATURE (pthis)->size_of_user_data;
       
       if((pPOLYLINE_FEATURE (pobj)->user_data = (int *) MALLOC(size*sizeof(int)))==NULL){
-                 sciprint(_("%s: No more memory.\n"),"ClonePolyline");
+                 Scierror(999, _("%s: No more memory.\n"),"ClonePolyline");
                  pPOLYLINE_FEATURE (pobj)->user_data = (int *) NULL;
                  pPOLYLINE_FEATURE (pobj)->size_of_user_data = 0;
       }
@@ -322,7 +320,7 @@ CloneArc (sciPointObj * pthis)
       int size = pARC_FEATURE (pthis)->size_of_user_data;
       
       if((pARC_FEATURE (pobj)->user_data = (int *) MALLOC(size*sizeof(int)))==NULL){
-                 sciprint(_("%s: No more memory.\n"),"CloneArc");
+                 Scierror(999, _("%s: No more memory.\n"),"CloneArc");
                  pARC_FEATURE (pobj)->user_data = (int *) NULL;
                  pARC_FEATURE (pobj)->size_of_user_data = 0;
       }
@@ -373,7 +371,7 @@ int cloneUserData( sciPointObj * pObjSource, sciPointObj * pObjDest )
     *dstUserData = MALLOC( *srcSize * sizeof(int) ) ;
     if ( *dstUserData == NULL )
     {
-                 sciprint(_("%s: No more memory.\n"),"CloneUserData");
+                 Scierror(999, _("%s: No more memory.\n"),"CloneUserData");
                  *dstSize     = 0 ;
                  *srcUserData = NULL ;
                  return -1 ;
index e8c1e9b..ef67197 100644 (file)
@@ -16,7 +16,7 @@
 /*------------------------------------------------------------------------*/
 
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "getHandleProperty/SetPropertyStatus.h"
 #include "MALLOC.h"
 #include "localization.h"
@@ -38,12 +38,12 @@ int LinearScaling2Colormap( sciPointObj * pobj )
 
 
   if(psurf->zcol == NULL){
-    sciprint(_("Color matrix is NULL: Can not build color scaled linearly into the current colormap"));
+    Scierror(999, _("Color matrix is NULL: Can not build color scaled linearly into the current colormap"));
     return SET_PROPERTY_ERROR ;
   }
 
   if (((psurf->color = MALLOC (nc * sizeof (double))) == NULL)){
-         sciprint(_("%s: No more memory.\n"),"LinearScaling2Colormap");
+         Scierror(999, _("%s: No more memory.\n"),"LinearScaling2Colormap");
          return SET_PROPERTY_ERROR ;
   }
 
index eafb027..bd6c270 100644 (file)
@@ -1399,7 +1399,7 @@ sciGetAddPlot (sciPointObj * pobj)
     case SCI_LABEL: /* F.Leray 28.05.04 */
     case SCI_UIMENU:
     default:
-      printSetGetErrorMessage("addplot");
+      printSetGetErrorMessage("auto_clear");
       return FALSE;
       break;
     } 
@@ -1435,7 +1435,7 @@ sciGetAutoScale (sciPointObj * pobj)
     case SCI_LABEL: /* F.Leray 28.05.04 */
     case SCI_UIMENU:
     default:
-      printSetGetErrorMessage("autoscale");
+      printSetGetErrorMessage("auto_scale");
       return FALSE;
       break;
     }
index c9b30aa..932b99e 100644 (file)
@@ -1509,7 +1509,7 @@ int sciInitAddPlot( sciPointObj * pobj, BOOL value )
     case SCI_LABEL: /* F.Leray 28.05.04 */
     case SCI_UIMENU:
     default:
-      printSetGetErrorMessage("addplot");
+      printSetGetErrorMessage("auto_clear");
       return -1 ;
       break;
     }
@@ -1560,7 +1560,7 @@ int sciInitAutoScale( sciPointObj * pobj, BOOL value )
     case SCI_LABEL: /* F.Leray 28.05.04 */
     case SCI_UIMENU:
     default:
-      printSetGetErrorMessage("autoscale");
+      printSetGetErrorMessage("autos_cale");
       return -1 ;
       break;
     }
@@ -2600,7 +2600,7 @@ sciSetPoint(sciPointObj * pthis, double *tab, int *numrow, int *numcol)
     case SCI_LABEL: /* F.Leray 28.05.04 */
     case SCI_UIMENU:
     default:
-      printSetGetErrorMessage("points");
+      printSetGetErrorMessage("data");
       return -1;
       break;
     }
index 79b2387..c60a6ac 100644 (file)
@@ -25,7 +25,7 @@
 #include "MALLOC.h"
 #include "GetProperty.h"
 #include "SetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "PloEch.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
@@ -262,7 +262,7 @@ BOOL checkDataBounds(sciPointObj * pObj, double xMin, double xMax,
        || !finite(yMin) || !finite(yMax)
        || !finite(zMin) || !finite(zMax) )
   {
-    sciprint("Error : data bounds values must be finite.");
+    Scierror(999, "Error : data bounds values must be finite.");
     return FALSE ;
   }
 
@@ -271,7 +271,7 @@ BOOL checkDataBounds(sciPointObj * pObj, double xMin, double xMax,
   /* allows equality with bounds since it is working */
   if ( xMin > xMax || yMin > yMax || zMin > zMax )
   {
-    sciprint("Error : Min and Max values for one axis do not verify Min <= Max.\n");
+    Scierror(999, "Error : Min and Max values for one axis do not verify Min <= Max.\n");
     return FALSE ;
   }
 
@@ -280,7 +280,7 @@ BOOL checkDataBounds(sciPointObj * pObj, double xMin, double xMax,
       || ( logFlags[1] == 'l' && yMin <= 0.0 )
       || ( logFlags[2] == 'l' && zMin <= 0.0 ) )
   {
-    sciprint("Error: Bounds on axis must be strictly positive to use logarithmic mode.\n" ) ;
+    Scierror(999, "Error: Bounds on axis must be strictly positive to use logarithmic mode.\n" ) ;
     return FALSE ;
   }
 
index 20177ca..dc99745 100644 (file)
@@ -18,6 +18,7 @@
 
 #include "CheckTicksProperty.h"
 #include "localization.h"
+#include "Scierror.h"
 /*---------------------------------------------------------------------------*/
 
 AssignedList * createTlistForTicks( void )
@@ -32,7 +33,7 @@ AssignedList * createTlistForTicks( void )
 
   if( !isListCurrentElementDoubleMatrix( tlist ) )
   {
-    sciprint(_("%s should be a vector of double.\n"),"locations") ;
+    Scierror(999, _("%s should be a vector of double.\n"),"locations") ;
     return NULL ;
   }
 
@@ -43,7 +44,7 @@ AssignedList * createTlistForTicks( void )
     /* labels should also be an empty matrix */
     if ( !isListCurrentElementEmptyMatrix( tlist ) )
     {
-      sciprint(_("Ticks location and label vectors must have the same size.\n")) ;
+      Scierror(999, _("Ticks location and label vectors must have the same size.\n")) ;
       return NULL ;
     }  
   }
@@ -51,7 +52,7 @@ AssignedList * createTlistForTicks( void )
   {
     if ( !isListCurrentElementStringMatrix( tlist ) )
     {
-      sciprint(_("%s should be a string vector.\n"),"labels") ;
+      Scierror(999, _("%s should be a string vector.\n"),"labels") ;
       return NULL ;
     }
 
@@ -59,7 +60,7 @@ AssignedList * createTlistForTicks( void )
 
     if ( nbRowLoc != nbRowLab || nbColLoc != nbColLab )
     {
-      sciprint(_("Ticks location and label vectors must have the same size.\n"));
+      Scierror(999, _("Ticks location and label vectors must have the same size.\n"));
       return NULL ;
     }
   }
index 62a5722..ea8a440 100644 (file)
@@ -24,7 +24,6 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
 
 /**
  * create a new assigne dlist which allow to easily retrieve the ticks
index 56393bf..cda3f38 100644 (file)
@@ -24,6 +24,7 @@
 #include "CurrentObjectsManagement.h"
 #include "Scierror.h"
 #include "localization.h"
+#include "BuildObjects.h"
 
 /*--------------------------------------------------------------------------*/
 int get_current_entity_property( sciPointObj * pobj )
@@ -34,7 +35,8 @@ int get_current_entity_property( sciPointObj * pobj )
                Scierror(999, _("%s property does not exist for this handle.\n"), "current_entity");
                return -1;
        }
-
+       /* To be sure that there is at least one opened figure */
+       SciWin();
   return sciReturnHandle( sciGetHandle(sciGetCurrentObj()) ) ;
 }
 /*--------------------------------------------------------------------------*/
index 38a7e2c..db8a1d8 100644 (file)
@@ -36,7 +36,7 @@ int get_font_color_property( sciPointObj * pobj )
   }
   else
   {
-    Scierror(999, _("%s property does not exist for this handle.\n"),"Font_color") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"font_color") ;
     return -1 ;
   }
 }
index 0c68b6a..e7432de 100644 (file)
@@ -21,7 +21,6 @@
 #include "getHandleProperty.h"
 #include "GetProperty.h"
 #include "returnProperty.h"
-#include "sciprint.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
index 2558987..b6a9d02 100644 (file)
@@ -21,7 +21,6 @@
 #include "getHandleProperty.h"
 #include "GetProperty.h"
 #include "returnProperty.h"
-#include "sciprint.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
index 86013c0..cfc5f45 100644 (file)
@@ -18,7 +18,6 @@
 /*        a handle                                                        */
 /*------------------------------------------------------------------------*/
 #include "localization.h"
-#include "sciprint.h"
 #include "getHandleProperty.h"
 #include "stack-c.h"
 #include "GetProperty.h"
index 41fbc6b..ea29150 100644 (file)
@@ -21,7 +21,6 @@
 #include "getHandleProperty.h"
 #include "GetProperty.h"
 #include "returnProperty.h"
-#include "sciprint.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
index 5e64c29..e04e364 100644 (file)
@@ -21,7 +21,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -30,13 +30,13 @@ int set_alignment_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"alignment") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"alignment") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType( pobj ) != SCI_TEXT )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"alignment");
+    Scierror(999, _("%s property does not exist for this handle.\n"),"alignment");
     return SET_PROPERTY_ERROR ;
   }
 
@@ -54,7 +54,7 @@ int set_alignment_property( sciPointObj * pobj, size_t stackPointer, int valueTy
   }
   else
   {
-    sciprint(_("%s: Wrong type for input argument #%d: '%s','%s' or '%s' expected.\n"), "set_alignment_property",2,"left","center","right");
+    Scierror(999, _("%s: Wrong type for input argument #%d: '%s','%s' or '%s' expected.\n"), "set_alignment_property",2,"left","center","right");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 808d494..3aea845 100644 (file)
@@ -20,7 +20,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,13 +30,13 @@ int set_arc_drawing_method_property( sciPointObj * pobj, size_t stackPointer, in
 
   if ( sciGetEntityType(pobj) != SCI_ARC && sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"drawing_method") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"drawing_method") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s: Single character string expected.\n"), "drawing_method") ;
+    Scierror(999, _("Incompatible type for property %s: Single character string expected.\n"), "drawing_method") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -50,7 +50,7 @@ int set_arc_drawing_method_property( sciPointObj * pobj, size_t stackPointer, in
   }
   else
   {
-    sciprint(_("Wrong value for property %s: value must be '%s' or '%s'.\n"), "drawing_method","nurbs","lines") ;
+    Scierror(999, _("Wrong value for property %s: value must be '%s' or '%s'.\n"), "drawing_method","nurbs","lines") ;
     return SET_PROPERTY_ERROR ;
   }
 
index acc3d5d..864df7b 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -31,13 +31,13 @@ int set_arrow_size_factor_property( sciPointObj * pobj, size_t stackPointer, int
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"arrow_size_factor") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"arrow_size_factor") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_POLYLINE )
   {
-    sciprint(_("%s property undefined for this handle.\n"), "arrow_size_factor") ;
+    Scierror(999, _("%s property undefined for this handle.\n"), "arrow_size_factor") ;
     return SET_PROPERTY_ERROR ;
   }
   pPOLYLINE_FEATURE(pobj)->arsize_factor = getDoubleFromStack( stackPointer ) ;
index e6419e5..be86342 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_arrow_size_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"arrow_size_factor") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"arrow_size_factor") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SEGS )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"arrow_size") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"arrow_size") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 4905304..1536c14 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -31,7 +31,7 @@ int set_auto_clear_property( sciPointObj * pobj, size_t stackPointer, int valueT
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"auto_clear") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"auto_clear") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -45,7 +45,7 @@ int set_auto_clear_property( sciPointObj * pobj, size_t stackPointer, int valueT
   }
   else
   {
-    sciprint(_("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_auto_clear_property","on","off");
+    Scierror(999, _("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_auto_clear_property","on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index f0dce2e..c314622 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -31,13 +31,13 @@ int set_auto_dimensionning_property( sciPointObj * pobj, size_t stackPointer, in
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"auto_dimensionning") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"auto_dimensionning") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType( pobj ) != SCI_TEXT )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"auto_dimensionning") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"auto_dimensionning") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -51,7 +51,7 @@ int set_auto_dimensionning_property( sciPointObj * pobj, size_t stackPointer, in
   }
   else
   {
-    sciprint(_("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_auto_dimensionning_property","on","off");
+    Scierror(999, _("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_auto_dimensionning_property","on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 6ee31a3..386cba8 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -31,13 +31,13 @@ int set_auto_position_property( sciPointObj * pobj, size_t stackPointer, int val
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"auto_position") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"auto_position") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_LABEL )
   {
-    sciprint(_("%s does not exist for this handle.\n"), "auto_position") ;
+    Scierror(999, _("%s does not exist for this handle.\n"), "auto_position") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -51,7 +51,7 @@ int set_auto_position_property( sciPointObj * pobj, size_t stackPointer, int val
   }
   else
   {
-    sciprint(_("Wrong value: '%s' or '%s' expected.\n"),"on","off") ;
+    Scierror(999, _("Wrong value: '%s' or '%s' expected.\n"),"on","off") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 0bfe001..d543f31 100644 (file)
@@ -20,8 +20,9 @@
 
 #include "setHandleProperty.h"
 #include "SetProperty.h"
+#include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "GraphicSynchronizerInterface.h"
@@ -32,7 +33,13 @@ int set_auto_resize_property( sciPointObj * pobj, size_t stackPointer, int value
   int status = SET_PROPERTY_ERROR;
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"auto_resize") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"auto_resize") ;
+    return SET_PROPERTY_ERROR ;
+  }
+
+       if ( sciGetEntityType(pobj) != SCI_FIGURE )
+  {
+    Scierror(999, _("%s undefined for this object.\n"), "auto_resize") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -48,7 +55,7 @@ int set_auto_resize_property( sciPointObj * pobj, size_t stackPointer, int value
   }
   else
   {
-    sciprint(_("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_auto_resize_property","on","off");
+    Scierror(999, _("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_auto_resize_property","on","off");
     return SET_PROPERTY_ERROR ;
   }
   enableFigureSynchronization(pobj);
index 2bc2f26..37a029d 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -31,13 +31,13 @@ int set_auto_rotation_property( sciPointObj * pobj, size_t stackPointer, int val
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"auto_resize") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"auto_resize") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_LABEL )
   {
-    sciprint(_("%s does not exist for this handle.\n"), "auto_rotation") ;
+    Scierror(999, _("%s does not exist for this handle.\n"), "auto_rotation") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -51,7 +51,7 @@ int set_auto_rotation_property( sciPointObj * pobj, size_t stackPointer, int val
   }
   else
   {
-         sciprint(_("Wrong value: '%s' or '%s' expected.\n"),"on","off");
+         Scierror(999, _("Wrong value: '%s' or '%s' expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 62dd4e9..b563166 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -32,7 +32,13 @@ int set_auto_scale_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"aut_scale") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"auto_scale") ;
+    return SET_PROPERTY_ERROR ;
+  }
+
+       if (sciGetEntityType(pobj) != SCI_FIGURE && sciGetEntityType(pobj) != SCI_SUBWIN)
+  {
+    Scierror(999, _("%s undefined for this object.\n"), "auto_scale") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -46,7 +52,7 @@ int set_auto_scale_property( sciPointObj * pobj, size_t stackPointer, int valueT
   }
   else
   {
-    sciprint(_("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_auto_scale_property","on","off");
+    Scierror(999, _("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_auto_scale_property","on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 755c0d6..0f0e772 100644 (file)
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
 int set_auto_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueType, int nbRow, int nbCol )
 {
-  char ** values = getStringMatrixFromStack( stackPointer ) ;
+  char ** values;
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"auto_ticks") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"auto_ticks") ;
     return SET_PROPERTY_ERROR ;
   }
 
+       values = getStringMatrixFromStack( stackPointer ) ;
+
   if ( sciGetEntityType( pobj ) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"auto_ticks") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"auto_ticks") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -58,7 +60,7 @@ int set_auto_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueT
     }
     else
     {
-      sciprint(_("%s: Wrong input argument #%d: '%s' or '%s' expected.\n"),"set_auto_ticks_property",2,"on","off") ;
+      Scierror(999, _("%s: Wrong input argument #%d: '%s' or '%s' expected.\n"),"set_auto_ticks_property",2,"on","off") ;
       return SET_PROPERTY_ERROR ; ;
     }
     return SET_PROPERTY_SUCCEED ;
@@ -80,7 +82,7 @@ int set_auto_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueT
       }
       else
       {
-        sciprint(_("%s: Wrong input argument #%d: '%s' or '%s' expected.\n"),"set_auto_ticks_property",2,"on","off");
+        Scierror(999, _("%s: Wrong input argument #%d: '%s' or '%s' expected.\n"),"set_auto_ticks_property",2,"on","off");
         return SET_PROPERTY_ERROR ;
       }
     }
@@ -89,7 +91,7 @@ int set_auto_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueT
   }
   else
   {
-    sciprint(_("Wrong value for input argument #%d: Between %d to %d expected.\n"),2,1,3) ;
+    Scierror(999, _("Wrong value for input argument #%d: Between %d to %d expected.\n"),2,1,3) ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index fbf5805..a1aa45a 100644 (file)
@@ -25,7 +25,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "PloEch.h"
 
@@ -34,18 +34,18 @@ int set_axes_bounds_property( sciPointObj * pobj, size_t stackPointer, int value
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"axes_bounds") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"axes_bounds") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"axes_bounds") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"axes_bounds") ;
     return SET_PROPERTY_ERROR ;
   }
   if ( nbRow * nbCol != 4 )
   {
-    sciprint(_("Wrong size for argument #%d: %d elements expected.\n"),2,4);
+    Scierror(999, _("Wrong size for argument #%d: %d elements expected.\n"),2,4);
     return SET_PROPERTY_ERROR ;
   }
   
index 74b6fe5..84cd5e5 100644 (file)
@@ -25,7 +25,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -35,13 +35,13 @@ int set_axes_reverse_property( sciPointObj * pobj, size_t stackPointer, int valu
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"axes_reverse") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"axes_reverse") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType( pobj ) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"axes_reverse") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"axes_reverse") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -62,7 +62,7 @@ int set_axes_reverse_property( sciPointObj * pobj, size_t stackPointer, int valu
     }
     else
     {
-      sciprint(_("%s: Wrong input argument #%d: '%s' or '%s' expected."),"set_axes_reverse_property",2,"on","off") ;
+      Scierror(999, _("%s: Wrong input argument #%d: '%s' or '%s' expected."),"set_axes_reverse_property",2,"on","off") ;
       return SET_PROPERTY_ERROR ; ;
     }
     return SET_PROPERTY_SUCCEED ;
@@ -82,7 +82,7 @@ int set_axes_reverse_property( sciPointObj * pobj, size_t stackPointer, int valu
       }
       else
       {
-        sciprint(_("%s: Wrong input argument #%d: '%s' or '%s' expected."),"set_axes_reverse_property",2,"on","off");
+        Scierror(999, _("%s: Wrong input argument #%d: '%s' or '%s' expected."),"set_axes_reverse_property",2,"on","off");
         return SET_PROPERTY_ERROR ;
       }
     }
@@ -90,7 +90,7 @@ int set_axes_reverse_property( sciPointObj * pobj, size_t stackPointer, int valu
   }
   else
   {
-    sciprint(_("Wrong value for input argument #%d: Between %d to %d expected.\n"),2,1,3) ;
+    Scierror(999, _("Wrong value for input argument #%d: Between %d to %d expected.\n"),2,1,3) ;
     return SET_PROPERTY_ERROR ;
   }
 }
index fd5453d..5b9fd99 100644 (file)
@@ -22,6 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
+#include "Scierror.h"
 #include "sciprint.h"
 #include "localization.h"
 #include "InitObjects.h"
@@ -37,13 +38,13 @@ int set_axes_size_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"axes_size") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"axes_size") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_FIGURE )
   {
-    sciprint(_("%s undefined for this object.\n"), "axes_size") ;
+    Scierror(999, _("%s undefined for this object.\n"), "axes_size") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -55,7 +56,7 @@ int set_axes_size_property( sciPointObj * pobj, size_t stackPointer, int valueTy
   switch(status)
   {
   case RESIZE_SIZE_TOO_LARGE:
-    sciprint(_("Wrong value for property '%s': smaller values expected.\n"), "axes_size") ;
+    Scierror(999, _("Wrong value for property '%s': smaller values expected.\n"), "axes_size") ;
     return SET_PROPERTY_ERROR ;
   case RESIZE_MULTIPLE_DOCKED_TAB:
     sciprint(_("WARNING: '%s' property can not be modified if the %s is docked with other elements.\n"), "axes_size", "Figure") ;
index c7ae8ad..891ba8e 100644 (file)
@@ -25,7 +25,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "BasicAlgos.h"
 
@@ -36,13 +36,13 @@ int set_axes_visible_property( sciPointObj * pobj, size_t stackPointer, int valu
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"axes_visible") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"axes_visible") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"axes_visible") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"axes_visible") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -63,7 +63,7 @@ int set_axes_visible_property( sciPointObj * pobj, size_t stackPointer, int valu
     }
     else
     {
-      sciprint(_("%s: Wrong input argument #%d: '%s' or '%s' expected."),"set_axes_visible_property",2,"on","off") ;
+      Scierror(999, _("%s: Wrong input argument #%d: '%s' or '%s' expected."),"set_axes_visible_property",2,"on","off") ;
       return SET_PROPERTY_ERROR ;
     }
     return SET_PROPERTY_SUCCEED ;
@@ -83,7 +83,7 @@ int set_axes_visible_property( sciPointObj * pobj, size_t stackPointer, int valu
       }
       else
       {
-        sciprint(_("%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n"), "set_axes_visible_property",2,"on","off") ;
+        Scierror(999, _("%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n"), "set_axes_visible_property",2,"on","off") ;
         return SET_PROPERTY_ERROR ;
       }
     }
@@ -91,7 +91,7 @@ int set_axes_visible_property( sciPointObj * pobj, size_t stackPointer, int valu
   }
   else
   {
-    sciprint(_("Wrong value for input argument #%d: Between %d to %d expected.\n"),2,1,3) ;
+    Scierror(999, _("Wrong value for input argument #%d: Between %d to %d expected.\n"),2,1,3) ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index ae9f44e..73702da 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_background_property( sciPointObj * pobj, size_t stackPointer, int valueT
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"background") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"background") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 13cb7f0..d957ea7 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -32,13 +32,13 @@ int set_bar_layout_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"bar_layout") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"bar_layout") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_POLYLINE )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"bar_layout") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"bar_layout") ;
     return SET_PROPERTY_ERROR ;
   }
   
@@ -52,7 +52,7 @@ int set_bar_layout_property( sciPointObj * pobj, size_t stackPointer, int valueT
   }
   else
   {
-    sciprint(_("%s must be set to '%s' or '%s'.\n"),"bar_layout","grouped","stacked") ;
+    Scierror(999, _("%s must be set to '%s' or '%s'.\n"),"bar_layout","grouped","stacked") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 736ca80..f31e39a 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -32,13 +32,13 @@ int set_bar_width_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"bar_width") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"bar_width") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType (pobj) != SCI_POLYLINE )
   {
-    sciprint("Object has no bar shift.\n") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"bar_width") ;
     return SET_PROPERTY_ERROR ;
   }
   pPOLYLINE_FEATURE (pobj)->bar_width = getDoubleFromStack( stackPointer ) ;
index f511ce4..f8ecaf3 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,7 +32,7 @@ int set_box_property( sciPointObj * pobj, size_t stackPointer, int valueType, in
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"box") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"box") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -56,11 +56,11 @@ int set_box_property( sciPointObj * pobj, size_t stackPointer, int valueType, in
     }
     else
     {
-      sciprint(_("%s: Wrong type for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), "set_box_property",2,"on","off","hidden_axis","back_half") ;
+      Scierror(999, _("%s: Wrong type for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), "set_box_property",2,"on","off","hidden_axis","back_half") ;
       return SET_PROPERTY_ERROR ;
     }
   }
-  else
+  else if (sciGetEntityType( pobj ) == SCI_TEXT)
   {
     if ( isStringParamEqual( stackPointer, "on" ) )
     {
@@ -72,11 +72,13 @@ int set_box_property( sciPointObj * pobj, size_t stackPointer, int valueType, in
     }
     else
     {
-      sciprint(_("%s: Wrong input argument #%d: '%s' or '%s' expected."),"set_box_property",2,"on","off") ;
+      Scierror(999, _("%s: Wrong input argument #%d: '%s' or '%s' expected."),"set_box_property",2,"on","off") ;
       return SET_PROPERTY_SUCCEED ;
     }
   }
+       
 
+       Scierror(999, _("%s property does not exist for this handle.\n"),"box") ;
   return SET_PROPERTY_ERROR ;
 
 }
index a16e1cc..33962be 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "Interaction.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
@@ -33,7 +33,7 @@ int set_callback_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
     {
       if ( (!isParameterStringMatrix( valueType )) && (valueType != sci_list) )
         {
-          sciprint(_("Incompatible type for property %s.\n"),"callback") ;
+          Scierror(999, _("Incompatible type for property %s.\n"),"callback") ;
           return SET_PROPERTY_ERROR ;
         }
       return SetUiobjectCallback(pobj, stackPointer, valueType, nbRow, nbCol);
@@ -42,7 +42,7 @@ int set_callback_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
     {
       if ( !isParameterStringMatrix( valueType ) )
         {
-          sciprint(_("Incompatible type for property %s.\n"),"callback") ;
+          Scierror(999, _("Incompatible type for property %s.\n"),"callback") ;
           return SET_PROPERTY_ERROR ;
         }
      return sciAddCallback( pobj, getStringFromStack( stackPointer ), nbRow * nbCol, 1 ) ;
index 0032aa9..584ad0a 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -33,7 +33,7 @@ int set_callback_type_property( sciPointObj * pobj, size_t stackPointer, int val
 
   if ( !isParameterDoubleMatrix(valueType) || nbRow !=1 || nbCol != 1 )
   {
-    sciprint(_("Incompatible value for property %s: Must be %d, %d, %d or %d.\n"),"callback_type",-1,0,1,2) ;
+    Scierror(999, _("Incompatible value for property %s: Must be %d, %d, %d or %d.\n"),"callback_type",-1,0,1,2) ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -41,7 +41,7 @@ int set_callback_type_property( sciPointObj * pobj, size_t stackPointer, int val
 
   if (cbType < -1 || cbType > 2)
     {
-      sciprint(_("Incompatible value for property %s: Must be %d, %d, %d or %d.\n"),"callback_type",-1,0,1,2) ;
+      Scierror(999, _("Incompatible value for property %s: Must be %d, %d, %d or %d.\n"),"callback_type",-1,0,1,2) ;
       return SET_PROPERTY_ERROR ;
     }
 
@@ -55,7 +55,7 @@ int set_callback_type_property( sciPointObj * pobj, size_t stackPointer, int val
     }
   else
     {
-      sciprint(_("%s property does not exist for this handle.\n"),"callback_type");
+      Scierror(999, _("%s property does not exist for this handle.\n"),"callback_type");
       return SET_PROPERTY_ERROR ;
     }
 
index 8ee3226..5784be3 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "Interaction.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -32,7 +32,7 @@ int set_callbackmevent_property( sciPointObj * pobj, size_t stackPointer, int va
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"callbackmevent") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"callbackmevent") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 8b30475..b86c8a7 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "ColorMapManagement.h"
 #include "MALLOC.h"
@@ -36,13 +36,13 @@ int set_cdata_mapping_property( sciPointObj * pobj, size_t stackPointer, int val
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"cdata_mapping") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"cdata_mapping") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SURFACE || pSURFACE_FEATURE(pobj)->typeof3d != SCI_FAC3D )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"cdata_mapping") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"cdata_mapping") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -70,7 +70,7 @@ int set_cdata_mapping_property( sciPointObj * pobj, size_t stackPointer, int val
       {
         if ((ppSurf->color = MALLOC (nc * sizeof (double))) == NULL)
         {
-                       sciprint(_("%s: No more memory.\n"),"set_cdata_mapping_property");
+                                       Scierror(999, _("%s: No more memory.\n"),"set_cdata_mapping_property");
           return SET_PROPERTY_ERROR ;
         }
       }
@@ -83,7 +83,7 @@ int set_cdata_mapping_property( sciPointObj * pobj, size_t stackPointer, int val
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"scaled","direct");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"scaled","direct");
     return SET_PROPERTY_ERROR ;
   }
 
index cab7024..c06ca9f 100644 (file)
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
 /*------------------------------------------------------------------------*/
 int set_children_property( sciPointObj * pobj, size_t stackPointer, int valueType, int nbRow, int nbCol )
 {
-  sciprint(_("Children property can not be modified directly.\n"));
+  Scierror(999, _("Children property can not be modified directly.\n"));
   return SET_PROPERTY_ERROR ;
 }
 /*------------------------------------------------------------------------*/
index 4f7a855..c11e99a 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -34,14 +34,14 @@ int set_clip_box_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"clip_box") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"clip_box") ;
     return SET_PROPERTY_ERROR ;
   }
 
   /* We must have a matrix of 4x1 */
   if ( nbRow * nbCol != 4 )
   {
-    sciprint(_("Argument must be a vector of size %d.\n"),4);
+    Scierror(999, _("Argument must be a vector of size %d.\n"),4);
     return SET_PROPERTY_ERROR ;
   }
   status1 = sciSetClipping( pobj, getDoubleMatrixFromStack( stackPointer ) ) ;
index 451d287..3c50789 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -32,13 +32,13 @@ int set_clip_state_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"clip_state") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"clip_state") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"axes_visible") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"axes_visible") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -63,7 +63,7 @@ int set_clip_state_property( sciPointObj * pobj, size_t stackPointer, int valueT
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 7775bd3..9ca70d4 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_closed_property( sciPointObj * pobj, size_t stackPointer, int valueType,
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"closed") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"closed") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if(sciGetEntityType(pobj) != SCI_POLYLINE)
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"closed") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"closed") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -52,7 +52,7 @@ int set_closed_property( sciPointObj * pobj, size_t stackPointer, int valueType,
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index bf8fc30..f4b8f0f 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "ColorMapManagement.h"
 #include "MALLOC.h"
@@ -36,18 +36,18 @@ int set_color_flag_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"color_flag") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"color_flag") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SURFACE )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"color_flag") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"color_flag") ;
     return SET_PROPERTY_ERROR ;
   }
   if ( nbRow * nbCol != 1 )
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Scalar expected.\n"), "set_color_flag_property", 2) ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"), "set_color_flag_property", 2) ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -55,7 +55,7 @@ int set_color_flag_property( sciPointObj * pobj, size_t stackPointer, int valueT
   {
     if ( flagcolor < 0 || flagcolor > 1 )
     {
-      sciprint(_("%s: Wrong type for input argument #%d: %d or %d expected.\n"), "set_color_flag_property", 2, 0, 1) ;
+      Scierror(999, _("%s: Wrong type for input argument #%d: %d or %d expected.\n"), "set_color_flag_property", 2, 0, 1) ;
       return SET_PROPERTY_ERROR ;
     }
     pSURFACE_FEATURE(pobj)->flagcolor = flagcolor ;
@@ -68,7 +68,7 @@ int set_color_flag_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
     if ( flagcolor < 0 || flagcolor > 4 )
     {
-      sciprint(_("%s: Wrong type for input argument #%d: %d, %d, %d, %d or %d expected.\n"), "set_color_flag_property",2, 0, 1, 2, 3, 4) ;
+      Scierror(999, _("%s: Wrong type for input argument #%d: %d, %d, %d, %d or %d expected.\n"), "set_color_flag_property",2, 0, 1, 2, 3, 4) ;
       return -1 ;
     }
 
@@ -98,7 +98,7 @@ int set_color_flag_property( sciPointObj * pobj, size_t stackPointer, int valueT
       {
         if ((psurf->zcol = MALLOC (nc * sizeof (double))) == NULL)
         {
-          sciprint(_("%s: No more memory.\n"),"set_color_flag_property") ;
+          Scierror(999, _("%s: No more memory.\n"),"set_color_flag_property") ;
           return SET_PROPERTY_ERROR ;
         }
       }
@@ -154,7 +154,7 @@ int set_color_flag_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
       if ((psurf->zcol = MALLOC ( nc * sizeof (double))) == NULL)
       {
-        sciprint(_("%s: No more memory.\n"),"set_color_flag_property") ;
+        Scierror(999, _("%s: No more memory.\n"),"set_color_flag_property") ;
         return SET_PROPERTY_ERROR ;
       }
 
@@ -210,7 +210,7 @@ int set_color_flag_property( sciPointObj * pobj, size_t stackPointer, int valueT
       {
         if ((psurf->zcol = MALLOC (nc * sizeof (double))) == NULL)
         {
-          sciprint(_("%s: No more memory.\n"),"set_color_flag_property") ;
+          Scierror(999, _("%s: No more memory.\n"),"set_color_flag_property") ;
           return SET_PROPERTY_ERROR ;
         }
       }
@@ -268,8 +268,8 @@ int set_color_flag_property( sciPointObj * pobj, size_t stackPointer, int valueT
         {
           if ((psurf->color = MALLOC (nc * sizeof (double))) == NULL)
           {
-            sciprint(_("%s: No more memory.\n"),"set_color_flag_property") ;
-            return -1;
+            Scierror(999, _("%s: No more memory.\n"),"set_color_flag_property") ;
+            return SET_PROPERTY_ERROR;
           }
           doubleArrayCopy( psurf->color, psurf->zcol, nc ) ;
         }
index 2c512d5..67bf899 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_color_map_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"color_map") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"color_map") ;
     return SET_PROPERTY_ERROR ;
   }
 
index bbeb577..df175e8 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "ColorMapManagement.h"
 #include "MALLOC.h"
@@ -37,13 +37,13 @@ int set_color_mode_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"color_mode") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"color_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SURFACE )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"color_mode") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"color_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -74,7 +74,7 @@ int set_color_mode_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
       if ((psurf->zcol = MALLOC ( nc * sizeof (double))) == NULL)
       {
-        sciprint(_("%s: No more memory.\n"),"set_color_mode_property");
+        Scierror(999, _("%s: No more memory.\n"),"set_color_mode_property");
         return SET_PROPERTY_ERROR ;
       }
 
@@ -106,8 +106,8 @@ int set_color_mode_property( sciPointObj * pobj, size_t stackPointer, int valueT
           {
             if ((psurf->color = MALLOC (nc_ * sizeof (double))) == NULL)
             {
-                               sciprint(_("%s: No more memory\n"),"set_color_mode_property");
-                               return SET_PROPERTY_ERROR ;
+                                                       Scierror(999, _("%s: No more memory\n"),"set_color_mode_property");
+                                                       return SET_PROPERTY_ERROR ;
             }
             doubleArrayCopy( psurf->color, psurf->zcol, nc_ ) ;
           }
index 2f62faa..559dcab 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_colored_property( sciPointObj * pobj, size_t stackPointer, int valueType
   
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"colored") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"colored") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType( pobj ) != SCI_SEGS || pSEGS_FEATURE(pobj)->ptype == 0 )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"colored") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"colored") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -52,7 +52,7 @@ int set_colored_property( sciPointObj * pobj, size_t stackPointer, int valueType
     }
     else
     {
-      sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+      Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
       return SET_PROPERTY_ERROR ;
     }
 
index c454da2..1bfb549 100644 (file)
@@ -23,6 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
+#include "Scierror.h"
 #include "sciprint.h"
 #include "localization.h"
 
@@ -32,13 +33,13 @@ int set_cube_scaling_property( sciPointObj * pobj, size_t stackPointer, int valu
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"cube_scaling") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"cube_scaling") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"cube_scaling") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"cube_scaling") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -57,7 +58,7 @@ int set_cube_scaling_property( sciPointObj * pobj, size_t stackPointer, int valu
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index 44d51fe..a1b529f 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -35,9 +35,17 @@ int set_current_axes_property( sciPointObj * pobj, size_t stackPointer, int valu
   int status1 = 1 ;
   int status2 = 1 ;
   
+
+       if (pobj != NULL)
+       {
+               /* This property should not be called on an handle */
+               Scierror(999, _("%s property does not exist for this handle.\n"), "current_axes");
+               return -1;
+       }
+
   if ( !isParameterHandle( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"current_axes") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"current_axes") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -45,12 +53,12 @@ int set_current_axes_property( sciPointObj * pobj, size_t stackPointer, int valu
 
   if ( curAxes == NULL)
   {
-    sciprint("Object is not valid.\n") ;
+    Scierror(999, "Object is not valid.\n") ;
     return -1 ;
   }
   if ( sciGetEntityType( curAxes ) != SCI_SUBWIN )
   {
-    sciprint("Object is not an Axes Entity.\n") ;
+    Scierror(999, "Object is not an Axes Entity.\n") ;
     return -1 ;
   }
 
index ba5a30a..7127c64 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "CurrentObjectsManagement.h"
@@ -31,9 +31,16 @@ int set_current_entity_property( sciPointObj * pobj, size_t stackPointer, int va
 {
   sciPointObj * curEntity = NULL ;
   
+       if (pobj != NULL)
+       {
+               /* This property should not be called on an handle */
+               Scierror(999, _("%s property does not exist for this handle.\n"), "current_entity");
+               return -1;
+       }
+
   if ( !isParameterHandle( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"current_entity") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"current_entity") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -41,7 +48,7 @@ int set_current_entity_property( sciPointObj * pobj, size_t stackPointer, int va
 
   if ( curEntity == NULL )
   {
-    sciprint("Object is not valid.\n") ;
+    Scierror(999, "Object is not valid.\n") ;
     return SET_PROPERTY_ERROR ;
   }
   sciSetCurrentObj( curEntity ) ;
index a0e0883..a5ce4af 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GraphicSynchronizerInterface.h"
 
@@ -32,9 +32,17 @@ int set_current_figure_property( sciPointObj * pobj, size_t stackPointer, int va
   int figNum = -1 ;
   int res = -1 ;
 
+
+       if (pobj != NULL)
+       {
+               /* This property should not be called on an handle */
+               Scierror(999, _("%s property does not exist for this handle.\n"), "current_figure");
+               return -1;
+       }
+
   if (nbRow * nbCol != 1)
   {
-    sciprint(_("Wrong size for input argument #%d: A real or a 'Figure' handle expected.\n"), 1) ;
+    Scierror(999, _("Wrong size for input argument #%d: A real or a 'Figure' handle expected.\n"), 1) ;
     return -1 ;
   }
   
@@ -45,13 +53,13 @@ int set_current_figure_property( sciPointObj * pobj, size_t stackPointer, int va
     
     if ( curFig == NULL )
     {
-      sciprint(_("'%s' handle does not or no longer exists.\n"),"Figure");
+      Scierror(999, _("'%s' handle does not or no longer exists.\n"),"Figure");
       return -1 ;
     }
 
     if ( sciGetEntityType( curFig ) != SCI_FIGURE )
     {
-      sciprint(_("Wrong type for input argument #%d: A real or a '%s' handle expected.\n"), 1,"Figure") ;
+      Scierror(999, _("Wrong type for input argument #%d: A real or a '%s' handle expected.\n"), 1,"Figure") ;
       return -1;
     }
     startGraphicDataReading();
@@ -64,7 +72,7 @@ int set_current_figure_property( sciPointObj * pobj, size_t stackPointer, int va
   }
   else
   {
-    sciprint(_("Wrong type for input argument #%d: A real or a '%s' handle expected.\n"), 1,"Figure") ;
+    Scierror(999, _("Wrong type for input argument #%d: A real or a '%s' handle expected.\n"), 1,"Figure") ;
     return -1 ;
   }
 
@@ -72,7 +80,7 @@ int set_current_figure_property( sciPointObj * pobj, size_t stackPointer, int va
   res = sciSetUsedWindow( figNum ) ;
   if ( res < 0 )
   {
-    sciprint(_("Unable to create requested figure: No more memory.\n"));
+    Scierror(999, _("Unable to create requested figure: No more memory.\n"));
   }
   return res ;
 
index 273515c..ff232e7 100644 (file)
@@ -25,7 +25,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "axesScale.h"
 /*------------------------------------------------------------------------*/
@@ -70,7 +70,7 @@ int getdDataBoundsFromStack( size_t  stackPointer, int nbRow, int nbCol,
     }
     else
     {
-      sciprint(_("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
+      Scierror(999, _("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
       return SET_PROPERTY_ERROR ;
     }
     break ;
@@ -94,7 +94,7 @@ int getdDataBoundsFromStack( size_t  stackPointer, int nbRow, int nbCol,
     }
     else
     {
-      sciprint(_("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
+      Scierror(999, _("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
       return SET_PROPERTY_ERROR ;
     }
     break ;
@@ -109,7 +109,7 @@ int getdDataBoundsFromStack( size_t  stackPointer, int nbRow, int nbCol,
     }
     else
     {
-      sciprint(_("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
+      Scierror(999, _("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
       return SET_PROPERTY_ERROR ;
     }
     break ;
@@ -125,12 +125,12 @@ int getdDataBoundsFromStack( size_t  stackPointer, int nbRow, int nbCol,
     }
     else
     {
-      sciprint(_("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
+      Scierror(999, _("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
       return SET_PROPERTY_ERROR ;
     }
     break ;
   default:
-    sciprint(_("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
+    Scierror(999, _("Wrong size for argument #%d: %s, %s, %s, %s, %s or %s matrix expected.\n"),2,"2x2", "2x3", "1x4", "4x1", "1x6","6x1");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
@@ -141,7 +141,7 @@ int set_data_bounds_property( sciPointObj * pobj, size_t stackPointer, int value
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"data_bounds") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"data_bounds") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -200,7 +200,7 @@ int set_data_bounds_property( sciPointObj * pobj, size_t stackPointer, int value
   {
     if ( nbRow * nbCol != 6 )
     {
-      sciprint(_("Argument #%d must have %d elements.\n"),2,6) ;
+      Scierror(999, _("Argument #%d must have %d elements.\n"),2,6) ;
       return SET_PROPERTY_ERROR ;
     }
     sciSetDataBounds(pobj, getDoubleMatrixFromStack(stackPointer) ) ;
@@ -209,7 +209,7 @@ int set_data_bounds_property( sciPointObj * pobj, size_t stackPointer, int value
   }
   else
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"data_bounds") ; 
+    Scierror(999, _("%s property does not exist for this handle.\n"),"data_bounds") ; 
     return SET_PROPERTY_ERROR ;
   }
 
index 4ff13a1..9e265b8 100644 (file)
@@ -25,7 +25,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -34,13 +34,13 @@ int set_data_mapping_property( sciPointObj * pobj, size_t stackPointer, int valu
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"data_mapping") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"data_mapping") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_GRAYPLOT )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"data_mapping") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"data_mapping") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -51,7 +51,7 @@ int set_data_mapping_property( sciPointObj * pobj, size_t stackPointer, int valu
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"scaled","direct");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"scaled","direct");
     return SET_PROPERTY_ERROR ;
   }
 
index 69a9010..2939382 100644 (file)
@@ -23,7 +23,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "returnProperty.h"
@@ -59,7 +59,7 @@ int setchampdata( sciPointObj * pobj, AssignedList * tlist )
   /* check dim */
   if ( nbCol[0] != 1 || nbCol[1] != 1 )
   {
-    sciprint(_("%s: Wrong type for argument #%d: Columns vectors expected.\n"),"Tlist",1);
+    Scierror(999, _("%s: Wrong type for argument #%d: Columns vectors expected.\n"),"Tlist",1);
     FREE( vx  ) ;
     FREE( vy  ) ;
     FREE( vfx ) ;
@@ -70,7 +70,7 @@ int setchampdata( sciPointObj * pobj, AssignedList * tlist )
 
   if ( nbRow[2] != nbRow[0] || nbCol[2] != nbRow[1] || nbRow[3] != nbRow[2] || nbCol[3] != nbCol[2] )
   {
-    sciprint(_("%s: Wrong size for arguments #%d and #%d: Incompatible length.\n"),"Tlist",3,4);
+    Scierror(999, _("%s: Wrong size for arguments #%d and #%d: Incompatible length.\n"),"Tlist",3,4);
     FREE( vx  ) ;
     FREE( vy  ) ;
     FREE( vfx ) ;
@@ -126,7 +126,7 @@ int setgrayplotdata( sciPointObj * pobj, AssignedList * tlist )
 
   if ( nbCol[0] != 1 || nbCol[1] != 1 )
   {
-    sciprint(_("%s: Wrong type for argument #%d: Columns vectors expected.\n"),"Tlist",1);
+    Scierror(999, _("%s: Wrong type for argument #%d: Columns vectors expected.\n"),"Tlist",1);
     FREE( pvecx ) ;
     FREE( pvecy ) ;
     FREE( pvecz ) ;
@@ -135,7 +135,7 @@ int setgrayplotdata( sciPointObj * pobj, AssignedList * tlist )
 
   if ( nbRow[2] != nbRow[0] || nbCol[2] != nbRow[1] )
   {
-    sciprint(_("%s: Wrong size for arguments #%d: Incompatible length.\n"),"Tlist","Tlist",3);
+    Scierror(999, _("%s: Wrong size for arguments #%d: Incompatible length.\n"),"Tlist","Tlist",3);
     FREE( pvecx ) ;
     FREE( pvecy ) ;
     FREE( pvecz ) ;
@@ -192,7 +192,7 @@ int set3ddata( sciPointObj * pobj, AssignedList * tlist )
   {
     if ( !(m1 == m2 && m2 == m3 && n1 == n2 && n2 == n3) )
     {
-    sciprint(_("%s: Wrong size for arguments #%d, #%d and #%d: Incompatible length.\n"),"Tlist",1,2,3);
+                       Scierror(999, _("%s: Wrong size for arguments #%d, #%d and #%d: Incompatible length.\n"),"Tlist",1,2,3);
       return SET_PROPERTY_ERROR ;
     }
   }
@@ -200,18 +200,17 @@ int set3ddata( sciPointObj * pobj, AssignedList * tlist )
   {
     if ( m2 * n2 != n3 )
     {
-    sciprint(_("%s: Wrong size for arguments #%d and #%d: Incompatible length.\n"),"Tlist",2,3);
+                       Scierror(999, _("%s: Wrong size for arguments #%d and #%d: Incompatible length.\n"),"Tlist",2,3);
       return SET_PROPERTY_ERROR ;
     }
     if ( m1 * n1 != m3 )
     {
-    sciprint(_("%s: Wrong size for arguments #%d and #%d: Incompatible length.\n"),"Tlist",1,3);
-
+                       Scierror(999, _("%s: Wrong size for arguments #%d and #%d: Incompatible length.\n"),"Tlist",1,3);
       return SET_PROPERTY_ERROR ;
     }
     if ( m1 * n1 <= 1 || m2 * n2 <= 1 ) 
     {
-    sciprint(_("%s: Wrong size for arguments #%d and #%d: Should be >= %d.\n"),"Tlist",1,2,2);
+                       Scierror(999, _("%s: Wrong size for arguments #%d and #%d: Should be >= %d.\n"),"Tlist",1,2,2);
       return SET_PROPERTY_ERROR ;
     }
   }
@@ -237,7 +236,7 @@ int set3ddata( sciPointObj * pobj, AssignedList * tlist )
     }
     else
     {
-      sciprint( _("Wrong size for %s element: A %d-by-%d matrix or a vector of size %d expected.\n"), "color", m3, n3, n3);
+      Scierror(999, _("Wrong size for %s element: A %d-by-%d matrix or a vector of size %d expected.\n"), "color", m3, n3, n3);
       return SET_PROPERTY_ERROR ;
     }
   }
@@ -252,7 +251,7 @@ int set3ddata( sciPointObj * pobj, AssignedList * tlist )
   { /* case isfac=1;*/
     if( psurf->isfac != 1 )
     {
-      sciprint(_("Can not change the %s of graphic object: its type is %s.\n"),"typeof3d","SCI_PLOT3D");
+      Scierror(999, _("Can not change the %s of graphic object: its type is %s.\n"),"typeof3d","SCI_PLOT3D");
       return SET_PROPERTY_ERROR ;
     }
   }
@@ -261,7 +260,7 @@ int set3ddata( sciPointObj * pobj, AssignedList * tlist )
     /* case isfac=0;*/
     if(psurf->isfac != 0)
     {
-      sciprint(_("Can not change the %s of graphic object: its type is %s.\n"),"typeof3d","SCI_FAC3D");
+      Scierror(999, _("Can not change the %s of graphic object: its type is %s.\n"),"typeof3d","SCI_FAC3D");
       return SET_PROPERTY_ERROR ;
     }
   }
@@ -292,8 +291,8 @@ int set3ddata( sciPointObj * pobj, AssignedList * tlist )
     int monotony = checkMonotony( pvecx, dimvectx ) ;
     if ( monotony == 0 )
     {
-      sciprint(_("%s: Wrong value: Vector is not monotonous.\n"),"Objplot3d");
-      return 0;
+      Scierror(999, _("%s: Wrong value: Vector is not monotonous.\n"),"Objplot3d");
+      return SET_PROPERTY_ERROR;
     }
 
     psurf->flag_x = monotony ;
@@ -321,8 +320,8 @@ int set3ddata( sciPointObj * pobj, AssignedList * tlist )
     int monotony = checkMonotony( pvecx, dimvecty ) ;
     if ( monotony == 0 )
     {
-      sciprint(_("%s: Wrong value: Vector is not monotonous.\n"),"Objplot3d");
-      return 0;
+      Scierror(999, _("%s: Wrong value: Vector is not monotonous.\n"),"Objplot3d");
+      return SET_PROPERTY_ERROR;
     }
 
     psurf->flag_y = monotony ;
@@ -563,7 +562,7 @@ int CheckAndUpdate_x_shift(sciPointObj * pobj, int numrow)
 
   if ( new_bar == NULL )
   {
-    sciprint(_("%s: No more memory.\n"),"set_data_property") ;
+    Scierror(999, _("%s: No more memory.\n"),"set_data_property") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -592,7 +591,7 @@ int CheckAndUpdate_y_shift(sciPointObj * pobj, int numrow)
 
   if ( new_bar == NULL )
   {
-    sciprint(_("%s: No more memory.\n"),"CheckAndUpdate_y_shift") ;
+    Scierror(999, _("%s: No more memory.\n"),"CheckAndUpdate_y_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -621,7 +620,7 @@ int CheckAndUpdate_z_shift(sciPointObj * pobj, int numrow)
 
   if ( new_bar == NULL )
   {
-    sciprint(_("%s: No more memory.\n"),"CheckAndUpdate_z_shift") ;
+    Scierror(999, _("%s: No more memory.\n"),"CheckAndUpdate_z_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -640,7 +639,7 @@ int set_data_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
 
     if( !isParameterTlist( valueType ) )
     {
-      sciprint("Incorrect argument, must be a Tlist!\n") ;
+      Scierror(999, "Incorrect argument, must be a Tlist!\n") ;
       return SET_PROPERTY_ERROR ;
     }
   
@@ -662,7 +661,7 @@ int set_data_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
 
     if( !isParameterTlist( valueType ) )
     {
-      sciprint(_("Wrong type for input argument: Tlist expected.\n"));
+      Scierror(999, _("Wrong type for input argument: Tlist expected.\n"));
       return SET_PROPERTY_ERROR ;
     }
 
@@ -685,7 +684,7 @@ int set_data_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
 
     if( !isParameterTlist( valueType ) )
     {
-      sciprint(_("Wrong type for input argument: Tlist expected.\n"));
+      Scierror(999, _("Wrong type for input argument: Tlist expected.\n"));
       return SET_PROPERTY_ERROR ;
     }
 
@@ -701,7 +700,7 @@ int set_data_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
     }
     else
     {
-      sciprint(_("Wrong size for input argument: %d or %d expected.\n"),4,5);
+      Scierror(999, _("Wrong size for input argument: %d or %d expected.\n"),4,5);
       return SET_PROPERTY_ERROR ;
     }
 
@@ -719,7 +718,7 @@ int set_data_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
   {
     if ( !isParameterDoubleMatrix( valueType ) )
     {
-      sciprint(_("Incompatible type for property %s.\n"),"data") ;
+      Scierror(999, _("Incompatible type for property %s.\n"),"data") ;
       return SET_PROPERTY_ERROR ;
     }
 
index eae0438..c008ba3 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "InitObjects.h"
 #include "SetPropertyStatus.h"
@@ -31,13 +31,13 @@ int set_default_values_property( sciPointObj * pobj, size_t stackPointer, int va
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"default_values") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"default_values") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( getDoubleFromStack( stackPointer ) != 1 )
   {
-    sciprint(_("Value must be %d to set default values.\n"),1) ;
+    Scierror(999, _("Value must be %d to set default values.\n"),1) ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -49,10 +49,13 @@ int set_default_values_property( sciPointObj * pobj, size_t stackPointer, int va
   {
     return InitAxesModel();
   }
-  else
+  else if (pobj == NULL)
   {
+               /* set default values for current figure */
     return sciSetDefaultValues();
   }
+
+       Scierror(999, _("%s property does not exist for this handle.\n"), "default_values");
   return SET_PROPERTY_ERROR ;
 }
 /*------------------------------------------------------------------------*/
index eec2a7c..81a591f 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -32,13 +32,13 @@ int set_dimension_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"figure_position") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"figure_position") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow * nbCol != 2 )
   {
-    sciprint(_("Wrong size for %s property: Vector of size %d expected.\n"),"dimension",2) ;
+    Scierror(999, _("Wrong size for %s property: Vector of size %d expected.\n"),"dimension",2) ;
     return SET_PROPERTY_ERROR ;
   }
 
index a5a0793..fdc4e14 100644 (file)
@@ -21,7 +21,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -30,13 +30,13 @@ int set_event_handler_enable_property( sciPointObj * pobj, size_t stackPointer,
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"event_handler") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"event_handler_enable") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType( pobj ) != SCI_FIGURE )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"event_handler");
+    Scierror(999, _("%s property does not exist for this handle.\n"),"event_handler_enable");
     return SET_PROPERTY_ERROR ;
   }
 
@@ -48,7 +48,7 @@ int set_event_handler_enable_property( sciPointObj * pobj, size_t stackPointer,
   {
     return sciSetIsEventHandlerEnable( pobj, FALSE ) ;
   }
-  sciprint(_("%s: Wrong type for input argument #%d: '%s' or '%s' expected.\n"), "set_event_handler_enable_property",2,"on","off");
+  Scierror(999, _("%s: Wrong type for input argument #%d: '%s' or '%s' expected.\n"), "set_event_handler_enable_property",2,"on","off");
   return SET_PROPERTY_ERROR ;
 
 }
index f78f281..e60c6b5 100644 (file)
@@ -21,7 +21,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -30,13 +30,13 @@ int set_event_handler_property( sciPointObj * pobj, size_t stackPointer, int val
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"event_handler") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"event_handler") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType( pobj ) != SCI_FIGURE )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"event_handler");
+    Scierror(999, _("%s property does not exist for this handle.\n"),"event_handler");
     return SET_PROPERTY_ERROR ;
   }
 
index 61415d4..0c0f0b6 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "InitObjects.h"
 #include "GetProperty.h"
 /*------------------------------------------------------------------------*/
 int set_figure_id_property( sciPointObj * pobj, size_t stackPointer, int valueType, int nbRow, int nbCol )
 {
-  int id = (int) getDoubleFromStack( stackPointer ) ;
+  int id; 
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"figure_id") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"figure_id") ;
     return SET_PROPERTY_ERROR ;
   }
 
+       id = (int) getDoubleFromStack( stackPointer ) ;
+
   if ( sciGetEntityType(pobj) != SCI_FIGURE )
   {
-    sciprint(_("%s property undefined for this object.\n"), "figure_id") ;
+    Scierror(999, _("%s property undefined for this object.\n"), "figure_id") ;
     return SET_PROPERTY_ERROR ;
   }
 
index c313f97..0e88388 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "GraphicSynchronizerInterface.h"
@@ -32,9 +32,16 @@ int set_figure_name_property( sciPointObj * pobj, size_t stackPointer, int value
   int status;
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"figure_name") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"figure_name") ;
     return SET_PROPERTY_ERROR ;
   }
+
+       if ( sciGetEntityType(pobj) != SCI_FIGURE )
+  {
+    Scierror(999, _("%s property undefined for this object.\n"), "figure_name") ;
+    return SET_PROPERTY_ERROR ;
+  }
+
   /* disable protection since this function will call Java */
   disableFigureSynchronization(pobj);
   status = sciSetName( pobj, getStringFromStack( stackPointer )) ;
index 667c31a..13fce0c 100644 (file)
@@ -20,9 +20,6 @@
 
 #include "setHandleProperty.h"
 #include "SetProperty.h"
-#include "getPropertyAssignedValue.h"
-#include "sciprint.h"
-#include "localization.h"
 #include "SetPropertyStatus.h"
 
 /*------------------------------------------------------------------------*/
index d02b2d2..ef92eb6 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "InitObjects.h"
@@ -35,19 +35,19 @@ int set_figure_size_property( sciPointObj * pobj, size_t stackPointer, int value
   int status;
   if ( sciGetEntityType(pobj) != SCI_FIGURE )
   {
-    sciprint(_("%s undefined for this object.\n"), "figure_size") ;
+    Scierror(999, _("%s undefined for this object.\n"), "figure_size") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"figure_position") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"figure_position") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow * nbCol != 2 )
   {
-    sciprint(_("Wrong size for %s property: Vector of size %d expected.\n"),"dimension",2) ;
+    Scierror(999, _("Wrong size for %s property: Vector of size %d expected.\n"),"dimension",2) ;
     return SET_PROPERTY_ERROR ;
   }
 
index 5f39674..e92ffa8 100644 (file)
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
-#include "InitObjects.h"
-#include "DrawObjects.h"
-#include "DestroyObjects.h"
-#include "BuildObjects.h"
 #include "SetPropertyStatus.h"
 
 /*------------------------------------------------------------------------*/
@@ -36,13 +32,13 @@ int set_figure_style_property( sciPointObj * pobj, size_t stackPointer, int valu
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"figure_style") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"figure_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( isStringParamEqual( stackPointer, "old" ) )
   {
-    sciprint(_("Old graphic mode is no longer available. Please refer to the set help page.\n")) ;
+    Scierror(999, _("Old graphic mode is no longer available. Please refer to the set help page.\n")) ;
     return SET_PROPERTY_ERROR ;
   }
   else if ( isStringParamEqual( stackPointer, "new" ) )
@@ -53,7 +49,7 @@ int set_figure_style_property( sciPointObj * pobj, size_t stackPointer, int valu
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"old","new");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"old","new");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 7ac0a4f..c53b7d7 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_fill_mode_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"fill_mode") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"fill_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -44,7 +44,7 @@ int set_fill_mode_property( sciPointObj * pobj, size_t stackPointer, int valueTy
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index c66906e..6f980ee 100644 (file)
@@ -19,7 +19,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
@@ -29,13 +29,13 @@ int set_filled_property( sciPointObj * pobj, size_t stackPointer, int valueType,
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"filled") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"filled") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (sciGetEntityType(pobj) != SCI_SUBWIN)
   {
-    sciprint(_("%s property undefined for this object.\n"), "filled") ;
+    Scierror(999, _("%s property undefined for this object.\n"), "filled") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -49,7 +49,7 @@ int set_filled_property( sciPointObj * pobj, size_t stackPointer, int valueType,
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index da3966c..b14cc33 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -31,7 +31,7 @@ int set_font_angle_property( sciPointObj * pobj, size_t stackPointer, int valueT
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"font_angle") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"font_angle") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 980f28c..d348243 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
 int set_font_color_property( sciPointObj * pobj, size_t stackPointer, int valueType, int nbRow, int nbCol )
 {
 
-  int value = (int) getDoubleFromStack( stackPointer ) ;
+  int value ;
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"font_color") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"font_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
+       value = (int) getDoubleFromStack( stackPointer ) ;
+
   if (   sciGetEntityType(pobj) == SCI_SUBWIN
            || sciGetEntityType(pobj) == SCI_FIGURE
            || sciGetEntityType(pobj) == SCI_LEGEND
@@ -47,8 +49,8 @@ int set_font_color_property( sciPointObj * pobj, size_t stackPointer, int valueT
   } /* F.Leray 08.04.04 */
   else
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"font_color") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"font_color") ;
   }
-  return -1 ;
+       return SET_PROPERTY_ERROR ;
 }
 /*------------------------------------------------------------------------*/
index 9d055bf..f31bc2f 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -31,7 +31,7 @@ int set_font_foreground_property( sciPointObj * pobj, size_t stackPointer, int v
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"font_foreground") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"font_foreground") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 4281097..13412d7 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_font_size_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"font_size") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"font_size") ;
     return SET_PROPERTY_ERROR ;
   }
 
index af084b2..42efbea 100644 (file)
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
 /*------------------------------------------------------------------------*/
 int set_font_style_property( sciPointObj * pobj, size_t stackPointer, int valueType, int nbRow, int nbCol )
 {
-  int value = (int) getDoubleFromStack( stackPointer ) ;
+  int value;
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"font_style") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"font_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
+       value = (int) getDoubleFromStack( stackPointer ) ;
+
   if ( value > 10 || value < 0 )
   {
-    sciprint(_("Wrong value: In [%d %d] expected.\n"),0,10) ;
+    Scierror(999, _("Wrong value: In [%d %d] expected.\n"),0,10) ;
     return SET_PROPERTY_ERROR ;
   }
   
index a3c1b60..5ce72d9 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_foreground_property( sciPointObj * pobj, size_t stackPointer, int valueT
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"foreground") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"foreground") ;
     return SET_PROPERTY_ERROR ;
   }
 
index dc34d43..fe8ec86 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -31,13 +31,13 @@ int set_format_n_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"format_n") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"format_n") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_AXES )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"format_n") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"format_n") ;
     return SET_PROPERTY_ERROR ;
   }
   pAXES_FEATURE(pobj)->format[0] = getStringFromStack(stackPointer)[0] ;
index 1fbef7a..c6a764f 100644 (file)
@@ -21,7 +21,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -34,7 +34,7 @@ int set_fractional_font_property( sciPointObj * pobj, size_t stackPointer, int v
       && sciGetEntityType(pobj) != SCI_AXES
       && sciGetEntityType(pobj) != SCI_LEGEND)
   {
-    sciprint(_("Incompatible type for property %s.\n"),"fractional_font") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"fractional_font") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -48,7 +48,7 @@ int set_fractional_font_property( sciPointObj * pobj, size_t stackPointer, int v
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index 3d0d278..f07a66e 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "BasicAlgos.h"
 
@@ -36,19 +36,19 @@ int set_grid_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"grid") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"grid") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"grid") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"grid") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow != 1 || nbCol > 3 )
   {
-    sciprint(_("Wrong size for argument: %s or %s expected.\n"),"1x2","1x3");
+    Scierror(999, _("Wrong size for argument: %s or %s expected.\n"),"1x2","1x3");
     return SET_PROPERTY_ERROR ;
   }
 
@@ -59,7 +59,7 @@ int set_grid_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
     int curValue = (int) values[i];
     if ( values[i] < -1 || !sciCheckColorIndex(pobj, curValue) )
     {
-      sciprint(_("Wrong value for argument: %d (no grid) or number of color expected.\n"),-1);
+      Scierror(999, _("Wrong value for argument: %d (no grid) or number of color expected.\n"),-1);
       return SET_PROPERTY_ERROR ;
     }
     gridStyles[i] = curValue ;
index 380ec58..92602fa 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -32,13 +32,13 @@ int set_handle_visible_property( sciPointObj * pobj, size_t stackPointer, int va
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"handle_visible") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"handle_visible") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (sciGetEntityType (pobj) != SCI_UIMENU)
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"handle_visible") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"handle_visible") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -52,7 +52,7 @@ int set_handle_visible_property( sciPointObj * pobj, size_t stackPointer, int va
   }
   else
   {
-    sciprint(_("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_handle_visible_property","on","off");
+    Scierror(999, _("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_handle_visible_property","on","off");
     return SET_PROPERTY_ERROR ;
   }
 
index 7b1f95f..67979b6 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -35,13 +35,13 @@ int set_hidden_axis_color_property( sciPointObj * pobj, size_t stackPointer, int
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"hidden_axis_color") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"hidden_axis_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType (pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"hidden_axis_color") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"hidden_axis_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -51,7 +51,7 @@ int set_hidden_axis_color_property( sciPointObj * pobj, size_t stackPointer, int
   }
   else
   {
-    sciprint(_("Color outside of color map boundaries.\n"));
+    Scierror(999, _("Color outside of color map boundaries.\n"));
     return SET_PROPERTY_ERROR ;
   }
 
index aede67f..f39645d 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -30,7 +30,7 @@ int set_hidden_color_property( sciPointObj * pobj, size_t stackPointer, int valu
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"hidden_color") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"hidden_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 156ed13..1faff14 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -32,13 +32,13 @@ int set_immediate_drawing_property( sciPointObj * pobj, size_t stackPointer, int
   
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"immediate_drawing") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"immediate_drawing") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType (pobj) != SCI_FIGURE )
   {
-    sciprint(_("%s property undefined for this object.\n"), "immediate_drawing") ;
+    Scierror(999, _("%s property undefined for this object.\n"), "immediate_drawing") ;
     return SET_PROPERTY_ERROR ;
   }
   
@@ -54,7 +54,7 @@ int set_immediate_drawing_property( sciPointObj * pobj, size_t stackPointer, int
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
   
index e8bd405..e270675 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "GraphicSynchronizerInterface.h"
@@ -32,7 +32,7 @@ int set_info_message_property( sciPointObj * pobj, size_t stackPointer, int valu
   int status;
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"info_message") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"info_message") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 9d9f51a..64e7e6a 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_isoview_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"isoview") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"isoview") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"iso_view") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"iso_view") ;
     return SET_PROPERTY_ERROR ;
   }
   if ( isStringParamEqual( stackPointer, "on" ) )
@@ -51,7 +51,7 @@ int set_isoview_property( sciPointObj * pobj, size_t stackPointer, int valueType
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off") ;
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off") ;
     return SET_PROPERTY_ERROR ;
   }
 
index a3ba7c0..95b8f99 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,7 +32,7 @@ int set_labels_font_style_property( sciPointObj * pobj, size_t stackPointer, int
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"labels_font_style") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"labels_font_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -42,7 +42,7 @@ int set_labels_font_style_property( sciPointObj * pobj, size_t stackPointer, int
   }
   else
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"labels_font_style") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"labels_font_style") ;
     return SET_PROPERTY_ERROR ;
   }
 }
index 71cdf68..8758e2e 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,7 +32,7 @@ int set_labels_font_color_property( sciPointObj * pobj, size_t stackPointer, int
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"labels_font_color") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"labels_font_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -44,7 +44,7 @@ int set_labels_font_color_property( sciPointObj * pobj, size_t stackPointer, int
   } /* F.Leray 08.04.04 */
   else
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"labels_font_color") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"labels_font_color") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index dca8cc7..7700044 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -31,7 +31,7 @@ int set_labels_font_size_property( sciPointObj * pobj, size_t stackPointer, int
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"labels_font_size") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"labels_font_size") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -42,7 +42,7 @@ int set_labels_font_size_property( sciPointObj * pobj, size_t stackPointer, int
   }
   else
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"labels_font_size") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"labels_font_size") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index a71d123..7fcff44 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_legend_location_property( sciPointObj * pobj, size_t stackPointer, int v
   
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"legend_location") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"legend_location") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_LEGEND )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"legend_location") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"legend_location") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -90,7 +90,7 @@ int set_legend_location_property( sciPointObj * pobj, size_t stackPointer, int v
 
   else  
   {
-    sciprint(_("%s: Wrong type for input argument #%d: '%s', '%s' or '%s' expected.\n"), "set_legend_location_property",2,"top","bottom","origin") ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: '%s', '%s' or '%s' expected.\n"), "set_legend_location_property",2,"top","bottom","origin") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index aeab9de..66787c4 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_line_mode_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"line_mode") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"line_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -44,7 +44,7 @@ int set_line_mode_property( sciPointObj * pobj, size_t stackPointer, int valueTy
   }
   else
   {
-    sciprint(_("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_line_mode_property","on","off");
+    Scierror(999, _("%s: Wrong input argument: '%s' or '%s' expected.\n"),"set_line_mode_property","on","off");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index eb869dc..9b78d14 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_line_style_property( sciPointObj * pobj, size_t stackPointer, int valueT
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"line_style") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"line_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 706bffc..45a19ed 100644 (file)
@@ -24,7 +24,7 @@
 #include "Interaction.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -34,11 +34,11 @@ int set_links_property( sciPointObj * pobj, size_t stackPointer, int valueType,
   int i;
   if ( sciGetEntityType(pobj) != SCI_LEGEND )
   {
-    sciprint(_("%s property undefined for this object.\n"), "Legend") ;
+    Scierror(999, _("%s property undefined for this object.\n"), "Legend") ;
     return SET_PROPERTY_ERROR ;
   }
   if (nbRow*nbCol != nblegends) {
-    sciprint(_("%s Invalid dimension of the assigned handle, expected dimension is %d.\n"), "links",nblegends) ;
+    Scierror(999, _("%s Invalid dimension of the assigned handle, expected dimension is %d.\n"), "links",nblegends) ;
     return SET_PROPERTY_ERROR ;
   }
 
index e30bd29..af05890 100644 (file)
@@ -23,6 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
+#include "Scierror.h"
 #include "sciprint.h"
 #include "localization.h"
 #include "MALLOC.h"
@@ -56,14 +57,15 @@ char ** CaseLogflagN2L(int * u_nxgrads, double *u_xgrads, char ** u_xlabels)
   if(cmpteur != nbtics)
   {
     if((ticklabel=(char **)MALLOC(cmpteur*sizeof(char *)))==NULL){
-      sciprint(_("%s: No more memory.\n"),"CaseLogflagN");
+      Scierror(999, _("%s: No more memory.\n"),"CaseLogflagN");
+                       return NULL;
     }
 
     cmpteur2 = 0;
     offset = nbtics - cmpteur;
     for(i=0;i<cmpteur;i++){
       if((ticklabel[cmpteur2]=(char *)MALLOC((strlen(u_xlabels[i+offset])+1)*sizeof(char )))==NULL){
-      sciprint(_("%s: No more memory.\n"),"CaseLogflagN");
+                               Scierror(999, _("%s: No more memory.\n"),"CaseLogflagN");
       }
       strcpy(ticklabel[cmpteur2],u_xlabels[i+offset]);
       cmpteur2++;
@@ -118,19 +120,19 @@ int set_log_flags_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"log_flags") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"log_flags") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (sciGetEntityType (pobj) != SCI_SUBWIN)
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"log_flags") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"log_flags") ;
     return SET_PROPERTY_ERROR ;
   }
   
   if ( nbRow * nbCol != 2 && nbRow * nbCol != 3 )
   {
-    sciprint(_("%s: Wrong size for argument: %d or %d expected.\n"),"log_flags",2,3) ;
+    Scierror(999, _("%s: Wrong size for argument: %d or %d expected.\n"),"log_flags",2,3) ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -138,7 +140,7 @@ int set_log_flags_property( sciPointObj * pobj, size_t stackPointer, int valueTy
   if (   (flags[0] != 'n' && flags[0] != 'l')
       || (flags[1] != 'n' && flags[1] != 'l') )
   {
-    sciprint(_("%s: Wrong value for argument: '%s' or '%s' expected.\n"),"flags","n","l");
+    Scierror(999, _("%s: Wrong value for argument: '%s' or '%s' expected.\n"),"flags","n","l");
     return SET_PROPERTY_ERROR ;
   }
 
@@ -151,19 +153,26 @@ int set_log_flags_property( sciPointObj * pobj, size_t stackPointer, int valueTy
   /* X axes */
   if( ( ppSubWin->SRect[0] <= 0. || ppSubWin->SRect[1] <= 0.) && flags[0] == 'l' )
   {
-    sciprint(_("Error: data_bounds on %s axis must be strictly positive to switch to logarithmic mode.\n"),"x");
+    Scierror(999, _("Error: data_bounds on %s axis must be strictly positive to switch to logarithmic mode.\n"),"x");
     return SET_PROPERTY_ERROR ;
   }
   ppSubWin->axes.u_xlabels = ReBuildUserTicks( curLogFlags[0], flags[0],
                                                ppSubWin->axes.u_xgrads, 
                                                &ppSubWin->axes.u_nxgrads, 
                                                ppSubWin->axes.u_xlabels   );
+
+       if (ppSubWin->axes.u_xlabels == NULL)
+       {
+               /* Somehting wrong occured */
+               return SET_PROPERTY_ERROR;
+       }
+
   curLogFlags[0] = flags[0];
 
   /* Y axes */
   if( ( ppSubWin->SRect[2] <= 0. || ppSubWin->SRect[3] <= 0. ) && flags[1] == 'l' )
   { 
-      sciprint(_("Error: data_bounds on %s axis must be strictly positive to switch to logarithmic mode.\n"),"y");
+      Scierror(999, _("Error: data_bounds on %s axis must be strictly positive to switch to logarithmic mode.\n"),"y");
       return SET_PROPERTY_ERROR ;
   }
   ppSubWin->axes.u_ylabels = ReBuildUserTicks( curLogFlags[1], flags[1],  
@@ -178,13 +187,13 @@ int set_log_flags_property( sciPointObj * pobj, size_t stackPointer, int valueTy
   {
     if ( flags[2] != 'n' && flags[2] != 'l' )
     {
-      sciprint("flags must be 'n' or 'l'.\n") ;
+      Scierror(999, "flags must be 'n' or 'l'.\n") ;
       return SET_PROPERTY_ERROR ;
     }
 
     if ( ( ppSubWin->SRect[4] <= 0. || ppSubWin->SRect[5] <= 0. ) && flags[2] == 'l' )
     {
-      sciprint(_("Error: data_bounds on %s axis must be strictly positive to switch to logarithmic mode.\n"),"z");
+      Scierror(999, _("Error: data_bounds on %s axis must be strictly positive to switch to logarithmic mode.\n"),"z");
       return SET_PROPERTY_ERROR ;
     }
 
index 7d75492..7247f75 100644 (file)
@@ -25,7 +25,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -34,19 +34,19 @@ int set_margins_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"margins") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"margins") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"margins") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"margins") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow * nbCol != 4 )
   {
-    sciprint(_("Wrong size for argument #%d: %d elements expected.\n"),2,4);
+    Scierror(999, _("Wrong size for argument #%d: %d elements expected.\n"),2,4);
     return SET_PROPERTY_ERROR ;
   }
 
index 78d37dd..5367042 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -31,7 +31,7 @@ int set_mark_background_property( sciPointObj * pobj, size_t stackPointer, int v
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"mark_background") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"mark_background") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 03ca52a..8758010 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -31,7 +31,7 @@ int set_mark_foreground_property( sciPointObj * pobj, size_t stackPointer, int v
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"mark_foreground") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"mark_foreground") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 9568e93..9703406 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_mark_mode_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"mark_mode") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"mark_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -44,7 +44,7 @@ int set_mark_mode_property( sciPointObj * pobj, size_t stackPointer, int valueTy
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off") ;
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off") ;
     return SET_PROPERTY_ERROR ;
   }
 }
index 9bc1c75..d33732a 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_mark_size_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 {
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"mark_size") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"mark_size") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 16f8048..018903e 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -30,7 +30,7 @@ int set_mark_size_unit_property( sciPointObj * pobj, size_t stackPointer, int va
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"mark_size_unit") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"mark_size_unit") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -44,7 +44,7 @@ int set_mark_size_unit_property( sciPointObj * pobj, size_t stackPointer, int va
   }
   else
   {
-     sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"point","tabulated");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"point","tabulated");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 861d441..5f787a0 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -33,7 +33,7 @@ int set_mark_style_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"mark_style") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"mark_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
index ac34e52..68148b2 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -32,7 +32,7 @@ int set_old_style_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"old_style") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"old_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -42,12 +42,12 @@ int set_old_style_property( sciPointObj * pobj, size_t stackPointer, int valueTy
   }
   else if ( isStringParamEqual( stackPointer, "on" ) )
   {
-    sciprint(_("Old graphic mode is no longer available. Please refer to the set help page.\n")) ;
+    Scierror(999, _("Old graphic mode is no longer available. Please refer to the set help page.\n")) ;
     return SET_PROPERTY_ERROR ;
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
 }
index ee6ab35..8ba604c 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
@@ -41,7 +41,7 @@ int set_parent_property( sciPointObj * pobj, size_t stackPointer, int valueType,
     }
   else
     {
-               sciprint(_("Parent property can not be modified directly.\n"));
+                       Scierror(999, _("Parent property can not be modified directly.\n"));
       return SET_PROPERTY_ERROR ;
     }
 }
index ef33f22..2b2ff90 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "pixel_mode.h"
 #include "SetPropertyStatus.h"
@@ -34,20 +34,20 @@ int set_pixel_drawing_mode_property( sciPointObj * pobj, size_t stackPointer, in
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"pixel_drawing_mode") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"pixel_drawing_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType (pobj) != SCI_FIGURE )
   {
-         sciprint(_("%s property does not exist for this handle.\n"),"pixel_drawing_mode");
+         Scierror(999, _("%s property does not exist for this handle.\n"),"pixel_drawing_mode");
          return SET_PROPERTY_ERROR ;
   }
   v = getPixelModeIndex( getStringFromStack( stackPointer ) ) ;
 
   if ( v < 0 )
   {
-         sciprint(_("%s property does not exist for this handle.\n"),"pixel_drawing_mode");
+         Scierror(999, _("%s property does not exist for this handle.\n"),"pixel_drawing_mode");
          return SET_PROPERTY_ERROR ;
   }
 
index 46e4499..dfd7086 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 
@@ -30,7 +30,7 @@ int set_pixmap_property( sciPointObj * pobj, size_t stackPointer, int valueType,
 {
   if ( sciGetEntityType (pobj) != SCI_FIGURE )
   {
-    sciprint(_("%s property undefined for this object.\n"), "pixmap") ;
+    Scierror(999, _("%s property undefined for this object.\n"), "pixmap") ;
     return -1;
   }
 
@@ -44,7 +44,7 @@ int set_pixmap_property( sciPointObj * pobj, size_t stackPointer, int valueType,
   }
   else
   {
-         sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
+         Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"on","off");
     return -1 ;
   }
   return 0 ;
index 1e4b419..a3c633d 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -33,20 +33,20 @@ int set_polyline_style_property( sciPointObj * pobj, size_t stackPointer, int va
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"polyline_style") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"polyline_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (sciGetEntityType (pobj) != SCI_POLYLINE)
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"polyline_style") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"polyline_style") ;
     return SET_PROPERTY_ERROR ;
   }
     
   value = (int) getDoubleFromStack( stackPointer ) ;
   if ( value < 1 || value > 7 )
   {
-    sciprint(_("Wrong value for %s property: Must be between %d and %d.\n"),"Style",1,7);
+    Scierror(999, _("Wrong value for %s property: Must be between %d and %d.\n"),"Style",1,7);
     return SET_PROPERTY_ERROR ;
   }
 
index 4edcc55..c6d6d4a 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetUicontrolPosition.h"
 /*------------------------------------------------------------------------*/
@@ -38,7 +38,7 @@ int set_position_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"position") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"position") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -66,7 +66,7 @@ int set_position_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
     }
   else
   {
-    sciprint(_("%s does not exist for this handle.\n"), "position") ;
+    Scierror(999, _("%s does not exist for this handle.\n"), "position") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 6c4bcd3..485c381 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "DrawObjects.h" 
 
@@ -34,14 +34,14 @@ int set_rotation_angles_property( sciPointObj * pobj, size_t stackPointer, int v
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"rotation_angles") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"rotation_angles") ;
     return SET_PROPERTY_ERROR ;
   }
 
   /* DJ.A 2003 */
   if ( sciGetEntityType (pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"rotation_angles") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"rotation_angles") ;
     return SET_PROPERTY_ERROR ;
   }
 
index b93176a..fc51b06 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -33,13 +33,13 @@ int set_rotation_style_property( sciPointObj * pobj, size_t stackPointer, int va
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"rotation_style") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"rotation_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType (pobj) != SCI_FIGURE ) 
   {
-    sciprint(_("%s undefined for this object.\n"), "rotation_style") ;
+    Scierror(999, _("%s undefined for this object.\n"), "rotation_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -55,7 +55,7 @@ int set_rotation_style_property( sciPointObj * pobj, size_t stackPointer, int va
   }
   else
   {
-    sciprint(_("Wrong value for argument: '%s' or '%s' expected.\n"),"unary","multiple");
+    Scierror(999, _("Wrong value for argument: '%s' or '%s' expected.\n"),"unary","multiple");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 79fc9e5..2a20710 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "GraphicSynchronizerInterface.h"
 /*------------------------------------------------------------------------*/
 int set_screen_position_property( sciPointObj * pobj, size_t stackPointer, int valueType, int nbRow, int nbCol )
 {
-  double * values = getDoubleMatrixFromStack( stackPointer ) ;
+  double * values;
   int status;
  
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"figure_position") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"figure_position") ;
     return SET_PROPERTY_ERROR ;
   }
 
+       values = getDoubleMatrixFromStack( stackPointer ) ;
+
   if ( nbRow * nbCol != 2 )
   {
-    sciprint(_("Wrong size for %s property: Vector of size %d expected.\n"),"screen_position",2) ;
+    Scierror(999, _("Wrong size for %s property: Vector of size %d expected.\n"),"screen_position",2) ;
+    return SET_PROPERTY_ERROR ;
+  }
+
+       if ( sciGetEntityType(pobj) != SCI_FIGURE )
+  {
+    Scierror(999, _("%s property undefined for this object.\n"), "figure_position") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 9a99815..fff57eb 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -33,13 +33,13 @@ int set_segs_color_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"segs_color") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"segs_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SEGS || pSEGS_FEATURE(pobj)->ptype != 0 )
   {
-    sciprint(_("%s does not exist for this handle.\n"), "segs_color_property") ;
+    Scierror(999, _("%s does not exist for this handle.\n"), "segs_color_property") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -62,7 +62,7 @@ int set_segs_color_property( sciPointObj * pobj, size_t stackPointer, int valueT
   }
   else
   { 
-    sciprint("%s color has a wrong size (%d), expecting %d or (%d)", "segs", nbRow * nbCol , 1, nbSegs );
+    Scierror(999, "%s color has a wrong size (%d), expecting %d or (%d)", "segs", nbRow * nbCol , 1, nbSegs );
     return SET_PROPERTY_ERROR ;
   }
 
index f3e4e1f..0798108 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,7 +32,7 @@ int set_sub_tics_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"sub_tics") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"sub_tics") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -47,7 +47,7 @@ int set_sub_tics_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
     sciSubWindow * ppSubWin = pSUBWIN_FEATURE (pobj) ;
     if ( (nbCol != 3 ) && (nbCol != 2) )
     {
-      sciprint(_("Value must have %d elements (%d if in 3D).\n"),2,3) ;
+      Scierror(999, _("Value must have %d elements (%d if in 3D).\n"),2,3) ;
       return  SET_PROPERTY_ERROR ;
     }
     ppSubWin->flagNax = TRUE;
@@ -68,7 +68,7 @@ int set_sub_tics_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
   }
   else
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"sub_ticks") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"sub_ticks") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index 21b51a8..e61756b 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "ColorMapManagement.h"
 #include "MALLOC.h"
@@ -35,13 +35,13 @@ int set_surface_color_property( sciPointObj * pobj, size_t stackPointer, int val
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"surface_color") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"surface_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (sciGetEntityType (pobj) != SCI_SURFACE)
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"surface_color") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"surface_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -49,7 +49,7 @@ int set_surface_color_property( sciPointObj * pobj, size_t stackPointer, int val
   {
     if (pSURFACE_FEATURE (pobj)->dimzy != nbRow * nbCol )
     {
-      sciprint( _("Argument #%d must have %d elements.\n"), 2, pSURFACE_FEATURE (pobj)->dimzy);
+      Scierror(999, _("Argument #%d must have %d elements.\n"), 2, pSURFACE_FEATURE (pobj)->dimzy);
       return SET_PROPERTY_ERROR ;
     }
     copyDoubleVectorFromStack( stackPointer, pSURFACE_FEATURE(pobj)->zcol, pSURFACE_FEATURE (pobj)->dimzy ) ;
@@ -67,14 +67,14 @@ int set_surface_color_property( sciPointObj * pobj, size_t stackPointer, int val
     }
     if ( nbRow * nbCol != N)
     {
-      sciprint(_("Argument #%d must have %d elements.\n"),2,N) ;
+      Scierror(999, _("Argument #%d must have %d elements.\n"),2,N) ;
       return SET_PROPERTY_ERROR ;
     }
     copyDoubleVectorFromStack( stackPointer, pSURFACE_FEATURE (pobj)->zcol, N ) ;
   }
   else
   {
-    sciprint(_("%s cannot be set in this case.\n"),"surface_color") ;
+    Scierror(999, _("%s cannot be set in this case.\n"),"surface_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 81cb001..97768ba 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
@@ -32,7 +32,7 @@ int set_surface_mode_property( sciPointObj * pobj, size_t stackPointer, int valu
   
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"surface_mode") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"surface_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -40,7 +40,7 @@ int set_surface_mode_property( sciPointObj * pobj, size_t stackPointer, int valu
        sciGetEntityType(pobj) != SCI_FAC3D  &&
        sciGetEntityType(pobj) != SCI_SURFACE   )
   {
-    sciprint(_("Surface_mode can not be set with this object, use %s.\n"),"line_mode") ;
+    Scierror(999, _("Surface_mode can not be set with this object, use %s.\n"),"line_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -54,7 +54,7 @@ int set_surface_mode_property( sciPointObj * pobj, size_t stackPointer, int valu
   }
   else
   {
-    sciprint(_("Wrong value for input argument: '%s' or '%s' expected.\n"),"on","off") ;
+    Scierror(999, _("Wrong value for input argument: '%s' or '%s' expected.\n"),"on","off") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 9769360..4669c99 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_text_box_mode_property( sciPointObj * pobj, size_t stackPointer, int val
   
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"text_box_mode") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"text_box_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_TEXT )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"text_box_mode") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"text_box_mode") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -62,7 +62,7 @@ int set_text_box_mode_property( sciPointObj * pobj, size_t stackPointer, int val
   }
   else
   {
-    sciprint(_("%s: Wrong value for input argument: '%s', '%s' or '%s' expected.\n"),"set_text_box_mode_property","off", "centered","filled");
+    Scierror(999, _("%s: Wrong value for input argument: '%s', '%s' or '%s' expected.\n"),"set_text_box_mode_property","off", "centered","filled");
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index f5e0eed..ccd3000 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -33,19 +33,19 @@ int set_text_box_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"text_box") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"text_box") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (sciGetEntityType (pobj) != SCI_TEXT)
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"text_box");
+    Scierror(999, _("%s property does not exist for this handle.\n"),"text_box");
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow * nbCol != 2 )
   {
-    sciprint(_("%s must be a 2D vector.\n"),"text_box");
+    Scierror(999, _("%s must be a 2D vector.\n"),"text_box");
     return SET_PROPERTY_ERROR ;
   }
   return sciSetUserSize( pobj, values[0], values[1] ) ;
index 80c7366..89eb23e 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -31,7 +31,7 @@ int set_text_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
 {
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"text") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"text") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 12fa5cf..61d9525 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -31,7 +31,7 @@ int set_thickness_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"thickness") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"thickness") ;
     return SET_PROPERTY_ERROR ;
   }
 
index 31eae67..612dd8c 100644 (file)
@@ -25,6 +25,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
+#include "Scierror.h"
 #include "sciprint.h"
 #include "localization.h"
 
@@ -34,7 +35,7 @@ int set_tics_color_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"tics_color") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"tics_color") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -49,7 +50,7 @@ int set_tics_color_property( sciPointObj * pobj, size_t stackPointer, int valueT
   }
   else
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"tics_color") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"tics_color") ;
     return SET_PROPERTY_SUCCEED ;
   }
   return SET_PROPERTY_SUCCEED ;
index 9e27cbb..28f7c50 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_tics_direction_property( sciPointObj * pobj, size_t stackPointer, int va
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"tics_direction") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"tics_direction") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_AXES )
   {
-    sciprint("tics_direction property does not exist for this handle.\n" ) ;
+    Scierror(999, "tics_direction property does not exist for this handle.\n" ) ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -54,7 +54,7 @@ int set_tics_direction_property( sciPointObj * pobj, size_t stackPointer, int va
     }
     else
     {
-      sciprint(_("%s: Wrong type for input argument #%d: '%s' or '%s' expected.\n"), "set_tics_direction_property",2,"top","bottom") ;
+      Scierror(999, _("%s: Wrong type for input argument #%d: '%s' or '%s' expected.\n"), "set_tics_direction_property",2,"top","bottom") ;
       return SET_PROPERTY_ERROR ;
     }
     return SET_PROPERTY_SUCCEED ;
@@ -71,7 +71,7 @@ int set_tics_direction_property( sciPointObj * pobj, size_t stackPointer, int va
     }
     else
     {
-      sciprint(_("%s: Wrong type for input argument #%d: '%s' or '%s' expected.\n"), "set_tics_direction_property",2,"right","left") ;
+      Scierror(999, _("%s: Wrong type for input argument #%d: '%s' or '%s' expected.\n"), "set_tics_direction_property",2,"right","left") ;
       return -1 ;
     }
     return SET_PROPERTY_SUCCEED ;
index 7386d91..b4d0434 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "BasicAlgos.h"
 
@@ -33,25 +33,25 @@ int set_tics_labels_property( sciPointObj * pobj, size_t stackPointer, int value
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"tics_labels") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"tics_labels") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_AXES )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"tics_labels") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"tics_labels") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow != 1)
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Row vector expected.\n"), "set_tics_labels_property",2);
+    Scierror(999, _("%s: Wrong type for input argument #%d: Row vector expected.\n"), "set_tics_labels_property",2);
     return SET_PROPERTY_ERROR ;
   }
 
   if ( pAXES_FEATURE(pobj)->nb_tics_labels > nbCol )
   {
-    sciprint(_("Value must have at least %d elements.\n"),pAXES_FEATURE(pobj)->nb_tics_labels) ;
+    Scierror(999, _("Value must have at least %d elements.\n"),pAXES_FEATURE(pobj)->nb_tics_labels) ;
     return SET_PROPERTY_ERROR ;
   }
 
index fc75656..1ca7b85 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_tics_segment_property( sciPointObj * pobj, size_t stackPointer, int valu
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"tics_segment") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"tics_segment") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_AXES )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"tics_segment") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"tics_segment") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -52,7 +52,7 @@ int set_tics_segment_property( sciPointObj * pobj, size_t stackPointer, int valu
   }
   else
   {
-    sciprint(_("Wrong value for argument: %s or %s expected.\n"),"on","off");
+    Scierror(999, _("Wrong value for argument: %s or %s expected.\n"),"on","off");
     return SET_PROPERTY_ERROR ;
   }
 
index 77f75fb..da4b6da 100644 (file)
@@ -25,6 +25,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
+#include "Scierror.h"
 #include "sciprint.h"
 #include "localization.h"
 #include "Format.h"
@@ -39,13 +40,13 @@ int set_tics_style_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"tics_style") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"tics_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_AXES )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"tics_style") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"tics_style") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -53,7 +54,7 @@ int set_tics_style_property( sciPointObj * pobj, size_t stackPointer, int valueT
        && !isStringParamEqual( stackPointer, "r" )
        && !isStringParamEqual( stackPointer, "i" ) )
   {
-    sciprint(_("Wrong value for %s: '%s' or '%s' or '%s' expected.\n"),"tics","v","r","i") ;
+    Scierror(999, _("Wrong value for %s: '%s' or '%s' or '%s' expected.\n"),"tics","v","r","i") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -64,12 +65,12 @@ int set_tics_style_property( sciPointObj * pobj, size_t stackPointer, int valueT
   {
     if( ComputeXIntervals(pobj,xy_type,&vector,&N,1) != 0 )
     {
-      sciprint(_("Error: Bad size in %s ; you must first increase the size of the %s.\n"),"tics_coord","tics_coord");
+      Scierror(999, _("Error: Bad size in %s ; you must first increase the size of the %s.\n"),"tics_coord","tics_coord");
       return SET_PROPERTY_ERROR ;
     }
     if( pAXES_FEATURE(pobj)->nb_tics_labels < N )
     {
-               sciprint(_("Warning: %s has been set by user ; you must first increase the size of the %s string vector before switching to the new %s mode.\n"),"tics_labels","tics_labels","tics_style");
+                       sciprint(_("Warning: %s has been set by user ; you must first increase the size of the %s string vector before switching to the new %s mode.\n"),"tics_labels","tics_labels","tics_style");
       return SET_PROPERTY_ERROR;
     }
   }
index 7092447..c1b8468 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_tight_limits_property( sciPointObj * pobj, size_t stackPointer, int valu
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"tight_limits") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"tight_limits") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"tight_limits") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"tight_limits") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -52,7 +52,7 @@ int set_tight_limits_property( sciPointObj * pobj, size_t stackPointer, int valu
   }
   else
   {
-    sciprint(_("%s: Wrong value for input argument #%d: '%s' or '%s' expected."),"set_tight_limits_property",2,"on","off") ;
+    Scierror(999, _("%s: Wrong value for input argument #%d: '%s' or '%s' expected."),"set_tight_limits_property",2,"on","off") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index 87c9185..351d506 100644 (file)
@@ -24,7 +24,7 @@
 #include "Interaction.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -33,12 +33,12 @@ int set_title_property( sciPointObj * pobj, size_t stackPointer, int valueType,
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property undefined for this object.\n"), "title") ;
+    Scierror(999, _("%s property undefined for this object.\n"), "title") ;
     return SET_PROPERTY_ERROR ;
   }
   else
   {
-    sciprint(_("Can not set directly a label object.\n"));
+    Scierror(999, _("Can not set directly a label object.\n"));
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 0f5d84f..9344eb9 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "ColorMapManagement.h"
 #include "MALLOC.h"
@@ -35,19 +35,19 @@ int set_triangles_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"triangles") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"triangles") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (sciGetEntityType (pobj) != SCI_FEC )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"triangles") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"triangles") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbCol != 5 )
   {
-    sciprint(_("Argument #%d must have %d columns.\n"),2,5) ;
+    Scierror(999, _("Argument #%d must have %d columns.\n"),2,5) ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -62,7 +62,7 @@ int set_triangles_property( sciPointObj * pobj, size_t stackPointer, int valueTy
 
     if ( pnoeud == NULL )
     {
-      sciprint(_("%s: No more memory.\n"),"set_triangles_property");
+      Scierror(999, _("%s: No more memory.\n"),"set_triangles_property");
       return SET_PROPERTY_ERROR ;
     }
 
index 3ee8a1d..12b57f9 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "SetPropertyStatus.h"
 int set_user_data_property( sciPointObj * pobj, size_t stackPointer,  int valueType, int nbRow, int nbCol )
 {
 
-  /* set pobj->user_data*/
-  /* the data to be assigned to the user data property is located in the Scilab Stack at the variable
-     position given by stackPointer.
-     nbRow, nbCol are not used */
-  int *  size_ptr                                        ;
-  int ** user_data_ptr                                   ;
-  int    data_size     = GetDataSize( (int)stackPointer ) * 2 ; /*GetDataSize returns the size of the variable in double words */
-  int *  data_ptr      = GetData( (int)stackPointer )         ;
+       /* set pobj->user_data*/
+       /* the data to be assigned to the user data property is located in the Scilab Stack at the variable
+       position given by stackPointer.
+       nbRow, nbCol are not used */
+       int *  size_ptr                                        ;
+       int ** user_data_ptr                                   ;
+       int    data_size     = GetDataSize( (int)stackPointer ) * 2 ; /*GetDataSize returns the size of the variable in double words */
+       int *  data_ptr      = GetData( (int)stackPointer )         ;
 
-  /* retrieve current user data matrix */
-  sciGetPointerToUserData( pobj, &user_data_ptr, &size_ptr ) ;
+       /* retrieve current user data matrix */
+       sciGetPointerToUserData( pobj, &user_data_ptr, &size_ptr ) ;
 
-  /* Assigning an empty matrix, free the user_data property. Check for an empty matrix */
-  if ( valueType == 1 ) {
-    int nr, nc, l ;
-    GetRhsVar((int)stackPointer, MATRIX_OF_DOUBLE_DATATYPE, &nr, &nc, &l);
-    if ( nr * nc == 0 ) /*an empty matrix */
-      {
-       FREE( *user_data_ptr ) ;
-       *user_data_ptr = NULL ;
-       *size_ptr = 0 ;
-       return SET_PROPERTY_SUCCEED ;
-      }
-  }
-
-  /* Assigning something else than an epty matrix*/
-  if( user_data_ptr == NULL ) /* user_data property is currentlt empty */
-  {
-    *user_data_ptr = createIntArrayCopy( data_ptr, data_size ) ;
-    *size_ptr      = data_size ;
-  }
-  else if( *size_ptr == data_size ) /* current user_data value as the same size than the value toassign */
-  {
-    intArrayCopy( *user_data_ptr, data_ptr, data_size ) ;
-  }
-  else  /* current user_data value as a different size than the value toassign */
-  {
-    FREE( *user_data_ptr ) ;
-    *user_data_ptr = createIntArrayCopy( data_ptr, data_size ) ;
-    *size_ptr      = data_size ;
-  }
+       /* Assigning an empty matrix, free the user_data property. Check for an empty matrix */
+       if ( valueType == 1 ) {
+               int nr, nc, l ;
+               GetRhsVar((int)stackPointer, MATRIX_OF_DOUBLE_DATATYPE, &nr, &nc, &l);
+               if ( nr * nc == 0 ) /*an empty matrix */
+               {
+                       FREE( *user_data_ptr ) ;
+                       *user_data_ptr = NULL ;
+                       *size_ptr = 0 ;
+                       return SET_PROPERTY_SUCCEED ;
+               }
+       }
 
-  if ( *user_data_ptr == NULL )
-  {
-    sciprint(_("%s: No more memory.\n"),"set_user_data_property") ;
-    *size_ptr = 0 ;
-    return SET_PROPERTY_ERROR ;
-  }
+       /* Assigning something else than an epty matrix*/
+       if( user_data_ptr == NULL ) /* user_data property is currentlt empty */
+       {
+               *user_data_ptr = createIntArrayCopy( data_ptr, data_size ) ;
+               *size_ptr      = data_size ;
+       }
+       else if( *size_ptr == data_size ) /* current user_data value as the same size than the value toassign */
+       {
+               intArrayCopy( *user_data_ptr, data_ptr, data_size ) ;
+       }
+       else  /* current user_data value as a different size than the value toassign */
+       {
+               FREE( *user_data_ptr ) ;
+               *user_data_ptr = createIntArrayCopy( data_ptr, data_size ) ;
+               *size_ptr      = data_size ;
+       }
 
-  return SET_PROPERTY_SUCCEED ;
+       if ( *user_data_ptr == NULL )
+       {
+               Scierror(999, _("%s: No more memory.\n"),"set_user_data_property") ;
+               *size_ptr = 0 ;
+               return SET_PROPERTY_ERROR ;
+       }
 
-  /*if ( isParameterDoubleMatrix( 3 ) )
-  { 
-    GetRhsVar(3,MATRIX_OF_DOUBLE_DATATYPE,&numrow3,&numcol3,&l3);
-    if (numrow3==0||numcol3==0) delete_user_data=1;
-  }
-  else if (VarType(3) == 0) delete_user_data=1;
-
-  sciGetPointerToUserData (pobj,&user_data_ptr, &size_ptr);*/
+       return SET_PROPERTY_SUCCEED ;
 
 }
 /*------------------------------------------------------------------------*/
index 27ae066..da20677 100644 (file)
@@ -26,7 +26,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -35,14 +35,14 @@ int set_view_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"view") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"view") ;
     return SET_PROPERTY_ERROR ;
   }
 
   /* DJ.A 2003 */
   if (sciGetEntityType (pobj) != SCI_SUBWIN)
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"view");
+    Scierror(999, _("%s property does not exist for this handle.\n"),"view");
     return  SET_PROPERTY_ERROR ;
   }
 
@@ -56,7 +56,7 @@ int set_view_property( sciPointObj * pobj, size_t stackPointer, int valueType, i
   }
   else
   {
-    sciprint(_("%s: Wrong type for input argument #%d: '%s' or '%s' expected.\n"), "set_view_property",2,"2d","3d") ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: '%s' or '%s' expected.\n"), "set_view_property",2,"2d","3d") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index 509959e..0850e56 100644 (file)
@@ -21,7 +21,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GraphicSynchronizerInterface.h"
 
@@ -33,19 +33,19 @@ int set_viewport_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"viewport") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"viewport") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_FIGURE )
   {
-    sciprint(_("%s does not exist for this handle.\n"), "viewport") ;
+    Scierror(999, _("%s does not exist for this handle.\n"), "viewport") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow * nbCol != 2 )
   {
-    sciprint(_("Argument must be a vector of size %d.\n"),4);
+    Scierror(999, _("Argument must be a vector of size %d.\n"),4);
     return SET_PROPERTY_ERROR ;
   }
 
index 60b8aa3..bfa2518 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "SetUiobjectVisible.h"
 /*------------------------------------------------------------------------*/
 int set_visible_property( sciPointObj * pobj, size_t stackPointer, int valueType, int nbRow, int nbCol )
 {
-  getStringFromStack( stackPointer ) ;
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"visible") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"visible") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -53,7 +52,7 @@ int set_visible_property( sciPointObj * pobj, size_t stackPointer, int valueType
   }
   else
   {
-    sciprint(_("Wrong value: '%s' or '%s' expected.\n"),"on","off") ;
+    Scierror(999, _("Wrong value: '%s' or '%s' expected.\n"),"on","off") ;
     return SET_PROPERTY_ERROR ;
   }
 }
index b2979ec..9eeb6b4 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -31,12 +31,12 @@ int set_x_label_property( sciPointObj * pobj, size_t stackPointer, int valueType
 {
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property undefined for this object.\n"), "x_label") ;
+    Scierror(999, _("%s property undefined for this object.\n"), "x_label") ;
     return SET_PROPERTY_ERROR ;
   }
   else
   {
-    sciprint(_("Can not set directly a label object.\n")) ;
+    Scierror(999, _("Can not set directly a label object.\n")) ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index fc9b8ba..e39895d 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_x_location_property( sciPointObj * pobj, size_t stackPointer, int valueT
   
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"x_location") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"x_location") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"x_location") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"x_location") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -57,7 +57,7 @@ int set_x_location_property( sciPointObj * pobj, size_t stackPointer, int valueT
   }
   else  
   {
-    sciprint(_("%s: Wrong type for input argument #%d: '%s', '%s' or '%s' expected.\n"), "set_x_location_property",2,"top","bottom","origin") ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: '%s', '%s' or '%s' expected.\n"), "set_x_location_property",2,"top","bottom","origin") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index 16a336a..f94c969 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "MALLOC.h"
@@ -35,25 +35,25 @@ int set_x_shift_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"x_shift") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"x_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_POLYLINE )
   {
-    sciprint(_("This handle has no %s property.\n"),"x_shift") ;
+    Scierror(999, _("This handle has no %s property.\n"),"x_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow > 1 && nbCol > 1 )
   {
-    sciprint(_("Bad input, %s should be a row or column vector.\n"),"x_shift") ;
+    Scierror(999, _("Bad input, %s should be a row or column vector.\n"),"x_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbElement != 0 && nbElement != pPOLYLINE_FEATURE (pobj)->n1 ) /* we can specify [] (null vector) to reset to default */
   {
-    sciprint(_("Wrong size for input vector.\n"));
+    Scierror(999, _("Wrong size for input vector.\n"));
     return SET_PROPERTY_ERROR ;
   }
 
@@ -66,7 +66,7 @@ int set_x_shift_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
     if ( pPOLYLINE_FEATURE (pobj)->x_shift == NULL )
     {
-      sciprint(_("%s: No more memory.\n"),"set_x_shift_property");
+      Scierror(999, _("%s: No more memory.\n"),"set_x_shift_property");
       return SET_PROPERTY_ERROR ;
     }
   }
index 5a5420e..b6754bd 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "CheckTicksProperty.h"
@@ -40,13 +40,13 @@ int set_x_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( !isParameterTlist( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"x_ticks") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"x_ticks") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"x_ticks") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"x_ticks") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -72,7 +72,7 @@ int set_x_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( ppSubWin->axes.u_xgrads == NULL && nbTicsRow == -1 )
   {
-    sciprint(_("%s: No more memory.\n"),"set_x_ticks_property");
+    Scierror(999, _("%s: No more memory.\n"),"set_x_ticks_property");
     return SET_PROPERTY_ERROR ;
   }
 
index 9a46ba9..9c097a7 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "BasicAlgos.h"
 #include "Format.h"
@@ -39,31 +39,31 @@ int set_xtics_coord_property( sciPointObj * pobj, size_t stackPointer, int value
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"xtics_coord") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"xtics_coord") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_AXES )
   {
-    sciprint(_("%s does not exist for this handle.\n"), "xtics_coord") ;
+    Scierror(999, _("%s does not exist for this handle.\n"), "xtics_coord") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow != 1 )
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Row vector expected.\n"), "set_xtics_coord_property",2) ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: Row vector expected.\n"), "set_xtics_coord_property",2) ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( pAXES_FEATURE(pobj)->nx == 1 && nbCol != 1 )
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Scalar expected.\n"), "set_xtics_coord_property",2) ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"), "set_xtics_coord_property",2) ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (  pAXES_FEATURE(pobj)->nx != 1 && nbCol == 1 )
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Vector expected.\n"), "set_xtics_coord_property",2) ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: Vector expected.\n"), "set_xtics_coord_property",2) ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -92,7 +92,7 @@ int set_xtics_coord_property( sciPointObj * pobj, size_t stackPointer, int value
 
   if ( pAXES_FEATURE(pobj)->str == NULL )
   {
-    sciprint( "error allocating vector.\n");
+    Scierror(999, "error allocating vector.\n");
     return SET_PROPERTY_ERROR ;
   }
 
index 2d15c5a..20df6ee 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 
@@ -32,12 +32,12 @@ int set_y_label_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property undefined for this object.\n"), "y_label") ;
+    Scierror(999, _("%s property undefined for this object.\n"), "y_label") ;
     return SET_PROPERTY_ERROR ;
   }
   else
   {
-    sciprint(_("Can not set directly a label object.\n"));
+    Scierror(999, _("Can not set directly a label object.\n"));
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_ERROR ;
index d330464..1a0e04d 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -32,13 +32,13 @@ int set_y_location_property( sciPointObj * pobj, size_t stackPointer, int valueT
 
   if ( !isParameterStringMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"y_location") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"y_location") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"y_location") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"y_location") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -57,7 +57,7 @@ int set_y_location_property( sciPointObj * pobj, size_t stackPointer, int valueT
   }
   else  
   {
-    sciprint(_("%s: Wrong type for input argument #%d: '%s', '%s' or '%s' expected.\n"), "set_y_location_property",2, "left","right","origin") ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: '%s', '%s' or '%s' expected.\n"), "set_y_location_property",2, "left","right","origin") ;
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
index 9d19663..f326ad4 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "MALLOC.h"
@@ -35,25 +35,25 @@ int set_y_shift_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"y_shift") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"y_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_POLYLINE )
   {
-    sciprint(_("This handle has no %s property.\n"),"y_shift") ;
+    Scierror(999, _("This handle has no %s property.\n"),"y_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow > 1 && nbCol > 1 )
   {
-    sciprint(_("Bad input, %s should be a row or column vector.\n"),"y_shift") ;
+    Scierror(999, _("Bad input, %s should be a row or column vector.\n"),"y_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbElement != 0 && nbElement != pPOLYLINE_FEATURE (pobj)->n1 ) /* we can specify [] (null vector) to reset to default */
   {
-    sciprint(_("Wrong size for input vector.\n"));
+    Scierror(999, _("Wrong size for input vector.\n"));
     return SET_PROPERTY_ERROR ;
   }
 
@@ -66,7 +66,7 @@ int set_y_shift_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
     if ( pPOLYLINE_FEATURE (pobj)->y_shift == NULL )
     {
-      sciprint(_("%s: No more memory.\n"),"set_y_shift_property");
+      Scierror(999, _("%s: No more memory.\n"),"set_y_shift_property");
       return SET_PROPERTY_ERROR ;
     }
   }
index ca87b22..f640594 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "CheckTicksProperty.h"
@@ -40,13 +40,13 @@ int set_y_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( !isParameterTlist( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"y_ticks") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"y_ticks") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"y_ticks") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"y_ticks") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -72,7 +72,7 @@ int set_y_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( ppSubWin->axes.u_ygrads == NULL && nbTicsRow == -1 )
   {
-      sciprint(_("%s: No more memory.\n"),"set_y_ticks_property");
+      Scierror(999, _("%s: No more memory.\n"),"set_y_ticks_property");
       return SET_PROPERTY_ERROR ;
   }
 
index 4a657a0..5c034c1 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "BasicAlgos.h"
 #include "Format.h"
@@ -39,25 +39,25 @@ int set_ytics_coord_property( sciPointObj * pobj, size_t stackPointer, int value
 
   if ( sciGetEntityType(pobj) != SCI_AXES )
   {
-    sciprint(_("%s does not exist for this handle.\n"), "ytics_coord") ;
+    Scierror(999, _("%s does not exist for this handle.\n"), "ytics_coord") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow != 1 )
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Row vector expected.\n"), "set_yticks_coord_property",2) ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: Row vector expected.\n"), "set_yticks_coord_property",2) ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( pAXES_FEATURE(pobj)->ny == 1 && nbCol != 1 )
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Scalar expected.\n"), "set_yticks_coord_property",2) ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"), "set_yticks_coord_property",2) ;
     return SET_PROPERTY_ERROR ;
   }
 
   if (  pAXES_FEATURE(pobj)->ny != 1 && nbCol == 1 )
   {
-    sciprint(_("%s: Wrong type for input argument #%d: Vector expected.\n"), "set_yticks_coord_property",2) ;
+    Scierror(999, _("%s: Wrong type for input argument #%d: Vector expected.\n"), "set_yticks_coord_property",2) ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -84,7 +84,7 @@ int set_ytics_coord_property( sciPointObj * pobj, size_t stackPointer, int value
 
   if ( pAXES_FEATURE(pobj)->str == NULL )
   {
-    sciprint( "error allocating vector.\n");
+    Scierror(999, "error allocating vector.\n");
     return SET_PROPERTY_ERROR ;
   }
 
index e69f254..0624dc1 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "ColorMapManagement.h"
 #include "MALLOC.h"
@@ -37,19 +37,19 @@ int set_z_bounds_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"z_bounds") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"z_bounds") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_FEC )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"z_bounds") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"z_bounds") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow * nbCol != 2 )
   {
-    sciprint(_("Argument #%d must have %d elements.\n"),2,2) ;
+    Scierror(999, _("Argument #%d must have %d elements.\n"),2,2) ;
     return SET_PROPERTY_ERROR ;
   }
   ppFec = pFEC_FEATURE(pobj);
index 10448c9..95c121d 100644 (file)
@@ -23,7 +23,7 @@
 #include "getPropertyAssignedValue.h"
 #include "SetPropertyStatus.h"
 #include "GetProperty.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 
 /*------------------------------------------------------------------------*/
@@ -31,12 +31,12 @@ int set_z_label_property( sciPointObj * pobj, size_t stackPointer, int valueType
 {
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property undefined for this object.\n"), "z_label") ;
+    Scierror(999, _("%s property undefined for this object.\n"), "z_label") ;
     return SET_PROPERTY_ERROR ;
   }
   else
   {
-    sciprint(_("Can not set directly a label object.\n"));
+    Scierror(999, _("Can not set directly a label object.\n"));
     return SET_PROPERTY_ERROR ;
   }
 }
index bc9295d..83e977b 100644 (file)
@@ -21,7 +21,7 @@
 #include "setHandleProperty.h"
 #include "SetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "GetProperty.h"
 #include "MALLOC.h"
@@ -35,25 +35,25 @@ int set_z_shift_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"z_shift") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"z_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_POLYLINE )
   {
-    sciprint(_("This handle has no %s property.\n"),"z_shift") ;
+    Scierror(999, _("This handle has no %s property.\n"),"z_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbRow > 1 && nbCol > 1 )
   {
-    sciprint(_("Bad input, %s should be a row or column vector.\n"),"z_shift") ;
+    Scierror(999, _("Bad input, %s should be a row or column vector.\n"),"z_shift") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( nbElement != 0 && nbElement != pPOLYLINE_FEATURE (pobj)->n1 ) /* we can specify [] (null vector) to reset to default */
   {
-    sciprint(_("Wrong size for input vector.\n"));
+    Scierror(999, _("Wrong size for input vector.\n"));
     return SET_PROPERTY_ERROR ;
   }
 
@@ -66,7 +66,7 @@ int set_z_shift_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
     if ( pPOLYLINE_FEATURE (pobj)->y_shift == NULL )
     {
-      sciprint(_("%s: No more memory.\n"),"set_z_shift_property");
+      Scierror(999, _("%s: No more memory.\n"),"set_z_shift_property");
       return SET_PROPERTY_ERROR ;
     }
   }
index c19547c..68b7f4b 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "CheckTicksProperty.h"
@@ -40,13 +40,13 @@ int set_z_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueType
 
   if ( !isParameterTlist( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"z_ticks") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"z_ticks") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"ticks");
+    Scierror(999, _("%s property does not exist for this handle.\n"),"ticks");
     return SET_PROPERTY_ERROR ;
   }
 
@@ -73,7 +73,7 @@ int set_z_ticks_property( sciPointObj * pobj, size_t stackPointer, int valueType
   if ( ppSubWin->axes.u_zgrads == NULL && nbTicsRow == -1 )
   {
     // if nbTicsRow = 0, it's just an empty matrix
-    sciprint(_("%s: No more memory.\n"),"set_z_ticks_property");
+    Scierror(999, _("%s: No more memory.\n"),"set_z_ticks_property");
     return SET_PROPERTY_ERROR ;
   }
 
index 154732e..ed1c6c4 100644 (file)
@@ -22,7 +22,7 @@
 #include "SetProperty.h"
 #include "GetProperty.h"
 #include "getPropertyAssignedValue.h"
-#include "sciprint.h"
+#include "Scierror.h"
 #include "localization.h"
 #include "SetPropertyStatus.h"
 #include "axesScale.h"
@@ -33,13 +33,13 @@ int set_zoom_box_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
 
   if ( !isParameterDoubleMatrix( valueType ) )
   {
-    sciprint(_("Incompatible type for property %s.\n"),"zoom_box") ;
+    Scierror(999, _("Incompatible type for property %s.\n"),"zoom_box") ;
     return SET_PROPERTY_ERROR ;
   }
 
   if ( sciGetEntityType(pobj) != SCI_SUBWIN )
   {
-    sciprint(_("%s property does not exist for this handle.\n"),"zoom_box") ;
+    Scierror(999, _("%s property does not exist for this handle.\n"),"zoom_box") ;
     return SET_PROPERTY_ERROR ;
   }
 
@@ -58,7 +58,7 @@ int set_zoom_box_property( sciPointObj * pobj, size_t stackPointer, int valueTyp
   }
   else
   {
-    sciprint(_("Argument must be a vector of size %d (or %d in 2d).\n"),6,4);
+    Scierror(999, _("Argument must be a vector of size %d (or %d in 2d).\n"),6,4);
     return SET_PROPERTY_ERROR ;
   }
   return SET_PROPERTY_SUCCEED ;
diff --git