src/os2/utils.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        utils.cpp
   3 // Purpose:     Various utilities
   4 // Author:      David Webster
   5 // Modified by:
   6 // Created:     09/17/99
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) David Webster
   9 // Licence:     wxWindows license
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // For compilers that support precompilation, includes "wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifndef WX_PRECOMP
  16     #include "wx/setup.h"
  17     #include "wx/utils.h"
  18     #include "wx/app.h"
  19     #include "wx/cursor.h"
  20 #endif  //WX_PRECOMP
  21
  22 #include "wx/os2/private.h"
  23 #include "wx/timer.h"
  24 #include "wx/intl.h"
  25
  26 #include <ctype.h>
  27 #ifdef __EMX__
  28 #include <dirent.h>
  29 #endif
  30
  31 #include "wx/log.h"
  32
  33 #include <io.h>
  34
  35 #include <stdio.h>
  36 #include <stdlib.h>
  37 #include <string.h>
  38 #include <errno.h>
  39 #include <stdarg.h>
  40
  41 #define PURE_32
  42
  43 #ifndef __EMX__
  44 #include <upm.h>
  45 #include <netcons.h>
  46 #include <netbios.h>
  47 #endif
  48
  49 static const wxChar WX_SECTION[] = _T("wxWindows");
  50 static const wxChar eHOSTNAME[]  = _T("HostName");
  51 static const wxChar eUSERID[]    = _T("UserId");
  52 static const wxChar eUSERNAME[]  = _T("UserName");
  53
  54 // For the following functions we SHOULD fill in support
  55 // for Windows-NT (which I don't know) as I assume it begin
  56 // a POSIX Unix (so claims MS) that it has some special
  57 // functions beyond those provided by WinSock
  58
  59 // Get full hostname (eg. DoDo.BSn-Germany.crg.de)
  60 bool wxGetHostName(
  61   wxChar*                           zBuf
  62 , int                               nMaxSize
  63 )
  64 {
  65 #if wxUSE_NET_API
  66     char                            zServer[256];
  67     char                            zComputer[256];
  68     unsigned long                   ulLevel = 0;
  69     unsigned char*                  zBuffer = NULL;
  70     unsigned long                   ulBuffer = 256;
  71     unsigned long*                  pulTotalAvail = NULL;
  72
  73     NetBios32GetInfo( (const unsigned char*)zServer
  74                      ,(const unsigned char*)zComputer
  75                      ,ulLevel
  76                      ,zBuffer
  77                      ,ulBuffer
  78                      ,pulTotalAvail
  79                     );
  80     strcpy(zBuf, zServer);
  81 #else
  82     wxChar*                         zSysname;
  83     const wxChar*                   zDefaultHost = _T("noname");
  84
  85     if ((zSysname = wxGetenv(_T("SYSTEM_NAME"))) == NULL)
  86     {
  87         ULONG n = ::PrfQueryProfileString( HINI_PROFILE
  88                                           ,(PSZ)WX_SECTION
  89                                           ,(PSZ)eHOSTNAME
  90                                           ,(PSZ)zDefaultHost
  91                                           ,(void*)zBuf
  92                                           ,(ULONG)nMaxSize - 1
  93                                          );
  94     }
  95     else
  96         wxStrncpy(zBuf, zSysname, nMaxSize - 1);
  97     zBuf[nMaxSize] = _T('\0');
  98 #endif
  99     return *zBuf ? TRUE : FALSE;
 100 }
 101
 102 // Get user ID e.g. jacs
 103 bool wxGetUserId(
 104   wxChar*                           zBuf
 105 , int                               nType
 106 )
 107 {
 108 #if defined(__VISAGECPP__)
 109     long                            lrc;
 110     // UPM procs return 0 on success
 111     lrc = U32ELOCU((unsigned char*)zBuf, (unsigned long *)&nType);
 112     if (lrc == 0) return TRUE;
 113 #endif
 114     return FALSE;
 115 }
 116
 117 bool wxGetUserName(
 118   wxChar*                           zBuf
 119 , int                               nMaxSize
 120 )
 121 {
 122 #ifdef USE_NET_API
 123     wxGetUserId( zBuf
 124                 ,nMaxSize
 125                );
 126 #else
 127     wxStrncpy(zBuf, _T("Unknown User"), nMaxSize);
 128 #endif
 129     return TRUE;
 130 }
 131
 132 int wxKill(
 133   long                              lPid
 134 , wxSignal                          eSig
 135 , wxKillError*                      peError
 136 )
 137 {
 138     return((int)::DosKillProcess(0, (PID)lPid));
 139 }
 140
 141 //
 142 // Execute a program in an Interactive Shell
 143 //
 144 bool wxShell(
 145   const wxString&                   rCommand
 146 )
 147 {
 148     wxChar*                         zShell = _T("CMD.EXE");
 149     wxString                        sInputs;
 150     wxChar                          zTmp[255];
 151     STARTDATA                       SData = {0};
 152     PSZ                             PgmTitle = "Command Shell";
 153     APIRET                          rc;
 154     PID                             vPid = 0;
 155     ULONG                           ulSessID = 0;
 156     UCHAR                           achObjBuf[256] = {0}; //error data if DosStart fails
 157     RESULTCODES                     vResult;
 158
 159     SData.Length   = sizeof(STARTDATA);
 160     SData.Related  = SSF_RELATED_INDEPENDENT;
 161     SData.FgBg     = SSF_FGBG_FORE;
 162     SData.TraceOpt = SSF_TRACEOPT_NONE;
 163     SData.PgmTitle = PgmTitle;
 164     SData.PgmName  = zShell;
 165
 166     sInputs = "/C " + rCommand;
 167     SData.PgmInputs     = (BYTE*)sInputs.c_str();
 168     SData.TermQ         = 0;
 169     SData.Environment   = 0;
 170     SData.InheritOpt    = SSF_INHERTOPT_SHELL;
 171     SData.SessionType   = SSF_TYPE_WINDOWABLEVIO;
 172     SData.IconFile      = 0;
 173     SData.PgmHandle     = 0;
 174     SData.PgmControl    = SSF_CONTROL_VISIBLE | SSF_CONTROL_MAXIMIZE;
 175     SData.InitXPos      = 30;
 176     SData.InitYPos      = 40;
 177     SData.InitXSize     = 200;
 178     SData.InitYSize     = 140;
 179     SData.Reserved      = 0;
 180     SData.ObjectBuffer  = (char*)achObjBuf;
 181     SData.ObjectBuffLen = (ULONG)sizeof(achObjBuf);
 182
 183     rc = ::DosStartSession(&SData, &ulSessID, &vPid);
 184     if (rc == 0 || rc == 457) // NO_ERROR or SMG_START_IN_BACKGROUND
 185     {
 186         PTIB                            ptib;
 187         PPIB                            ppib;
 188
 189         ::DosGetInfoBlocks(&ptib, &ppib);
 190
 191         ::DosWaitChild( DCWA_PROCESS
 192                        ,DCWW_WAIT
 193                        ,&vResult
 194                        ,&ppib->pib_ulpid
 195                        ,vPid
 196                       );
 197     }
 198     return (rc != 0);
 199 }
 200
 201 // Shutdown or reboot the PC
 202 bool wxShutdown(wxShutdownFlags wFlags)
 203 {
 204     // TODO
 205     return FALSE;
 206 }
 207
 208 // Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX)
 209 long wxGetFreeMemory()
 210 {
 211     void*                           pMemptr = NULL;
 212     ULONG                           lSize;
 213     ULONG                           lMemFlags;
 214     APIRET                          rc;
 215
 216     lMemFlags = PAG_FREE;
 217     rc = ::DosQueryMem(pMemptr, &lSize, &lMemFlags);
 218     if (rc != 0)
 219         return -1L;
 220     return (long)lSize;
 221 }
 222
 223 // ----------------------------------------------------------------------------
 224 // env vars
 225 // ----------------------------------------------------------------------------
 226
 227 bool wxGetEnv(const wxString& var, wxString *value)
 228 {
 229     // wxGetenv is defined as getenv()
 230     wxChar *p = wxGetenv(var);
 231     if ( !p )
 232         return FALSE;
 233
 234     if ( value )
 235     {
 236         *value = p;
 237     }
 238
 239     return TRUE;
 240 }
 241
 242 bool wxSetEnv(const wxString& variable, const wxChar *value)
 243 {
 244 #if defined(HAVE_SETENV)
 245     return setenv(variable.mb_str(), value ? wxString(value).mb_str().data()
 246                                            : NULL, 1 /* overwrite */) == 0;
 247 #elif defined(HAVE_PUTENV)
 248     wxString s = variable;
 249     if ( value )
 250         s << _T('=') << value;
 251
 252     // transform to ANSI
 253     const char *p = s.mb_str();
 254
 255     // the string will be free()d by libc
 256     char *buf = (char *)malloc(strlen(p) + 1);
 257     strcpy(buf, p);
 258
 259     return putenv(buf) == 0;
 260 #else // no way to set an env var
 261     return FALSE;
 262 #endif
 263 }
 264
 265
 266 // Sleep for nSecs seconds. Attempt a Windows implementation using timers.
 267 static bool inTimer = FALSE;
 268
 269 class wxSleepTimer: public wxTimer
 270 {
 271 public:
 272     inline void Notify()
 273     {
 274         inTimer = FALSE;
 275         Stop();
 276     }
 277 };
 278
 279 static wxTimer*                     wxTheSleepTimer = NULL;
 280
 281 void wxUsleep(
 282   unsigned long                     ulMilliseconds
 283 )
 284 {
 285     ::DosSleep(ulMilliseconds/1000l);
 286 }
 287
 288 void wxSleep(
 289   int                               nSecs
 290 )
 291 {
 292     ::DosSleep(1000 * nSecs);
 293 }
 294
 295 // Consume all events until no more left
 296 void wxFlushEvents()
 297 {
 298 //  wxYield();
 299 }
 300
 301 #if WXWIN_COMPATIBILITY_2_2
 302
 303 // Output a debug mess., in a system dependent fashion.
 304 void wxDebugMsg(
 305   const wxChar*                     zFmt ...
 306 )
 307 {
 308     va_list                         vAp;
 309     static wxChar                   zBuffer[512];
 310
 311     if (!wxTheApp->GetWantDebugOutput())
 312         return ;
 313     va_start(vAp, zFmt);
 314     sprintf(zBuffer, zFmt, vAp) ;
 315     va_end(vAp);
 316 }
 317
 318 // Non-fatal error: pop up message box and (possibly) continue
 319 void wxError(
 320   const wxString&                   rMsg
 321 , const wxString&                   rTitle
 322 )
 323 {
 324     wxBuffer = new wxChar[256];
 325     wxSprintf(wxBuffer, "%s\nContinue?", WXSTRINGCAST rMsg);
 326     if (::WinMessageBox( HWND_DESKTOP
 327                         ,NULL
 328                         ,(PSZ)wxBuffer
 329                         ,(PSZ)WXSTRINGCAST rTitle
 330                         ,0
 331                         ,MB_ICONEXCLAMATION | MB_YESNO
 332                        ) == MBID_YES)
 333     delete[] wxBuffer;
 334     wxExit();
 335 }
 336
 337 // Fatal error: pop up message box and abort
 338 void wxFatalError(
 339   const wxString&                   rMsg
 340 , const wxString&                   rTitle
 341 )
 342 {
 343     unsigned long                   ulRc;
 344
 345     ulRc = ::WinMessageBox( HWND_DESKTOP
 346                            ,NULL
 347                            ,WXSTRINGCAST rMsg
 348                            ,WXSTRINGCAST rTitle
 349                            ,0
 350                            ,MB_NOICON | MB_OK
 351                           );
 352     DosExit(EXIT_PROCESS, ulRc);
 353 }
 354
 355 #endif // WXWIN_COMPATIBILITY_2_2
 356
 357 // Emit a beeeeeep
 358 void wxBell()
 359 {
 360     DosBeep(1000,1000); // 1kHz during 1 sec.
 361 }
 362
 363 // Chris Breeze 27/5/98: revised WIN32 code to
 364 // detect WindowsNT correctly
 365 int wxGetOsVersion(
 366   int*                              pMajorVsn
 367 , int*                              pMinorVsn
 368 )
 369 {
 370     ULONG                           ulSysInfo[QSV_MAX] = {0};
 371     APIRET                          ulrc;
 372
 373     ulrc = ::DosQuerySysInfo( 1L
 374                              ,QSV_MAX
 375                              ,(PVOID)ulSysInfo
 376                              ,sizeof(ULONG) * QSV_MAX
 377                             );
 378     if (ulrc == 0L)
 379     {
 380         *pMajorVsn = ulSysInfo[QSV_VERSION_MAJOR];
 381         *pMajorVsn = *pMajorVsn/10;
 382         *pMinorVsn = ulSysInfo[QSV_VERSION_MINOR];
 383         return wxWINDOWS_OS2;
 384     }
 385     return wxWINDOWS; // error if we get here, return generic value
 386 }
 387
 388 // Reading and writing resources (eg WIN.INI, .Xdefaults)
 389 #if wxUSE_RESOURCES
 390 bool wxWriteResource(
 391   const wxString&                   rSection
 392 , const wxString&                   rEntry
 393 , const wxString&                   rValue
 394 , const wxString&                   rFile
 395 )
 396 {
 397     HAB                             hab = 0;
 398     HINI                            hIni = 0;
 399
 400     if (rFile != "")
 401     {
 402         hIni = ::PrfOpenProfile(hab, (PSZ)WXSTRINGCAST rFile);
 403         if (hIni != 0L)
 404         {
 405             return (::PrfWriteProfileString( hIni
 406                                             ,(PSZ)WXSTRINGCAST rSection
 407                                             ,(PSZ)WXSTRINGCAST rEntry
 408                                             ,(PSZ)WXSTRINGCAST rValue
 409                                            ));
 410         }
 411     }
 412     else
 413         return (::PrfWriteProfileString( HINI_PROFILE
 414                                         ,(PSZ)WXSTRINGCAST rSection
 415                                         ,(PSZ)WXSTRINGCAST rEntry
 416                                         ,(PSZ)WXSTRINGCAST rValue
 417                                        ));
 418     return FALSE;
 419 }
 420
 421 bool wxWriteResource(
 422   const wxString&                   rSection
 423 , const wxString&                   rEntry
 424 , float                             fValue
 425 , const wxString&                   rFile
 426 )
 427 {
 428     wxChar                          zBuf[50];
 429
 430     wxSprintf(zBuf, "%.4f", fValue);
 431     return wxWriteResource( rSection
 432                            ,rEntry
 433                            ,zBuf
 434                            ,rFile
 435                           );
 436 }
 437
 438 bool wxWriteResource(
 439   const wxString&                   rSection
 440 , const wxString&                   rEntry
 441 , long                              lValue
 442 , const wxString&                   rFile
 443 )
 444 {
 445     wxChar                          zBuf[50];
 446
 447     wxSprintf(zBuf, "%ld", lValue);
 448     return wxWriteResource( rSection
 449                            ,rEntry
 450                            ,zBuf
 451                            ,rFile
 452                           );
 453 }
 454
 455 bool wxWriteResource(
 456   const wxString&                   rSection
 457 , const wxString&                   rEntry
 458 , int                               lValue
 459 , const wxString&                   rFile
 460 )
 461 {
 462     wxChar                          zBuf[50];
 463
 464     wxSprintf(zBuf, "%d", lValue);
 465     return wxWriteResource( rSection
 466                            ,rEntry
 467                            ,zBuf
 468                            ,rFile
 469                           );
 470 }
 471
 472 bool wxGetResource(
 473   const wxString&                   rSection
 474 , const wxString&                   rEntry
 475 , wxChar**                          ppValue
 476 , const wxString&                   rFile
 477 )
 478 {
 479     HAB                             hab = 0;
 480     HINI                            hIni = 0;
 481     wxChar                          zDefunkt[] = _T("$$default");
 482     char                            zBuf[1000];
 483
 484     if (rFile != "")
 485     {
 486         hIni = ::PrfOpenProfile(hab, (PSZ)WXSTRINGCAST rFile);
 487         if (hIni != 0L)
 488         {
 489             ULONG n = ::PrfQueryProfileString( hIni
 490                                               ,(PSZ)WXSTRINGCAST rSection
 491                                               ,(PSZ)WXSTRINGCAST rEntry
 492                                               ,(PSZ)zDefunkt
 493                                               ,(PVOID)zBuf
 494                                               ,1000
 495                                              );
 496             if (zBuf == NULL)
 497                 return FALSE;
 498             if (n == 0L || wxStrcmp(zBuf, zDefunkt) == 0)
 499                 return FALSE;
 500             zBuf[n-1] = '\0';
 501         }
 502         else
 503             return FALSE;
 504     }
 505     else
 506     {
 507         ULONG n = ::PrfQueryProfileString( HINI_PROFILE
 508                                           ,(PSZ)WXSTRINGCAST rSection
 509                                           ,(PSZ)WXSTRINGCAST rEntry
 510                                           ,(PSZ)zDefunkt
 511                                           ,(PVOID)zBuf
 512                                           ,1000
 513                                          );
 514         if (zBuf == NULL)
 515             return FALSE;
 516         if (n == 0L || wxStrcmp(zBuf, zDefunkt) == 0)
 517             return FALSE;
 518         zBuf[n-1] = '\0';
 519     }
 520     strcpy((char*)*ppValue, zBuf);
 521     return TRUE;
 522 }
 523
 524 bool wxGetResource(
 525   const wxString&                   rSection
 526 , const wxString&                   rEntry
 527 , float*                            pValue
 528 , const wxString&                   rFile
 529 )
 530 {
 531     wxChar*                         zStr = NULL;
 532
 533     zStr = new wxChar[1000];
 534     bool                            bSucc = wxGetResource( rSection
 535                                                           ,rEntry
 536                                                           ,(wxChar **)&zStr
 537                                                           ,rFile
 538                                                          );
 539
 540     if (bSucc)
 541     {
 542         *pValue = (float)wxStrtod(zStr, NULL);
 543         delete[] zStr;
 544         return TRUE;
 545     }
 546     else
 547     {
 548         delete[] zStr;
 549         return FALSE;
 550     }
 551 }
 552
 553 bool wxGetResource(
 554   const wxString&                   rSection
 555 , const wxString&                   rEntry
 556 , long*                             pValue
 557 , const wxString&                   rFile
 558 )
 559 {
 560     wxChar*                           zStr = NULL;
 561
 562     zStr = new wxChar[1000];
 563     bool                              bSucc = wxGetResource( rSection
 564                                                             ,rEntry
 565                                                             ,(wxChar **)&zStr
 566                                                             ,rFile
 567                                                            );
 568
 569     if (bSucc)
 570     {
 571         *pValue = wxStrtol(zStr, NULL, 10);
 572         delete[] zStr;
 573         return TRUE;
 574     }
 575     else
 576     {
 577         delete[] zStr;
 578         return FALSE;
 579     }
 580 }
 581
 582 bool wxGetResource(
 583   const wxString&                   rSection
 584 , const wxString&                   rEntry
 585 , int*                              pValue
 586 , const wxString&                   rFile
 587 )
 588 {
 589     wxChar*                         zStr = NULL;
 590
 591     zStr = new wxChar[1000];
 592     bool                            bSucc = wxGetResource( rSection
 593                                                           ,rEntry
 594                                                           ,(wxChar **)&zStr
 595                                                           ,rFile
 596                                                          );
 597
 598     if (bSucc)
 599     {
 600         *pValue = (int)wxStrtol(zStr, NULL, 10);
 601         delete[] zStr;
 602         return TRUE;
 603     }
 604     else
 605     {
 606         delete[] zStr;
 607         return FALSE;
 608     }
 609 }
 610 #endif // wxUSE_RESOURCES
 611
 612 // ---------------------------------------------------------------------------
 613 // helper functions for showing a "busy" cursor
 614 // ---------------------------------------------------------------------------
 615
 616 HCURSOR gs_wxBusyCursor = 0;     // new, busy cursor
 617 HCURSOR gs_wxBusyCursorOld = 0;  // old cursor
 618 static int gs_wxBusyCursorCount = 0;
 619
 620 // Set the cursor to the busy cursor for all windows
 621 void wxBeginBusyCursor(
 622   wxCursor*                         pCursor
 623 )
 624 {
 625     if ( gs_wxBusyCursorCount++ == 0 )
 626     {
 627         gs_wxBusyCursor = (HCURSOR)pCursor->GetHCURSOR();
 628         ::WinSetPointer(HWND_DESKTOP, (HPOINTER)gs_wxBusyCursor);
 629     }
 630     //else: nothing to do, already set
 631 }
 632
 633 // Restore cursor to normal
 634 void wxEndBusyCursor()
 635 {
 636     wxCHECK_RET( gs_wxBusyCursorCount > 0
 637                 ,_T("no matching wxBeginBusyCursor() for wxEndBusyCursor()")
 638                );
 639
 640     if (--gs_wxBusyCursorCount == 0)
 641     {
 642         ::WinSetPointer(HWND_DESKTOP, (HPOINTER)gs_wxBusyCursorOld);
 643         gs_wxBusyCursorOld = 0;
 644     }
 645 }
 646
 647 // TRUE if we're between the above two calls
 648 bool wxIsBusy()
 649 {
 650     return (gs_wxBusyCursorCount > 0);
 651 }
 652
 653 // ---------------------------------------------------------------------------
 654 const wxChar* wxGetHomeDir(
 655   wxString*                         pStr
 656 )
 657 {
 658     wxString&                       rStrDir = *pStr;
 659
 660     // OS/2 has no idea about home,
 661     // so use the working directory instead?
 662
 663     // 256 was taken from os2def.h
 664 #ifndef MAX_PATH
 665 #  define MAX_PATH  256
 666 #endif
 667
 668     char                            zDirName[256];
 669     ULONG                           ulDirLen;
 670
 671     ::DosQueryCurrentDir(0, zDirName, &ulDirLen);
 672     rStrDir = zDirName;
 673     return rStrDir.c_str();
 674 }
 675
 676 // Hack for OS/2
 677 wxChar* wxGetUserHome (
 678   const wxString&                   rUser
 679 )
 680 {
 681     wxChar*                         zHome;
 682     wxString                        sUser1(rUser);
 683
 684     wxBuffer = new wxChar[256];
 685 #ifndef __EMX__
 686     if (sUser1 != _T(""))
 687     {
 688         wxChar                      zTmp[64];
 689
 690         if (wxGetUserId( zTmp
 691                         ,sizeof(zTmp)/sizeof(char)
 692                        ))
 693         {
 694             // Guests belong in the temp dir
 695             if (wxStricmp(zTmp, _T("annonymous")) == 0)
 696             {
 697                 if ((zHome = wxGetenv(_T("TMP"))) != NULL    ||
 698                     (zHome = wxGetenv(_T("TMPDIR"))) != NULL ||
 699                     (zHome = wxGetenv(_T("TEMP"))) != NULL)
 700                     delete[] wxBuffer;
 701                     return *zHome ? zHome : (wxChar*)_T("\\");
 702             }
 703             if (wxStricmp(zTmp, WXSTRINGCAST sUser1) == 0)
 704                 sUser1 = _T("");
 705         }
 706     }
 707 #endif
 708     if (sUser1 == _T(""))
 709     {
 710         if ((zHome = wxGetenv(_T("HOME"))) != NULL)
 711         {
 712             wxStrcpy(wxBuffer, zHome);
 713             Unix2DosFilename(wxBuffer);
 714             wxStrcpy(zHome, wxBuffer);
 715             delete[] wxBuffer;
 716             return zHome;
 717         }
 718     }
 719     delete[] wxBuffer;
 720     return NULL; // No home known!
 721 }
 722
 723 // Check whether this window wants to process messages, e.g. Stop button
 724 // in long calculations.
 725 bool wxCheckForInterrupt(
 726   wxWindow*                         pWnd
 727 )
 728 {
 729     if(pWnd)
 730     {
 731         QMSG                        vMsg;
 732         HAB                         hab = 0;
 733         HWND                        hwndFilter = NULLHANDLE;
 734         HWND                        hwndWin= (HWND) pWnd->GetHWND();
 735
 736         while(::WinPeekMsg(hab, &vMsg, hwndFilter, 0, 0, PM_REMOVE))
 737         {
 738             ::WinDispatchMsg(hab, &vMsg);
 739         }
 740         return TRUE;//*** temporary?
 741     }
 742     else
 743     {
 744         wxFAIL_MSG(_T("pWnd==NULL !!!"));
 745         return FALSE;//*** temporary?
 746     }
 747 }
 748
 749 void wxGetMousePosition(
 750   int*                              pX
 751 , int*                              pY
 752 )
 753 {
 754     POINTL                          vPt;
 755
 756     ::WinQueryPointerPos(HWND_DESKTOP, &vPt);
 757     *pX = vPt.x;
 758     *pY = vPt.y;
 759 };
 760
 761 // Return TRUE if we have a colour display
 762 bool wxColourDisplay()
 763 {
 764 #if 0
 765     HPS                             hpsScreen;
 766     HDC                             hdcScreen;
 767     LONG                            lColors;
 768
 769     hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
 770     hdcScreen = ::GpiQueryDevice(hpsScreen);
 771     ::DevQueryCaps(hdcScreen, CAPS_COLORS, 1L, &lColors);
 772     return(lColors > 1L);
 773 #else
 774     // I don't see how the PM display could not be color. Besides, this
 775     // was leaking DCs and PSs!!!  MN
 776     return TRUE;
 777 #endif
 778 }
 779
 780 // Returns depth of screen
 781 int wxDisplayDepth()
 782 {
 783     HPS                             hpsScreen;
 784     HDC                             hdcScreen;
 785     LONG                            lPlanes;
 786     LONG                            lBitsPerPixel;
 787     static LONG                     nDepth = 0;
 788
 789     // The screen colordepth ain't gonna change. No reason to query
 790     // it over and over!
 791     if (!nDepth) {
 792         hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
 793         hdcScreen = ::GpiQueryDevice(hpsScreen);
 794         ::DevQueryCaps(hdcScreen, CAPS_COLOR_PLANES, 1L, &lPlanes);
 795         ::DevQueryCaps(hdcScreen, CAPS_COLOR_BITCOUNT, 1L, &lBitsPerPixel);
 796
 797         nDepth = (int)(lPlanes * lBitsPerPixel);
 798         ::DevCloseDC(hdcScreen);
 799         ::WinReleasePS(hpsScreen);
 800     }
 801     return (nDepth);
 802 }
 803
 804 // Get size of display
 805 void wxDisplaySize(
 806   int*                              pWidth
 807 , int*                              pHeight
 808 )
 809 {
 810     HPS                             hpsScreen;
 811     HDC                             hdcScreen;
 812     static LONG                     lWidth  = 0;
 813     static LONG                     lHeight = 0;
 814
 815     // The screen size ain't gonna change either so just cache the values
 816     if (!lWidth) {
 817         hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
 818         hdcScreen = ::GpiQueryDevice(hpsScreen);
 819         ::DevQueryCaps(hdcScreen, CAPS_WIDTH, 1L, &lWidth);
 820         ::DevQueryCaps(hdcScreen, CAPS_HEIGHT, 1L, &lHeight);
 821         ::DevCloseDC(hdcScreen);
 822         ::WinReleasePS(hpsScreen);
 823     }
 824     *pWidth = (int)lWidth;
 825     *pHeight = (int)lHeight;
 826 }
 827
 828 void wxDisplaySizeMM(
 829   int*                              pWidth
 830 , int*                              pHeight
 831 )
 832 {
 833     HPS                             hpsScreen;
 834     HDC                             hdcScreen;
 835
 836     hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
 837     hdcScreen = ::GpiQueryDevice(hpsScreen);
 838
 839     if (pWidth)
 840         ::DevQueryCaps( hdcScreen
 841                        ,CAPS_HORIZONTAL_RESOLUTION
 842                        ,1L
 843                        ,(PLONG)pWidth
 844                       );
 845     if (pHeight)
 846         ::DevQueryCaps( hdcScreen
 847                        ,CAPS_VERTICAL_RESOLUTION
 848                        ,1L
 849                        ,(PLONG)pHeight
 850                       );
 851     ::DevCloseDC(hdcScreen);
 852     ::WinReleasePS(hpsScreen);
 853 }
 854
 855 void wxClientDisplayRect(int *x, int *y, int *width, int *height)
 856 {
 857     // This is supposed to return desktop dimensions minus any window
 858     // manager panels, menus, taskbars, etc.  If there is a way to do that
 859     // for this platform please fix this function, otherwise it defaults
 860     // to the entire desktop.
 861     if (x) *x = 0;
 862     if (y) *y = 0;
 863     wxDisplaySize(width, height);
 864 }
 865
 866
 867 bool wxDirExists(
 868   const wxString&                   rDir
 869 )
 870 {
 871     return (::DosSetCurrentDir(WXSTRINGCAST rDir));
 872 }
 873
 874 // ---------------------------------------------------------------------------
 875 // window information functions
 876 // ---------------------------------------------------------------------------
 877
 878 wxString WXDLLEXPORT wxGetWindowText(
 879   WXHWND                            hWnd
 880 )
 881 {
 882     wxString                        vStr;
 883     long                            lLen = ::WinQueryWindowTextLength((HWND)hWnd) + 1;
 884
 885     ::WinQueryWindowText((HWND)hWnd, lLen, vStr.GetWriteBuf((int)lLen));
 886     vStr.UngetWriteBuf();
 887
 888     return vStr;
 889 }
 890
 891 wxString WXDLLEXPORT wxGetWindowClass(
 892   WXHWND                            hWnd
 893 )
 894 {
 895     wxString                        vStr;
 896     int                             nLen = 256; // some starting value
 897
 898     for ( ;; )
 899     {
 900         int                         nCount = ::WinQueryClassName((HWND)hWnd, nLen, vStr.GetWriteBuf(nLen));
 901
 902         vStr.UngetWriteBuf();
 903         if (nCount == nLen )
 904         {
 905             // the class name might have been truncated, retry with larger
 906             // buffer
 907             nLen *= 2;
 908         }
 909         else
 910         {
 911             break;
 912         }
 913     }
 914     return vStr;
 915 }
 916
 917 WXWORD WXDLLEXPORT wxGetWindowId(
 918   WXHWND                            hWnd
 919 )
 920 {
 921     return ::WinQueryWindowUShort((HWND)hWnd, QWS_ID);
 922 }
 923
 924 wxString WXDLLEXPORT wxPMErrorToStr(
 925   ERRORID                           vError
 926 )
 927 {
 928     wxString                        sError;
 929
 930     //
 931     // Remove the high order byte -- it is useless
 932     //
 933     vError &= 0x0000ffff;
 934     switch(vError)
 935     {
 936         case PMERR_INVALID_HWND:
 937             sError = wxT("Invalid window handle specified");
 938             break;
 939
 940         case PMERR_INVALID_FLAG:
 941             sError = wxT("Invalid flag bit set");
 942             break;
 943
 944         case PMERR_NO_MSG_QUEUE:
 945             sError = wxT("No message queue available");
 946             break;
 947
 948         case PMERR_INVALID_PARM:
 949             sError = wxT("Parameter contained invalid data");
 950             break;
 951
 952         case PMERR_INVALID_PARAMETERS:
 953             sError = wxT("Parameter value is out of range");
 954             break;
 955
 956         case PMERR_PARAMETER_OUT_OF_RANGE:
 957             sError = wxT("Parameter value is out of range");
 958             break;
 959
 960         case PMERR_INVALID_INTEGER_ATOM:
 961             sError = wxT("Not a valid atom");
 962             break;
 963
 964         case PMERR_INVALID_HATOMTBL:
 965             sError = wxT("Atom table handle is invalid");
 966             break;
 967
 968         case PMERR_INVALID_ATOM_NAME:
 969             sError = wxT("Not a valid atom name");
 970             break;
 971
 972         case PMERR_ATOM_NAME_NOT_FOUND:
 973             sError = wxT("Valid name format, but cannot find name in atom table");
 974             break;
 975
 976         default:
 977             sError = wxT("Unknown error");
 978     }
 979     return(sError);
 980 } // end of wxPMErrorToStr
 981
 982 void wxDrawBorder(
 983   HPS                               hPS
 984 , RECTL&                            rRect
 985 , WXDWORD                           dwStyle
 986 )
 987 {
 988     POINTL                          vPoint[2];
 989
 990     vPoint[0].x = rRect.xLeft;
 991     vPoint[0].y = rRect.yBottom;
 992     ::GpiMove(hPS, &vPoint[0]);
 993     if (dwStyle & wxSIMPLE_BORDER ||
 994         dwStyle & wxSTATIC_BORDER)
 995     {
 996         vPoint[1].x = rRect.xRight - 1;
 997         vPoint[1].y = rRect.yTop - 1;
 998         ::GpiBox( hPS
 999                  ,DRO_OUTLINE
1000                  ,&vPoint[1]
1001                  ,0L
1002                  ,0L
1003                 );
1004     }
1005     if (dwStyle & wxSUNKEN_BORDER)
1006     {
1007         LINEBUNDLE                      vLineBundle;
1008
1009         vLineBundle.lColor     = 0x00FFFFFF; // WHITE
1010         vLineBundle.usMixMode  = FM_OVERPAINT;
1011         vLineBundle.fxWidth    = 2;
1012         vLineBundle.lGeomWidth = 2;
1013         vLineBundle.usType     = LINETYPE_SOLID;
1014         vLineBundle.usEnd      = 0;
1015         vLineBundle.usJoin     = 0;
1016         ::GpiSetAttrs( hPS
1017                       ,PRIM_LINE
1018                       ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1019                       ,0L
1020                       ,&vLineBundle
1021                      );
1022         vPoint[1].x = rRect.xRight - 1;
1023         vPoint[1].y = rRect.yTop - 1;
1024         ::GpiBox( hPS
1025                  ,DRO_OUTLINE
1026                  ,&vPoint[1]
1027                  ,0L
1028                  ,0L
1029                 );
1030        vPoint[0].x = rRect.xLeft + 1;
1031        vPoint[0].y = rRect.yBottom + 1;
1032        ::GpiMove(hPS, &vPoint[0]);
1033         vPoint[1].x = rRect.xRight - 2;
1034         vPoint[1].y = rRect.yTop - 2;
1035         ::GpiBox( hPS
1036                  ,DRO_OUTLINE
1037                  ,&vPoint[1]
1038                  ,0L
1039                  ,0L
1040                 );
1041
1042         vLineBundle.lColor     = 0x00000000; // BLACK
1043         vLineBundle.usMixMode  = FM_OVERPAINT;
1044         vLineBundle.fxWidth    = 2;
1045         vLineBundle.lGeomWidth = 2;
1046         vLineBundle.usType     = LINETYPE_SOLID;
1047         vLineBundle.usEnd      = 0;
1048         vLineBundle.usJoin     = 0;
1049         ::GpiSetAttrs( hPS
1050                       ,PRIM_LINE
1051                       ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1052                       ,0L
1053                       ,&vLineBundle
1054                      );
1055         vPoint[0].x = rRect.xLeft + 2;
1056         vPoint[0].y = rRect.yBottom + 2;
1057         ::GpiMove(hPS, &vPoint[0]);
1058         vPoint[1].x = rRect.xLeft + 2;
1059         vPoint[1].y = rRect.yTop - 3;
1060         ::GpiLine(hPS, &vPoint[1]);
1061         vPoint[1].x = rRect.xRight - 3;
1062         vPoint[1].y = rRect.yTop - 3;
1063         ::GpiLine(hPS, &vPoint[1]);
1064
1065         vPoint[0].x = rRect.xLeft + 3;
1066         vPoint[0].y = rRect.yBottom + 3;
1067         ::GpiMove(hPS, &vPoint[0]);
1068         vPoint[1].x = rRect.xLeft + 3;
1069         vPoint[1].y = rRect.yTop - 4;
1070         ::GpiLine(hPS, &vPoint[1]);
1071         vPoint[1].x = rRect.xRight - 4;
1072         vPoint[1].y = rRect.yTop - 4;
1073         ::GpiLine(hPS, &vPoint[1]);
1074     }
1075     if (dwStyle & wxDOUBLE_BORDER)
1076     {
1077         LINEBUNDLE                      vLineBundle;
1078
1079         vLineBundle.lColor     = 0x00FFFFFF; // WHITE
1080         vLineBundle.usMixMode  = FM_OVERPAINT;
1081         vLineBundle.fxWidth    = 2;
1082         vLineBundle.lGeomWidth = 2;
1083         vLineBundle.usType     = LINETYPE_SOLID;
1084         vLineBundle.usEnd      = 0;
1085         vLineBundle.usJoin     = 0;
1086         ::GpiSetAttrs( hPS
1087                       ,PRIM_LINE
1088                       ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1089                       ,0L
1090                       ,&vLineBundle
1091                      );
1092         vPoint[1].x = rRect.xRight - 1;
1093         vPoint[1].y = rRect.yTop - 1;
1094         ::GpiBox( hPS
1095                  ,DRO_OUTLINE
1096                  ,&vPoint[1]
1097                  ,0L
1098                  ,0L
1099                 );
1100         vLineBundle.lColor     = 0x00000000; // WHITE
1101         vLineBundle.usMixMode  = FM_OVERPAINT;
1102         vLineBundle.fxWidth    = 2;
1103         vLineBundle.lGeomWidth = 2;
1104         vLineBundle.usType     = LINETYPE_SOLID;
1105         vLineBundle.usEnd      = 0;
1106         vLineBundle.usJoin     = 0;
1107         ::GpiSetAttrs( hPS
1108                       ,PRIM_LINE
1109                       ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1110                       ,0L
1111                       ,&vLineBundle
1112                      );
1113         vPoint[0].x = rRect.xLeft + 2;
1114         vPoint[0].y = rRect.yBottom + 2;
1115         ::GpiMove(hPS, &vPoint[0]);
1116         vPoint[1].x = rRect.xRight - 2;
1117         vPoint[1].y = rRect.yTop - 2;
1118         ::GpiBox( hPS
1119                  ,DRO_OUTLINE
1120                  ,&vPoint[1]
1121                  ,0L
1122                  ,0L
1123                 );
1124         vLineBundle.lColor     = 0x00FFFFFF; // BLACK
1125         vLineBundle.usMixMode  = FM_OVERPAINT;
1126         vLineBundle.fxWidth    = 2;
1127         vLineBundle.lGeomWidth = 2;
1128         vLineBundle.usType     = LINETYPE_SOLID;
1129         vLineBundle.usEnd      = 0;
1130         vLineBundle.usJoin     = 0;
1131         ::GpiSetAttrs( hPS
1132                       ,PRIM_LINE
1133                       ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1134                       ,0L
1135                       ,&vLineBundle
1136                      );
1137         vPoint[0].x = rRect.xLeft + 3;
1138         vPoint[0].y = rRect.yBottom + 3;
1139         ::GpiMove(hPS, &vPoint[0]);
1140         vPoint[1].x = rRect.xRight - 3;
1141         vPoint[1].y = rRect.yTop - 3;
1142         ::GpiBox( hPS
1143                  ,DRO_OUTLINE
1144                  ,&vPoint[1]
1145                  ,0L
1146                  ,0L
1147                 );
1148     }
1149     if (dwStyle & wxRAISED_BORDER)
1150     {
1151         LINEBUNDLE                      vLineBundle;
1152
1153         vLineBundle.lColor     = 0x00000000; // BLACK
1154         vLineBundle.usMixMode  = FM_OVERPAINT;
1155         vLineBundle.fxWidth    = 2;
1156         vLineBundle.lGeomWidth = 2;
1157         vLineBundle.usType     = LINETYPE_SOLID;
1158         vLineBundle.usEnd      = 0;
1159         vLineBundle.usJoin     = 0;
1160         ::GpiSetAttrs( hPS
1161                       ,PRIM_LINE
1162                       ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1163                       ,0L
1164                       ,&vLineBundle
1165                      );
1166         vPoint[1].x = rRect.xRight - 1;
1167         vPoint[1].y = rRect.yTop - 1;
1168         ::GpiBox( hPS
1169                  ,DRO_OUTLINE
1170                  ,&vPoint[1]
1171                  ,0L
1172                  ,0L
1173                 );
1174        vPoint[0].x = rRect.xLeft + 1;
1175        vPoint[0].y = rRect.yBottom + 1;
1176        ::GpiMove(hPS, &vPoint[0]);
1177         vPoint[1].x = rRect.xRight - 2;
1178         vPoint[1].y = rRect.yTop - 2;
1179         ::GpiBox( hPS
1180                  ,DRO_OUTLINE
1181                  ,&vPoint[1]
1182                  ,0L
1183                  ,0L
1184                 );
1185
1186         vLineBundle.lColor     = 0x00FFFFFF; // WHITE
1187         vLineBundle.usMixMode  = FM_OVERPAINT;
1188         vLineBundle.fxWidth    = 2;
1189         vLineBundle.lGeomWidth = 2;
1190         vLineBundle.usType     = LINETYPE_SOLID;
1191         vLineBundle.usEnd      = 0;
1192         vLineBundle.usJoin     = 0;
1193         ::GpiSetAttrs( hPS
1194                       ,PRIM_LINE
1195                       ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1196                       ,0L
1197                       ,&vLineBundle
1198                      );
1199         vPoint[0].x = rRect.xLeft + 2;
1200         vPoint[0].y = rRect.yBottom + 2;
1201         ::GpiMove(hPS, &vPoint[0]);
1202         vPoint[1].x = rRect.xLeft + 2;
1203         vPoint[1].y = rRect.yTop - 3;
1204         ::GpiLine(hPS, &vPoint[1]);
1205         vPoint[1].x = rRect.xRight - 3;
1206         vPoint[1].y = rRect.yTop - 3;
1207         ::GpiLine(hPS, &vPoint[1]);
1208
1209         vPoint[0].x = rRect.xLeft + 3;
1210         vPoint[0].y = rRect.yBottom + 3;
1211         ::GpiMove(hPS, &vPoint[0]);
1212         vPoint[1].x = rRect.xLeft + 3;
1213         vPoint[1].y = rRect.yTop - 4;
1214         ::GpiLine(hPS, &vPoint[1]);
1215         vPoint[1].x = rRect.xRight - 4;
1216         vPoint[1].y = rRect.yTop - 4;
1217         ::GpiLine(hPS, &vPoint[1]);
1218     }
1219 } // end of wxDrawBorder
1220
1221 void wxOS2SetFont(
1222   HWND                              hWnd
1223 , const wxFont&                     rFont
1224 )
1225 {
1226     char                            zFont[128];
1227     char                            zFacename[30];
1228     char                            zWeight[30];
1229     char                            zStyle[30];
1230
1231     if (hWnd == NULLHANDLE)
1232         return;
1233
1234     //
1235     // The fonts available for Presentation Params are just three
1236     // outline fonts, the rest are available to the GPI, so we must
1237     // map the families to one of these three
1238     //
1239     switch(rFont.GetFamily())
1240     {
1241         case wxSCRIPT:
1242             strcpy(zFacename, "Script");
1243             break;
1244
1245         case wxDECORATIVE:
1246         case wxROMAN:
1247             strcpy(zFacename,"Tms Rmn");
1248             break;
1249
1250         case wxTELETYPE:
1251             strcpy(zFacename, "Courier");
1252             break;
1253
1254         case wxMODERN:
1255             strcpy(zFacename, "System VIO");
1256             break;
1257
1258         case wxSWISS:
1259             strcpy(zFacename, "Helv");
1260             break;
1261
1262         case wxDEFAULT:
1263         default:
1264             strcpy(zFacename, "System VIO");
1265             break;
1266     }
1267
1268     switch(rFont.GetWeight())
1269     {
1270         default:
1271         case wxNORMAL:
1272         case wxLIGHT:
1273             zWeight[0] = '\0';
1274             break;
1275
1276         case wxBOLD:
1277         case wxFONTWEIGHT_MAX:
1278             strcpy(zWeight, "Bold");
1279             break;
1280     }
1281
1282     switch(rFont.GetStyle())
1283     {
1284         case wxITALIC:
1285         case wxSLANT:
1286             strcpy(zStyle, "Italic");
1287             break;
1288
1289         default:
1290             zStyle[0] = '\0';
1291             break;
1292     }
1293     sprintf(zFont, "%d.%s", rFont.GetPointSize(), zFacename);
1294     if (zWeight[0] != '\0')
1295     {
1296         strcat(zFont, " ");
1297         strcat(zFont, zWeight);
1298     }
1299     if (zStyle[0] != '\0')
1300     {
1301         strcat(zFont, " ");
1302         strcat(zFont, zStyle);
1303     }
1304     ::WinSetPresParam(hWnd, PP_FONTNAMESIZE, strlen(zFont) + 1, (PVOID)zFont);
1305 } // end of wxOS2SetFont