Localization update
Vincent Couvert [Fri, 30 May 2008 09:36:12 +0000 (09:36 +0000)]
24 files changed:
scilab/modules/gui/sci_gateway/c/sci_ClipBoard.c
scilab/modules/gui/sci_gateway/c/sci_delmenu.c
scilab/modules/gui/sci_gateway/c/sci_getcallbackobject.c
scilab/modules/gui/sci_gateway/c/sci_helpbrowser.c
scilab/modules/gui/sci_gateway/c/sci_messagebox.c
scilab/modules/gui/sci_gateway/c/sci_mpopup.c
scilab/modules/gui/sci_gateway/c/sci_printfigure.c
scilab/modules/gui/sci_gateway/c/sci_progressionbar.c
scilab/modules/gui/sci_gateway/c/sci_setmenu.c
scilab/modules/gui/sci_gateway/c/sci_toolbar.c
scilab/modules/gui/sci_gateway/c/sci_uicontrol.c
scilab/modules/gui/sci_gateway/c/sci_uigetcolor.c
scilab/modules/gui/sci_gateway/c/sci_uigetdir.c
scilab/modules/gui/sci_gateway/c/sci_uigetfont.c
scilab/modules/gui/sci_gateway/c/sci_uimenu.c
scilab/modules/gui/sci_gateway/c/sci_uiwait.c
scilab/modules/gui/sci_gateway/c/sci_unsetmenu.c
scilab/modules/gui/sci_gateway/c/sci_waitbar.c
scilab/modules/gui/sci_gateway/c/sci_x_choice.c
scilab/modules/gui/sci_gateway/c/sci_x_choose.c
scilab/modules/gui/sci_gateway/c/sci_x_choose_modeless.c
scilab/modules/gui/sci_gateway/c/sci_x_dialog.c
scilab/modules/gui/sci_gateway/c/sci_x_mdialog.c
scilab/modules/gui/sci_gateway/c/sci_xgetfile.c

index f304aed..87c3f30 100644 (file)
@@ -62,7 +62,7 @@ int C2F(sci_ClipBoard)(char *fname,unsigned long l)
                 }
               else
                 {
-                                       Scierror(999,_("%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n"), fname, 1, "paste", "pastespecial");
+                  Scierror(999,_("%s: Wrong value for input argument #%d: '%s' or '%s' expected.\n"), fname, 1, "paste", "pastespecial");
                   return FALSE;
                 }
             }
@@ -117,7 +117,7 @@ int C2F(sci_ClipBoard)(char *fname,unsigned long l)
                         }
                       else
                         {
-                          Scierror(999,_("%s: Wrong value for input argument #%d: must be '%s', '%s' or '%s'.\n"), fname, 2, "copy","paste","empty");
+                          Scierror(999,_("%s: Wrong value for input argument #%d: '%s', '%s' or '%s' expected.\n"), fname, 2, "copy","paste","empty");
                           return FALSE;
                         }
                       
@@ -229,7 +229,7 @@ int C2F(sci_ClipBoard)(char *fname,unsigned long l)
 
               if (m1*n1!=1)
                 {
-                  Scierror(999,_("%s: Wrong type for input argument #%d: A double value expected.\n"), fname, 1);
+                  Scierror(999,_("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 1);
                   return FALSE;
                 }
 
@@ -263,7 +263,7 @@ int C2F(sci_ClipBoard)(char *fname,unsigned long l)
                         }
                       else
                         {
-                          Scierror(999,_("%s: Wrong value for input argument #%d: Must be >= %d .\n"), fname, 1, 0);
+                          Scierror(999,_("%s: Wrong value for input argument #%d: Must be >= %d expected.\n"), fname, 1, 0);
                           return FALSE;
                         }
 
@@ -283,7 +283,7 @@ int C2F(sci_ClipBoard)(char *fname,unsigned long l)
             }
           else
             {
-              Scierror(999,_("%s: Wrong type for input argument #%d: A string or a double value expected.\n"), fname, 1);
+              Scierror(999,_("%s: Wrong type for input argument #%d: A string or a real expected.\n"), fname, 1);
               return FALSE;
             }
         }
index 199a3ac..543b95b 100644 (file)
@@ -31,17 +31,17 @@ int sci_delmenu(char *fname,unsigned long fname_len)
   if (Rhs == 1)
     {
 
-      // Error message in not in standard mode
+      // Error message in not in standard mode (we need figure index)
       if(getScilabMode() != SCILAB_STD)
         {
-          Scierror(999,_("%s: figure number must be given when used in no window mode."), fname);
+          Scierror(999,_("%s: Wrong number of input arguments: %d expected.\n"), fname);
           return FALSE;
         }
 
       // Unset a Menu of Scilab Main Window
       if (VarType(1) != sci_strings)
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: String expected.\n"),fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 1);
           return FALSE;
         }
 
@@ -60,20 +60,20 @@ int sci_delmenu(char *fname,unsigned long fname_len)
       // Unset a Menu a Scilab Graphic Window
       if (VarType(1) != sci_matrix)
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: Double value expected.\n"),fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"),fname, 1);
           return FALSE;
         }
       GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &stkAdr);
       
       if (nbRow*nbCol != 1)
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 1);
+          Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"),fname, 1);
           return FALSE;
         }
 
       if (VarType(2) != sci_strings)
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: String expected.\n"),fname, 2);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 2);
           return FALSE;
         }
       GetRhsVar(2, STRING_DATATYPE, &nbRow1, &nbCol1, &stkAdr1);
