INTEGRATION: CWS os2port01 (1.28.4); FILE MERGED

2007/09/05 05:41:31 obr 1.28.4.3: RESYNC: (1.33-1.34); FILE MERGED
2007/08/10 10:59:23 obr 1.28.4.2: RESYNC: (1.28-1.33); FILE MERGED
2006/12/28 14:32:27 ydario 1.28.4.1: OS/2 initial import

basic/source/runtime/methods1.cxx

@@ -4,9 +4,9 @@
  *
  *  $RCSfile: methods1.cxx,v $
  *
- *  $Revision: 1.34 $
+ *  $Revision: 1.35 $
  *
- *  last change: $Author: hr $ $Date: 2007-08-03 09:55:57 $
+ *  last change: $Author: vg $ $Date: 2007-09-20 15:55:19 $
  *
  *  The Contents of this file are made available subject to
  *  the terms of GNU Lesser General Public License Version 2.1.
@@ -69,6 +69,12 @@
 #include <tools/urlobj.hxx>
 #include <osl/file.hxx>
 
+#ifdef OS2
+#define INCL_DOS
+#define INCL_DOSPROCESS
+#include <svpm.h>
+#endif
+
 #if defined(WIN)
 #ifndef _SVWIN_H
 #include <tools/svwin.h>
@@ -416,9 +422,11 @@ RTLFUNC(GetGUIType)
         // 17.7.2000 Make simple solution for testtool / fat office
 #if defined (WNT)
         rPar.Get(0)->PutInteger( 1 );
+#elif defined OS2
+        rPar.Get(0)->PutInteger( 2 );
 #elif defined UNX
         rPar.Get(0)->PutInteger( 4 );
-#elif
+#else
         rPar.Get(0)->PutInteger( -1 );
 #endif
     }