1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: Miscellaneous utilities
4 // Author: Julian Smart
8 // Copyright: (c) 1998 Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
15 // ----------------------------------------------------------------------------
17 // ----------------------------------------------------------------------------
19 #include "wx/object.h"
21 #include "wx/filefn.h"
23 #include "wx/gdicmn.h"
26 class WXDLLIMPEXP_BASE wxArrayString
;
27 class WXDLLIMPEXP_BASE wxArrayInt
;
29 // need this for wxGetDiskSpace() as we can't, unfortunately, forward declare
31 #include "wx/longlong.h"
33 // need for wxOperatingSystemId
34 #include "wx/platinfo.h"
45 // ----------------------------------------------------------------------------
46 // Forward declaration
47 // ----------------------------------------------------------------------------
49 class WXDLLIMPEXP_CORE wxProcess
;
50 class WXDLLIMPEXP_CORE wxFrame
;
51 class WXDLLIMPEXP_CORE wxWindow
;
52 class WXDLLIMPEXP_CORE wxWindowList
;
54 // ----------------------------------------------------------------------------
56 // ----------------------------------------------------------------------------
58 #define wxMax(a,b) (((a) > (b)) ? (a) : (b))
59 #define wxMin(a,b) (((a) < (b)) ? (a) : (b))
60 #define wxClip(a,b,c) (((a) < (b)) ? (b) : (((a) > (c)) ? (c) : (a)))
62 // wxGetFreeMemory can return huge amount of memory on 32-bit platforms as well
63 // so to always use long long for its result type on all platforms which
66 typedef wxLongLong wxMemorySize
;
68 typedef long wxMemorySize
;
71 // ----------------------------------------------------------------------------
72 // String functions (deprecated, use wxString)
73 // ----------------------------------------------------------------------------
75 // A shorter way of using strcmp
76 #define wxStringEq(s1, s2) (s1 && s2 && (wxStrcmp(s1, s2) == 0))
78 // ----------------------------------------------------------------------------
79 // Miscellaneous functions
80 // ----------------------------------------------------------------------------
83 #if !defined __EMX__ && \
84 (defined __WXMOTIF__ || defined __WXGTK__ || defined __WXX11__)
85 WXDLLIMPEXP_CORE
void wxBell();
87 WXDLLIMPEXP_BASE
void wxBell();
90 // Get OS description as a user-readable string
91 WXDLLIMPEXP_BASE wxString
wxGetOsDescription();
94 WXDLLIMPEXP_BASE wxOperatingSystemId
wxGetOsVersion(int *majorVsn
= (int *) NULL
,
95 int *minorVsn
= (int *) NULL
);
97 // Get platform endianness
98 WXDLLIMPEXP_BASE
bool wxIsPlatformLittleEndian();
100 // Get platform architecture
101 WXDLLIMPEXP_BASE
bool wxIsPlatform64Bit();
103 // Return a string with the current date/time
104 WXDLLIMPEXP_BASE wxString
wxNow();
106 // Return path where wxWidgets is installed (mostly useful in Unices)
107 WXDLLIMPEXP_BASE
const wxChar
*wxGetInstallPrefix();
108 // Return path to wxWin data (/usr/share/wx/%{version}) (Unices)
109 WXDLLIMPEXP_BASE wxString
wxGetDataDir();
112 * Class to make it easier to specify platform-dependent values
115 * long val = wxPlatform::If(wxMac, 1).ElseIf(wxGTK, 2).ElseIf(stPDA, 5).Else(3);
116 * wxString strVal = wxPlatform::If(wxMac, wxT("Mac")).ElseIf(wxMSW, wxT("MSW")).Else(wxT("Other"));
118 * A custom platform symbol:
122 * wxPlatform::AddPlatform(stPDA);
125 * long windowStyle = wxCAPTION | (long) wxPlatform::IfNot(stPDA, wxRESIZE_BORDER);
129 class WXDLLIMPEXP_BASE wxPlatform
132 wxPlatform() { Init(); }
133 wxPlatform(const wxPlatform
& platform
) { Copy(platform
); }
134 void operator = (const wxPlatform
& platform
) { Copy(platform
); }
135 void Copy(const wxPlatform
& platform
);
137 // Specify an optional default value
138 wxPlatform(int defValue
) { Init(); m_longValue
= (long)defValue
; }
139 wxPlatform(long defValue
) { Init(); m_longValue
= defValue
; }
140 wxPlatform(const wxString
& defValue
) { Init(); m_stringValue
= defValue
; }
141 wxPlatform(double defValue
) { Init(); m_doubleValue
= defValue
; }
143 static wxPlatform
If(int platform
, long value
);
144 static wxPlatform
IfNot(int platform
, long value
);
145 wxPlatform
& ElseIf(int platform
, long value
);
146 wxPlatform
& ElseIfNot(int platform
, long value
);
147 wxPlatform
& Else(long value
);
149 static wxPlatform
If(int platform
, int value
) { return If(platform
, (long)value
); }
150 static wxPlatform
IfNot(int platform
, int value
) { return IfNot(platform
, (long)value
); }
151 wxPlatform
& ElseIf(int platform
, int value
) { return ElseIf(platform
, (long) value
); }
152 wxPlatform
& ElseIfNot(int platform
, int value
) { return ElseIfNot(platform
, (long) value
); }
153 wxPlatform
& Else(int value
) { return Else((long) value
); }
155 static wxPlatform
If(int platform
, double value
);
156 static wxPlatform
IfNot(int platform
, double value
);
157 wxPlatform
& ElseIf(int platform
, double value
);
158 wxPlatform
& ElseIfNot(int platform
, double value
);
159 wxPlatform
& Else(double value
);
161 static wxPlatform
If(int platform
, const wxString
& value
);
162 static wxPlatform
IfNot(int platform
, const wxString
& value
);
163 wxPlatform
& ElseIf(int platform
, const wxString
& value
);
164 wxPlatform
& ElseIfNot(int platform
, const wxString
& value
);
165 wxPlatform
& Else(const wxString
& value
);
167 long GetInteger() const { return m_longValue
; }
168 const wxString
& GetString() const { return m_stringValue
; }
169 double GetDouble() const { return m_doubleValue
; }
171 operator int() const { return (int) GetInteger(); }
172 operator long() const { return GetInteger(); }
173 operator double() const { return GetDouble(); }
174 operator const wxString
&() const { return GetString(); }
176 static void AddPlatform(int platform
);
177 static bool Is(int platform
);
178 static void ClearPlatforms();
182 void Init() { m_longValue
= 0; m_doubleValue
= 0.0; }
185 double m_doubleValue
;
186 wxString m_stringValue
;
187 static wxArrayInt
* sm_customPlatforms
;
190 /// Function for testing current platform
191 inline bool wxPlatformIs(int platform
) { return wxPlatform::Is(platform
); }
195 // Get the state of a key (true if pressed, false if not)
196 // This is generally most useful getting the state of
197 // the modifier or toggle keys.
198 WXDLLEXPORT
bool wxGetKeyState(wxKeyCode key
);
201 // Don't synthesize KeyUp events holding down a key and producing
202 // KeyDown events with autorepeat. On by default and always on
204 WXDLLEXPORT
bool wxSetDetectableAutoRepeat( bool flag
);
207 // wxMouseState is used to hold information about button and modifier state
208 // and is what is returned from wxGetMouseState.
209 class WXDLLEXPORT wxMouseState
214 m_leftDown(false), m_middleDown(false), m_rightDown(false),
215 m_controlDown(false), m_shiftDown(false), m_altDown(false),
219 wxCoord
GetX() { return m_x
; }
220 wxCoord
GetY() { return m_y
; }
222 bool LeftDown() { return m_leftDown
; }
223 bool MiddleDown() { return m_middleDown
; }
224 bool RightDown() { return m_rightDown
; }
226 bool ControlDown() { return m_controlDown
; }
227 bool ShiftDown() { return m_shiftDown
; }
228 bool AltDown() { return m_altDown
; }
229 bool MetaDown() { return m_metaDown
; }
232 #if defined(__WXMAC__) || defined(__WXCOCOA__)
235 return ControlDown();
239 void SetX(wxCoord x
) { m_x
= x
; }
240 void SetY(wxCoord y
) { m_y
= y
; }
242 void SetLeftDown(bool down
) { m_leftDown
= down
; }
243 void SetMiddleDown(bool down
) { m_middleDown
= down
; }
244 void SetRightDown(bool down
) { m_rightDown
= down
; }
246 void SetControlDown(bool down
) { m_controlDown
= down
; }
247 void SetShiftDown(bool down
) { m_shiftDown
= down
; }
248 void SetAltDown(bool down
) { m_altDown
= down
; }
249 void SetMetaDown(bool down
) { m_metaDown
= down
; }
256 bool m_middleDown
: 1;
257 bool m_rightDown
: 1;
259 bool m_controlDown
: 1;
260 bool m_shiftDown
: 1;
266 // Returns the current state of the mouse position, buttons and modifers
267 WXDLLEXPORT wxMouseState
wxGetMouseState();
271 // ----------------------------------------------------------------------------
272 // Window ID management
273 // ----------------------------------------------------------------------------
275 // Ensure subsequent IDs don't clash with this one
276 WXDLLIMPEXP_BASE
void wxRegisterId(long id
);
278 // Return the current ID
279 WXDLLIMPEXP_BASE
long wxGetCurrentId();
281 // Generate a unique ID
282 WXDLLIMPEXP_BASE
long wxNewId();
284 // ----------------------------------------------------------------------------
285 // Various conversions
286 // ----------------------------------------------------------------------------
288 // Convert 2-digit hex number to decimal
289 WXDLLIMPEXP_BASE
int wxHexToDec(const wxString
& buf
);
291 // Convert decimal integer to 2-character hex string
292 WXDLLIMPEXP_BASE
void wxDecToHex(int dec
, wxChar
*buf
);
293 WXDLLIMPEXP_BASE wxString
wxDecToHex(int dec
);
295 // ----------------------------------------------------------------------------
296 // Process management
297 // ----------------------------------------------------------------------------
299 // NB: for backwards compatibility reasons the values of wxEXEC_[A]SYNC *must*
300 // be 0 and 1, don't change!
304 // execute the process asynchronously
307 // execute it synchronously, i.e. wait until it finishes
310 // under Windows, don't hide the child even if it's IO is redirected (this
311 // is done by default)
314 // under Unix, if the process is the group leader then passing wxKILL_CHILDREN to wxKill
315 // kills all children as well as pid
316 wxEXEC_MAKE_GROUP_LEADER
= 4,
318 // by default synchronous execution disables all program windows to avoid
319 // that the user interacts with the program while the child process is
320 // running, you can use this flag to prevent this from happening
321 wxEXEC_NODISABLE
= 8,
323 // by default, the event loop is run while waiting for synchronous execution
324 // to complete and this flag can be used to simply block the main process
325 // until the child process finishes
326 wxEXEC_NOEVENTS
= 16,
328 // convenient synonym for flags given system()-like behaviour
329 wxEXEC_BLOCK
= wxEXEC_SYNC
| wxEXEC_NOEVENTS
332 // Execute another program.
334 // If flags contain wxEXEC_SYNC, return -1 on failure and the exit code of the
335 // process if everything was ok. Otherwise (i.e. if wxEXEC_ASYNC), return 0 on
336 // failure and the PID of the launched process if ok.
337 WXDLLIMPEXP_BASE
long wxExecute(wxChar
**argv
, int flags
= wxEXEC_ASYNC
,
338 wxProcess
*process
= (wxProcess
*) NULL
);
339 WXDLLIMPEXP_BASE
long wxExecute(const wxString
& command
, int flags
= wxEXEC_ASYNC
,
340 wxProcess
*process
= (wxProcess
*) NULL
);
342 // execute the command capturing its output into an array line by line, this is
343 // always synchronous
344 WXDLLIMPEXP_BASE
long wxExecute(const wxString
& command
,
345 wxArrayString
& output
,
348 // also capture stderr (also synchronous)
349 WXDLLIMPEXP_BASE
long wxExecute(const wxString
& command
,
350 wxArrayString
& output
,
351 wxArrayString
& error
,
354 #if defined(__WXMSW__) && wxUSE_IPC
355 // ask a DDE server to execute the DDE request with given parameters
356 WXDLLIMPEXP_BASE
bool wxExecuteDDE(const wxString
& ddeServer
,
357 const wxString
& ddeTopic
,
358 const wxString
& ddeCommand
);
359 #endif // __WXMSW__ && wxUSE_IPC
363 wxSIGNONE
= 0, // verify if the process exists under Unix
370 wxSIGIOT
= wxSIGABRT
, // another name
381 // further signals are different in meaning between different Unix systems
386 wxKILL_OK
, // no error
387 wxKILL_BAD_SIGNAL
, // no such signal
388 wxKILL_ACCESS_DENIED
, // permission denied
389 wxKILL_NO_PROCESS
, // no such process
390 wxKILL_ERROR
// another, unspecified error
395 wxKILL_NOCHILDREN
= 0, // don't kill children
396 wxKILL_CHILDREN
= 1 // kill children
401 wxSHUTDOWN_POWEROFF
, // power off the computer
402 wxSHUTDOWN_REBOOT
// shutdown and reboot
405 // Shutdown or reboot the PC
406 WXDLLIMPEXP_BASE
bool wxShutdown(wxShutdownFlags wFlags
);
408 // send the given signal to the process (only NONE and KILL are supported under
409 // Windows, all others mean TERM), return 0 if ok and -1 on error
411 // return detailed error in rc if not NULL
412 WXDLLIMPEXP_BASE
int wxKill(long pid
,
413 wxSignal sig
= wxSIGTERM
,
414 wxKillError
*rc
= NULL
,
415 int flags
= wxKILL_NOCHILDREN
);
417 // Execute a command in an interactive shell window (always synchronously)
418 // If no command then just the shell
419 WXDLLIMPEXP_BASE
bool wxShell(const wxString
& command
= wxEmptyString
);
421 // As wxShell(), but must give a (non interactive) command and its output will
422 // be returned in output array
423 WXDLLIMPEXP_BASE
bool wxShell(const wxString
& command
, wxArrayString
& output
);
425 // Sleep for nSecs seconds
426 WXDLLIMPEXP_BASE
void wxSleep(int nSecs
);
428 // Sleep for a given amount of milliseconds
429 WXDLLIMPEXP_BASE
void wxMilliSleep(unsigned long milliseconds
);
431 // Sleep for a given amount of microseconds
432 WXDLLIMPEXP_BASE
void wxMicroSleep(unsigned long microseconds
);
434 // Sleep for a given amount of milliseconds (old, bad name), use wxMilliSleep
435 wxDEPRECATED( WXDLLIMPEXP_BASE
void wxUsleep(unsigned long milliseconds
) );
437 // Get the process id of the current process
438 WXDLLIMPEXP_BASE
unsigned long wxGetProcessId();
440 // Get free memory in bytes, or -1 if cannot determine amount (e.g. on UNIX)
441 WXDLLIMPEXP_BASE wxMemorySize
wxGetFreeMemory();
443 #if wxUSE_ON_FATAL_EXCEPTION
445 // should wxApp::OnFatalException() be called?
446 WXDLLIMPEXP_BASE
bool wxHandleFatalExceptions(bool doit
= true);
448 #endif // wxUSE_ON_FATAL_EXCEPTION
450 // flags for wxLaunchDefaultBrowser
453 wxBROWSER_NEW_WINDOW
= 1
456 // Launch url in the user's default internet browser
457 WXDLLIMPEXP_BASE
bool wxLaunchDefaultBrowser(const wxString
& url
, int flags
= 0);
459 // ----------------------------------------------------------------------------
460 // Environment variables
461 // ----------------------------------------------------------------------------
463 // returns true if variable exists (value may be NULL if you just want to check
465 WXDLLIMPEXP_BASE
bool wxGetEnv(const wxString
& var
, wxString
*value
);
467 // set the env var name to the given value, return true on success
468 WXDLLIMPEXP_BASE
bool wxSetEnv(const wxString
& var
, const wxChar
*value
);
470 // remove the env var from environment
471 inline bool wxUnsetEnv(const wxString
& var
) { return wxSetEnv(var
, NULL
); }
473 // ----------------------------------------------------------------------------
474 // Network and username functions.
475 // ----------------------------------------------------------------------------
477 // NB: "char *" functions are deprecated, use wxString ones!
480 WXDLLIMPEXP_BASE
bool wxGetEmailAddress(wxChar
*buf
, int maxSize
);
481 WXDLLIMPEXP_BASE wxString
wxGetEmailAddress();
484 WXDLLIMPEXP_BASE
bool wxGetHostName(wxChar
*buf
, int maxSize
);
485 WXDLLIMPEXP_BASE wxString
wxGetHostName();
488 WXDLLIMPEXP_BASE wxString
wxGetFullHostName();
489 WXDLLIMPEXP_BASE
bool wxGetFullHostName(wxChar
*buf
, int maxSize
);
491 // Get user ID e.g. jacs (this is known as login name under Unix)
492 WXDLLIMPEXP_BASE
bool wxGetUserId(wxChar
*buf
, int maxSize
);
493 WXDLLIMPEXP_BASE wxString
wxGetUserId();
495 // Get user name e.g. Julian Smart
496 WXDLLIMPEXP_BASE
bool wxGetUserName(wxChar
*buf
, int maxSize
);
497 WXDLLIMPEXP_BASE wxString
wxGetUserName();
499 // Get current Home dir and copy to dest (returns pstr->c_str())
500 WXDLLIMPEXP_BASE wxString
wxGetHomeDir();
501 WXDLLIMPEXP_BASE
const wxChar
* wxGetHomeDir(wxString
*pstr
);
503 // Get the user's home dir (caller must copy --- volatile)
504 // returns NULL is no HOME dir is known
505 #if defined(__UNIX__) && wxUSE_UNICODE && !defined(__WINE__)
506 WXDLLIMPEXP_BASE
const wxMB2WXbuf
wxGetUserHome(const wxString
& user
= wxEmptyString
);
508 WXDLLIMPEXP_BASE wxChar
* wxGetUserHome(const wxString
& user
= wxEmptyString
);
512 typedef wxLongLong wxDiskspaceSize_t
;
514 typedef long wxDiskspaceSize_t
;
517 // get number of total/free bytes on the disk where path belongs
518 WXDLLIMPEXP_BASE
bool wxGetDiskSpace(const wxString
& path
,
519 wxDiskspaceSize_t
*pTotal
= NULL
,
520 wxDiskspaceSize_t
*pFree
= NULL
);
522 #if wxUSE_GUI // GUI only things from now on
524 // ----------------------------------------------------------------------------
525 // Menu accelerators related things
526 // ----------------------------------------------------------------------------
528 // flags for wxStripMenuCodes
531 // strip '&' characters
532 wxStrip_Mnemonics
= 1,
534 // strip everything after '\t'
537 // strip everything (this is the default)
538 wxStrip_All
= wxStrip_Mnemonics
| wxStrip_Accel
541 // strip mnemonics and/or accelerators from the label
543 wxStripMenuCodes(const wxString
& str
, int flags
= wxStrip_All
);
545 #if WXWIN_COMPATIBILITY_2_6
546 // obsolete and deprecated version, do not use, use the above overload instead
548 WXDLLEXPORT wxChar
* wxStripMenuCodes(const wxChar
*in
, wxChar
*out
= NULL
)
552 class WXDLLEXPORT wxAcceleratorEntry
;
554 // use wxAcceleratorEntry::Create() or FromString() methods instead
556 WXDLLEXPORT wxAcceleratorEntry
*wxGetAccelFromString(const wxString
& label
)
558 #endif // wxUSE_ACCEL
560 #endif // WXWIN_COMPATIBILITY_2_6
562 // ----------------------------------------------------------------------------
564 // ----------------------------------------------------------------------------
566 // Returns menu item id or wxNOT_FOUND if none.
567 WXDLLEXPORT
int wxFindMenuItemId(wxFrame
*frame
, const wxString
& menuString
, const wxString
& itemString
);
569 // Find the wxWindow at the given point. wxGenericFindWindowAtPoint
570 // is always present but may be less reliable than a native version.
571 WXDLLEXPORT wxWindow
* wxGenericFindWindowAtPoint(const wxPoint
& pt
);
572 WXDLLEXPORT wxWindow
* wxFindWindowAtPoint(const wxPoint
& pt
);
574 // NB: this function is obsolete, use wxWindow::FindWindowByLabel() instead
576 // Find the window/widget with the given title or label.
577 // Pass a parent to begin the search from, or NULL to look through
579 WXDLLEXPORT wxWindow
* wxFindWindowByLabel(const wxString
& title
, wxWindow
*parent
= (wxWindow
*) NULL
);
581 // NB: this function is obsolete, use wxWindow::FindWindowByName() instead
583 // Find window by name, and if that fails, by label.
584 WXDLLEXPORT wxWindow
* wxFindWindowByName(const wxString
& name
, wxWindow
*parent
= (wxWindow
*) NULL
);
586 // ----------------------------------------------------------------------------
587 // Message/event queue helpers
588 // ----------------------------------------------------------------------------
590 // Yield to other apps/messages and disable user input
591 WXDLLEXPORT
bool wxSafeYield(wxWindow
*win
= NULL
, bool onlyIfNeeded
= false);
593 // Enable or disable input to all top level windows
594 WXDLLEXPORT
void wxEnableTopLevelWindows(bool enable
= true);
596 // Check whether this window wants to process messages, e.g. Stop button
597 // in long calculations.
598 WXDLLEXPORT
bool wxCheckForInterrupt(wxWindow
*wnd
);
600 // Consume all events until no more left
601 WXDLLEXPORT
void wxFlushEvents();
603 // a class which disables all windows (except, may be, thegiven one) in its
604 // ctor and enables them back in its dtor
605 class WXDLLEXPORT wxWindowDisabler
608 wxWindowDisabler(wxWindow
*winToSkip
= (wxWindow
*)NULL
);
612 wxWindowList
*m_winDisabled
;
614 DECLARE_NO_COPY_CLASS(wxWindowDisabler
)
617 // ----------------------------------------------------------------------------
619 // ----------------------------------------------------------------------------
621 // Set the cursor to the busy cursor for all windows
622 WXDLLIMPEXP_CORE
void wxBeginBusyCursor(const wxCursor
*cursor
= wxHOURGLASS_CURSOR
);
624 // Restore cursor to normal
625 WXDLLEXPORT
void wxEndBusyCursor();
627 // true if we're between the above two calls
628 WXDLLEXPORT
bool wxIsBusy();
630 // Convenience class so we can just create a wxBusyCursor object on the stack
631 class WXDLLEXPORT wxBusyCursor
634 wxBusyCursor(const wxCursor
* cursor
= wxHOURGLASS_CURSOR
)
635 { wxBeginBusyCursor(cursor
); }
637 { wxEndBusyCursor(); }
639 // FIXME: These two methods are currently only implemented (and needed?)
640 // in wxGTK. BusyCursor handling should probably be moved to
641 // common code since the wxGTK and wxMSW implementations are very
642 // similar except for wxMSW using HCURSOR directly instead of
644 static const wxCursor
&GetStoredCursor();
645 static const wxCursor
GetBusyCursor();
648 void WXDLLEXPORT
wxGetMousePosition( int* x
, int* y
);
650 // MSW only: get user-defined resource from the .res file.
651 // Returns NULL or newly-allocated memory, so use delete[] to clean up.
653 extern WXDLLEXPORT
const wxChar
* wxUserResourceStr
;
654 WXDLLEXPORT wxChar
* wxLoadUserResource(const wxString
& resourceName
, const wxString
& resourceType
= wxUserResourceStr
);
657 // ----------------------------------------------------------------------------
658 // X11 Display access
659 // ----------------------------------------------------------------------------
661 #if defined(__X__) || defined(__WXGTK__)
664 void *wxGetDisplay();
668 WXDLLIMPEXP_CORE WXDisplay
*wxGetDisplay();
669 WXDLLIMPEXP_CORE
bool wxSetDisplay(const wxString
& display_name
);
670 WXDLLIMPEXP_CORE wxString
wxGetDisplayName();
673 // use this function instead of the functions above in implementation code
674 inline struct _XDisplay
*wxGetX11Display()
676 return (_XDisplay
*)wxGetDisplay();
679 #endif // X11 || wxGTK
683 // ----------------------------------------------------------------------------
684 // wxYield(): these functions are obsolete, please use wxApp methods instead!
685 // ----------------------------------------------------------------------------
687 // Yield to other apps/messages
688 WXDLLIMPEXP_BASE
bool wxYield();
690 // Like wxYield, but fails silently if the yield is recursive.
691 WXDLLIMPEXP_BASE
bool wxYieldIfNeeded();
693 // ----------------------------------------------------------------------------
694 // Error message functions used by wxWidgets (deprecated, use wxLog)
695 // ----------------------------------------------------------------------------