index 0301c15..e0680ca 100644 (file)
@@ -33,14 +33,14 @@ int sci_getcallbackobject(char *fname,unsigned long fname_len)
       GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &stkAdr);
       if (nbRow * nbCol !=1)
         {
-          Scierror(999, _("%s: Wrong size for input argument #%d: A value expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 1);
           return FALSE;
         }
       pObj = sciGetPointerFromJavaIndex((int) *stk(stkAdr));
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: A value expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"), fname, 1);
       return FALSE;
     }
  
index fa44779..65afd60 100644 (file)
@@ -46,13 +46,13 @@ int sci_helpbrowser(char *fname,unsigned long fname_len)
             }
           else
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: String matrix expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A string matrix expected.\n"), fname, 1);
               return FALSE;
             }
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: String matrix expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string matrix expected.\n"), fname, 1);
           return FALSE;
         }
     }
@@ -70,7 +70,7 @@ int sci_helpbrowser(char *fname,unsigned long fname_len)
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: String matrix expected.\n"), fname, 2);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"), fname, 2);
           return FALSE;
         }
 
index 3c9bcbf..9dee2f5 100644 (file)
@@ -112,7 +112,7 @@ int sci_messagebox(char *fname,unsigned long fname_len)
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: A string or string vector expected.\n"), fname, 3);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string or a string vector expected.\n"), fname, 3);
           return FALSE;
         }
     }
@@ -135,7 +135,7 @@ int sci_messagebox(char *fname,unsigned long fname_len)
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: A string or String vector expected.\n"), fname, 3);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string or a string vector expected.\n"), fname, 3);
           return FALSE;
         }
     }
index 7d9f464..0154f89 100644 (file)
@@ -42,7 +42,7 @@ int sci_mpopup(char *fname,unsigned long fname_len)
     }
   else
     {
-      Scierror(999,_("%s: Wrong type for input argument #%d: String vector expected.\n"),fname, 1);
+      Scierror(999,_("%s: Wrong type for input argument #%d: A string vector expected.\n"),fname, 1);
       return FALSE;
     }
 
index 2d5b3f3..197ebd7 100644 (file)
@@ -35,7 +35,7 @@ int sci_printfigure(char *fname,unsigned long l)
           
           if (!IsAScalar(1))
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: A double expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 1);
               return FALSE;
             }
           num_win=(int)(*stk(l1));
@@ -53,13 +53,13 @@ int sci_printfigure(char *fname,unsigned long l)
             }
           else
             {
-              Scierror(999,_("%s: Wrong value for input argument #%d: Must be >= %d.\n"), fname, 1, 0);
+              Scierror(999,_("%s: Wrong value for input argument #%d: Must be >= %d expected.\n"), fname, 1, 0);
               return FALSE;
             }
         }
       else
         {
-          Scierror(999,_("%s: Wrong type for input argument #%d: A double expected.\n"), fname, 2);
+          Scierror(999,_("%s: Wrong type for input argument #%d: A real expected.\n"), fname, 2);
           return FALSE;
         }
     }
index ec7c810..7aeebc8 100644 (file)
@@ -45,7 +45,7 @@ int sci_progressionbar(char *fname,unsigned long fname_len)
           GetRhsVar(1, GRAPHICAL_HANDLE_DATATYPE, &nbRow, &nbCol, &handleAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: Single handle expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A graphic handle expected.\n"), fname, 1);
               return FALSE;
             }
         }
@@ -55,7 +55,7 @@ int sci_progressionbar(char *fname,unsigned long fname_len)
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: a Handle or String expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A graphic handle or a string expected.\n"), fname, 1);
           return FALSE;
         }
 
@@ -87,7 +87,7 @@ int sci_progressionbar(char *fname,unsigned long fname_len)
           GetRhsVar(1, GRAPHICAL_HANDLE_DATATYPE, &nbRow, &nbCol, &handleAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: A handle expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A graphic handle expected.\n"), fname, 1);
               return FALSE;
             }
           GetRhsVar(2, MATRIX_OF_STRING_DATATYPE, &nbRowMessage, &nbColMessage, &messageAdr);
@@ -101,7 +101,7 @@ int sci_progressionbar(char *fname,unsigned long fname_len)
        }
       else
         {
-          Scierror(999, _("%s: Bad use with two input arguments.\n"), fname);
+          Scierror(999, _("%s: Wrong input arguments: (id, mes) expected.\n"), fname);
           return FALSE;
         }
     }
index e656f7a..6d97d85 100644 (file)
@@ -32,17 +32,17 @@ int sci_setmenu(char *fname,unsigned long fname_len)
 
   if (Rhs == 1)
     {
-      // Error message in not in standard mode
+      // Error message in not in standard mode (we need figure index)
       if(getScilabMode() != SCILAB_STD)
         {
-          Scierror(999,_("%s: figure number must be given when used in no window mode."), fname);
+          Scierror(999,_("%s: Wrong number of input arguments: %d expected.\n"), fname);
           return FALSE;
         }
 
       // Unset a Menu of Scilab Main Window
       if (VarType(1) != sci_strings)
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: String expected.\n"),fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 1);
           return FALSE;
         }
 
