Commit | Line | Data |
---|---|---|
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 | ||
29 | int wxForceScintillaLexers(void) | |
30 | { | |
65ec6247 RD |
31 | extern LexerModule lmAda; |
32 | extern LexerModule lmAVE; | |
33 | extern LexerModule lmConf; | |
f97d84a6 | 34 | extern LexerModule lmCPP; |
b8b0e402 | 35 | extern LexerModule lmNncrontab; |
65ec6247 | 36 | extern LexerModule lmEiffel; |
f97d84a6 | 37 | extern LexerModule lmHTML; |
65ec6247 RD |
38 | extern LexerModule lmLISP; |
39 | extern LexerModule lmLua; | |
40 | extern LexerModule lmBatch; // In LexOthers.cxx | |
41 | extern LexerModule lmPascal; | |
f97d84a6 RD |
42 | extern LexerModule lmPerl; |
43 | extern LexerModule lmPython; | |
65ec6247 | 44 | extern LexerModule lmRuby; |
f97d84a6 RD |
45 | extern LexerModule lmSQL; |
46 | extern LexerModule lmVB; | |
47 | ||
65ec6247 RD |
48 | if ( &lmAda |
49 | && &lmAVE | |
50 | && &lmConf | |
51 | && &lmCPP | |
b8b0e402 | 52 | && &lmNncrontab |
65ec6247 RD |
53 | && &lmEiffel |
54 | && &lmHTML | |
55 | && &lmLISP | |
56 | && &lmLua | |
57 | && &lmBatch | |
58 | && &lmPascal | |
59 | && &lmPerl | |
60 | && &lmPython | |
61 | && &lmRuby | |
62 | && &lmSQL | |
63 | && &lmVB ) | |
f97d84a6 RD |
64 | { |
65 | return 1; | |
66 | } | |
67 | else | |
68 | { | |
69 | return 0; | |
70 | } | |
71 | } | |
72 | ||
73 | //---------------------------------------------------------------------- | |
74 | ||
75 | const wxChar* wxSTCNameStr = "stcwindow"; | |
76 | ||
d25f5fbb RD |
77 | DEFINE_EVENT_TYPE( wxEVT_STC_CHANGE ) |
78 | DEFINE_EVENT_TYPE( wxEVT_STC_STYLENEEDED ) | |
79 | DEFINE_EVENT_TYPE( wxEVT_STC_CHARADDED ) | |
d25f5fbb RD |
80 | DEFINE_EVENT_TYPE( wxEVT_STC_SAVEPOINTREACHED ) |
81 | DEFINE_EVENT_TYPE( wxEVT_STC_SAVEPOINTLEFT ) | |
82 | DEFINE_EVENT_TYPE( wxEVT_STC_ROMODIFYATTEMPT ) | |
65ec6247 | 83 | DEFINE_EVENT_TYPE( wxEVT_STC_KEY ) |
d25f5fbb | 84 | DEFINE_EVENT_TYPE( wxEVT_STC_DOUBLECLICK ) |
65ec6247 | 85 | DEFINE_EVENT_TYPE( wxEVT_STC_UPDATEUI ) |
d25f5fbb | 86 | DEFINE_EVENT_TYPE( wxEVT_STC_MODIFIED ) |
d25f5fbb RD |
87 | DEFINE_EVENT_TYPE( wxEVT_STC_MACRORECORD ) |
88 | DEFINE_EVENT_TYPE( wxEVT_STC_MARGINCLICK ) | |
89 | DEFINE_EVENT_TYPE( wxEVT_STC_NEEDSHOWN ) | |
90 | DEFINE_EVENT_TYPE( wxEVT_STC_POSCHANGED ) | |
65ec6247 RD |
91 | DEFINE_EVENT_TYPE( wxEVT_STC_PAINTED ) |
92 | DEFINE_EVENT_TYPE( wxEVT_STC_USERLISTSELECTION ) | |
93 | DEFINE_EVENT_TYPE( wxEVT_STC_URIDROPPED ) | |
94 | DEFINE_EVENT_TYPE( wxEVT_STC_DWELLSTART ) | |
95 | DEFINE_EVENT_TYPE( wxEVT_STC_DWELLEND ) | |
1bc32508 | 96 | #if wxUSE_DRAG_AND_DROP |
a29a241f RD |
97 | DEFINE_EVENT_TYPE( wxEVT_STC_START_DRAG ) |
98 | DEFINE_EVENT_TYPE( wxEVT_STC_DRAG_OVER ) | |
99 | DEFINE_EVENT_TYPE( wxEVT_STC_DO_DROP ) | |
1bc32508 | 100 | #endif |
d25f5fbb RD |
101 | |
102 | ||
f97d84a6 RD |
103 | BEGIN_EVENT_TABLE(wxStyledTextCtrl, wxControl) |
104 | EVT_PAINT (wxStyledTextCtrl::OnPaint) | |
105 | EVT_SCROLLWIN (wxStyledTextCtrl::OnScrollWin) | |
5fa4613c | 106 | EVT_SCROLL (wxStyledTextCtrl::OnScroll) |
f97d84a6 RD |
107 | EVT_SIZE (wxStyledTextCtrl::OnSize) |
108 | EVT_LEFT_DOWN (wxStyledTextCtrl::OnMouseLeftDown) | |
4ceb1196 RD |
109 | #ifdef __WXMSW__ |
110 | // Let Scintilla see the double click as a second click | |
111 | EVT_LEFT_DCLICK (wxStyledTextCtrl::OnMouseLeftDown) | |
112 | #endif | |
f97d84a6 RD |
113 | EVT_MOTION (wxStyledTextCtrl::OnMouseMove) |
114 | EVT_LEFT_UP (wxStyledTextCtrl::OnMouseLeftUp) | |
ddf2da08 RD |
115 | #ifdef __WXGTK__ |
116 | EVT_RIGHT_UP (wxStyledTextCtrl::OnMouseRightUp) | |
117 | #else | |
65ec6247 | 118 | EVT_CONTEXT_MENU (wxStyledTextCtrl::OnContextMenu) |
ddf2da08 | 119 | #endif |
37d62433 | 120 | EVT_MOUSEWHEEL (wxStyledTextCtrl::OnMouseWheel) |
f97d84a6 RD |
121 | EVT_CHAR (wxStyledTextCtrl::OnChar) |
122 | EVT_KEY_DOWN (wxStyledTextCtrl::OnKeyDown) | |
123 | EVT_KILL_FOCUS (wxStyledTextCtrl::OnLoseFocus) | |
124 | EVT_SET_FOCUS (wxStyledTextCtrl::OnGainFocus) | |
125 | EVT_SYS_COLOUR_CHANGED (wxStyledTextCtrl::OnSysColourChanged) | |
126 | EVT_ERASE_BACKGROUND (wxStyledTextCtrl::OnEraseBackground) | |
127 | EVT_MENU_RANGE (-1, -1, wxStyledTextCtrl::OnMenu) | |
128 | EVT_LISTBOX_DCLICK (-1, wxStyledTextCtrl::OnListBox) | |
129 | END_EVENT_TABLE() | |
130 | ||
131 | ||
132 | IMPLEMENT_CLASS(wxStyledTextCtrl, wxControl) | |
133 | IMPLEMENT_DYNAMIC_CLASS(wxStyledTextEvent, wxCommandEvent) | |
134 | ||
135 | //---------------------------------------------------------------------- | |
136 | // Constructor and Destructor | |
137 | ||
138 | wxStyledTextCtrl::wxStyledTextCtrl(wxWindow *parent, | |
139 | wxWindowID id, | |
140 | const wxPoint& pos, | |
141 | const wxSize& size, | |
142 | long style, | |
143 | const wxString& name) : | |
144 | wxControl(parent, id, pos, size, | |
145 | style | wxVSCROLL | wxHSCROLL | wxWANTS_CHARS | wxCLIP_CHILDREN, | |
146 | wxDefaultValidator, name) | |
147 | { | |
148 | m_swx = new ScintillaWX(this); | |
149 | m_stopWatch.Start(); | |
d6582821 | 150 | m_lastKeyDownConsumed = FALSE; |
5fa4613c RD |
151 | m_vScrollBar = NULL; |
152 | m_hScrollBar = NULL; | |
f97d84a6 RD |
153 | } |
154 | ||
155 | ||
156 | wxStyledTextCtrl::~wxStyledTextCtrl() { | |
157 | delete m_swx; | |
158 | } | |
159 | ||
160 | ||
161 | //---------------------------------------------------------------------- | |
162 | ||
163 | long wxStyledTextCtrl::SendMsg(int msg, long wp, long lp) { | |
164 | ||
165 | return m_swx->WndProc(msg, wp, lp); | |
166 | } | |
167 | ||
168 | ||
169 | #ifdef MAKELONG | |
170 | #undef MAKELONG | |
171 | #endif | |
172 | ||
173 | #define MAKELONG(a, b) ((a) | ((b) << 16)) | |
174 | ||
175 | ||
176 | static long wxColourAsLong(const wxColour& co) { | |
177 | return (((long)co.Blue() << 16) | | |
178 | ((long)co.Green() << 8) | | |
179 | ((long)co.Red())); | |
180 | } | |
181 | ||
182 | static wxColour wxColourFromLong(long c) { | |
183 | wxColour clr; | |
184 | clr.Set(c & 0xff, (c >> 8) & 0xff, (c >> 16) & 0xff); | |
185 | return clr; | |
186 | } | |
187 | ||
188 | ||
189 | static wxColour wxColourFromSpec(const wxString& spec) { | |
190 | // spec should be #RRGGBB | |
191 | char* junk; | |
192 | int red = strtol(spec.Mid(1,2), &junk, 16); | |
193 | int green = strtol(spec.Mid(3,2), &junk, 16); | |
194 | int blue = strtol(spec.Mid(5,2), &junk, 16); | |
195 | return wxColour(red, green, blue); | |
196 | } | |
197 | ||
198 | ||
199 | //---------------------------------------------------------------------- | |
200 | // BEGIN generated section. The following code is automatically generated | |
201 | // by gen_iface.py from the contents of Scintilla.iface. Do not edit | |
202 | // this file. Edit stc.cpp.in or gen_iface.py instead and regenerate. | |
203 | ||
204 | %(METHOD_IMPS)s | |
205 | ||
206 | // END of generated section | |
207 | //---------------------------------------------------------------------- | |
208 | ||
209 | ||
210 | // Returns the line number of the line with the caret. | |
211 | int wxStyledTextCtrl::GetCurrentLine() { | |
212 | int line = LineFromPosition(GetCurrentPos()); | |
213 | return line; | |
214 | } | |
215 | ||
216 | ||
217 | // Extract style settings from a spec-string which is composed of one or | |
218 | // more of the following comma separated elements: | |
219 | // | |
220 | // bold turns on bold | |
221 | // italic turns on italics | |
222 | // fore:#RRGGBB sets the foreground colour | |
223 | // back:#RRGGBB sets the background colour | |
224 | // face:[facename] sets the font face name to use | |
225 | // size:[num] sets the font size in points | |
226 | // eol turns on eol filling | |
227 | // underline turns on underlining | |
228 | // | |
229 | void wxStyledTextCtrl::StyleSetSpec(int styleNum, const wxString& spec) { | |
230 | ||
231 | wxStringTokenizer tkz(spec, ","); | |
232 | while (tkz.HasMoreTokens()) { | |
233 | wxString token = tkz.GetNextToken(); | |
234 | ||
235 | wxString option = token.BeforeFirst(':'); | |
236 | wxString val = token.AfterFirst(':'); | |
237 | ||
238 | if (option == "bold") | |
239 | StyleSetBold(styleNum, true); | |
240 | ||
241 | else if (option == "italic") | |
242 | StyleSetItalic(styleNum, true); | |
243 | ||
244 | else if (option == "underline") | |
245 | StyleSetUnderline(styleNum, true); | |
246 | ||
247 | else if (option == "eol") | |
248 | StyleSetEOLFilled(styleNum, true); | |
249 | ||
250 | else if (option == "size") { | |
251 | long points; | |
252 | if (val.ToLong(&points)) | |
253 | StyleSetSize(styleNum, points); | |
254 | } | |
255 | ||
256 | else if (option == "face") | |
257 | StyleSetFaceName(styleNum, val); | |
258 | ||
259 | else if (option == "fore") | |
260 | StyleSetForeground(styleNum, wxColourFromSpec(val)); | |
261 | ||
262 | else if (option == "back") | |
263 | StyleSetBackground(styleNum, wxColourFromSpec(val)); | |
264 | } | |
265 | } | |
266 | ||
267 | ||
268 | // Set style size, face, bold, italic, and underline attributes from | |
269 | // a wxFont's attributes. | |
270 | void wxStyledTextCtrl::StyleSetFont(int styleNum, wxFont& font) { | |
271 | int size = font.GetPointSize(); | |
272 | wxString faceName = font.GetFaceName(); | |
273 | bool bold = font.GetWeight() == wxBOLD; | |
274 | bool italic = font.GetStyle() != wxNORMAL; | |
275 | bool under = font.GetUnderlined(); | |
276 | ||
277 | // TODO: add encoding/charset mapping | |
278 | StyleSetFontAttr(styleNum, size, faceName, bold, italic, under); | |
279 | } | |
280 | ||
281 | // Set all font style attributes at once. | |
282 | void wxStyledTextCtrl::StyleSetFontAttr(int styleNum, int size, | |
283 | const wxString& faceName, | |
284 | bool bold, bool italic, | |
285 | bool underline) { | |
286 | StyleSetSize(styleNum, size); | |
287 | StyleSetFaceName(styleNum, faceName); | |
288 | StyleSetBold(styleNum, bold); | |
289 | StyleSetItalic(styleNum, italic); | |
290 | StyleSetUnderline(styleNum, underline); | |
291 | ||
292 | // TODO: add encoding/charset mapping | |
293 | } | |
294 | ||
295 | ||
296 | // Perform one of the operations defined by the wxSTC_CMD_* constants. | |
297 | void wxStyledTextCtrl::CmdKeyExecute(int cmd) { | |
298 | SendMsg(cmd); | |
299 | } | |
300 | ||
301 | ||
302 | // Set the left and right margin in the edit area, measured in pixels. | |
303 | void wxStyledTextCtrl::SetMargins(int left, int right) { | |
304 | SetMarginLeft(left); | |
305 | SetMarginRight(right); | |
306 | } | |
307 | ||
308 | ||
309 | // Retrieve the start and end positions of the current selection. | |
310 | void wxStyledTextCtrl::GetSelection(int* startPos, int* endPos) { | |
311 | if (startPos != NULL) | |
312 | *startPos = SendMsg(SCI_GETSELECTIONSTART); | |
313 | if (endPos != NULL) | |
314 | *endPos = SendMsg(SCI_GETSELECTIONEND); | |
315 | } | |
316 | ||
317 | ||
318 | // Retrieve the point in the window where a position is displayed. | |
319 | wxPoint wxStyledTextCtrl::PointFromPosition(int pos) { | |
320 | int x = SendMsg(SCI_POINTXFROMPOSITION, 0, pos); | |
321 | int y = SendMsg(SCI_POINTYFROMPOSITION, 0, pos); | |
322 | return wxPoint(x, y); | |
323 | } | |
324 | ||
325 | // Scroll enough to make the given line visible | |
326 | void wxStyledTextCtrl::ScrollToLine(int line) { | |
327 | m_swx->DoScrollToLine(line); | |
328 | } | |
329 | ||
330 | ||
331 | // Scroll enough to make the given column visible | |
332 | void wxStyledTextCtrl::ScrollToColumn(int column) { | |
333 | m_swx->DoScrollToColumn(column); | |
334 | } | |
335 | ||
336 | ||
337 | ||
338 | //---------------------------------------------------------------------- | |
339 | // Event handlers | |
340 | ||
341 | void wxStyledTextCtrl::OnPaint(wxPaintEvent& evt) { | |
342 | wxPaintDC dc(this); | |
343 | wxRegion region = GetUpdateRegion(); | |
344 | ||
345 | m_swx->DoPaint(&dc, region.GetBox()); | |
346 | } | |
347 | ||
348 | void wxStyledTextCtrl::OnScrollWin(wxScrollWinEvent& evt) { | |
349 | if (evt.GetOrientation() == wxHORIZONTAL) | |
350 | m_swx->DoHScroll(evt.GetEventType(), evt.GetPosition()); | |
351 | else | |
352 | m_swx->DoVScroll(evt.GetEventType(), evt.GetPosition()); | |
353 | } | |
354 | ||
5fa4613c RD |
355 | void wxStyledTextCtrl::OnScroll(wxScrollEvent& evt) { |
356 | wxScrollBar* sb = wxDynamicCast(evt.GetEventObject(), wxScrollBar); | |
357 | if (sb) { | |
358 | if (sb->IsVertical()) | |
359 | m_swx->DoVScroll(evt.GetEventType(), evt.GetPosition()); | |
360 | else | |
361 | m_swx->DoHScroll(evt.GetEventType(), evt.GetPosition()); | |
362 | } | |
363 | } | |
364 | ||
f97d84a6 RD |
365 | void wxStyledTextCtrl::OnSize(wxSizeEvent& evt) { |
366 | wxSize sz = GetClientSize(); | |
367 | m_swx->DoSize(sz.x, sz.y); | |
368 | } | |
369 | ||
370 | void wxStyledTextCtrl::OnMouseLeftDown(wxMouseEvent& evt) { | |
371 | wxPoint pt = evt.GetPosition(); | |
372 | m_swx->DoButtonDown(Point(pt.x, pt.y), m_stopWatch.Time(), | |
373 | evt.ShiftDown(), evt.ControlDown(), evt.AltDown()); | |
374 | } | |
375 | ||
376 | void wxStyledTextCtrl::OnMouseMove(wxMouseEvent& evt) { | |
377 | wxPoint pt = evt.GetPosition(); | |
378 | m_swx->DoButtonMove(Point(pt.x, pt.y)); | |
379 | } | |
380 | ||
381 | void wxStyledTextCtrl::OnMouseLeftUp(wxMouseEvent& evt) { | |
382 | wxPoint pt = evt.GetPosition(); | |
383 | m_swx->DoButtonUp(Point(pt.x, pt.y), m_stopWatch.Time(), | |
384 | evt.ControlDown()); | |
385 | } | |
386 | ||
387 | ||
ddf2da08 RD |
388 | void wxStyledTextCtrl::OnMouseRightUp(wxMouseEvent& evt) { |
389 | wxPoint pt = evt.GetPosition(); | |
390 | m_swx->DoContextMenu(Point(pt.x, pt.y)); | |
391 | } | |
392 | ||
393 | ||
65ec6247 | 394 | void wxStyledTextCtrl::OnContextMenu(wxContextMenuEvent& evt) { |
f97d84a6 | 395 | wxPoint pt = evt.GetPosition(); |
65ec6247 | 396 | ScreenToClient(&pt.x, &pt.y); |
f97d84a6 RD |
397 | m_swx->DoContextMenu(Point(pt.x, pt.y)); |
398 | } | |
399 | ||
37d62433 RD |
400 | |
401 | void wxStyledTextCtrl::OnMouseWheel(wxMouseEvent& evt) { | |
402 | m_swx->DoMouseWheel(evt.GetWheelRotation(), | |
403 | evt.GetWheelDelta(), | |
65ec6247 RD |
404 | evt.GetLinesPerAction(), |
405 | evt.ControlDown()); | |
37d62433 RD |
406 | } |
407 | ||
408 | ||
f97d84a6 RD |
409 | void wxStyledTextCtrl::OnChar(wxKeyEvent& evt) { |
410 | long key = evt.KeyCode(); | |
f3c2c221 RD |
411 | |
412 | // printf("OnChar key:%%d consumed:%%d ctrl:%%d alt:%%d\n", | |
413 | // key, m_lastKeyDownConsumed, evt.ControlDown(), evt.AltDown()); | |
414 | ||
415 | // AltGr keys??? | |
416 |