projects / wxWidgets.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
old compilation fix for AIX from Ian Brown
[wxWidgets.git] / src / os2 / utils.cpp
0 / 1305 (  0%)
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 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
49static const wxChar WX_SECTION[] = _T("wxWindows");
50static const wxChar eHOSTNAME[] = _T("HostName");
51static const wxChar eUSERID[] = _T("UserId");
52static 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)
60bool 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
103bool 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
117bool 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
132int 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//
144bool 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
202bool 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)
209long 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
227bool 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
242bool 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.
267static bool inTimer = FALSE;
268
269class wxSleepTimer: public wxTimer
270{
271public:
272 inline void Notify()
273 {
274 inTimer = FALSE;
275 Stop();
276 }
277};
278
279static wxTimer* wxTheSleepTimer = NULL;
280
281void wxUsleep(
282 unsigned long ulMilliseconds
283)
284{
285 ::DosSleep(ulMilliseconds/1000l);
286}
287
288void wxSleep(
289 int nSecs
290)
291{
292 ::DosSleep(1000 * nSecs);
293}
294
295// Consume all events until no more left
296void wxFlushEvents()
297{
298// wxYield();
299}
300
301#if WXWIN_COMPATIBILITY_2_2
302
303// Output a debug mess., in a system dependent fashion.
304void 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
319void 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
338void 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
358void 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
365int 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
390bool 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
421bool 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
438bool 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
455bool 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
472bool 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
524bool 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
553bool 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
582bool 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
616HCURSOR gs_wxBusyCursor = 0; // new, busy cursor
617HCURSOR gs_wxBusyCursorOld = 0; // old cursor
618static int gs_wxBusyCursorCount = 0;
619
620// Set the cursor to the busy cursor for all windows
621void 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
634void 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
648bool wxIsBusy()
649{
650 return (gs_wxBusyCursorCount > 0);
651}
652
653// ---------------------------------------------------------------------------
654const 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
677wxChar* 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.
725bool 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
749void 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
762bool 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
781int 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
805void 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
828void 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
855void 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
867bool wxDirExists(
868 const wxString& rDir
869)
870{
871 return (::DosSetCurrentDir(WXSTRINGCAST rDir));
872}
873
874// ---------------------------------------------------------------------------
875// window information functions
876// ---------------------------------------------------------------------------
877
878wxString 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
891wxString 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
917WXWORD WXDLLEXPORT wxGetWindowId(
918 WXHWND hWnd
919)
920{
921 return ::WinQueryWindowUShort((HWND)hWnd, QWS_ID);
922}
923
924wxString 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
982void 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
1221void 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 a few
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 strcpy(zFacename, "WarpSans");
1247 break;
1248
1249 case wxROMAN:
1250 strcpy(zFacename,"Times New Roman");
1251 break;
1252
1253 case wxTELETYPE:
1254 strcpy(zFacename, "Courier New");
1255 break;
1256
1257 case wxMODERN:
1258 strcpy(zFacename, "Courier New");
1259 break;
1260
1261 case wxDEFAULT:
1262 default:
1263 case wxSWISS:
1264 strcpy(zFacename, "Helvetica");
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
wxWidgets (Impactor)