@@ -50,7 +50,7 @@ int sci_setmenu(char *fname,unsigned long fname_len)
 
       if (nbCol != 1)
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 1);
+          Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"),fname, 1);
           return FALSE;
         }
 
@@ -65,7 +65,7 @@ int sci_setmenu(char *fname,unsigned long fname_len)
       
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"),fname, 1);
               return FALSE;
             }
           
@@ -81,7 +81,7 @@ int sci_setmenu(char *fname,unsigned long fname_len)
       
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 2);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"),fname, 2);
               return FALSE;
             }
           
@@ -95,25 +95,49 @@ int sci_setmenu(char *fname,unsigned long fname_len)
     }
   else // Unset a submenu in graphics window
     {
+      if (VarType(1) == sci_matrix)
+        {
           GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &figureNumberAdr);
       
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"),fname, 1);
               return FALSE;
             }
+        }
+      else
+        {
+          Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"),fname, 1);
+          return FALSE;
+        }
           
+      if (VarType(2) == sci_strings)
+        {
           GetRhsVar(2, STRING_DATATYPE, &nbRow, &nbCol, &menuNameAdr);
+        }
+      else
+        {
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 2);
+          return FALSE;
+        }
           
+      if (VarType(3) == sci_matrix)
+        {
           GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &subMenuIndexAdr);
-      
+          
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 3);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"),fname, 3);
               return FALSE;
             }
+        }
+      else
+        {
+          Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"),fname, 3);
+          return FALSE;
+        }
           
-          EnableFigureSubMenu((int)*stk(figureNumberAdr), cstk(menuNameAdr), (int)*stk(subMenuIndexAdr), TRUE);
+      EnableFigureSubMenu((int)*stk(figureNumberAdr), cstk(menuNameAdr), (int)*stk(subMenuIndexAdr), TRUE);
     }
   
   LhsVar(1)=0;
index 98b76d8..1e03a1c 100644 (file)
@@ -46,7 +46,7 @@ int sci_toolbar(char *fname,unsigned long l)
       GetRhsVar(1,MATRIX_OF_INTEGER_DATATYPE,&nbRow,&nbCol,&stkAdr);
       if (nbRow*nbCol != 1)
         {
-          Scierror(999, _("%s: Wrong size for input argument #%d: Scalar expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 1);
           return FALSE;
         }
       figNum = *istk(stkAdr);
@@ -72,7 +72,7 @@ int sci_toolbar(char *fname,unsigned long l)
 
           if (nbRow*nbCol != 1)
             {
-              Scierror(999,_("%s: Wrong size for input argument #%d: Single handle expected.\n"),fname, 1);
+              Scierror(999,_("%s: Wrong size for input argument #%d: A graphic handle expected.\n"),fname, 1);
               return FALSE;
             }
           pObj=sciGetPointerFromHandle((long)*hstk(stkAdr));
@@ -85,7 +85,7 @@ int sci_toolbar(char *fname,unsigned long l)
           
           if ( (sciGetEntityType (pObj) != SCI_FIGURE) )
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: Double value or Figure handle expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong type for input argument #%d: A real or a Figure handle expected.\n"), fname, 1);
               return FALSE;
             }
 
@@ -93,7 +93,7 @@ int sci_toolbar(char *fname,unsigned long l)
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: Double value or Figure handle expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: A real or Figure handle expected.\n"), fname, 1);
       return FALSE;
     }
 
index 9d30596..bd0d771 100644 (file)
@@ -86,7 +86,7 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
 
       if (VarType(1) != sci_handles)
         {
-          Scierror(999,_("%s: Wrong type for input argument #%d: Graphic handle expected.\n"),fname, 1);
+          Scierror(999,_("%s: Wrong type for input argument #%d: A graphic handle expected.\n"),fname, 1);
           return FALSE;
         }
       else /* Get parent ID */
@@ -95,7 +95,7 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
 
           if (nbRow*nbCol != 1)
             {
-              Scierror(999,_("%s: Wrong size for input argument #%d: A handle expected.\n"),fname, 1);
+              Scierror(999,_("%s: Wrong size for input argument #%d: A graphic handle expected.\n"),fname, 1);
               return FALSE;
             }
           pParent=sciGetPointerFromHandle((long)*hstk(stkAdr));
@@ -121,13 +121,13 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
               setStatus = callSetProperty((sciPointObj*) GraphicHandle, stkAdr, sci_handles, nbRow, nbCol, (char*)propertiesNames[1]);
               if (setStatus == SET_PROPERTY_ERROR)
                 {
-                  Scierror(999, _("Could not set property %s.\n"), propertyName);
+                  Scierror(999, _("%s: Could not set property %s.\n"), fname, propertyName);
                   return FALSE;
                 }
             }
           else
             {
-              Scierror(999,_("%s: Wrong type for first input argument: Uicontrol, Figure or Uimenu expected.\n"),fname);
+              Scierror(999,_("%s: Wrong type for input argument #%d: A '%s', '%s' or '%s' handle expected.\n"),fname,1,"Uicontrol","Figure","Uimenu");
               return FALSE;
             }
         }
