INTEGRATION: CWS ab19 (1.5.40); FILE MERGED

2006/03/03 10:45:10 ab 1.5.40.2: RESYNC: (1.5-1.6); FILE MERGED
2005/07/25 13:18:42 ab 1.5.40.1: #i35478# Check parameter error status for optional parameters

basic/source/runtime/inputbox.cxx

@@ -4,9 +4,9 @@
  *
  *  $RCSfile: inputbox.cxx,v $
  *
- *  $Revision: 1.6 $
+ *  $Revision: 1.7 $
  *
- *  last change: $Author: rt $ $Date: 2005-09-07 21:39:07 $
+ *  last change: $Author: vg $ $Date: 2006-04-07 14:02:53 $
  *
  *  The Contents of this file are made available subject to
  *  the terms of GNU Lesser General Public License Version 2.1.
@@ -179,9 +179,9 @@ RTLFUNC(InputBox)
         String aDefault;
         INT32 nX = -1, nY = -1;  // zentrieren
         const String& rPrompt = rPar.Get(1)->GetString();
-        if ( nArgCount > 2 )
+        if ( nArgCount > 2 && !rPar.Get(2)->IsErr() )
             aTitle = rPar.Get(2)->GetString();
-        if ( nArgCount > 3 )
+        if ( nArgCount > 3 && !rPar.Get(3)->IsErr() )
             aDefault = rPar.Get(3)->GetString();
         if ( nArgCount > 4 )
         {