]> git.saurik.com Git - wxWidgets.git/blame - contrib/src/stc/stc.cpp.in
test for bug with new wu-ftpd
[wxWidgets.git] / contrib / src / stc / stc.cpp.in
CommitLineData
f97d84a6
RD
1////////////////////////////////////////////////////////////////////////////
2// Name: stc.cpp
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, but instead
6// delegates most things to the real Scintilla class.
7// This allows the use of Scintilla without polluting the
8// namespace with all the classes and identifiers from Scintilla.
9//
10// Author: Robin Dunn
11//
12// Created: 13-Jan-2000
13// RCS-ID: $Id$
14// Copyright: (c) 2000 by Total Control Software
15// Licence: wxWindows license
16/////////////////////////////////////////////////////////////////////////////
17
18#include <ctype.h>
19
20#include "wx/stc/stc.h"
21#include "ScintillaWX.h"
22
23#include <wx/tokenzr.h>
24
25// The following code forces a reference to all of the Scintilla lexers.
26// If we don't do something like this, then the linker tends to "optimize"
27// them away. (eric@sourcegear.com)
28
29int wxForceScintillaLexers(void)
30{
31 extern LexerModule lmCPP;
32 extern LexerModule lmHTML;
33 extern LexerModule lmXML;
34 extern LexerModule lmProps;
35 extern LexerModule lmErrorList;
36 extern LexerModule lmMake;
37 extern LexerModule lmBatch;
38 extern LexerModule lmPerl;
39 extern LexerModule lmPython;
40 extern LexerModule lmSQL;
41 extern LexerModule lmVB;
42
43 if (
44 &lmCPP
45 && &lmHTML
46 && &lmXML
47 && &lmProps
48 && &lmErrorList
49 && &lmMake
50 && &lmBatch
51 && &lmPerl
52 && &lmPython
53 && &lmSQL
54 && &lmVB
55 )
56 {
57 return 1;
58 }
59 else
60 {
61 return 0;
62 }
63}
64
65//----------------------------------------------------------------------
66
67const wxChar* wxSTCNameStr = "stcwindow";
68
69BEGIN_EVENT_TABLE(wxStyledTextCtrl, wxControl)
70 EVT_PAINT (wxStyledTextCtrl::OnPaint)
71 EVT_SCROLLWIN (wxStyledTextCtrl::OnScrollWin)
72 EVT_SIZE (wxStyledTextCtrl::OnSize)
73 EVT_LEFT_DOWN (wxStyledTextCtrl::OnMouseLeftDown)
74 EVT_MOTION (wxStyledTextCtrl::OnMouseMove)
75 EVT_LEFT_UP (wxStyledTextCtrl::OnMouseLeftUp)
76 EVT_RIGHT_UP (wxStyledTextCtrl::OnMouseRightUp)
77 EVT_CHAR (wxStyledTextCtrl::OnChar)
78 EVT_KEY_DOWN (wxStyledTextCtrl::OnKeyDown)
79 EVT_KILL_FOCUS (wxStyledTextCtrl::OnLoseFocus)
80 EVT_SET_FOCUS (wxStyledTextCtrl::OnGainFocus)
81 EVT_SYS_COLOUR_CHANGED (wxStyledTextCtrl::OnSysColourChanged)
82 EVT_ERASE_BACKGROUND (wxStyledTextCtrl::OnEraseBackground)
83 EVT_MENU_RANGE (-1, -1, wxStyledTextCtrl::OnMenu)
84 EVT_LISTBOX_DCLICK (-1, wxStyledTextCtrl::OnListBox)
85END_EVENT_TABLE()
86
87
88IMPLEMENT_CLASS(wxStyledTextCtrl, wxControl)
89IMPLEMENT_DYNAMIC_CLASS(wxStyledTextEvent, wxCommandEvent)
90
91//----------------------------------------------------------------------
92// Constructor and Destructor
93
94wxStyledTextCtrl::wxStyledTextCtrl(wxWindow *parent,
95 wxWindowID id,
96 const wxPoint& pos,
97 const wxSize& size,
98 long style,
99 const wxString& name) :
100 wxControl(parent, id, pos, size,
101 style | wxVSCROLL | wxHSCROLL | wxWANTS_CHARS | wxCLIP_CHILDREN,
102 wxDefaultValidator, name)
103{
104 m_swx = new ScintillaWX(this);
105 m_stopWatch.Start();
106}
107
108
109wxStyledTextCtrl::~wxStyledTextCtrl() {
110 delete m_swx;
111}
112
113
114//----------------------------------------------------------------------
115
116long wxStyledTextCtrl::SendMsg(int msg, long wp, long lp) {
117
118 return m_swx->WndProc(msg, wp, lp);
119}
120
121
122#ifdef MAKELONG
123#undef MAKELONG
124#endif
125
126#define MAKELONG(a, b) ((a) | ((b) << 16))
127
128
129static long wxColourAsLong(const wxColour& co) {
130 return (((long)co.Blue() << 16) |
131 ((long)co.Green() << 8) |
132 ((long)co.Red()));
133}
134
135static wxColour wxColourFromLong(long c) {
136 wxColour clr;
137 clr.Set(c & 0xff, (c >> 8) & 0xff, (c >> 16) & 0xff);
138 return clr;
139}
140
141
142static wxColour wxColourFromSpec(const wxString& spec) {
143 // spec should be #RRGGBB
144 char* junk;
145 int red = strtol(spec.Mid(1,2), &junk, 16);
146 int green = strtol(spec.Mid(3,2), &junk, 16);
147 int blue = strtol(spec.Mid(5,2), &junk, 16);
148 return wxColour(red, green, blue);
149}
150
151
152//----------------------------------------------------------------------
153// BEGIN generated section. The following code is automatically generated
154// by gen_iface.py from the contents of Scintilla.iface. Do not edit
155// this file. Edit stc.cpp.in or gen_iface.py instead and regenerate.
156
157%(METHOD_IMPS)s
158
159// END of generated section
160//----------------------------------------------------------------------
161
162
163// Returns the line number of the line with the caret.
164int wxStyledTextCtrl::GetCurrentLine() {
165 int line = LineFromPosition(GetCurrentPos());
166 return line;
167}
168
169
170// Extract style settings from a spec-string which is composed of one or
171// more of the following comma separated elements:
172//
173// bold turns on bold
174// italic turns on italics
175// fore:#RRGGBB sets the foreground colour
176// back:#RRGGBB sets the background colour
177// face:[facename] sets the font face name to use
178// size:[num] sets the font size in points
179// eol turns on eol filling
180// underline turns on underlining
181//
182void wxStyledTextCtrl::StyleSetSpec(int styleNum, const wxString& spec) {
183
184 wxStringTokenizer tkz(spec, ",");
185 while (tkz.HasMoreTokens()) {
186 wxString token = tkz.GetNextToken();
187
188 wxString option = token.BeforeFirst(':');
189 wxString val = token.AfterFirst(':');
190
191 if (option == "bold")
192 StyleSetBold(styleNum, true);
193
194 else if (option == "italic")
195 StyleSetItalic(styleNum, true);
196
197 else if (option == "underline")
198 StyleSetUnderline(styleNum, true);
199
200 else if (option == "eol")
201 StyleSetEOLFilled(styleNum, true);
202
203 else if (option == "size") {
204 long points;
205 if (val.ToLong(&points))
206 StyleSetSize(styleNum, points);
207 }
208
209 else if (option == "face")
210 StyleSetFaceName(styleNum, val);
211
212 else if (option == "fore")
213 StyleSetForeground(styleNum, wxColourFromSpec(val));
214
215 else if (option == "back")
216 StyleSetBackground(styleNum, wxColourFromSpec(val));
217 }
218}
219
220
221// Set style size, face, bold, italic, and underline attributes from
222// a wxFont's attributes.
223void wxStyledTextCtrl::StyleSetFont(int styleNum, wxFont& font) {
224 int size = font.GetPointSize();
225 wxString faceName = font.GetFaceName();
226 bool bold = font.GetWeight() == wxBOLD;
227 bool italic = font.GetStyle() != wxNORMAL;
228 bool under = font.GetUnderlined();
229
230 // TODO: add encoding/charset mapping
231 StyleSetFontAttr(styleNum, size, faceName, bold, italic, under);
232}
233
234// Set all font style attributes at once.
235void wxStyledTextCtrl::StyleSetFontAttr(int styleNum, int size,
236 const wxString& faceName,
237 bool bold, bool italic,
238 bool underline) {
239 StyleSetSize(styleNum, size);
240 StyleSetFaceName(styleNum, faceName);
241 StyleSetBold(styleNum, bold);
242 StyleSetItalic(styleNum, italic);
243 StyleSetUnderline(styleNum, underline);
244
245 // TODO: add encoding/charset mapping
246}
247
248
249// Perform one of the operations defined by the wxSTC_CMD_* constants.
250void wxStyledTextCtrl::CmdKeyExecute(int cmd) {
251 SendMsg(cmd);
252}
253
254
255// Set the left and right margin in the edit area, measured in pixels.
256void wxStyledTextCtrl::SetMargins(int left, int right) {
257 SetMarginLeft(left);
258 SetMarginRight(right);
259}
260
261
262// Retrieve the start and end positions of the current selection.
263void wxStyledTextCtrl::GetSelection(int* startPos, int* endPos) {
264 if (startPos != NULL)
265 *startPos = SendMsg(SCI_GETSELECTIONSTART);
266 if (endPos != NULL)
267 *endPos = SendMsg(SCI_GETSELECTIONEND);
268}
269
270
271// Retrieve the point in the window where a position is displayed.
272wxPoint wxStyledTextCtrl::PointFromPosition(int pos) {
273 int x = SendMsg(SCI_POINTXFROMPOSITION, 0, pos);
274 int y = SendMsg(SCI_POINTYFROMPOSITION, 0, pos);
275 return wxPoint(x, y);
276}
277
278// Scroll enough to make the given line visible
279void wxStyledTextCtrl::ScrollToLine(int line) {
280 m_swx->DoScrollToLine(line);
281}
282
283
284// Scroll enough to make the given column visible
285void wxStyledTextCtrl::ScrollToColumn(int column) {
286 m_swx->DoScrollToColumn(column);
287}
288
289
290
291//----------------------------------------------------------------------
292// Event handlers
293
294void wxStyledTextCtrl::OnPaint(wxPaintEvent& evt) {
295 wxPaintDC dc(this);
296 wxRegion region = GetUpdateRegion();
297
298 m_swx->DoPaint(&dc, region.GetBox());
299}
300
301void wxStyledTextCtrl::OnScrollWin(wxScrollWinEvent& evt) {
302 if (evt.GetOrientation() == wxHORIZONTAL)
303 m_swx->DoHScroll(evt.GetEventType(), evt.GetPosition());
304 else
305 m_swx->DoVScroll(evt.GetEventType(), evt.GetPosition());
306}
307
308void wxStyledTextCtrl::OnSize(wxSizeEvent& evt) {
309 wxSize sz = GetClientSize();
310 m_swx->DoSize(sz.x, sz.y);
311}
312
313void wxStyledTextCtrl::OnMouseLeftDown(wxMouseEvent& evt) {
314 wxPoint pt = evt.GetPosition();
315 m_swx->DoButtonDown(Point(pt.x, pt.y), m_stopWatch.Time(),
316 evt.ShiftDown(), evt.ControlDown(), evt.AltDown());
317}
318
319void wxStyledTextCtrl::OnMouseMove(wxMouseEvent& evt) {
320 wxPoint pt = evt.GetPosition();
321 m_swx->DoButtonMove(Point(pt.x, pt.y));
322}
323
324void wxStyledTextCtrl::OnMouseLeftUp(wxMouseEvent& evt) {
325 wxPoint pt = evt.GetPosition();
326 m_swx->DoButtonUp(Point(pt.x, pt.y), m_stopWatch.Time(),
327 evt.ControlDown());
328}
329
330
331void wxStyledTextCtrl::OnMouseRightUp(wxMouseEvent& evt) {
332 wxPoint pt = evt.GetPosition();
333 m_swx->DoContextMenu(Point(pt.x, pt.y));
334}
335
336void wxStyledTextCtrl::OnChar(wxKeyEvent& evt) {
337 long key = evt.KeyCode();
338 if ((key > WXK_ESCAPE) &&
339 (key != WXK_DELETE) && (key < 255) &&
340 !evt.ControlDown() && !evt.AltDown()) {
341
342 m_swx->DoAddChar(key);
343 }
344 else {
345 evt.Skip();
346 }
347}
348
349void wxStyledTextCtrl::OnKeyDown(wxKeyEvent& evt) {
350 long key = evt.KeyCode();
351 key = toupper(key);
352 int processed = m_swx->DoKeyDown(key, evt.ShiftDown(),
353 evt.ControlDown(), evt.AltDown());
354 if (! processed)
355 evt.Skip();
356}
357
358void wxStyledTextCtrl::OnLoseFocus(wxFocusEvent& evt) {
359 m_swx->DoLoseFocus();
360}
361
362void wxStyledTextCtrl::OnGainFocus(wxFocusEvent& evt) {
363 m_swx->DoGainFocus();
364}
365
366void wxStyledTextCtrl::OnSysColourChanged(wxSysColourChangedEvent& evt) {
367 m_swx->DoSysColourChange();
368}
369
370void wxStyledTextCtrl::OnEraseBackground(wxEraseEvent& evt) {
371 // do nothing to help avoid flashing
372}
373
374
375
376void wxStyledTextCtrl::OnMenu(wxCommandEvent& evt) {
377 m_swx->DoCommand(evt.GetId());
378}
379
380
381void wxStyledTextCtrl::OnListBox(wxCommandEvent& evt) {
382 m_swx->DoOnListBox();
383}
384
385
386//----------------------------------------------------------------------
387// Turn notifications from Scintilla into events
388
389
390void wxStyledTextCtrl::NotifyChange() {
391 wxStyledTextEvent evt(wxEVT_STC_CHANGE, GetId());
392 GetEventHandler()->ProcessEvent(evt);
393}
394
395void wxStyledTextCtrl::NotifyParent(SCNotification* _scn) {
396 SCNotification& scn = *_scn;
397 int eventType = 0;
398 switch (scn.nmhdr.code) {
399 case SCN_STYLENEEDED:
400 eventType = wxEVT_STC_STYLENEEDED;
401 break;
402 case SCN_CHARADDED:
403 eventType = wxEVT_STC_CHARADDED;
404 break;
405 case SCN_UPDATEUI:
406 eventType = wxEVT_STC_UPDATEUI;
407 break;
408 case SCN_SAVEPOINTREACHED:
409 eventType = wxEVT_STC_SAVEPOINTREACHED;
410 break;
411 case SCN_SAVEPOINTLEFT:
412 eventType = wxEVT_STC_SAVEPOINTLEFT;
413 break;
414 case SCN_MODIFYATTEMPTRO:
415 eventType = wxEVT_STC_ROMODIFYATTEMPT;
416 break;
417 case SCN_DOUBLECLICK:
418 eventType = wxEVT_STC_DOUBLECLICK;
419 break;
420 case SCN_MODIFIED:
421 eventType = wxEVT_STC_MODIFIED;
422 break;
423 case SCN_KEY:
424 eventType = wxEVT_STC_KEY;
425 break;
426 case SCN_MACRORECORD:
427 eventType = wxEVT_STC_MACRORECORD;
428 break;
429 case SCN_MARGINCLICK:
430 eventType = wxEVT_STC_MARGINCLICK;
431 break;
432 case SCN_NEEDSHOWN:
433 eventType = wxEVT_STC_NEEDSHOWN;
434 break;
435 case SCN_POSCHANGED:
436 eventType = wxEVT_STC_POSCHANGED;
437 break;
438 }
439 if (eventType) {
440 wxStyledTextEvent evt(eventType, GetId());
441 evt.SetPosition(scn.position);
442 evt.SetKey(scn.ch);
443 evt.SetModifiers(scn.modifiers);
444 if (eventType == wxEVT_STC_MODIFIED) {
445 evt.SetModificationType(scn.modificationType);
446 if (scn.text)
447 evt.SetText(wxString(scn.text, scn.length));
448 evt.SetLength(scn.length);
449 evt.SetLinesAdded(scn.linesAdded);
450 evt.SetLine(scn.line);
451 evt.SetFoldLevelNow(scn.foldLevelNow);
452 evt.SetFoldLevelPrev(scn.foldLevelPrev);
453 }
454 if (eventType == wxEVT_STC_MARGINCLICK)
455 evt.SetMargin(scn.margin);
456 if (eventType == wxEVT_STC_MACRORECORD) {
457 evt.SetMessage(scn.message);
458 evt.SetWParam(scn.wParam);
459 evt.SetLParam(scn.lParam);
460 }
461
462 GetEventHandler()->ProcessEvent(evt);
463 }
464}
465
466
467
468//----------------------------------------------------------------------
469//----------------------------------------------------------------------
470//----------------------------------------------------------------------
471
472wxStyledTextEvent::wxStyledTextEvent(wxEventType commandType, int id)
473 : wxCommandEvent(commandType, id)
474{
475 m_position = 0;
476 m_key = 0;
477 m_modifiers = 0;
478 m_modificationType = 0;
479 m_length = 0;
480 m_linesAdded = 0;
481 m_line = 0;
482 m_foldLevelNow = 0;
483 m_foldLevelPrev = 0;
484 m_margin = 0;
485 m_message = 0;
486 m_wParam = 0;
487 m_lParam = 0;
488
489
490}
491
492bool wxStyledTextEvent::GetShift() const { return (m_modifiers & SCI_SHIFT) != 0; }
493bool wxStyledTextEvent::GetControl() const { return (m_modifiers & SCI_CTRL) != 0; }
494bool wxStyledTextEvent::GetAlt() const { return (m_modifiers & SCI_ALT) != 0; }
495
496void wxStyledTextEvent::CopyObject(wxObject& obj) const {
497 wxCommandEvent::CopyObject(obj);
498
499 wxStyledTextEvent* o = (wxStyledTextEvent*)&obj;
500 o->m_position = m_position;
501 o->m_key = m_key;
502 o->m_modifiers = m_modifiers;
503 o->m_modificationType = m_modificationType;
504 o->m_text = m_text;
505 o->m_length = m_length;
506 o->m_linesAdded = m_linesAdded;
507 o->m_line = m_line;
508 o->m_foldLevelNow = m_foldLevelNow;
509 o->m_foldLevelPrev = m_foldLevelPrev;
510
511 o->m_margin = m_margin;
512
513 o->m_message = m_message;
514 o->m_wParam = m_wParam;
515 o->m_lParam = m_lParam;
516
517
518
519}
520
521//----------------------------------------------------------------------
522//----------------------------------------------------------------------
523