@@ -163,10 +163,10 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
                   if (nbRow*nbCol == 1)
                     {
                       pParent = getFigureFromIndex((int)(*stk(stkAdr)));
-
-                      if ( (sciGetEntityType (pParent) != SCI_FIGURE) && (sciGetEntityType (pParent) != SCI_UIMENU) )
+                      
+                      if ( (sciGetEntityType (pParent) != SCI_FIGURE) )
                         {
-                          Scierror(999,_("%s: Wrong type for parent: Figure or uimenu expected.\n"),fname);
+                          Scierror(999,_("%s: Wrong type for input argument #%d: A '%s' handle expected.\n"),fname,1,"Figure");
                           return FALSE;
                         }
                       /* First parameter is the parent */
@@ -180,7 +180,7 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
                 }
               else
                 {
-                  Scierror(999,_("%s: Wrong type for input argument #%d: Graphic handle expected.\n"),fname, 1);
+                  Scierror(999,_("%s: Wrong type for input argument #%d: A '%s' handle expected.\n"),fname, 1,"Figure");
                   return FALSE;
                 }
             }
@@ -190,13 +190,13 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
 
               if (nbRow*nbCol != 1)
                 {
-                  Scierror(999,_("%s: Wrong size for input argument #%d:: A handle expected.\n"),fname, 1);
+                  Scierror(999,_("%s: Wrong size for input argument #%d: A '%s' handle expected.\n"),fname, 1, "Figure");
                   return FALSE;
                 }
               pParent=sciGetPointerFromHandle((long)*hstk(stkAdr));
-              if ( (sciGetEntityType (pParent) != SCI_FIGURE) && (sciGetEntityType (pParent) != SCI_UIMENU) )
+              if ( (sciGetEntityType (pParent) != SCI_FIGURE) )
                 {
-                  Scierror(999,_("%s: Wrong type of parent: Figure or uimenu expected.\n"),fname);
+                  Scierror(999,_("%s: Wrong type of input argument #%d: A '%s' handle expected.\n"),fname, 1, "Figure");
                   return FALSE;
                 }
               /* First parameter is the parent */
@@ -223,7 +223,7 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
           /* Read property name */
           if (VarType(inputIndex) != sci_strings)
             {
-              Scierror(999, _("%s: Wrong type for property name: String expected.\n"), fname);
+              Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"), fname, inputIndex);
               return FALSE;
             }
           else
@@ -261,7 +261,7 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
 
               if (found == 0)
                 {
-                  Scierror(999, _("%s: Unknown property: %s for uicontrols.\n"), fname, propertyName);
+                  Scierror(999, _("%s: Unknown property: %s for 'Uicontrol' handles.\n"), fname, propertyName);
                   return FALSE;
                 }
             }
@@ -276,7 +276,7 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
             }
           else
             {
-              Scierror(999, _("%s: Wrong type for property name: String expected.\n"), fname);
+              Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"), fname, propertiesValuesIndices[0]);
               return FALSE;
             }
         }
@@ -285,7 +285,7 @@ int sci_uicontrol(char *fname, unsigned long fname_len)
       pUicontrol = CreateUIControl(styleProperty);
       if (pUicontrol == NULL) /* Error in creation */
         {
-          Scierror(999, _("%s: Could not create uicontrol object.\n"), fname);
+          Scierror(999, _("%s: Could not create 'Uicontrol' handle.\n"), fname);
           return FALSE;
         }
       GraphicHandle=sciGetHandle(pUicontrol);
index a7f1e1f..292443a 100644 (file)
@@ -49,13 +49,13 @@ int sci_uigetcolor(char *fname,unsigned long fname_len)
           GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &redAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: A value expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 1);
               return FALSE;
             }
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: A value expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"), fname, 1);
           return FALSE;
         }
     }
@@ -64,15 +64,15 @@ int sci_uigetcolor(char *fname,unsigned long fname_len)
       if (VarType(1) == sci_matrix)
         {
           GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &redAdr);
-          if (nbRow*nbCol != 3)
+          if ((nbRow != 1) || (nbCol != 3))
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: Three double values vector expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: %d x %d real row vector expected.\n"), fname, 1, 1, 3);
               return FALSE;
             }
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: Three double values vector expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: Real row vector expected.\n"), fname, 1);
           return FALSE;
         }
     }
@@ -84,13 +84,13 @@ int sci_uigetcolor(char *fname,unsigned long fname_len)
         GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &greenAdr);
         if (nbRow*nbCol != 1)
           {
-            Scierror(999, _("%s: Wrong size for input argument #%d: A value expected.\n"), fname, 2);
+            Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 2);
             return FALSE;
           }
       }
     else
       {
-        Scierror(999, _("%s: Wrong type for input argument #%d: A value expected.\n"), fname, 2);
+        Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"), fname, 2);
         return FALSE;
       }
   }
@@ -102,13 +102,13 @@ int sci_uigetcolor(char *fname,unsigned long fname_len)
         GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &blueAdr);
         if (nbRow*nbCol != 1)
           {
-            Scierror(999, _("%s: Wrong size for input argument #%d: A value expected.\n"), fname, 3);
+            Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 3);
             return FALSE;
           }
       }
     else
       {
-        Scierror(999, _("%s: Wrong type for input argument #%d: A value expected.\n"), fname, 3);
+        Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"), fname, 3);
         return FALSE;
       }
   }
