1 ////////////////////////////////////////////////////////////////////////////
3 // Purpose: A wxWindows implementation of Scintilla. This class is the
4 // one meant to be used directly by wx applications. It does not
5 // derive directly from the Scintilla classes, and in fact there
6 // is no mention of Scintilla classes at all in this header.
7 // This class delegates all method calls and events to the
8 // Scintilla objects and so forth. This allows the use of
9 // Scintilla without polluting the namespace with all the
10 // classes and itentifiers from Scintilla.
14 // Created: 13-Jan-2000
16 // Copyright: (c) 2000 by Total Control Software
17 // Licence: wxWindows license
18 /////////////////////////////////////////////////////////////////////////////
28 #ifdef WXMAKINGDLL_STC
29 #define WXDLLIMPEXP_STC WXEXPORT
30 #elif defined(WXUSINGDLL)
31 #define WXDLLIMPEXP_STC WXIMPORT
32 #else // not making nor using DLL
33 #define WXDLLIMPEXP_STC
37 // SWIG can't handle "#if" type of conditionals, only "#ifdef"
41 #if wxUSE_DRAG_AND_DROP
46 //----------------------------------------------------------------------
48 // Should a wxPopupWindow be used for the call tips and autocomplete windows?
49 #ifndef wxSTC_USE_POPUP
50 #define wxSTC_USE_POPUP 1
53 //----------------------------------------------------------------------
54 // BEGIN generated section. The following code is automatically generated
55 // by gen_iface.py. Do not edit this file. Edit stc.h.in instead
61 //-----------------------------------------
62 // Commands that can be bound to keystrokes
67 // END of generated section
68 //----------------------------------------------------------------------
70 class ScintillaWX
; // forward declare
72 struct SCNotification
;
75 extern WXDLLIMPEXP_STC
const wxChar
* wxSTCNameStr
;
76 class WXDLLIMPEXP_STC wxStyledTextCtrl
;
77 class WXDLLIMPEXP_STC wxStyledTextEvent
;
80 //----------------------------------------------------------------------
82 class WXDLLIMPEXP_STC wxStyledTextCtrl
: public wxControl
{
86 %%addtofunc wxStyledTextCtrl
"self._setOORInfo(self)"
87 %%addtofunc
wxStyledTextCtrl() ""
89 wxStyledTextCtrl(wxWindow
*parent
, wxWindowID id
,
90 const wxPoint
& pos
= wxDefaultPosition
,
91 const wxSize
& size
= wxDefaultSize
, long style
= 0,
92 const wxString
& name
= wxPySTCNameStr
);
93 %%name
(PreStyledTextCtrl
) wxStyledTextCtrl();
96 wxStyledTextCtrl(wxWindow
*parent
, wxWindowID id
,
97 const wxPoint
& pos
= wxDefaultPosition
,
98 const wxSize
& size
= wxDefaultSize
, long style
= 0,
99 const wxString
& name
= wxSTCNameStr
);
100 wxStyledTextCtrl() { m_swx
= NULL
; }
105 void Create(wxWindow
*parent
, wxWindowID id
,
106 const wxPoint
& pos
= wxDefaultPosition
,
107 const wxSize
& size
= wxDefaultSize
, long style
= 0,
108 const wxString
& name
= wxSTCNameStr
);
111 //----------------------------------------------------------------------
112 // BEGIN generated section. The following code is automatically generated
113 // by gen_iface.py. Do not edit this file. Edit stc.h.in instead
118 // END of generated section
119 //----------------------------------------------------------------------
123 // Returns the line number of the line with the caret.
124 int GetCurrentLine();
126 // Extract style settings from a spec-string which is composed of one or
127 // more of the following comma separated elements:
129 // bold turns on bold
130 // italic turns on italics
131 // fore:#RRGGBB sets the foreground colour
132 // back:#RRGGBB sets the background colour
133 // face:[facename] sets the font face name to use
134 // size:[num] sets the font size in points
135 // eol turns on eol filling
136 // underline turns on underlining
138 void StyleSetSpec(int styleNum
, const wxString
& spec
);
142 // Set style size, face, bold, italic, and underline attributes from
143 // a wxFont's attributes.
144 void StyleSetFont(int styleNum
, wxFont
& font
);
148 // Set all font style attributes at once.
149 void StyleSetFontAttr(int styleNum
, int size
,
150 const wxString
& faceName
,
151 bool bold
, bool italic
,
156 // Perform one of the operations defined by the wxSTC_CMD_* constants.
157 void CmdKeyExecute(int cmd
);
161 // Set the left and right margin in the edit area, measured in pixels.
162 void SetMargins(int left
, int right
);
165 // Retrieve the start and end positions of the current selection.
167 void GetSelection(int* OUTPUT
, int* OUTPUT
);
169 void GetSelection(int* startPos
, int* endPos
);
172 // Retrieve the point in the window where a position is displayed.
173 wxPoint
PointFromPosition(int pos
);
176 // Scroll enough to make the given line visible
177 void ScrollToLine(int line
);
180 // Scroll enough to make the given column visible
181 void ScrollToColumn(int column
);
184 // Send a message to Scintilla
185 long SendMsg(int msg
, long wp
=0, long lp
=0);
188 // Set the vertical scrollbar to use instead of the ont that's built-in.
189 void SetVScrollBar(wxScrollBar
* bar
) { m_vScrollBar
= bar
; }
192 // Set the horizontal scrollbar to use instead of the ont that's built-in.
193 void SetHScrollBar(wxScrollBar
* bar
) { m_hScrollBar
= bar
; }
195 // Can be used to prevent the EVT_CHAR handler from adding the char
196 bool GetLastKeydownProcessed() { return m_lastKeyDownConsumed
; }
197 void SetLastKeydownProcessed(bool val
) { m_lastKeyDownConsumed
= val
; }
199 // Write the contents of the editor to filename
200 bool SaveFile(const wxString
& filename
);
202 // Load the contents of filename into the editor
203 bool LoadFile(const wxString
& filename
);
206 // Allow for simulating a DnD DragOver
207 wxDragResult
DoDragOver(wxCoord x
, wxCoord y
, wxDragResult def
);
209 // Allow for simulating a DnD DropText
210 bool DoDropText(long x
, long y
, const wxString
& data
);
215 //----------------------------------------------------------------------
221 void OnPaint(wxPaintEvent
& evt
);
222 void OnScrollWin(wxScrollWinEvent
& evt
);
223 void OnScroll(wxScrollEvent
& evt
);
224 void OnSize(wxSizeEvent
& evt
);
225 void OnMouseLeftDown(wxMouseEvent
& evt
);
226 void OnMouseMove(wxMouseEvent
& evt
);
227 void OnMouseLeftUp(wxMouseEvent
& evt
);
228 void OnMouseRightUp(wxMouseEvent
& evt
);
229 void OnMouseMiddleUp(wxMouseEvent
& evt
);
230 void OnContextMenu(wxContextMenuEvent
& evt
);
231 void OnMouseWheel(wxMouseEvent
& evt
);
232 void OnChar(wxKeyEvent
& evt
);
233 void OnKeyDown(wxKeyEvent
& evt
);
234 void OnLoseFocus(wxFocusEvent
& evt
);
235 void OnGainFocus(wxFocusEvent
& evt
);
236 void OnSysColourChanged(wxSysColourChangedEvent
& evt
);
237 void OnEraseBackground(wxEraseEvent
& evt
);
238 void OnMenu(wxCommandEvent
& evt
);
239 void OnListBox(wxCommandEvent
& evt
);
242 // Turn notifications from Scintilla into events
244 void NotifyParent(SCNotification
* scn
);
246 DECLARE_EVENT_TABLE()
247 DECLARE_DYNAMIC_CLASS(wxStyledTextCtrl
)
252 wxStopWatch m_stopWatch
;
253 wxScrollBar
* m_vScrollBar
;
254 wxScrollBar
* m_hScrollBar
;
256 bool m_lastKeyDownConsumed
;
258 friend class ScintillaWX
;
259 friend class Platform
;
263 //----------------------------------------------------------------------
265 class WXDLLIMPEXP_STC wxStyledTextEvent
: public wxCommandEvent
{
267 wxStyledTextEvent(wxEventType commandType
=0, int id
=0);
269 wxStyledTextEvent(const wxStyledTextEvent
& event
);
271 ~wxStyledTextEvent() {}
273 void SetPosition(int pos
) { m_position
= pos
; }
274 void SetKey(int k
) { m_key
= k
; }
275 void SetModifiers(int m
) { m_modifiers
= m
; }
276 void SetModificationType(int t
) { m_modificationType
= t
; }
277 void SetText(const wxString
& t
) { m_text
= t
; }
278 void SetLength(int len
) { m_length
= len
; }
279 void SetLinesAdded(int num
) { m_linesAdded
= num
; }
280 void SetLine(int val
) { m_line
= val
; }
281 void SetFoldLevelNow(int val
) { m_foldLevelNow
= val
; }
282 void SetFoldLevelPrev(int val
) { m_foldLevelPrev
= val
; }
283 void SetMargin(int val
) { m_margin
= val
; }
284 void SetMessage(int val
) { m_message
= val
; }
285 void SetWParam(int val
) { m_wParam
= val
; }
286 void SetLParam(int val
) { m_lParam
= val
; }
287 void SetListType(int val
) { m_listType
= val
; }
288 void SetX(int val
) { m_x
= val
; }
289 void SetY(int val
) { m_y
= val
; }
290 void SetDragText(const wxString
& val
) { m_dragText
= val
; }
291 void SetDragAllowMove(bool val
) { m_dragAllowMove
= val
; }
293 void SetDragResult(wxDragResult val
) { m_dragResult
= val
; }
296 int GetPosition() const { return m_position
; }
297 int GetKey() const { return m_key
; }
298 int GetModifiers() const { return m_modifiers
; }
299 int GetModificationType() const { return m_modificationType
; }
300 wxString
GetText() const { return m_text
; }
301 int GetLength() const { return m_length
; }
302 int GetLinesAdded() const { return m_linesAdded
; }
303 int GetLine() const { return m_line
; }
304 int GetFoldLevelNow() const { return m_foldLevelNow
; }
305 int GetFoldLevelPrev() const { return m_foldLevelPrev
; }
306 int GetMargin() const { return m_margin
; }
307 int GetMessage() const { return m_message
; }
308 int GetWParam() const { return m_wParam
; }
309 int GetLParam() const { return m_lParam
; }
310 int GetListType() const { return m_listType
; }
311 int GetX() const { return m_x
; }
312 int GetY() const { return m_y
; }
313 wxString
GetDragText() { return m_dragText
; }
314 bool GetDragAllowMove() { return m_dragAllowMove
; }
316 wxDragResult
GetDragResult() { return m_dragResult
; }
319 bool GetShift() const;
320 bool GetControl() const;
323 virtual wxEvent
* Clone() const { return new wxStyledTextEvent(*this); }
327 DECLARE_DYNAMIC_CLASS(wxStyledTextEvent
)
333 int m_modificationType
; // wxEVT_STC_MODIFIED
341 int m_margin
; // wxEVT_STC_MARGINCLICK
343 int m_message
; // wxEVT_STC_MACRORECORD
351 wxString m_dragText
; // wxEVT_STC_START_DRAG, wxEVT_STC_DO_DROP
352 bool m_dragAllowMove
; // wxEVT_STC_START_DRAG
354 #if wxUSE_DRAG_AND_DROP
355 wxDragResult m_dragResult
; // wxEVT_STC_DRAG_OVER,wxEVT_STC_DO_DROP
363 BEGIN_DECLARE_EVENT_TYPES()
364 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_CHANGE
, 1650)
365 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_STYLENEEDED
, 1651)
366 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_CHARADDED
, 1652)
367 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_SAVEPOINTREACHED
, 1653)
368 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_SAVEPOINTLEFT
, 1654)
369 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_ROMODIFYATTEMPT
, 1655)
370 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_KEY
, 1656)
371 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_DOUBLECLICK
, 1657)
372 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_UPDATEUI
, 1658)
373 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_MODIFIED
, 1659)
374 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_MACRORECORD
, 1660)
375 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_MARGINCLICK
, 1661)
376 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_NEEDSHOWN
, 1662)
377 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_POSCHANGED
, 1663)
378 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_PAINTED
, 1664)
379 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_USERLISTSELECTION
, 1665)
380 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_URIDROPPED
, 1666)
381 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_DWELLSTART
, 1667)
382 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_DWELLEND
, 1668)
383 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_START_DRAG
, 1669)
384 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_DRAG_OVER
, 1670)
385 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_DO_DROP
, 1671)
386 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_ZOOM
, 1672)
387 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_HOTSPOT_CLICK
, 1673)
388 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_HOTSPOT_DCLICK
, 1674)
389 DECLARE_EXPORTED_EVENT_TYPE(WXDLLIMPEXP_STC
, wxEVT_STC_CALLTIP_CLICK
, 1675)
390 END_DECLARE_EVENT_TYPES()
394 wxEVT_STC_STYLENEEDED
,
396 wxEVT_STC_SAVEPOINTREACHED
,
397 wxEVT_STC_SAVEPOINTLEFT
,
398 wxEVT_STC_ROMODIFYATTEMPT
,
400 wxEVT_STC_DOUBLECLICK
,
403 wxEVT_STC_MACRORECORD
,
404 wxEVT_STC_MARGINCLICK
,
406 wxEVT_STC_POSCHANGED
,
408 wxEVT_STC_USERLISTSELECTION
,
409 wxEVT_STC_URIDROPPED
,
410 wxEVT_STC_DWELLSTART
,
412 wxEVT_STC_START_DRAG
,
416 wxEVT_STC_HOTSPOT_CLICK
,
417 wxEVT_STC_HOTSPOT_DCLICK
,
418 wxEVT_STC_CALLTIP_CLICK
425 typedef void (wxEvtHandler::*wxStyledTextEventFunction
)(wxStyledTextEvent
&);
427 #define EVT_STC_CHANGE(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_CHANGE, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
428 #define EVT_STC_STYLENEEDED(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_STYLENEEDED, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
429 #define EVT_STC_CHARADDED(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_CHARADDED, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
430 #define EVT_STC_SAVEPOINTREACHED(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_SAVEPOINTREACHED, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
431 #define EVT_STC_SAVEPOINTLEFT(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_SAVEPOINTLEFT, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
432 #define EVT_STC_ROMODIFYATTEMPT(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_ROMODIFYATTEMPT, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
433 #define EVT_STC_KEY(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_KEY, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
434 #define EVT_STC_DOUBLECLICK(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_DOUBLECLICK, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
435 #define EVT_STC_UPDATEUI(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_UPDATEUI, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
436 #define EVT_STC_MODIFIED(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_MODIFIED, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
437 #define EVT_STC_MACRORECORD(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_MACRORECORD, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
438 #define EVT_STC_MARGINCLICK(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_MARGINCLICK, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
439 #define EVT_STC_NEEDSHOWN(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_NEEDSHOWN, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
440 #define EVT_STC_POSCHANGED(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_POSCHANGED, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
441 #define EVT_STC_PAINTED(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_PAINTED, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
442 #define EVT_STC_USERLISTSELECTION(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_USERLISTSELECTION, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
443 #define EVT_STC_URIDROPPED(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_URIDROPPED, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
444 #define EVT_STC_DWELLSTART(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_DWELLSTART, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
445 #define EVT_STC_DWELLEND(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_DWELLEND, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
446 #define EVT_STC_START_DRAG(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_START_DRAG, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
447 #define EVT_STC_DRAG_OVER(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_DRAG_OVER, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
448 #define EVT_STC_DO_DROP(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_DO_DROP, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
449 #define EVT_STC_ZOOM(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_ZOOM, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
450 #define EVT_STC_HOTSPOT_CLICK(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_HOTSPOT_CLICK, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
451 #define EVT_STC_HOTSPOT_DCLICK(id, fn) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_HOTSPOT_DCLICK, id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
452 #define EVT_STC_CALLTIP_CLICK(id, fn)) DECLARE_EVENT_TABLE_ENTRY( wxEVT_STC_CALLTIP_CLICK id, -1, (wxObjectEventFunction) (wxEventFunction) (wxStyledTextEventFunction) & fn, (wxObject *) NULL ),
456 //----------------------------------------------------------------------
457 // Utility functions used within wxSTC
461 inline wxString
stc2wx(const char* str
) {
463 return wxString(str
, wxConvUTF8
);
465 return wxString(str
);
470 wxString
stc2wx(const char* str
, size_t len
);
472 inline wxString
stc2wx(const char* str
, size_t len
) {
473 return wxString(str
, len
);
479 inline const wxWX2MBbuf
wx2stc(const wxString
& str
) {
480 return str
.mb_str(wxConvUTF8
);
483 inline const wxWX2MBbuf
wx2stc(const wxString
& str
) {
484 return str
.mbc_str();
491 //----------------------------------------------------------------------