]> git.saurik.com Git - wxWidgets.git/blame - samples/text/text.cpp
htmlhelp.h no longer needed -> removed test in configure
[wxWidgets.git] / samples / text / text.cpp
CommitLineData
02e8b87f 1/////////////////////////////////////////////////////////////////////////////
4aff28fc 2// Name: text.cpp
02e8b87f
RR
3// Purpose: TextCtrl wxWindows sample
4// Author: Robert Roebling
5// Modified by:
6// RCS-ID: $Id$
4aff28fc 7// Copyright: (c) Robert Roebling, Julian Smart, Vadim Zeitlin
02e8b87f
RR
8// Licence: wxWindows license
9/////////////////////////////////////////////////////////////////////////////
10
11#ifdef __GNUG__
c41ea66a 12 #pragma implementation "text.cpp"
02e8b87f
RR
13#endif
14
15// For compilers that support precompilation, includes "wx/wx.h".
16#include "wx/wxprec.h"
17
18#ifdef __BORLANDC__
19 #pragma hdrstop
20#endif
21
22#ifndef WX_PRECOMP
23 #include "wx/wx.h"
24#endif
25
26#if wxUSE_CLIPBOARD
27 #include "wx/dataobj.h"
28 #include "wx/clipbrd.h"
29#endif
30
0ddea946 31#if wxUSE_FILE
ae3dd4a5 32 #include "wx/file.h"
0ddea946
VZ
33#endif
34
02e8b87f
RR
35#if wxUSE_TOOLTIPS
36 #include "wx/tooltip.h"
37#endif
38
b6a0d8a2
VZ
39// We test for wxUSE_DRAG_AND_DROP also, because data objects may not be
40// implemented for compilers that can't cope with the OLE parts in
41// wxUSE_DRAG_AND_DROP.
42#if !wxUSE_DRAG_AND_DROP
43 #undef wxUSE_CLIPBOARD
44 #define wxUSE_CLIPBOARD 0
45#endif
46
02e8b87f
RR
47//----------------------------------------------------------------------
48// class definitions
49//----------------------------------------------------------------------
50
51class MyApp: public wxApp
52{
53public:
54 bool OnInit();
55};
56
57// a text ctrl which allows to call different wxTextCtrl functions
58// interactively by pressing function keys in it
59class MyTextCtrl : public wxTextCtrl
60{
61public:
62 MyTextCtrl(wxWindow *parent, wxWindowID id, const wxString &value,
63 const wxPoint &pos, const wxSize &size, int style = 0)
56c4a88b
VZ
64 : wxTextCtrl(parent, id, value, pos, size, style)
65 {
66 m_hasCapture = FALSE;
67 }
02e8b87f
RR
68
69 void OnKeyDown(wxKeyEvent& event);
70 void OnKeyUp(wxKeyEvent& event);
71 void OnChar(wxKeyEvent& event);
d7eee191 72
9ca03a57 73 void OnText(wxCommandEvent& event);
c57e3339 74 void OnTextURL(wxTextUrlEvent& event);
d7eee191
VZ
75 void OnTextMaxLen(wxCommandEvent& event);
76
4aff28fc 77 void OnMouseEvent(wxMouseEvent& event);
02e8b87f 78
56c4a88b
VZ
79 static bool ms_logKey;
80 static bool ms_logChar;
81 static bool ms_logMouse;
1ce58dc6 82 static bool ms_logText;
f152cf5a 83
02e8b87f
RR
84private:
85 static inline wxChar GetChar(bool on, wxChar c) { return on ? c : _T('-'); }
86 void LogEvent(const wxChar *name, wxKeyEvent& event) const;
87
56c4a88b
VZ
88 bool m_hasCapture;
89
02e8b87f
RR
90 DECLARE_EVENT_TABLE()
91};
92
93class MyPanel: public wxPanel
94{
95public:
96 MyPanel(wxFrame *frame, int x, int y, int w, int h);
97
b6a0d8a2
VZ
98#if wxUSE_CLIPBOARD
99 void DoPasteFromClipboard();
100 void DoCopyToClipboard();
101#endif // wxUSE_CLIPBOARD
102
cba1148d 103 void DoRemoveText();
b6a0d8a2
VZ
104 void DoMoveToEndOfText();
105 void DoMoveToEndOfEntry();
02e8b87f 106
89124b1a
RR
107 void OnSize( wxSizeEvent &event );
108
02e8b87f
RR
109 MyTextCtrl *m_text;
110 MyTextCtrl *m_password;
111 MyTextCtrl *m_enter;
112 MyTextCtrl *m_tab;
02e8b87f 113 MyTextCtrl *m_readonly;
d7eee191 114 MyTextCtrl *m_limited;
bb69661b 115
02e8b87f
RR
116 MyTextCtrl *m_multitext;
117 MyTextCtrl *m_horizontal;
02e8b87f 118
0ddea946
VZ
119 MyTextCtrl *m_textrich;
120
02e8b87f 121 wxTextCtrl *m_log;
89124b1a
RR
122
123private:
cba1148d
VZ
124 // get the currently focused text control or return the default one is no
125 // text ctrl has focus
126 wxTextCtrl *GetFocusedText(wxTextCtrl *textDef);
127
89124b1a 128 DECLARE_EVENT_TABLE()
02e8b87f
RR
129};
130
131class MyFrame: public wxFrame
132{
133public:
b6a0d8a2 134 MyFrame(wxFrame *frame, const char *title, int x, int y, int w, int h);
02e8b87f
RR
135
136 void OnQuit(wxCommandEvent& event);
137 void OnAbout(wxCommandEvent& event);
138#if wxUSE_TOOLTIPS
139 void OnSetTooltipDelay(wxCommandEvent& event);
140 void OnToggleTooltips(wxCommandEvent& event);
141#endif // wxUSE_TOOLTIPS
b6a0d8a2
VZ
142
143#if wxUSE_CLIPBOARD
144 void OnPasteFromClipboard( wxCommandEvent &event )
145 { m_panel->DoPasteFromClipboard(); }
146 void OnCopyToClipboard( wxCommandEvent &event )
147 { m_panel->DoCopyToClipboard(); }
148#endif // wxUSE_CLIPBOARD
149
eff00523
VZ
150 void OnAddTextFreeze( wxCommandEvent& event )
151 { DoAddText(true); }
152 void OnAddText( wxCommandEvent& event )
153 { DoAddText(false); }
cba1148d
VZ
154 void OnRemoveText( wxCommandEvent& event )
155 { m_panel->DoRemoveText(); }
eff00523 156
b6a0d8a2
VZ
157 void OnMoveToEndOfText( wxCommandEvent &event )
158 { m_panel->DoMoveToEndOfText(); }
159 void OnMoveToEndOfEntry( wxCommandEvent &event )
160 { m_panel->DoMoveToEndOfEntry(); }
161
22670da4
VZ
162 void OnScrollLineDown(wxCommandEvent& event)
163 {
164 if ( !m_panel->m_textrich->LineDown() )
165 wxLogMessage(_T("Already at the bottom"));
166 }
167
168 void OnScrollLineUp(wxCommandEvent& event)
169 {
170 if ( !m_panel->m_textrich->LineUp() )
171 wxLogMessage(_T("Already at the top"));
172 }
173
174 void OnScrollPageDown(wxCommandEvent& event)
175 {
176 if ( !m_panel->m_textrich->PageDown() )
177 wxLogMessage(_T("Already at the bottom"));
178 }
179
180 void OnScrollPageUp(wxCommandEvent& event)
181 {
182 if ( !m_panel->m_textrich->PageUp() )
183 wxLogMessage(_T("Already at the top"));
184 }
185
e66ad5c6 186 void OnLogClear(wxCommandEvent& event);
0ddea946 187 void OnFileSave(wxCommandEvent& event);
b6a0d8a2
VZ
188 void OnFileLoad(wxCommandEvent& event);
189
f6bcfd97
BP
190 void OnSetEditable(wxCommandEvent& event);
191 void OnSetEnabled(wxCommandEvent& event);
192
56c4a88b
VZ
193 void OnLogKey(wxCommandEvent& event)
194 {
195 MyTextCtrl::ms_logKey = event.IsChecked();
196 }
197
198 void OnLogChar(wxCommandEvent& event)
199 {
200 MyTextCtrl::ms_logChar = event.IsChecked();
201 }
202
203 void OnLogMouse(wxCommandEvent& event)
204 {
205 MyTextCtrl::ms_logMouse = event.IsChecked();
206 }
207
1ce58dc6
VZ
208 void OnLogText(wxCommandEvent& event)
209 {
210 MyTextCtrl::ms_logText = event.IsChecked();
211 }
212
60f52320
VZ
213 void OnSetText(wxCommandEvent& event)
214 {
215 m_panel->m_text->SetValue(_T("Hello, world (what else did you expect)?"));
216 }
217
02e8b87f
RR
218 void OnIdle( wxIdleEvent& event );
219
220private:
eff00523
VZ
221 void DoAddText(bool freeze)
222 {
223 wxTextCtrl *text = m_panel->m_textrich;
224 if ( freeze )
225 text->Freeze();
226
227 for ( int i = 0; i < 100; i++ )
4693b20c 228 text->AppendText(wxString::Format(wxT("Line %i\n"), i));
eff00523
VZ
229
230 text->SetInsertionPoint(0);
231
232 if ( freeze )
233 text->Thaw();
234 }
235
b6a0d8a2
VZ
236 MyPanel *m_panel;
237
02e8b87f
RR
238 DECLARE_EVENT_TABLE()
239};
240
241//----------------------------------------------------------------------
242// main()
243//----------------------------------------------------------------------
244
245IMPLEMENT_APP(MyApp)
246
247//----------------------------------------------------------------------
248// MyApp
249//----------------------------------------------------------------------
250
251enum
252{
b6a0d8a2
VZ
253 TEXT_QUIT = 100,
254 TEXT_ABOUT,
255 TEXT_LOAD,
ae3dd4a5 256 TEXT_SAVE,
e66ad5c6 257 TEXT_CLEAR,
b6a0d8a2
VZ
258
259 // clipboard menu
260 TEXT_CLIPBOARD_COPY = 200,
261 TEXT_CLIPBOARD_PASTE,
02e8b87f
RR
262
263 // tooltip menu
b6a0d8a2
VZ
264 TEXT_TOOLTIPS_SETDELAY = 300,
265 TEXT_TOOLTIPS_ENABLE,
266
f6bcfd97 267 // text menu
eff00523
VZ
268 TEXT_ADD_SOME = 400,
269 TEXT_ADD_FREEZE,
270 TEXT_MOVE_ENDTEXT,
f6bcfd97
BP
271 TEXT_MOVE_ENDENTRY,
272 TEXT_SET_EDITABLE,
22670da4
VZ
273 TEXT_SET_ENABLED,
274 TEXT_LINE_DOWN,
275 TEXT_LINE_UP,
276 TEXT_PAGE_DOWN,
277 TEXT_PAGE_UP,
cba1148d 278 TEXT_REMOVE,
60f52320 279 TEXT_SET,
56c4a88b
VZ
280
281 // log menu
282 TEXT_LOG_KEY,
283 TEXT_LOG_CHAR,
284 TEXT_LOG_MOUSE,
1ce58dc6 285 TEXT_LOG_TEXT,
56c4a88b
VZ
286
287 TEXT_END
02e8b87f
RR
288};
289
290bool MyApp::OnInit()
291{
292 // Create the main frame window
293 MyFrame *frame = new MyFrame((wxFrame *) NULL,
17665a2b 294 "Text wxWindows sample", 50, 50, 700, 420);
89124b1a 295 frame->SetSizeHints( 500, 400 );
02e8b87f 296
02e8b87f 297 wxMenu *file_menu = new wxMenu;
0ddea946
VZ
298 file_menu->Append(TEXT_SAVE, "&Save file\tCtrl-S",
299 "Save the text control contents to file");
b6a0d8a2
VZ
300 file_menu->Append(TEXT_LOAD, "&Load file\tCtrl-O",
301 "Load the sample file into text control");
302 file_menu->AppendSeparator();
303 file_menu->Append(TEXT_ABOUT, "&About\tAlt-A");
304 file_menu->AppendSeparator();
c41ea66a 305 file_menu->Append(TEXT_QUIT, "E&xit\tAlt-X", "Quit this sample");
02e8b87f
RR
306
307 wxMenuBar *menu_bar = new wxMenuBar( wxMB_DOCKABLE );
308 menu_bar->Append(file_menu, "&File");
309
310#if wxUSE_TOOLTIPS
311 wxMenu *tooltip_menu = new wxMenu;
b6a0d8a2 312 tooltip_menu->Append(TEXT_TOOLTIPS_SETDELAY, "Set &delay\tCtrl-D");
02e8b87f 313 tooltip_menu->AppendSeparator();
b6a0d8a2 314 tooltip_menu->Append(TEXT_TOOLTIPS_ENABLE, "&Toggle tooltips\tCtrl-T",
02e8b87f 315 "enable/disable tooltips", TRUE);
b6a0d8a2 316 tooltip_menu->Check(TEXT_TOOLTIPS_ENABLE, TRUE);
02e8b87f
RR
317 menu_bar->Append(tooltip_menu, "&Tooltips");
318#endif // wxUSE_TOOLTIPS
319
b6a0d8a2
VZ
320#if wxUSE_CLIPBOARD
321 wxMenu *menuClipboard = new wxMenu;
322 menuClipboard->Append(TEXT_CLIPBOARD_COPY, "&Copy\tCtrl-C",
323 "Copy the first line to the clipboard");
324 menuClipboard->Append(TEXT_CLIPBOARD_PASTE, "&Paste\tCtrl-V",
325 "Paste from clipboard to the text control");
326 menu_bar->Append(menuClipboard, "&Clipboard");
327#endif // wxUSE_CLIPBOARD
328
f6bcfd97 329 wxMenu *menuText = new wxMenu;
eff00523
VZ
330 menuText->Append(TEXT_ADD_SOME, "&Append some text\tCtrl-A");
331 menuText->Append(TEXT_ADD_FREEZE, "&Append text with freeze/thaw\tShift-Ctrl-A");
cba1148d 332 menuText->Append(TEXT_REMOVE, "&Remove first 10 characters\tCtrl-X");
60f52320 333 menuText->Append(TEXT_SET, "&Set the first text zone value\tCtrl-E");
cba1148d 334 menuText->AppendSeparator();
f6bcfd97
BP
335 menuText->Append(TEXT_MOVE_ENDTEXT, "Move cursor to the end of &text");
336 menuText->Append(TEXT_MOVE_ENDENTRY, "Move cursor to the end of &entry");
337 menuText->Append(TEXT_SET_EDITABLE, "Toggle &editable state", "", TRUE);
338 menuText->Append(TEXT_SET_ENABLED, "Toggle e&nabled state", "", TRUE);
339 menuText->Check(TEXT_SET_EDITABLE, TRUE);
340 menuText->Check(TEXT_SET_ENABLED, TRUE);
22670da4
VZ
341 menuText->AppendSeparator();
342 menuText->Append(TEXT_LINE_DOWN, "Scroll text one line down");
343 menuText->Append(TEXT_LINE_UP, "Scroll text one line up");
344 menuText->Append(TEXT_PAGE_DOWN, "Scroll text one page down");
345 menuText->Append(TEXT_PAGE_DOWN, "Scroll text one page up");
56c4a88b
VZ
346 menu_bar->Append(menuText, "Te&xt");
347
348 wxMenu *menuLog = new wxMenu;
349 menuLog->Append(TEXT_LOG_KEY, "Log &key events", "", TRUE);
350 menuLog->Append(TEXT_LOG_CHAR, "Log &char events", "", TRUE);
351 menuLog->Append(TEXT_LOG_MOUSE, "Log &mouse events", "", TRUE);
1ce58dc6 352 menuLog->Append(TEXT_LOG_TEXT, "Log &text events", "", TRUE);
56c4a88b
VZ
353 menuLog->AppendSeparator();
354 menuLog->Append(TEXT_CLEAR, "&Clear the log\tCtrl-C",
355 "Clear the log window contents");
356 menuLog->Check(TEXT_LOG_KEY, TRUE);
357 menuLog->Check(TEXT_LOG_CHAR, TRUE);
1ce58dc6 358 menuLog->Check(TEXT_LOG_TEXT, TRUE);
56c4a88b 359 menu_bar->Append(menuLog, "&Log");
b6a0d8a2 360
02e8b87f
RR
361 frame->SetMenuBar(menu_bar);
362
363 frame->Show(TRUE);
364
365 SetTopWindow(frame);
366
367 // report success
368 return TRUE;
369}
370
371//----------------------------------------------------------------------
372// MyTextCtrl
373//----------------------------------------------------------------------
374
375BEGIN_EVENT_TABLE(MyTextCtrl, wxTextCtrl)
376 EVT_KEY_DOWN(MyTextCtrl::OnKeyDown)
377 EVT_KEY_UP(MyTextCtrl::OnKeyUp)
378 EVT_CHAR(MyTextCtrl::OnChar)
d7eee191 379
9ca03a57 380 EVT_TEXT(-1, MyTextCtrl::OnText)
c57e3339 381 EVT_TEXT_URL(-1, MyTextCtrl::OnTextURL)
d7eee191
VZ
382 EVT_TEXT_MAXLEN(-1, MyTextCtrl::OnTextMaxLen)
383
4aff28fc 384 EVT_MOUSE_EVENTS(MyTextCtrl::OnMouseEvent)
02e8b87f
RR
385END_EVENT_TABLE()
386
56c4a88b
VZ
387bool MyTextCtrl::ms_logKey = TRUE;
388bool MyTextCtrl::ms_logChar = TRUE;
fb93b610 389bool MyTextCtrl::ms_logMouse = FALSE;
1ce58dc6 390bool MyTextCtrl::ms_logText = TRUE;
56c4a88b 391
02e8b87f
RR
392void MyTextCtrl::LogEvent(const wxChar *name, wxKeyEvent& event) const
393{
394 wxString key;
395 long keycode = event.KeyCode();
02e8b87f
RR
396 {
397 switch ( keycode )
398 {
399 case WXK_BACK: key = "BACK"; break;
400 case WXK_TAB: key = "TAB"; break;
401 case WXK_RETURN: key = "RETURN"; break;
402 case WXK_ESCAPE: key = "ESCAPE"; break;
403 case WXK_SPACE: key = "SPACE"; break;
404 case WXK_DELETE: key = "DELETE"; break;
405 case WXK_START: key = "START"; break;
406 case WXK_LBUTTON: key = "LBUTTON"; break;
407 case WXK_RBUTTON: key = "RBUTTON"; break;
408 case WXK_CANCEL: key = "CANCEL"; break;
409 case WXK_MBUTTON: key = "MBUTTON"; break;
410 case WXK_CLEAR: key = "CLEAR"; break;
411 case WXK_SHIFT: key = "SHIFT"; break;
412 case WXK_ALT: key = "ALT"; break;
413 case WXK_CONTROL: key = "CONTROL"; break;
414 case WXK_MENU: key = "MENU"; break;
415 case WXK_PAUSE: key = "PAUSE"; break;
416 case WXK_CAPITAL: key = "CAPITAL"; break;
417 case WXK_PRIOR: key = "PRIOR"; break;
418 case WXK_NEXT: key = "NEXT"; break;
419 case WXK_END: key = "END"; break;
420 case WXK_HOME: key = "HOME"; break;
421 case WXK_LEFT: key = "LEFT"; break;
422 case WXK_UP: key = "UP"; break;
423 case WXK_RIGHT: key = "RIGHT"; break;
424 case WXK_DOWN: key = "DOWN"; break;
425 case WXK_SELECT: key = "SELECT"; break;
426 case WXK_PRINT: key = "PRINT"; break;
427 case WXK_EXECUTE: key = "EXECUTE"; break;
428 case WXK_SNAPSHOT: key = "SNAPSHOT"; break;
429 case WXK_INSERT: key = "INSERT"; break;
430 case WXK_HELP: key = "HELP"; break;
431 case WXK_NUMPAD0: key = "NUMPAD0"; break;
432 case WXK_NUMPAD1: key = "NUMPAD1"; break;
433 case WXK_NUMPAD2: key = "NUMPAD2"; break;
434 case WXK_NUMPAD3: key = "NUMPAD3"; break;
435 case WXK_NUMPAD4: key = "NUMPAD4"; break;
436 case WXK_NUMPAD5: key = "NUMPAD5"; break;
437 case WXK_NUMPAD6: key = "NUMPAD6"; break;
438 case WXK_NUMPAD7: key = "NUMPAD7"; break;
439 case WXK_NUMPAD8: key = "NUMPAD8"; break;
440 case WXK_NUMPAD9: key = "NUMPAD9"; break;
441 case WXK_MULTIPLY: key = "MULTIPLY"; break;
442 case WXK_ADD: key = "ADD"; break;
443 case WXK_SEPARATOR: key = "SEPARATOR"; break;
444 case WXK_SUBTRACT: key = "SUBTRACT"; break;
445 case WXK_DECIMAL: key = "DECIMAL"; break;
446 case WXK_DIVIDE: key = "DIVIDE"; break;
447 case WXK_F1: key = "F1"; break;
448 case WXK_F2: key = "F2"; break;
449 case WXK_F3: key = "F3"; break;
450 case WXK_F4: key = "F4"; break;
451 case WXK_F5: key = "F5"; break;
452 case WXK_F6: key = "F6"; break;
453 case WXK_F7: key = "F7"; break;
454 case WXK_F8: key = "F8"; break;
455 case WXK_F9: key = "F9"; break;
456 case WXK_F10: key = "F10"; break;
457 case WXK_F11: key = "F11"; break;
458 case WXK_F12: key = "F12"; break;
459 case WXK_F13: key = "F13"; break;
460 case WXK_F14: key = "F14"; break;
461 case WXK_F15: key = "F15"; break;
462 case WXK_F16: key = "F16"; break;
463 case WXK_F17: key = "F17"; break;
464 case WXK_F18: key = "F18"; break;
465 case WXK_F19: key = "F19"; break;
466 case WXK_F20: key = "F20"; break;
467 case WXK_F21: key = "F21"; break;
468 case WXK_F22: key = "F22"; break;
469 case WXK_F23: key = "F23"; break;
470 case WXK_F24: key = "F24"; break;
471 case WXK_NUMLOCK: key = "NUMLOCK"; break;
472 case WXK_SCROLL: key = "SCROLL"; break;
473 case WXK_PAGEUP: key = "PAGEUP"; break;
474 case WXK_PAGEDOWN: key = "PAGEDOWN"; break;
475 case WXK_NUMPAD_SPACE: key = "NUMPAD_SPACE"; break;
476 case WXK_NUMPAD_TAB: key = "NUMPAD_TAB"; break;
477 case WXK_NUMPAD_ENTER: key = "NUMPAD_ENTER"; break;
478 case WXK_NUMPAD_F1: key = "NUMPAD_F1"; break;
479 case WXK_NUMPAD_F2: key = "NUMPAD_F2"; break;
480 case WXK_NUMPAD_F3: key = "NUMPAD_F3"; break;
481 case WXK_NUMPAD_F4: key = "NUMPAD_F4"; break;
482 case WXK_NUMPAD_HOME: key = "NUMPAD_HOME"; break;
483 case WXK_NUMPAD_LEFT: key = "NUMPAD_LEFT"; break;
484 case WXK_NUMPAD_UP: key = "NUMPAD_UP"; break;
485 case WXK_NUMPAD_RIGHT: key = "NUMPAD_RIGHT"; break;
486 case WXK_NUMPAD_DOWN: key = "NUMPAD_DOWN"; break;
487 case WXK_NUMPAD_PRIOR: key = "NUMPAD_PRIOR"; break;
488 case WXK_NUMPAD_PAGEUP: key = "NUMPAD_PAGEUP"; break;
489 case WXK_NUMPAD_PAGEDOWN: key = "NUMPAD_PAGEDOWN"; break;
490 case WXK_NUMPAD_END: key = "NUMPAD_END"; break;
491 case WXK_NUMPAD_BEGIN: key = "NUMPAD_BEGIN"; break;
492 case WXK_NUMPAD_INSERT: key = "NUMPAD_INSERT"; break;
493 case WXK_NUMPAD_DELETE: key = "NUMPAD_DELETE"; break;
494 case WXK_NUMPAD_EQUAL: key = "NUMPAD_EQUAL"; break;
495 case WXK_NUMPAD_MULTIPLY: key = "NUMPAD_MULTIPLY"; break;
496 case WXK_NUMPAD_ADD: key = "NUMPAD_ADD"; break;
497 case WXK_NUMPAD_SEPARATOR: key = "NUMPAD_SEPARATOR"; break;
498 case WXK_NUMPAD_SUBTRACT: key = "NUMPAD_SUBTRACT"; break;
499 case WXK_NUMPAD_DECIMAL: key = "NUMPAD_DECIMAL"; break;
500
4afd7529 501 default:
89124b1a
RR
502 {
503 if ( wxIsprint((int)keycode) )
1ce58dc6
VZ
504 key.Printf(_T("'%c'"), (char)keycode);
505 else if ( keycode > 0 && keycode < 27 )
506 key.Printf(_("Ctrl-%c"), _T('A') + keycode - 1);
89124b1a 507 else
1ce58dc6 508 key.Printf(_T("unknown (%ld)"), keycode);
4afd7529 509 }
02e8b87f
RR
510 }
511 }
512
513 wxLogMessage( _T("%s event: %s (flags = %c%c%c%c)"),
514 name,
515 key.c_str(),
516 GetChar( event.ControlDown(), _T('C') ),
517 GetChar( event.AltDown(), _T('A') ),
518 GetChar( event.ShiftDown(), _T('S') ),
519 GetChar( event.MetaDown(), _T('M') ) );
02e8b87f
RR
520}
521
c57e3339
VZ
522static wxString GetMouseEventDesc(const wxMouseEvent& ev)
523{
524 // click event
525 wxString button;
526 bool dbl, up;
527 if ( ev.LeftDown() || ev.LeftUp() || ev.LeftDClick() )
528 {
529 button = _T("Left");
530 dbl = ev.LeftDClick();
531 up = ev.LeftUp();
532 }
533 else if ( ev.MiddleDown() || ev.MiddleUp() || ev.MiddleDClick() )
534 {
535 button = _T("Middle");
536 dbl = ev.MiddleDClick();
537 up = ev.MiddleUp();
538 }
539 else if ( ev.RightDown() || ev.RightUp() || ev.RightDClick() )
540 {
541 button = _T("Right");
542 dbl = ev.RightDClick();
543 up = ev.RightUp();
544 }
545 else
546 {
547 return _T("Unknown mouse event");
548 }
549
550 return wxString::Format(_T("%s mouse button %s"),
551 button.c_str(),
552 dbl ? _T("double clicked")
553 : up ? _T("released") : _T("clicked"));
554}
555
4aff28fc
VZ
556void MyTextCtrl::OnMouseEvent(wxMouseEvent& ev)
557{
56c4a88b
VZ
558 ev.Skip();
559
1ce58dc6 560 if ( !ms_logMouse )
56c4a88b
VZ
561 return;
562
4aff28fc
VZ
563 if ( !ev.Moving() )
564 {
565 wxString msg;
566 if ( ev.Entering() )
567 {
568 msg = _T("Mouse entered the window");
569 }
570 else if ( ev.Leaving() )
571 {
572 msg = _T("Mouse left the window");
573 }
574 else
575 {
c57e3339 576 msg = GetMouseEventDesc(ev);
4aff28fc
VZ
577 }
578
579 msg << _T(" at (") << ev.GetX() << _T(", ") << ev.GetY() << _T(") ")
580 << _T("Flags: ")
4ed0aceb
VZ
581 << GetChar( ev.LeftIsDown(), _T('1') )
582 << GetChar( ev.MiddleIsDown(), _T('2') )
583 << GetChar( ev.RightIsDown(), _T('3') )
4aff28fc
VZ
584 << GetChar( ev.ControlDown(), _T('C') )
585 << GetChar( ev.AltDown(), _T('A') )
586 << GetChar( ev.ShiftDown(), _T('S') )
587 << GetChar( ev.MetaDown(), _T('M') );
588
589 wxLogMessage(msg);
590 }
591 //else: we're not interested in mouse move events
592}
593
9ca03a57 594void MyTextCtrl::OnText(wxCommandEvent& event)
02e8b87f 595{
1ce58dc6
VZ
596 if ( !ms_logText )
597 return;
598
9ca03a57 599 MyTextCtrl *win = (MyTextCtrl *)event.GetEventObject();
ae3dd4a5
VZ
600 const wxChar *data = (const wxChar *)(win->GetClientData());
601 if ( data )
602 {
c41ea66a 603 wxLogMessage(_T("Text changed in control '%s'"), data);
ae3dd4a5 604 }
f6bcfd97
BP
605 else
606 {
607 wxLogMessage(_T("Text changed in some control"));
608 }
9ca03a57
VZ
609}
610
d7eee191
VZ
611void MyTextCtrl::OnTextMaxLen(wxCommandEvent& event)
612{
613 wxLogMessage(_T("You can't enter more characters into this control."));
614}
615
c57e3339
VZ
616void MyTextCtrl::OnTextURL(wxTextUrlEvent& event)
617{
618 const wxMouseEvent& ev = event.GetMouseEvent();
619
620 // filter out mouse moves, too many of them
621 if ( ev.Moving() )
622 return;
623
624 long start = event.GetURLStart(),
625 end = event.GetURLEnd();
626
627 wxLogMessage(_T("Mouse event over URL '%s': %s"),
628 GetValue().Mid(start, end - start).c_str(),
629 GetMouseEventDesc(ev).c_str());
630}
631
9ca03a57
VZ
632void MyTextCtrl::OnChar(wxKeyEvent& event)
633{
1ce58dc6 634 if ( ms_logChar )
56c4a88b 635 LogEvent( _T("Char"), event);
3017f78d 636
3017f78d 637 event.Skip();
02e8b87f
RR
638}
639
640void MyTextCtrl::OnKeyUp(wxKeyEvent& event)
641{
1ce58dc6 642 if ( ms_logKey )
56c4a88b 643 LogEvent( _T("Key up"), event);
02e8b87f
RR
644
645 event.Skip();
646}
647
648void MyTextCtrl::OnKeyDown(wxKeyEvent& event)
649{
650 switch ( event.KeyCode() )
651 {
652 case WXK_F1:
653 // show current position and text length
654 {
655 long line, column, pos = GetInsertionPoint();
656 PositionToXY(pos, &column, &line);
657
4693b20c 658 wxLogMessage( _T("Current position: %ld\nCurrent line, column: (%ld, %ld)\nNumber of lines: %ld\nCurrent line length: %ld\nTotal text length: %u (%ld)"),
02e8b87f
RR
659 pos,
660 line, column,
661 GetNumberOfLines(),
662 GetLineLength(line),
f6bcfd97 663 GetValue().length(),
02e8b87f
RR
664 GetLastPosition());
665 }
666 break;
667
668 case WXK_F2:
669 // go to the end
670 SetInsertionPointEnd();
671 break;
672
673 case WXK_F3:
674 // go to position 10
675 SetInsertionPoint(10);
676 break;
4afd7529 677
f152cf5a 678 case WXK_F4:
4afd7529
VZ
679 if (!m_hasCapture)
680 {
f152cf5a 681 wxLogDebug( wxT("Now capturing mouse and events.") );
4afd7529
VZ
682 m_hasCapture = TRUE;
683 CaptureMouse();
684 }
685 else
686 {
f152cf5a 687 wxLogDebug( wxT("Stopped capturing mouse and events.") );
e3603065 688 m_hasCapture = FALSE;
4afd7529
VZ
689 ReleaseMouse();
690 }
f152cf5a 691 break;
4afd7529
VZ
692
693 case WXK_F5:
694 // insert a blank line
695 WriteText("\n");
ae3dd4a5 696 break;
02e8b87f 697
f6bcfd97
BP
698 case WXK_F6:
699 SetValue("F6 was just pressed.");
700 break;
701
702 case WXK_F7:
703 ShowPosition(10);
704 break;
18414479
VZ
705
706 case WXK_F10:
707 {
708 long from, to;
709 GetSelection(&from, &to);
710
9a7d6121 711 wxString sel = GetStringSelection();
18414479
VZ
712
713 wxLogMessage(_T("Selection: from %ld to %ld."), from, to);
714 wxLogMessage(_T("Selection = '%s' (len = %u)"),
715 sel.c_str(), sel.length());
716 }
0ddea946 717 }
02e8b87f 718
1ce58dc6 719 if ( ms_logKey )
56c4a88b 720 LogEvent( wxT("Key down"), event);
f6bcfd97 721
02e8b87f
RR
722 event.Skip();
723}
724
725//----------------------------------------------------------------------
726// MyPanel
727//----------------------------------------------------------------------
728
89124b1a
RR
729BEGIN_EVENT_TABLE(MyPanel, wxPanel)
730 EVT_SIZE(MyPanel::OnSize)
731END_EVENT_TABLE()
732
02e8b87f
RR
733MyPanel::MyPanel( wxFrame *frame, int x, int y, int w, int h )
734 : wxPanel( frame, -1, wxPoint(x, y), wxSize(w, h) )
735{
30982415
VZ
736 m_log = new wxTextCtrl( this, -1, "This is the log window.\n",
737 wxPoint(5,260), wxSize(630,100),
738 wxTE_MULTILINE | wxTE_READONLY /* | wxTE_RICH */);
02e8b87f 739
89124b1a
RR
740 wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
741
742 delete old_log;
02e8b87f
RR
743
744 // single line text controls
745
bb69661b 746 m_text = new MyTextCtrl( this, -1, "Single line.",
f6bcfd97
BP
747 wxPoint(10,10), wxSize(140,-1),
748 wxTE_PROCESS_ENTER);
4ed0aceb
VZ
749 m_text->SetForegroundColour(*wxBLUE);
750 m_text->SetBackgroundColour(*wxLIGHT_GREY);
02e8b87f
RR
751 (*m_text) << " Appended.";
752 m_text->SetInsertionPoint(0);
753 m_text->WriteText( "Prepended. " );
bb69661b
VZ
754
755 m_password = new MyTextCtrl( this, -1, "",
02e8b87f 756 wxPoint(10,50), wxSize(140,-1), wxTE_PASSWORD );
bb69661b
VZ
757
758 m_readonly = new MyTextCtrl( this, -1, "Read only",
02e8b87f 759 wxPoint(10,90), wxSize(140,-1), wxTE_READONLY );
bb69661b 760
d7eee191
VZ
761 m_limited = new MyTextCtrl(this, -1, "Max 8 ch",
762 wxPoint(10, 130), wxSize(140, -1));
763 m_limited->SetMaxLength(8);
764
02e8b87f
RR
765 // multi line text controls
766
bb69661b
VZ
767 m_horizontal = new MyTextCtrl( this, -1, "Multiline text control with a horizontal scrollbar.",
768 wxPoint(10,170), wxSize(140,70), wxTE_MULTILINE | wxHSCROLL );
f6bcfd97
BP
769
770 // a little hack to use the command line argument for encoding testing
771 if ( wxTheApp->argc == 2 )
772 {
773 switch ( wxTheApp->argv[1][0] )
774 {
775 case '2':
776 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
777 FALSE, "",
778 wxFONTENCODING_ISO8859_2));
779