index 589abe7..ff1043c 100644 (file)
@@ -42,7 +42,7 @@ int sci_uigetdir(char *fname,unsigned long l)
           GetRhsVar(1, STRING_DATATYPE, &nbRow, &nbCol, &initialDirectoryAdr);
           if (nbCol !=1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"), fname,1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"), fname,1);
               return FALSE;
             }
           initialDirectory = cstk(initialDirectoryAdr);
@@ -61,7 +61,7 @@ int sci_uigetdir(char *fname,unsigned long l)
           GetRhsVar(1, STRING_DATATYPE, &nbRow, &nbCol, &initialDirectoryAdr);
           if (nbCol !=1)
             {
-              Scierror(999, _("%s: Wrong type for input argument: A string expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument: A string expected.\n"), fname, 1);
               return FALSE;
             }
           initialDirectory = cstk(initialDirectoryAdr);
index 59a8367..ed3db1b 100644 (file)
@@ -64,13 +64,13 @@ int sci_uigetfont(char *fname,unsigned long fname_len)
           GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &fontSizeAdr);
           if (nbRow*nbCol!=1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: Single value expected.\n"), fname, 2);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 2);
               return FALSE;
             }
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: Single value expected.\n"), fname, 2);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"), fname, 2);
           return FALSE;
         }
     }
@@ -83,7 +83,7 @@ int sci_uigetfont(char *fname,unsigned long fname_len)
           GetRhsVar(3,MATRIX_OF_BOOLEAN_DATATYPE,&nbRow,&nbCol,&boldAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: A boolean expected.\n"), fname, 3);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A boolean expected.\n"), fname, 3);
               return FALSE;
             }
 
@@ -103,7 +103,7 @@ int sci_uigetfont(char *fname,unsigned long fname_len)
           GetRhsVar(4,MATRIX_OF_BOOLEAN_DATATYPE,&nbRow,&nbCol,&italicAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: A boolean expected.\n"), fname, 4);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A boolean expected.\n"), fname, 4);
               return FALSE;
             }
 
index f3c6ea2..e00fe7b 100644 (file)
@@ -68,7 +68,7 @@ int sci_uimenu( char *fname,unsigned long fname_len )
     {
       if (VarType(1) != sci_handles)
         {
-          Scierror(999,_("%s: Wrong type for input argument #%d: Graphic handle expected.\n"),fname, 1);
+          Scierror(999,_("%s: Wrong type for input argument #%d: A graphic handle expected.\n"),fname, 1);
           return FALSE;
         }
       else /* Get parent ID */
@@ -77,13 +77,13 @@ int sci_uimenu( char *fname,unsigned long fname_len )
 
           if (nbRow*nbCol != 1)
             {
-             Scierror(999,_("%s: Wrong size for input argument #%d: Single handle expected.\n"),fname, 1);
+             Scierror(999,_("%s: Wrong size for input argument #%d: A graphic handle expected.\n"),fname, 1);
              return FALSE;
             }
          pParent=sciGetPointerFromHandle((long)*hstk(stkAdr));
           if ( (sciGetEntityType (pParent) != SCI_FIGURE) && (sciGetEntityType (pParent) != SCI_UIMENU) )
            {
-             Scierror(999,_("%s: Wrong type for parent: Figure or uimenu expected.\n"),fname);
+             Scierror(999,_("%s: Wrong type for input argument #%d: A '%s' or '%s' handle expected.\n"), fname, 1, "Figure", "Uimenu");
              return FALSE;
            }
 
@@ -114,7 +114,7 @@ int sci_uimenu( char *fname,unsigned long fname_len )
       /* Read property name */
       if (VarType(inputIndex) != sci_strings)
         {
-          Scierror(999, _("%s: Wrong type for property name: String expected.\n"), fname);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"), fname, inputIndex);
           return FALSE;
         }
       else
@@ -152,7 +152,7 @@ int sci_uimenu( char *fname,unsigned long fname_len )
       }
       if (setStatus == SET_PROPERTY_ERROR)
         {
-          Scierror(999, _("Could not set property %s.\n"), propertyName);
+          Scierror(999, _("%s: Could not set property %s.\n"), fname, propertyName);
           return FALSE;
         }
     }
index 2d169fc..d624c1b 100644 (file)
@@ -48,7 +48,7 @@ int sci_uiwait( char *fname,unsigned long fname_len )
       GetRhsVar(1, GRAPHICAL_HANDLE_DATATYPE, &nbRow, &nbCol, &stkAdr);
       if (nbRow * nbCol !=1)
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: A handle expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong size for input argument #%d: A graphic handle expected.\n"), fname, 1);
           return FALSE;
         }
       hdl = (unsigned long)*hstk(stkAdr);
@@ -60,13 +60,13 @@ int sci_uiwait( char *fname,unsigned long fname_len )
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: uicontextmenu expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A '%s' handle expected.\n"), fname, 1, "Uicontextmenu");
           return FALSE;
         }
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: A handle expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: A graphic handle expected.\n"), fname, 1);
       return FALSE;
     }
  
index a648ddb..d3c2c2c 100644 (file)
@@ -32,17 +32,17 @@ int sci_unsetmenu(char *fname,unsigned long fname_len)
 
   if (Rhs == 1)
     {
-      // Error message in not in standard mode
+      // Error message in not in standard mode (we need figure number)
       if(getScilabMode() != SCILAB_STD)
         {
-          Scierror(999,_("%s: figure number must be given when used in no window mode."), fname);
+          Scierror(999,_("%s: Wrong number of input arguments: %d expected.\n"), fname);
           return FALSE;
         }
 
       // Unset a Menu of Scilab Main Window
       if (VarType(1) != sci_strings)
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: String expected.\n"),fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 1);
           return FALSE;
         }
 
