]> 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
added bmpbase.cpp (forgotten during merge?)
[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 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#ifndef __EMX__
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// Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX)
202long wxGetFreeMemory()
203{
204 void* pMemptr = NULL;
205 ULONG lSize;
206 ULONG lMemFlags;
207 APIRET rc;
208
209 lMemFlags = PAG_FREE;
210 rc = ::DosQueryMem(pMemptr, &lSize, &lMemFlags);
211 if (rc != 0)
212 return -1L;
213 return (long)lSize;
214}
215
216// ----------------------------------------------------------------------------
217// env vars
218// ----------------------------------------------------------------------------
219
220bool wxGetEnv(const wxString& var, wxString *value)
221{
222 // wxGetenv is defined as getenv()
223 wxChar *p = wxGetenv(var);
224 if ( !p )
225 return FALSE;
226
227 if ( value )
228 {
229 *value = p;
230 }
231
232 return TRUE;
233}
234
235bool wxSetEnv(const wxString& variable, const wxChar *value)
236{
237#if defined(HAVE_SETENV)
238 return setenv(variable.mb_str(), value ? wxString(value).mb_str().data()
239 : NULL, 1 /* overwrite */) == 0;
240#elif defined(HAVE_PUTENV)
241 wxString s = variable;
242 if ( value )
243 s << _T('=') << value;
244
245 // transform to ANSI
246 const char *p = s.mb_str();
247
248 // the string will be free()d by libc
249 char *buf = (char *)malloc(strlen(p) + 1);
250 strcpy(buf, p);
251
252 return putenv(buf) == 0;
253#else // no way to set an env var
254 return FALSE;
255#endif
256}
257
258
259// Sleep for nSecs seconds. Attempt a Windows implementation using timers.
260static bool inTimer = FALSE;
261
262class wxSleepTimer: public wxTimer
263{
264public:
265 inline void Notify()
266 {
267 inTimer = FALSE;
268 Stop();
269 }
270};
271
272static wxTimer* wxTheSleepTimer = NULL;
273
274void wxUsleep(
275 unsigned long ulMilliseconds
276)
277{
278 ::DosSleep(ulMilliseconds/1000l);
279}
280
281void wxSleep(
282 int nSecs
283)
284{
285 ::DosSleep(1000 * nSecs);
286}
287
288// Consume all events until no more left
289void wxFlushEvents()
290{
291// wxYield();
292}
293
294// Output a debug mess., in a system dependent fashion.
295void wxDebugMsg(
296 const wxChar* zFmt ...
297)
298{
299 va_list vAp;
300 static wxChar zBuffer[512];
301
302 if (!wxTheApp->GetWantDebugOutput())
303 return ;
304 va_start(vAp, zFmt);
305 sprintf(zBuffer, zFmt, vAp) ;
306 va_end(vAp);
307}
308
309// Non-fatal error: pop up message box and (possibly) continue
310void wxError(
311 const wxString& rMsg
312, const wxString& rTitle
313)
314{
315 wxBuffer = new wxChar[256];
316 wxSprintf(wxBuffer, "%s\nContinue?", WXSTRINGCAST rMsg);
317 if (::WinMessageBox( HWND_DESKTOP
318 ,NULL
319 ,(PSZ)wxBuffer
320 ,(PSZ)WXSTRINGCAST rTitle
321 ,0
322 ,MB_ICONEXCLAMATION | MB_YESNO
323 ) == MBID_YES)
324 delete[] wxBuffer;
325 wxExit();
326}
327
328// Fatal error: pop up message box and abort
329void wxFatalError(
330 const wxString& rMsg
331, const wxString& rTitle
332)
333{
334 unsigned long ulRc;
335
336 ulRc = ::WinMessageBox( HWND_DESKTOP
337 ,NULL
338 ,WXSTRINGCAST rMsg
339 ,WXSTRINGCAST rTitle
340 ,0
341 ,MB_NOICON | MB_OK
342 );
343 DosExit(EXIT_PROCESS, ulRc);
344}
345
346// Emit a beeeeeep
347void wxBell()
348{
349 DosBeep(1000,1000); // 1kHz during 1 sec.
350}
351
352// Chris Breeze 27/5/98: revised WIN32 code to
353// detect WindowsNT correctly
354int wxGetOsVersion(
355 int* pMajorVsn
356, int* pMinorVsn
357)
358{
359 ULONG ulSysInfo[QSV_MAX] = {0};
360 APIRET ulrc;
361
362 ulrc = ::DosQuerySysInfo( 1L
363 ,QSV_MAX
364 ,(PVOID)ulSysInfo
365 ,sizeof(ULONG) * QSV_MAX
366 );
367 if (ulrc == 0L)
368 {
369 *pMajorVsn = ulSysInfo[QSV_VERSION_MAJOR];
370 *pMajorVsn = *pMajorVsn/10;
371 *pMinorVsn = ulSysInfo[QSV_VERSION_MINOR];
372 return wxWINDOWS_OS2;
373 }
374 return wxWINDOWS; // error if we get here, return generic value
375}
376
377// Reading and writing resources (eg WIN.INI, .Xdefaults)
378#if wxUSE_RESOURCES
379bool wxWriteResource(
380 const wxString& rSection
381, const wxString& rEntry
382, const wxString& rValue
383, const wxString& rFile
384)
385{
386 HAB hab = 0;
387 HINI hIni = 0;
388
389 if (rFile != "")
390 {
391 hIni = ::PrfOpenProfile(hab, (PSZ)WXSTRINGCAST rFile);
392 if (hIni != 0L)
393 {
394 return (::PrfWriteProfileString( hIni
395 ,(PSZ)WXSTRINGCAST rSection
396 ,(PSZ)WXSTRINGCAST rEntry
397 ,(PSZ)WXSTRINGCAST rValue
398 ));
399 }
400 }
401 else
402 return (::PrfWriteProfileString( HINI_PROFILE
403 ,(PSZ)WXSTRINGCAST rSection
404 ,(PSZ)WXSTRINGCAST rEntry
405 ,(PSZ)WXSTRINGCAST rValue
406 ));
407 return FALSE;
408}
409
410bool wxWriteResource(
411 const wxString& rSection
412, const wxString& rEntry
413, float fValue
414, const wxString& rFile
415)
416{
417 wxChar zBuf[50];
418
419 wxSprintf(zBuf, "%.4f", fValue);
420 return wxWriteResource( rSection
421 ,rEntry
422 ,zBuf
423 ,rFile
424 );
425}
426
427bool wxWriteResource(
428 const wxString& rSection
429, const wxString& rEntry
430, long lValue
431, const wxString& rFile
432)
433{
434 wxChar zBuf[50];
435
436 wxSprintf(zBuf, "%ld", lValue);
437 return wxWriteResource( rSection
438 ,rEntry
439 ,zBuf
440 ,rFile
441 );
442}
443
444bool wxWriteResource(
445 const wxString& rSection
446, const wxString& rEntry
447, int lValue
448, const wxString& rFile
449)
450{
451 wxChar zBuf[50];
452
453 wxSprintf(zBuf, "%d", lValue);
454 return wxWriteResource( rSection
455 ,rEntry
456 ,zBuf
457 ,rFile
458 );
459}
460
461bool wxGetResource(
462 const wxString& rSection
463, const wxString& rEntry
464, wxChar** ppValue
465, const wxString& rFile
466)
467{
468 HAB hab = 0;
469 HINI hIni = 0;
470 wxChar zDefunkt[] = _T("$$default");
471 char zBuf[1000];
472
473 if (rFile != "")
474 {
475 hIni = ::PrfOpenProfile(hab, (PSZ)WXSTRINGCAST rFile);
476 if (hIni != 0L)
477 {
478 ULONG n = ::PrfQueryProfileString( hIni
479 ,(PSZ)WXSTRINGCAST rSection
480 ,(PSZ)WXSTRINGCAST rEntry
481 ,(PSZ)zDefunkt
482 ,(PVOID)zBuf
483 ,1000
484 );
485 if (zBuf == NULL)
486 return FALSE;
487 if (n == 0L || wxStrcmp(zBuf, zDefunkt) == 0)
488 return FALSE;
489 zBuf[n-1] = '\0';
490 }
491 else
492 return FALSE;
493 }
494 else
495 {
496 ULONG n = ::PrfQueryProfileString( HINI_PROFILE
497 ,(PSZ)WXSTRINGCAST rSection
498 ,(PSZ)WXSTRINGCAST rEntry
499 ,(PSZ)zDefunkt
500 ,(PVOID)zBuf
501 ,1000
502 );
503 if (zBuf == NULL)
504 return FALSE;
505 if (n == 0L || wxStrcmp(zBuf, zDefunkt) == 0)
506 return FALSE;
507 zBuf[n-1] = '\0';
508 }
509 strcpy((char*)*ppValue, zBuf);
510 return TRUE;
511}
512
513bool wxGetResource(
514 const wxString& rSection
515, const wxString& rEntry
516, float* pValue
517, const wxString& rFile
518)
519{
520 wxChar* zStr = NULL;
521
522 zStr = new wxChar[1000];
523 bool bSucc = wxGetResource( rSection
524 ,rEntry
525 ,(wxChar **)&zStr
526 ,rFile
527 );
528
529 if (bSucc)
530 {
531 *pValue = (float)wxStrtod(zStr, NULL);
532 delete[] zStr;
533 return TRUE;
534 }
535 else
536 {
537 delete[] zStr;
538 return FALSE;
539 }
540}
541
542bool wxGetResource(
543 const wxString& rSection
544, const wxString& rEntry
545, long* pValue
546, const wxString& rFile
547)
548{
549 wxChar* zStr = NULL;
550
551 zStr = new wxChar[1000];
552 bool bSucc = wxGetResource( rSection
553 ,rEntry
554 ,(wxChar **)&zStr
555 ,rFile
556 );
557
558 if (bSucc)
559 {
560 *pValue = wxStrtol(zStr, NULL, 10);
561 delete[] zStr;
562 return TRUE;
563 }
564 else
565 {
566 delete[] zStr;
567 return FALSE;
568 }
569}
570
571bool wxGetResource(
572 const wxString& rSection
573, const wxString& rEntry
574, int* pValue
575, const wxString& rFile
576)
577{
578 wxChar* zStr = NULL;
579
580 zStr = new wxChar[1000];
581 bool bSucc = wxGetResource( rSection
582 ,rEntry
583 ,(wxChar **)&zStr
584 ,rFile
585 );
586
587 if (bSucc)
588 {
589 *pValue = (int)wxStrtol(zStr, NULL, 10);
590 delete[] zStr;
591 return TRUE;
592 }
593 else
594 {
595 delete[] zStr;
596 return FALSE;
597 }
598}
599#endif // wxUSE_RESOURCES
600
601// ---------------------------------------------------------------------------
602// helper functions for showing a "busy" cursor
603// ---------------------------------------------------------------------------
604
605HCURSOR gs_wxBusyCursor = 0; // new, busy cursor
606HCURSOR gs_wxBusyCursorOld = 0; // old cursor
607static int gs_wxBusyCursorCount = 0;
608
609// Set the cursor to the busy cursor for all windows
610void wxBeginBusyCursor(
611 wxCursor* pCursor
612)
613{
614 if ( gs_wxBusyCursorCount++ == 0 )
615 {
616 gs_wxBusyCursor = (HCURSOR)pCursor->GetHCURSOR();
617 ::WinSetPointer(HWND_DESKTOP, (HPOINTER)gs_wxBusyCursor);
618 }
619 //else: nothing to do, already set
620}
621
622// Restore cursor to normal
623void wxEndBusyCursor()
624{
625 wxCHECK_RET( gs_wxBusyCursorCount > 0
626 ,_T("no matching wxBeginBusyCursor() for wxEndBusyCursor()")
627 );
628
629 if (--gs_wxBusyCursorCount == 0)
630 {
631 ::WinSetPointer(HWND_DESKTOP, (HPOINTER)gs_wxBusyCursorOld);
632 gs_wxBusyCursorOld = 0;
633 }
634}
635
636// TRUE if we're between the above two calls
637bool wxIsBusy()
638{
639 return (gs_wxBusyCursorCount > 0);
640}
641
642// ---------------------------------------------------------------------------
643const wxChar* wxGetHomeDir(
644 wxString* pStr
645)
646{
647 wxString& rStrDir = *pStr;
648
649 // OS/2 has no idea about home,
650 // so use the working directory instead?
651
652 // 256 was taken from os2def.h
653#ifndef MAX_PATH
654# define MAX_PATH 256
655#endif
656
657 char zDirName[256];
658 ULONG ulDirLen;
659
660 ::DosQueryCurrentDir(0, zDirName, &ulDirLen);
661 rStrDir = zDirName;
662 return rStrDir.c_str();
663}
664
665// Hack for OS/2
666wxChar* wxGetUserHome (
667 const wxString& rUser
668)
669{
670 wxChar* zHome;
671 wxString sUser1(rUser);
672
673 wxBuffer = new wxChar[256];
674#ifndef __EMX__
675 if (sUser1 != _T(""))
676 {
677 wxChar zTmp[64];
678
679 if (wxGetUserId( zTmp
680 ,sizeof(zTmp)/sizeof(char)
681 ))
682 {
683 // Guests belong in the temp dir
684 if (wxStricmp(zTmp, _T("annonymous")) == 0)
685 {
686 if ((zHome = wxGetenv(_T("TMP"))) != NULL ||
687 (zHome = wxGetenv(_T("TMPDIR"))) != NULL ||
688 (zHome = wxGetenv(_T("TEMP"))) != NULL)
689 delete[] wxBuffer;
690 return *zHome ? zHome : (wxChar*)_T("\\");
691 }
692 if (wxStricmp(zTmp, WXSTRINGCAST sUser1) == 0)
693 sUser1 = _T("");
694 }
695 }
696#endif
697 if (sUser1 == _T(""))
698 {
699 if ((zHome = wxGetenv(_T("HOME"))) != NULL)
700 {
701 wxStrcpy(wxBuffer, zHome);
702 Unix2DosFilename(wxBuffer);
703 wxStrcpy(zHome, wxBuffer);
704 delete[] wxBuffer;
705 return zHome;
706 }
707 }
708 delete[] wxBuffer;
709 return NULL; // No home known!
710}
711
712// Check whether this window wants to process messages, e.g. Stop button
713// in long calculations.
714bool wxCheckForInterrupt(
715 wxWindow* pWnd
716)
717{
718 if(pWnd)
719 {
720 QMSG vMsg;
721 HAB hab = 0;
722 HWND hwndFilter = NULLHANDLE;
723 HWND hwndWin= (HWND) pWnd->GetHWND();
724
725 while(::WinPeekMsg(hab, &vMsg, hwndFilter, 0, 0, PM_REMOVE))
726 {
727 ::WinDispatchMsg(hab, &vMsg);
728 }
729 return TRUE;//*** temporary?
730 }
731 else
732 {
733 wxFAIL_MSG(_T("pWnd==NULL !!!"));
734 return FALSE;//*** temporary?
735 }
736}
737
738void wxGetMousePosition(
739 int* pX
740, int* pY
741)
742{
743 POINTL vPt;
744
745 ::WinQueryPointerPos(HWND_DESKTOP, &vPt);
746 *pX = vPt.x;
747 *pY = vPt.y;
748};
749
750// Return TRUE if we have a colour display
751bool wxColourDisplay()
752{
753 HPS hpsScreen;
754 HDC hdcScreen;
755 LONG lColors;
756
757 hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
758 hdcScreen = ::GpiQueryDevice(hpsScreen);
759 ::DevQueryCaps(hdcScreen, CAPS_COLORS, 1L, &lColors);
760 return(lColors > 1L);
761}
762
763// Returns depth of screen
764int wxDisplayDepth()
765{
766 HPS hpsScreen;
767 HDC hdcScreen;
768 LONG lPlanes;
769 LONG lBitsPerPixel;
770 LONG nDepth;
771
772 hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
773 hdcScreen = ::GpiQueryDevice(hpsScreen);
774 ::DevQueryCaps(hdcScreen, CAPS_COLOR_PLANES, 1L, &lPlanes);
775 ::DevQueryCaps(hdcScreen, CAPS_COLOR_BITCOUNT, 1L, &lBitsPerPixel);
776
777 nDepth = (int)(lPlanes * lBitsPerPixel);
778 DevCloseDC(hdcScreen);
779 return (nDepth);
780}
781
782// Get size of display
783void wxDisplaySize(
784 int* pWidth
785, int* pHeight
786)
787{
788 HPS hpsScreen;
789 HDC hdcScreen;
790 LONG lWidth;
791 LONG lHeight;
792
793 hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
794 hdcScreen = ::GpiQueryDevice(hpsScreen);
795 ::DevQueryCaps(hdcScreen, CAPS_WIDTH, 1L, &lWidth);
796 ::DevQueryCaps(hdcScreen, CAPS_HEIGHT, 1L, &lHeight);
797 DevCloseDC(hdcScreen);
798 *pWidth = (int)lWidth;
799 *pHeight = (int)lHeight;
800}
801
802void wxDisplaySizeMM(
803 int* pWidth
804, int* pHeight
805)
806{
807 HPS hpsScreen;
808 HDC hdcScreen;
809
810 hpsScreen = ::WinGetScreenPS(HWND_DESKTOP);
811 hdcScreen = ::GpiQueryDevice(hpsScreen);
812
813 if (pWidth)
814 ::DevQueryCaps( hdcScreen
815 ,CAPS_HORIZONTAL_RESOLUTION
816 ,1L
817 ,(PLONG)pWidth
818 );
819 if (pHeight)
820 ::DevQueryCaps( hdcScreen
821 ,CAPS_VERTICAL_RESOLUTION
822 ,1L
823 ,(PLONG)pHeight
824 );
825}
826
827void wxClientDisplayRect(int *x, int *y, int *width, int *height)
828{
829 // This is supposed to return desktop dimensions minus any window
830 // manager panels, menus, taskbars, etc. If there is a way to do that
831 // for this platform please fix this function, otherwise it defaults
832 // to the entire desktop.
833 if (x) *x = 0;
834 if (y) *y = 0;
835 wxDisplaySize(width, height);
836}
837
838
839bool wxDirExists(
840 const wxString& rDir
841)
842{
843 return (::DosSetCurrentDir(WXSTRINGCAST rDir));
844}
845
846// ---------------------------------------------------------------------------
847// window information functions
848// ---------------------------------------------------------------------------
849
850wxString WXDLLEXPORT wxGetWindowText(
851 WXHWND hWnd
852)
853{
854 wxString vStr;
855 long lLen = ::WinQueryWindowTextLength((HWND)hWnd) + 1;
856
857 ::WinQueryWindowText((HWND)hWnd, lLen, vStr.GetWriteBuf((int)lLen));
858 vStr.UngetWriteBuf();
859
860 return vStr;
861}
862
863wxString WXDLLEXPORT wxGetWindowClass(
864 WXHWND hWnd
865)
866{
867 wxString vStr;
868 int nLen = 256; // some starting value
869
870 for ( ;; )
871 {
872 int nCount = ::WinQueryClassName((HWND)hWnd, nLen, vStr.GetWriteBuf(nLen));
873
874 vStr.UngetWriteBuf();
875 if (nCount == nLen )
876 {
877 // the class name might have been truncated, retry with larger
878 // buffer
879 nLen *= 2;
880 }
881 else
882 {
883 break;
884 }
885 }
886 return vStr;
887}
888
889WXWORD WXDLLEXPORT wxGetWindowId(
890 WXHWND hWnd
891)
892{
893 return ::WinQueryWindowUShort((HWND)hWnd, QWS_ID);
894}
895
896wxString WXDLLEXPORT wxPMErrorToStr(
897 ERRORID vError
898)
899{
900 wxString sError;
901
902 //
903 // Remove the high order byte -- it is useless
904 //
905 vError &= 0x0000ffff;
906 switch(vError)
907 {
908 case PMERR_INVALID_HWND:
909 sError = wxT("Invalid window handle specified");
910 break;
911
912 case PMERR_INVALID_FLAG:
913 sError = wxT("Invalid flag bit set");
914 break;
915
916 case PMERR_NO_MSG_QUEUE:
917 sError = wxT("No message queue available");
918 break;
919
920 case PMERR_INVALID_PARM:
921 sError = wxT("Parameter contained invalid data");
922 break;
923
924 case PMERR_INVALID_PARAMETERS:
925 sError = wxT("Parameter value is out of range");
926 break;
927
928 case PMERR_PARAMETER_OUT_OF_RANGE:
929 sError = wxT("Parameter value is out of range");
930 break;
931
932 case PMERR_INVALID_INTEGER_ATOM:
933 sError = wxT("Not a valid atom");
934 break;
935
936 case PMERR_INVALID_HATOMTBL:
937 sError = wxT("Atom table handle is invalid");
938 break;
939
940 case PMERR_INVALID_ATOM_NAME:
941 sError = wxT("Not a valid atom name");
942 break;
943
944 case PMERR_ATOM_NAME_NOT_FOUND:
945 sError = wxT("Valid name format, but cannot find name in atom table");
946 break;
947
948 default:
949 sError = wxT("Unknown error");
950 }
951 return(sError);
952} // end of wxPMErrorToStr
953
954void wxDrawBorder(
955 HPS hPS
956, RECTL& rRect
957, WXDWORD dwStyle
958)
959{
960 POINTL vPoint[2];
961
962 vPoint[0].x = rRect.xLeft;
963 vPoint[0].y = rRect.yBottom;
964 ::GpiMove(hPS, &vPoint[0]);
965 if (dwStyle & wxSIMPLE_BORDER ||
966 dwStyle & wxSTATIC_BORDER)
967 {
968 vPoint[1].x = rRect.xRight - 1;
969 vPoint[1].y = rRect.yTop - 1;
970 ::GpiBox( hPS
971 ,DRO_OUTLINE
972 ,&vPoint[1]
973 ,0L
974 ,0L
975 );
976 }
977 if (dwStyle & wxSUNKEN_BORDER)
978 {
979 LINEBUNDLE vLineBundle;
980
981 vLineBundle.lColor = 0x00FFFFFF; // WHITE
982 vLineBundle.usMixMode = FM_OVERPAINT;
983 vLineBundle.fxWidth = 2;
984 vLineBundle.lGeomWidth = 2;
985 vLineBundle.usType = LINETYPE_SOLID;
986 vLineBundle.usEnd = 0;
987 vLineBundle.usJoin = 0;
988 ::GpiSetAttrs( hPS
989 ,PRIM_LINE
990 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
991 ,0L
992 ,&vLineBundle
993 );
994 vPoint[1].x = rRect.xRight - 1;
995 vPoint[1].y = rRect.yTop - 1;
996 ::GpiBox( hPS
997 ,DRO_OUTLINE
998 ,&vPoint[1]
999 ,0L
1000 ,0L
1001 );
1002 vPoint[0].x = rRect.xLeft + 1;
1003 vPoint[0].y = rRect.yBottom + 1;
1004 ::GpiMove(hPS, &vPoint[0]);
1005 vPoint[1].x = rRect.xRight - 2;
1006 vPoint[1].y = rRect.yTop - 2;
1007 ::GpiBox( hPS
1008 ,DRO_OUTLINE
1009 ,&vPoint[1]
1010 ,0L
1011 ,0L
1012 );
1013
1014 vLineBundle.lColor = 0x00000000; // BLACK
1015 vLineBundle.usMixMode = FM_OVERPAINT;
1016 vLineBundle.fxWidth = 2;
1017 vLineBundle.lGeomWidth = 2;
1018 vLineBundle.usType = LINETYPE_SOLID;
1019 vLineBundle.usEnd = 0;
1020 vLineBundle.usJoin = 0;
1021 ::GpiSetAttrs( hPS
1022 ,PRIM_LINE
1023 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1024 ,0L
1025 ,&vLineBundle
1026 );
1027 vPoint[0].x = rRect.xLeft + 2;
1028 vPoint[0].y = rRect.yBottom + 2;
1029 ::GpiMove(hPS, &vPoint[0]);
1030 vPoint[1].x = rRect.xLeft + 2;
1031 vPoint[1].y = rRect.yTop - 3;
1032 ::GpiLine(hPS, &vPoint[1]);
1033 vPoint[1].x = rRect.xRight - 3;
1034 vPoint[1].y = rRect.yTop - 3;
1035 ::GpiLine(hPS, &vPoint[1]);
1036
1037 vPoint[0].x = rRect.xLeft + 3;
1038 vPoint[0].y = rRect.yBottom + 3;
1039 ::GpiMove(hPS, &vPoint[0]);
1040 vPoint[1].x = rRect.xLeft + 3;
1041 vPoint[1].y = rRect.yTop - 4;
1042 ::GpiLine(hPS, &vPoint[1]);
1043 vPoint[1].x = rRect.xRight - 4;
1044 vPoint[1].y = rRect.yTop - 4;
1045 ::GpiLine(hPS, &vPoint[1]);
1046 }
1047 if (dwStyle & wxDOUBLE_BORDER)
1048 {
1049 LINEBUNDLE vLineBundle;
1050
1051 vLineBundle.lColor = 0x00FFFFFF; // WHITE
1052 vLineBundle.usMixMode = FM_OVERPAINT;
1053 vLineBundle.fxWidth = 2;
1054 vLineBundle.lGeomWidth = 2;
1055 vLineBundle.usType = LINETYPE_SOLID;
1056 vLineBundle.usEnd = 0;
1057 vLineBundle.usJoin = 0;
1058 ::GpiSetAttrs( hPS
1059 ,PRIM_LINE
1060 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1061 ,0L
1062 ,&vLineBundle
1063 );
1064 vPoint[1].x = rRect.xRight - 1;
1065 vPoint[1].y = rRect.yTop - 1;
1066 ::GpiBox( hPS
1067 ,DRO_OUTLINE
1068 ,&vPoint[1]
1069 ,0L
1070 ,0L
1071 );
1072 vLineBundle.lColor = 0x00000000; // WHITE
1073 vLineBundle.usMixMode = FM_OVERPAINT;
1074 vLineBundle.fxWidth = 2;
1075 vLineBundle.lGeomWidth = 2;
1076 vLineBundle.usType = LINETYPE_SOLID;
1077 vLineBundle.usEnd = 0;
1078 vLineBundle.usJoin = 0;
1079 ::GpiSetAttrs( hPS
1080 ,PRIM_LINE
1081 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1082 ,0L
1083 ,&vLineBundle
1084 );
1085 vPoint[0].x = rRect.xLeft + 2;
1086 vPoint[0].y = rRect.yBottom + 2;
1087 ::GpiMove(hPS, &vPoint[0]);
1088 vPoint[1].x = rRect.xRight - 2;
1089 vPoint[1].y = rRect.yTop - 2;
1090 ::GpiBox( hPS
1091 ,DRO_OUTLINE
1092 ,&vPoint[1]
1093 ,0L
1094 ,0L
1095 );
1096 vLineBundle.lColor = 0x00FFFFFF; // BLACK
1097 vLineBundle.usMixMode = FM_OVERPAINT;
1098 vLineBundle.fxWidth = 2;
1099 vLineBundle.lGeomWidth = 2;
1100 vLineBundle.usType = LINETYPE_SOLID;
1101 vLineBundle.usEnd = 0;
1102 vLineBundle.usJoin = 0;
1103 ::GpiSetAttrs( hPS
1104 ,PRIM_LINE
1105 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1106 ,0L
1107 ,&vLineBundle
1108 );
1109 vPoint[0].x = rRect.xLeft + 3;
1110 vPoint[0].y = rRect.yBottom + 3;
1111 ::GpiMove(hPS, &vPoint[0]);
1112 vPoint[1].x = rRect.xRight - 3;
1113 vPoint[1].y = rRect.yTop - 3;
1114 ::GpiBox( hPS
1115 ,DRO_OUTLINE
1116 ,&vPoint[1]
1117 ,0L
1118 ,0L
1119 );
1120 }
1121 if (dwStyle & wxRAISED_BORDER)
1122 {
1123 LINEBUNDLE vLineBundle;
1124
1125 vLineBundle.lColor = 0x00000000; // BLACK
1126 vLineBundle.usMixMode = FM_OVERPAINT;
1127 vLineBundle.fxWidth = 2;
1128 vLineBundle.lGeomWidth = 2;
1129 vLineBundle.usType = LINETYPE_SOLID;
1130 vLineBundle.usEnd = 0;
1131 vLineBundle.usJoin = 0;
1132 ::GpiSetAttrs( hPS
1133 ,PRIM_LINE
1134 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1135 ,0L
1136 ,&vLineBundle
1137 );
1138 vPoint[1].x = rRect.xRight - 1;
1139 vPoint[1].y = rRect.yTop - 1;
1140 ::GpiBox( hPS
1141 ,DRO_OUTLINE
1142 ,&vPoint[1]
1143 ,0L
1144 ,0L
1145 );
1146 vPoint[0].x = rRect.xLeft + 1;
1147 vPoint[0].y = rRect.yBottom + 1;
1148 ::GpiMove(hPS, &vPoint[0]);
1149 vPoint[1].x = rRect.xRight - 2;
1150 vPoint[1].y = rRect.yTop - 2;
1151 ::GpiBox( hPS
1152 ,DRO_OUTLINE
1153 ,&vPoint[1]
1154 ,0L
1155 ,0L
1156 );
1157
1158 vLineBundle.lColor = 0x00FFFFFF; // WHITE
1159 vLineBundle.usMixMode = FM_OVERPAINT;
1160 vLineBundle.fxWidth = 2;
1161 vLineBundle.lGeomWidth = 2;
1162 vLineBundle.usType = LINETYPE_SOLID;
1163 vLineBundle.usEnd = 0;
1164 vLineBundle.usJoin = 0;
1165 ::GpiSetAttrs( hPS
1166 ,PRIM_LINE
1167 ,LBB_COLOR | LBB_MIX_MODE | LBB_WIDTH | LBB_GEOM_WIDTH | LBB_TYPE
1168 ,0L
1169 ,&vLineBundle
1170 );
1171 vPoint[0].x = rRect.xLeft + 2;
1172 vPoint[0].y = rRect.yBottom + 2;
1173 ::GpiMove(hPS, &vPoint[0]);
1174 vPoint[1].x = rRect.xLeft + 2;
1175 vPoint[1].y = rRect.yTop - 3;
1176 ::GpiLine(hPS, &vPoint[1]);
1177 vPoint[1].x = rRect.xRight - 3;
1178 vPoint[1].y = rRect.yTop - 3;
1179 ::GpiLine(hPS, &vPoint[1]);
1180
1181 vPoint[0].x = rRect.xLeft + 3;
1182 vPoint[0].y = rRect.yBottom + 3;
1183 ::GpiMove(hPS, &vPoint[0]);
1184 vPoint[1].x = rRect.xLeft + 3;
1185 vPoint[1].y = rRect.yTop - 4;
1186 ::GpiLine(hPS, &vPoint[1]);
1187 vPoint[1].x = rRect.xRight - 4;
1188 vPoint[1].y = rRect.yTop - 4;
1189 ::GpiLine(hPS, &vPoint[1]);
1190 }
1191} // end of wxDrawBorder
1192
wxWidgets (Impactor)