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