@@ -50,7 +50,7 @@ int sci_unsetmenu(char *fname,unsigned long fname_len)
 
       if (nbCol != 1)
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 1);
+          Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"),fname, 1);
           return FALSE;
         }
 
@@ -65,7 +65,7 @@ int sci_unsetmenu(char *fname,unsigned long fname_len)
       
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"),fname, 1);
               return FALSE;
             }
           
@@ -81,7 +81,7 @@ int sci_unsetmenu(char *fname,unsigned long fname_len)
       
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 2);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"),fname, 2);
               return FALSE;
             }
           
@@ -95,25 +95,50 @@ int sci_unsetmenu(char *fname,unsigned long fname_len)
     }
   else // Unset a submenu in graphics window
     {
+      if (VarType(1) == sci_matrix)
+        {
           GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &figureNumberAdr);
-      
+          
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"),fname, 1);
               return FALSE;
             }
-          
+        }
+      else
+        {
+          Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"),fname, 1);
+          return FALSE;
+        }
+      
+      
+      if (VarType(2) == sci_strings)
+        {
           GetRhsVar(2, STRING_DATATYPE, &nbRow, &nbCol, &menuNameAdr);
+        }
+      else
+        {
+          Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 2);
+          return FALSE;
+        }
           
+      if (VarType(3) == sci_matrix)
+        {
           GetRhsVar(3, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &subMenuIndexAdr);
       
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 3);
+              Scierror(999, _("%s: Wrong size for input argument #%d: Scalar expected.\n"),fname, 3);
               return FALSE;
             }
-          
-          EnableFigureSubMenu((int)*stk(figureNumberAdr), cstk(menuNameAdr), (int)*stk(subMenuIndexAdr), FALSE);
+        }
+      else
+        {
+              Scierror(999, _("%s: Wrong type for input argument #%d: Scalar expected.\n"),fname, 3);
+              return FALSE;
+        }
+
+      EnableFigureSubMenu((int)*stk(figureNumberAdr), cstk(menuNameAdr), (int)*stk(subMenuIndexAdr), FALSE);
     }
   
   LhsVar(1)=0;
index 5e47258..ae3add0 100644 (file)
@@ -46,7 +46,7 @@ int sci_waitbar(char *fname,unsigned long fname_len)
           GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &fractionAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: Single double expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 1);
               return FALSE;
             }
         }
@@ -56,7 +56,7 @@ int sci_waitbar(char *fname,unsigned long fname_len)
         }
       else
         {
-                       Scierror(999, _("%s: Wrong type for input argument #%d: Single double or String expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A real or a string expected.\n"), fname, 1);
           return FALSE;
         }
 
@@ -85,7 +85,7 @@ int sci_waitbar(char *fname,unsigned long fname_len)
           GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &fractionAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: A double expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 1);
               return FALSE;
             }
           GetRhsVar(2, MATRIX_OF_STRING_DATATYPE, &nbRowMessage, &nbColMessage, &messageAdr);
@@ -102,14 +102,14 @@ int sci_waitbar(char *fname,unsigned long fname_len)
           GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &fractionAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: A double expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 1);
               return FALSE;
             }
 
           GetRhsVar(2, GRAPHICAL_HANDLE_DATATYPE, &nbRow, &nbCol, &handleAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: A handle expected.\n"), fname, 2);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A '%s' handle expected.\n"), fname, 2, "Waitbar");
               return FALSE;
             }
 
@@ -126,7 +126,7 @@ int sci_waitbar(char *fname,unsigned long fname_len)
           GetRhsVar(2, GRAPHICAL_HANDLE_DATATYPE, &nbRow, &nbCol, &handleAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: A handle expected.\n"), fname, 2);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A '%s' handle expected.\n"), fname, 2, "Waitbar");
               return FALSE;
             }
 
@@ -138,7 +138,7 @@ int sci_waitbar(char *fname,unsigned long fname_len)
         }
       else
         {
-                       Scierror(999, _("%s: Bad use with two input arguments.\n"), fname);
+          Scierror(999, _("%s: Wrong input arguments: (x, mes), (x, winId) or (mes, winId) expected.\n"), fname);
           return FALSE;
         }
     }
@@ -149,13 +149,13 @@ int sci_waitbar(char *fname,unsigned long fname_len)
           GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &nbRow, &nbCol, &fractionAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: A double expected.\n"), fname, 1);
+              Scierror(999, _("%s: Wrong size for input argument #%d: A real expected.\n"), fname, 1);
               return FALSE;
             }
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: A double expected.\n"), fname, 1);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A real expected.\n"), fname, 1);
           return FALSE;
         }
 
@@ -174,13 +174,13 @@ int sci_waitbar(char *fname,unsigned long fname_len)
           GetRhsVar(3, GRAPHICAL_HANDLE_DATATYPE, &nbRow, &nbCol, &handleAdr);
           if (nbRow*nbCol != 1)
             {
-              Scierror(999, _("%s: Wrong size for input argument %#d: A handle expected.\n"), fname, 3);
+              Scierror(999, _("%s: Wrong size for input argument %#d: A '%s' handle expected.\n"), fname, 3, "Waitbar");
               return FALSE;
             }
         }
       else
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: A handle expected.\n"), fname, 3);
+          Scierror(999, _("%s: Wrong type for input argument #%d: A '%s' handle expected.\n"), fname, 3, "Waitbar");
           return FALSE;
         }
 
