]> git.saurik.com Git - wxWidgets.git/blame - src/stc/stc.cpp.in
compilation fix for DJGPP
[wxWidgets.git] / 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{
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
75const wxChar* wxSTCNameStr = "stcwindow";
76
d25f5fbb
RD
77DEFINE_EVENT_TYPE( wxEVT_STC_CHANGE )
78DEFINE_EVENT_TYPE( wxEVT_STC_STYLENEEDED )
79DEFINE_EVENT_TYPE( wxEVT_STC_CHARADDED )
d25f5fbb
RD
80DEFINE_EVENT_TYPE( wxEVT_STC_SAVEPOINTREACHED )
81DEFINE_EVENT_TYPE( wxEVT_STC_SAVEPOINTLEFT )
82DEFINE_EVENT_TYPE( wxEVT_STC_ROMODIFYATTEMPT )
65ec6247 83DEFINE_EVENT_TYPE( wxEVT_STC_KEY )
d25f5fbb 84DEFINE_EVENT_TYPE( wxEVT_STC_DOUBLECLICK )
65ec6247 85DEFINE_EVENT_TYPE( wxEVT_STC_UPDATEUI )
d25f5fbb 86DEFINE_EVENT_TYPE( wxEVT_STC_MODIFIED )
d25f5fbb
RD
87DEFINE_EVENT_TYPE( wxEVT_STC_MACRORECORD )
88DEFINE_EVENT_TYPE( wxEVT_STC_MARGINCLICK )
89DEFINE_EVENT_TYPE( wxEVT_STC_NEEDSHOWN )
90DEFINE_EVENT_TYPE( wxEVT_STC_POSCHANGED )
65ec6247
RD
91DEFINE_EVENT_TYPE( wxEVT_STC_PAINTED )
92DEFINE_EVENT_TYPE( wxEVT_STC_USERLISTSELECTION )
93DEFINE_EVENT_TYPE( wxEVT_STC_URIDROPPED )
94DEFINE_EVENT_TYPE( wxEVT_STC_DWELLSTART )
95DEFINE_EVENT_TYPE( wxEVT_STC_DWELLEND )
1bc32508 96#if wxUSE_DRAG_AND_DROP
a29a241f
RD
97DEFINE_EVENT_TYPE( wxEVT_STC_START_DRAG )
98DEFINE_EVENT_TYPE( wxEVT_STC_DRAG_OVER )
99DEFINE_EVENT_TYPE( wxEVT_STC_DO_DROP )
1bc32508 100#endif
d25f5fbb
RD
101
102
f97d84a6
RD
103BEGIN_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)
129END_EVENT_TABLE()
130
131
132IMPLEMENT_CLASS(wxStyledTextCtrl, wxControl)
133IMPLEMENT_DYNAMIC_CLASS(wxStyledTextEvent, wxCommandEvent)
134
135//----------------------------------------------------------------------
136// Constructor and Destructor
137
138wxStyledTextCtrl::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
156wxStyledTextCtrl::~wxStyledTextCtrl() {
157 delete m_swx;
158}
159
160
161//----------------------------------------------------------------------
162
163long 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
176static long wxColourAsLong(const wxColour& co) {
177 return (((long)co.Blue() << 16) |
178 ((long)co.Green() << 8) |
179 ((long)co.Red()));
180}
181
182static wxColour wxColourFromLong(long c) {
183 wxColour clr;
184 clr.Set(c & 0xff, (c >> 8) & 0xff, (c >> 16) & 0xff);
185 return clr;
186}
187
188
189static 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.
211int 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//
229void 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.
270void 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.
282void 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.
297void wxStyledTextCtrl::CmdKeyExecute(int cmd) {
298 SendMsg(cmd);
299}
300
301
302// Set the left and right margin in the edit area, measured in pixels.
303void 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.
310void 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.
319wxPoint 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
326void wxStyledTextCtrl::ScrollToLine(int line) {
327 m_swx->DoScrollToLine(line);
328}
329
330
331// Scroll enough to make the given column visible
332void wxStyledTextCtrl::ScrollToColumn(int column) {
333 m_swx->DoScrollToColumn(column);
334}
335
336
337
338//----------------------------------------------------------------------
339// Event handlers
340
341void wxStyledTextCtrl::OnPaint(wxPaintEvent& evt) {
342 wxPaintDC dc(this);
343 wxRegion region = GetUpdateRegion();
344
345 m_swx->DoPaint(&dc, region.GetBox());
346}
347
348void 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
355void 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
365void wxStyledTextCtrl::OnSize(wxSizeEvent& evt) {
366 wxSize sz = GetClientSize();
367 m_swx->DoSize(sz.x, sz.y);
368}
369
370void 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
376void wxStyledTextCtrl::OnMouseMove(wxMouseEvent& evt) {
377 wxPoint pt = evt.GetPosition();
378 m_swx->DoButtonMove(Point(pt.x, pt.y));
379}
380
381void 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
388void wxStyledTextCtrl::OnMouseRightUp(wxMouseEvent& evt) {
389 wxPoint pt = evt.GetPosition();
390 m_swx->DoContextMenu(Point(pt.x, pt.y));
391}
392
393
65ec6247 394void 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
401void 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
409void 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