index 781d1e8..e4b232d 100644 (file)
@@ -60,7 +60,7 @@ int C2F(sci_x_choice)(char *fname,unsigned long fname_len)
     }
   else 
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: Double vector expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Real or complex vector expected.\n"), fname, 1);
       return FALSE;
     }
   
@@ -71,7 +71,7 @@ int C2F(sci_x_choice)(char *fname,unsigned long fname_len)
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 2);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 2);
       return FALSE;
     }
 
@@ -90,14 +90,14 @@ int C2F(sci_x_choice)(char *fname,unsigned long fname_len)
       GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&nbRowLineLabels,&nbColLineLabels,&lineLabelsAdr);
       if (nbRow !=1 && nbCol !=1)
       {
-        Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 3);
+        Scierror(999, _("%s: Wrong size for input argument #%d: Vector of strings expected.\n"), fname, 3);
         return FALSE;
       }
       setMessageBoxLineLabels(messageBoxID, getStringMatrixFromStack(lineLabelsAdr), nbColLineLabels*nbRowLineLabels);
     }
   else 
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 3);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 3);
       return FALSE;
     }
   
index 0edefa2..179dc0a 100644 (file)
@@ -43,7 +43,7 @@ int C2F(sci_x_choose)(char *fname,unsigned long fname_len)
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname);
       return FALSE;
     }
 
@@ -53,7 +53,7 @@ int C2F(sci_x_choose)(char *fname,unsigned long fname_len)
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 2);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 2);
       return FALSE;
     }
 
@@ -61,7 +61,7 @@ int C2F(sci_x_choose)(char *fname,unsigned long fname_len)
   messageBoxID = createMessageBox();
 
   /* Title is a default title */
-  setMessageBoxTitle(messageBoxID, _("Scilab choose message"));
+  setMessageBoxTitle(messageBoxID, _("Scilab Choose Message"));
   /* Message */
   setMessageBoxMultiLineMessage(messageBoxID, getStringMatrixFromStack(messageAdr), nbCol*nbRow);
   /* ListBox Items */
@@ -76,7 +76,7 @@ int C2F(sci_x_choose)(char *fname,unsigned long fname_len)
           GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&nbRow,&nbCol,&buttonLabelAdr);
           if (nbRow*nbCol != 1)
           {
-            Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"), fname, 3);
+            Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"), fname, 3);
             return FALSE;
           }
         }
index c5984e8..1e5c307 100644 (file)
@@ -42,7 +42,7 @@ int C2F(sci_x_choose_modeless)(char *fname,unsigned long fname_len)
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 1);
       return FALSE;
     }
 
@@ -52,7 +52,7 @@ int C2F(sci_x_choose_modeless)(char *fname,unsigned long fname_len)
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 2);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 2);
       return FALSE;
     }
 
@@ -75,7 +75,7 @@ int C2F(sci_x_choose_modeless)(char *fname,unsigned long fname_len)
           GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&nbRow,&nbCol,&buttonLabelAdr);
           if (nbRow*nbCol != 1)
           {
-            Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"), fname, 3);
+            Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"), fname, 3);
             return FALSE;
           }
         }
index 7ffedfb..f09b649 100644 (file)
@@ -43,7 +43,7 @@ int C2F(sci_x_dialog)(char *fname,unsigned long fname_len)
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 1);
       return FALSE;
     }
 
@@ -63,7 +63,7 @@ int C2F(sci_x_dialog)(char *fname,unsigned long fname_len)
         }
       else 
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 2);
+          Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 2);
           return FALSE;
         }
 
index 6c69c54..7430436 100644 (file)
@@ -41,14 +41,14 @@ int C2F(sci_x_mdialog)(char *fname,unsigned long fname_len)
   CheckRhs(3,4);
   CheckLhs(0,1);
 
-  /* READ THE MESSAGE */
+  /* READ THE LABELS */
   if (VarType(1) == sci_strings)
     {
       GetRhsVar(1, MATRIX_OF_STRING_DATATYPE, &nbRow, &nbCol, &labelsAdr);
     }
   else
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 1);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 1);
       return FALSE;
     }
 
@@ -66,14 +66,14 @@ int C2F(sci_x_mdialog)(char *fname,unsigned long fname_len)
       GetRhsVar(2,MATRIX_OF_STRING_DATATYPE,&nbRowLineLabels,&nbColLineLabels,&lineLabelsAdr);
       if (nbRow !=1 && nbCol !=1)
       {
-        Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 2);
+        Scierror(999, _("%s: Wrong size for input argument #%d: Vector of strings expected.\n"), fname, 2);
         return FALSE;
       }
       setMessageBoxLineLabels(messageBoxID, getStringMatrixFromStack(lineLabelsAdr), nbColLineLabels*nbRowLineLabels);
     }
   else 
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 2);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 2);
       return FALSE;
     }
   
@@ -85,7 +85,7 @@ int C2F(sci_x_mdialog)(char *fname,unsigned long fname_len)
           GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&nbRowDefaultValues,&nbColDefaultValues,&defaultValuesAdr);
           if (nbRowDefaultValues !=1 && nbColDefaultValues !=1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 3);
+              Scierror(999, _("%s: Wrong size for input argument #%d: Vector of strings expected.\n"), fname, 3);
               return FALSE;
             }
           setMessageBoxDefaultInput(messageBoxID, getStringMatrixFromStack(defaultValuesAdr), nbColDefaultValues*nbRowDefaultValues);
@@ -95,7 +95,7 @@ int C2F(sci_x_mdialog)(char *fname,unsigned long fname_len)
           GetRhsVar(3,MATRIX_OF_STRING_DATATYPE,&nbRowColumnLabels,&nbColColumnLabels,&columnLabelsAdr);
           if (nbRow !=1 && nbCol !=1)
             {
-              Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 3);
+              Scierror(999, _("%s: Wrong size for input argument #%d: Vector of strings expected.\n"), fname, 3);
               return FALSE;
             }
           setMessageBoxColumnLabels(messageBoxID, getStringMatrixFromStack(columnLabelsAdr), nbColColumnLabels*nbRowColumnLabels);
@@ -103,7 +103,7 @@ int C2F(sci_x_mdialog)(char *fname,unsigned long fname_len)
     }
   else 
     {
-      Scierror(999, _("%s: Wrong type for input argument #%d: String vector expected.\n"), fname, 3);
+      Scierror(999, _("%s: Wrong type for input argument #%d: Vector of strings expected.\n"), fname, 3);
       return FALSE;
     }
 
@@ -115,14 +115,14 @@ int C2F(sci_x_mdialog)(char *fname,unsigned long fname_len)
           GetRhsVar(4,MATRIX_OF_STRING_DATATYPE,&nbRowDefaultValues,&nbColDefaultValues,&defaultValuesAdr);
           if ((nbRowDefaultValues != nbRowLineLabels*nbColLineLabels) || (nbColDefaultValues != nbRowColumnLabels*nbColColumnLabels))
             {
-              Scierror(999, _("%s: Wrong size for input argument #%d: %d x %d expected.\n"),fname, 4, nbRowLineLabels*nbColLineLabels, nbRowColumnLabels*nbColColumnLabels);
+              Scierror(999, _("%s: Wrong size for input argument #%d: %d x %d matrix of strings expected.\n"),fname, 4, nbRowLineLabels*nbColLineLabels, nbRowColumnLabels*nbColColumnLabels);
               return FALSE;
             }
           setMessageBoxDefaultInput(messageBoxID, getStringMatrixFromStack(defaultValuesAdr), nbColDefaultValues*nbRowDefaultValues);
         }
       else 
         {
-          Scierror(999, _("%s: Wrong type for input argument #%d: String matrix expected.\n"), fname, 4);
+          Scierror(999, _("%s: Wrong type for input argument #%d: Matrix of strings expected.\n"), fname, 4);
           return FALSE;
         }
     }
index 09db6ff..17321b2 100644 (file)
@@ -58,7 +58,7 @@ int C2F(sci_xgetfile)(char *fname,unsigned long fname_len)
                   GetRhsVar(1, STRING_DATATYPE, &nbRow, &nbCol, &titleAdr);
                   if (nbCol !=1)
                     {
-                      Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 1);
+                      Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"),fname, 1);
                       FREE(optName);
                       return FALSE;
                     }
@@ -76,7 +76,7 @@ int C2F(sci_xgetfile)(char *fname,unsigned long fname_len)
               GetRhsVar(1, STRING_DATATYPE, &nbRow, &nbCol, &fileMaskAdr);
               if (nbCol !=1)
                 {
-                  Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 1);
+                  Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"),fname, 1);
                   FREE(optName);
                   return FALSE;
                 }
@@ -98,7 +98,7 @@ int C2F(sci_xgetfile)(char *fname,unsigned long fname_len)
           GetRhsVar(1, STRING_DATATYPE, &nbRow, &nbCol, &fileMaskAdr);
           if (nbCol !=1)
             {
-              Scierror(999,  _("%s: Wrong type for input argument #%d: A string expected.\n"),fname,1);
+              Scierror(999,  _("%s: Wrong size for input argument #%d: A string expected.\n"),fname,1);
               FREE(optName);
               return FALSE;
             }
@@ -121,7 +121,7 @@ int C2F(sci_xgetfile)(char *fname,unsigned long fname_len)
                   GetRhsVar(2, STRING_DATATYPE, &nbRow, &nbCol, &titleAdr);
                   if (nbCol !=1)
                     {
-                      Scierror(999,  _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 2);
+                      Scierror(999,  _("%s: Wrong size for input argument #%d: A string expected.\n"),fname, 2);
                       FREE(optName);
                       return FALSE;
                     }
@@ -139,7 +139,7 @@ int C2F(sci_xgetfile)(char *fname,unsigned long fname_len)
               GetRhsVar(2, STRING_DATATYPE, &nbRow, &nbCol, &initialDirectoryAdr);
               if (nbCol !=1)
                 {
-                  Scierror(999,  _("%s: Wrong type for input argument #%d: A string expected.\n"),fname, 2);
+                  Scierror(999,  _("%s: Wrong size for input argument #%d: A string expected.\n"),fname, 2);
                   FREE(optName);
                   return FALSE;
                 }