samples/text/text.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        text.cpp
   3 // Purpose:     TextCtrl wxWidgets sample
   4 // Author:      Robert Roebling
   5 // Modified by:
   6 // RCS-ID:      $Id$
   7 // Copyright:   (c) Robert Roebling, Julian Smart, Vadim Zeitlin
   8 // Licence:     wxWindows license
   9 /////////////////////////////////////////////////////////////////////////////
  10
  11 // For compilers that support precompilation, includes "wx/wx.h".
  12 #include "wx/wxprec.h"
  13
  14 #ifdef __BORLANDC__
  15     #pragma hdrstop
  16 #endif
  17
  18 #ifndef WX_PRECOMP
  19     #include "wx/wx.h"
  20 #endif
  21
  22 #if wxUSE_CLIPBOARD
  23     #include "wx/dataobj.h"
  24     #include "wx/clipbrd.h"
  25 #endif
  26
  27 #if wxUSE_FILE
  28     #include "wx/file.h"
  29 #endif
  30
  31 #if wxUSE_TOOLTIPS
  32     #include "wx/tooltip.h"
  33 #endif
  34
  35 // We test for wxUSE_DRAG_AND_DROP also, because data objects may not be
  36 // implemented for compilers that can't cope with the OLE parts in
  37 // wxUSE_DRAG_AND_DROP.
  38 #if !wxUSE_DRAG_AND_DROP
  39     #undef wxUSE_CLIPBOARD
  40     #define wxUSE_CLIPBOARD 0
  41 #endif
  42
  43 #include "wx/colordlg.h"
  44 #include "wx/fontdlg.h"
  45 #include "wx/numdlg.h"
  46 #include "wx/tokenzr.h"
  47
  48 #ifndef __WXMSW__
  49     #include "../sample.xpm"
  50 #endif
  51
  52 //----------------------------------------------------------------------
  53 // class definitions
  54 //----------------------------------------------------------------------
  55
  56 class MyApp: public wxApp
  57 {
  58 public:
  59     bool OnInit();
  60 };
  61
  62 // a text ctrl which allows to call different wxTextCtrl functions
  63 // interactively by pressing function keys in it
  64 class MyTextCtrl : public wxTextCtrl
  65 {
  66 public:
  67     MyTextCtrl(wxWindow *parent, wxWindowID id, const wxString &value,
  68                const wxPoint &pos, const wxSize &size, int style = 0)
  69         : wxTextCtrl(parent, id, value, pos, size, style)
  70     {
  71         m_hasCapture = false;
  72     }
  73
  74     void OnKeyDown(wxKeyEvent& event);
  75     void OnKeyUp(wxKeyEvent& event);
  76     void OnChar(wxKeyEvent& event);
  77
  78     void OnText(wxCommandEvent& event);
  79     void OnTextEnter(wxCommandEvent& event);
  80     void OnTextURL(wxTextUrlEvent& event);
  81     void OnTextMaxLen(wxCommandEvent& event);
  82
  83     void OnTextCut(wxClipboardTextEvent & event);
  84     void OnTextCopy(wxClipboardTextEvent & event);
  85     void OnTextPaste(wxClipboardTextEvent & event);
  86
  87     void OnMouseEvent(wxMouseEvent& event);
  88
  89     void OnSetFocus(wxFocusEvent& event);
  90     void OnKillFocus(wxFocusEvent& event);
  91
  92     static bool ms_logKey;
  93     static bool ms_logChar;
  94     static bool ms_logMouse;
  95     static bool ms_logText;
  96     static bool ms_logFocus;
  97     static bool ms_logClip;
  98
  99 private:
 100     static inline wxChar GetChar(bool on, wxChar c) { return on ? c : _T('-'); }
 101
 102     void LogKeyEvent(const wxChar *name, wxKeyEvent& event) const;
 103     void LogClipEvent(const wxChar *what, wxClipboardTextEvent& event);
 104
 105     bool m_hasCapture;
 106
 107     DECLARE_EVENT_TABLE()
 108 };
 109
 110 class MyPanel: public wxPanel
 111 {
 112 public:
 113     MyPanel(wxFrame *frame, int x, int y, int w, int h);
 114     virtual ~MyPanel()
 115     {
 116 #if wxUSE_LOG
 117         delete wxLog::SetActiveTarget(m_logOld);
 118 #endif // wxUSE_LOG
 119     }
 120
 121 #if wxUSE_CLIPBOARD
 122     void DoPasteFromClipboard();
 123     void DoCopyToClipboard();
 124 #endif // wxUSE_CLIPBOARD
 125
 126     void DoRemoveText();
 127     void DoReplaceText();
 128     void DoSelectText();
 129     void DoMoveToEndOfText();
 130     void DoMoveToEndOfEntry();
 131
 132     // return true if currently text control has any selection
 133     bool HasSelection() const
 134     {
 135         long from, to;
 136         GetFocusedText()->GetSelection(&from, &to);
 137         return from != to;
 138     }
 139
 140     MyTextCtrl    *m_text;
 141     MyTextCtrl    *m_password;
 142     MyTextCtrl    *m_enter;
 143     MyTextCtrl    *m_tab;
 144     MyTextCtrl    *m_readonly;
 145     MyTextCtrl    *m_limited;
 146
 147     MyTextCtrl    *m_multitext;
 148     MyTextCtrl    *m_horizontal;
 149
 150     MyTextCtrl    *m_textrich;
 151
 152 #if wxUSE_LOG
 153     wxTextCtrl    *m_log;
 154     wxLog         *m_logOld;
 155 #endif // wxUSE_LOG
 156
 157 private:
 158     // get the currently focused text control or return the default one
 159     // (m_multitext) is no text ctrl has focus -- in any case, returns
 160     // something non NULL
 161     wxTextCtrl *GetFocusedText() const;
 162 };
 163
 164 class MyFrame: public wxFrame
 165 {
 166 public:
 167     MyFrame(wxFrame *frame, const wxChar *title, int x, int y, int w, int h);
 168
 169     void OnQuit(wxCommandEvent& event);
 170     void OnAbout(wxCommandEvent& event);
 171 #if wxUSE_TOOLTIPS
 172     void OnSetTooltipDelay(wxCommandEvent& event);
 173     void OnToggleTooltips(wxCommandEvent& event);
 174 #endif // wxUSE_TOOLTIPS
 175
 176 #if wxUSE_CLIPBOARD
 177     void OnPasteFromClipboard( wxCommandEvent& WXUNUSED(event) )
 178     {
 179         wxLogMessage(_T("Pasting text from clipboard."));
 180         m_panel->DoPasteFromClipboard();
 181     }
 182     void OnCopyToClipboard( wxCommandEvent& WXUNUSED(event) )
 183     {
 184         wxLogMessage(_T("Copying text to clipboard."));
 185         m_panel->DoCopyToClipboard();
 186     }
 187
 188     void OnUpdatePasteFromClipboard(wxUpdateUIEvent& event)
 189     {
 190         wxClipboardLocker lockClip;
 191
 192         event.Enable( wxTheClipboard->IsSupported(wxDF_TEXT) );
 193     }
 194
 195     void OnUpdateCopyToClipboard(wxUpdateUIEvent& event)
 196     {
 197         event.Enable( m_panel->HasSelection() );
 198     }
 199 #endif // wxUSE_CLIPBOARD
 200
 201     void OnAddTextLine(wxCommandEvent& WXUNUSED(event))
 202     {
 203         static int s_n = 0;
 204         m_panel->m_textrich->AppendText(wxString::Format("Line %d\n", ++s_n));
 205     }
 206
 207     void OnAddTextFreeze( wxCommandEvent& WXUNUSED(event) )
 208         { DoAddText(true); }
 209     void OnAddText( wxCommandEvent& WXUNUSED(event) )
 210         { DoAddText(false); }
 211     void OnRemoveText( wxCommandEvent& WXUNUSED(event) )
 212         { m_panel->DoRemoveText(); }
 213     void OnReplaceText( wxCommandEvent& WXUNUSED(event) )
 214         { m_panel->DoReplaceText(); }
 215     void OnSelectText( wxCommandEvent& WXUNUSED(event) )
 216         { m_panel->DoSelectText(); }
 217
 218     void OnMoveToEndOfText( wxCommandEvent& WXUNUSED(event) )
 219         { m_panel->DoMoveToEndOfText(); }
 220     void OnMoveToEndOfEntry( wxCommandEvent& WXUNUSED(event) )
 221         { m_panel->DoMoveToEndOfEntry(); }
 222
 223     void OnScrollLineDown(wxCommandEvent& WXUNUSED(event))
 224     {
 225         if ( !m_panel->m_textrich->LineDown() )
 226             wxLogMessage(_T("Already at the bottom"));
 227     }
 228
 229     void OnScrollLineUp(wxCommandEvent& WXUNUSED(event))
 230     {
 231         if ( !m_panel->m_textrich->LineUp() )
 232             wxLogMessage(_T("Already at the top"));
 233     }
 234
 235     void OnScrollPageDown(wxCommandEvent& WXUNUSED(event))
 236     {
 237         if ( !m_panel->m_textrich->PageDown() )
 238             wxLogMessage(_T("Already at the bottom"));
 239     }
 240
 241     void OnScrollPageUp(wxCommandEvent& WXUNUSED(event))
 242     {
 243         if ( !m_panel->m_textrich->PageUp() )
 244             wxLogMessage(_T("Already at the top"));
 245     }
 246
 247     void OnGetLine(wxCommandEvent& WXUNUSED(event))
 248     {
 249         long nLine = wxGetNumberFromUser(wxT("Which line would you like to get?"),
 250                                          wxT("Enter which line you would like to get"),
 251                                          wxT("Get a line from the tabbed multiline text control") );
 252
 253         wxMessageBox(m_panel->m_tab->GetLineText(nLine));
 254     }
 255
 256     void OnGetLineLength(wxCommandEvent& WXUNUSED(event))
 257     {
 258         long nLine = wxGetNumberFromUser(wxT("Which line would you like to get?"),
 259                                          wxT("Enter which line you would like to get"),
 260                                          wxT("Get length of a line from the tabbed multiline text control") );
 261
 262         wxMessageBox(wxString::Format(wxT("Length of line %i is:%i"),
 263                                       (int) nLine,
 264                                       m_panel->m_tab->GetLineLength(nLine))
 265                     );
 266     }
 267
 268 #if wxUSE_LOG
 269     void OnLogClear(wxCommandEvent& event);
 270 #endif // wxUSE_LOG
 271     void OnFileSave(wxCommandEvent& event);
 272     void OnFileLoad(wxCommandEvent& event);
 273     void OnRichTextTest(wxCommandEvent& event);
 274
 275     void OnSetEditable(wxCommandEvent& event);
 276     void OnSetEnabled(wxCommandEvent& event);
 277
 278     void OnLogKey(wxCommandEvent& event)
 279     {
 280         MyTextCtrl::ms_logKey = event.IsChecked();
 281     }
 282
 283     void OnLogChar(wxCommandEvent& event)
 284     {
 285         MyTextCtrl::ms_logChar = event.IsChecked();
 286     }
 287
 288     void OnLogMouse(wxCommandEvent& event)
 289     {
 290         MyTextCtrl::ms_logMouse = event.IsChecked();
 291     }
 292
 293     void OnLogText(wxCommandEvent& event)
 294     {
 295         MyTextCtrl::ms_logText = event.IsChecked();
 296     }
 297
 298     void OnLogFocus(wxCommandEvent& event)
 299     {
 300         MyTextCtrl::ms_logFocus = event.IsChecked();
 301     }
 302
 303     void OnLogClip(wxCommandEvent& event)
 304     {
 305         MyTextCtrl::ms_logClip = event.IsChecked();
 306     }
 307
 308     void OnSetText(wxCommandEvent& WXUNUSED(event))
 309     {
 310         m_panel->m_text->SetValue(_T("Hello, world! (what else did you expect?)"));
 311     }
 312
 313     void OnChangeText(wxCommandEvent& WXUNUSED(event))
 314     {
 315         m_panel->m_text->ChangeValue(_T("Changed, not set: no event"));
 316     }
 317
 318     void OnIdle( wxIdleEvent& event );
 319
 320 private:
 321     void DoAddText(bool freeze)
 322     {
 323         wxTextCtrl * const text = m_panel->m_textrich;
 324
 325         if ( freeze )
 326             text->Freeze();
 327
 328         text->Clear();
 329
 330         for ( int i = 0; i < 100; i++ )
 331         {
 332             text->AppendText(wxString::Format(wxT("Line %i\n"), i));
 333         }
 334
 335         text->SetInsertionPoint(0);
 336
 337         if ( freeze )
 338             text->Thaw();
 339     }
 340
 341     MyPanel *m_panel;
 342
 343     DECLARE_EVENT_TABLE()
 344 };
 345
 346 /*
 347  * RichTextFrame is used to demonstrate rich text behaviour
 348  */
 349
 350 class RichTextFrame: public wxFrame
 351 {
 352 public:
 353     RichTextFrame(wxWindow* parent, const wxString& title);
 354
 355 // Event handlers
 356
 357     void OnClose(wxCommandEvent& event);
 358     void OnIdle(wxIdleEvent& event);
 359     void OnLeftAlign(wxCommandEvent& event);
 360     void OnRightAlign(wxCommandEvent& event);
 361     void OnJustify(wxCommandEvent& event);
 362     void OnCentre(wxCommandEvent& event);
 363     void OnChangeFont(wxCommandEvent& event);
 364     void OnChangeTextColour(wxCommandEvent& event);
 365     void OnChangeBackgroundColour(wxCommandEvent& event);
 366     void OnLeftIndent(wxCommandEvent& event);
 367     void OnRightIndent(wxCommandEvent& event);
 368     void OnTabStops(wxCommandEvent& event);
 369
 370 private:
 371     wxTextCtrl *m_textCtrl;
 372     long m_currentPosition;
 373
 374     DECLARE_EVENT_TABLE()
 375 };
 376
 377 //----------------------------------------------------------------------
 378 // main()
 379 //----------------------------------------------------------------------
 380
 381 IMPLEMENT_APP(MyApp)
 382
 383 //----------------------------------------------------------------------
 384 // MyApp
 385 //----------------------------------------------------------------------
 386
 387 enum
 388 {
 389     TEXT_QUIT = wxID_EXIT,
 390     TEXT_ABOUT = wxID_ABOUT,
 391     TEXT_LOAD = 101,
 392     TEXT_SAVE,
 393     TEXT_CLEAR,
 394     TEXT_RICH_TEXT_TEST,
 395
 396     // clipboard menu
 397     TEXT_CLIPBOARD_COPY = 200,
 398     TEXT_CLIPBOARD_PASTE,
 399     TEXT_CLIPBOARD_VETO,
 400
 401     // tooltip menu
 402     TEXT_TOOLTIPS_SETDELAY = 300,
 403     TEXT_TOOLTIPS_ENABLE,
 404
 405     // text menu
 406     TEXT_ADD_SOME = 400,
 407     TEXT_ADD_FREEZE,
 408     TEXT_ADD_LINE,
 409     TEXT_MOVE_ENDTEXT,
 410     TEXT_MOVE_ENDENTRY,
 411     TEXT_SET_EDITABLE,
 412     TEXT_SET_ENABLED,
 413     TEXT_LINE_DOWN,
 414     TEXT_LINE_UP,
 415     TEXT_PAGE_DOWN,
 416     TEXT_PAGE_UP,
 417
 418     TEXT_GET_LINE,
 419     TEXT_GET_LINELENGTH,
 420
 421     TEXT_REMOVE,
 422     TEXT_REPLACE,
 423     TEXT_SELECT,
 424     TEXT_SET,
 425     TEXT_CHANGE,
 426
 427     // log menu
 428     TEXT_LOG_KEY,
 429     TEXT_LOG_CHAR,
 430     TEXT_LOG_MOUSE,
 431     TEXT_LOG_TEXT,
 432     TEXT_LOG_FOCUS,
 433     TEXT_LOG_CLIP,
 434
 435     TEXT_END
 436 };
 437
 438 bool MyApp::OnInit()
 439 {
 440     if ( !wxApp::OnInit() )
 441         return false;
 442
 443     // Create the main frame window
 444     MyFrame *frame = new MyFrame((wxFrame *) NULL,
 445             _T("Text wxWidgets sample"), 50, 50, 700, 550);
 446     frame->SetSizeHints( 500, 400 );
 447
 448     wxMenu *file_menu = new wxMenu;
 449     file_menu->Append(TEXT_SAVE, _T("&Save file\tCtrl-S"),
 450                       _T("Save the text control contents to file"));
 451     file_menu->Append(TEXT_LOAD, _T("&Load file\tCtrl-O"),
 452                       _T("Load the sample file into text control"));
 453     file_menu->AppendSeparator();
 454     file_menu->Append(TEXT_RICH_TEXT_TEST, _T("Show Rich Text Editor"));
 455     file_menu->AppendSeparator();
 456     file_menu->Append(TEXT_ABOUT, _T("&About\tAlt-A"));
 457     file_menu->AppendSeparator();
 458     file_menu->Append(TEXT_QUIT, _T("E&xit\tAlt-X"), _T("Quit this sample"));
 459
 460     wxMenuBar *menu_bar = new wxMenuBar( wxMB_DOCKABLE );
 461     menu_bar->Append(file_menu, _T("&File"));
 462
 463 #if wxUSE_TOOLTIPS
 464     wxMenu *tooltip_menu = new wxMenu;
 465     tooltip_menu->Append(TEXT_TOOLTIPS_SETDELAY, _T("Set &delay\tCtrl-D"));
 466     tooltip_menu->AppendSeparator();
 467     tooltip_menu->Append(TEXT_TOOLTIPS_ENABLE, _T("&Toggle tooltips\tCtrl-T"),
 468             _T("enable/disable tooltips"), true);
 469     tooltip_menu->Check(TEXT_TOOLTIPS_ENABLE, true);
 470     menu_bar->Append(tooltip_menu, _T("&Tooltips"));
 471 #endif // wxUSE_TOOLTIPS
 472
 473 #if wxUSE_CLIPBOARD
 474     // notice that we use non default accelerators on purpose here to compare
 475     // their behaviour with the built in handling of standard Ctrl/Cmd-C/V
 476     wxMenu *menuClipboard = new wxMenu;
 477     menuClipboard->Append(TEXT_CLIPBOARD_COPY, _T("&Copy\tCtrl-Shift-C"),
 478                           _T("Copy the selection to the clipboard"));
 479     menuClipboard->Append(TEXT_CLIPBOARD_PASTE, _T("&Paste\tCtrl-Shift-V"),
 480                           _T("Paste from clipboard to the text control"));
 481     menuClipboard->AppendSeparator();
 482     menuClipboard->AppendCheckItem(TEXT_CLIPBOARD_VETO, _T("Vet&o\tCtrl-Shift-O"),
 483                                    _T("Veto all clipboard operations"));
 484     menu_bar->Append(menuClipboard, _T("&Clipboard"));
 485 #endif // wxUSE_CLIPBOARD
 486
 487     wxMenu *menuText = new wxMenu;
 488     menuText->Append(TEXT_ADD_SOME, _T("&Append some text\tCtrl-A"));
 489     menuText->Append(TEXT_ADD_FREEZE, _T("&Append text with freeze/thaw\tShift-Ctrl-A"));
 490     menuText->Append(TEXT_ADD_LINE, _T("Append a new &line\tAlt-Shift-A"));
 491     menuText->Append(TEXT_REMOVE, _T("&Remove first 10 characters\tCtrl-Y"));
 492     menuText->Append(TEXT_REPLACE, _T("&Replace characters 4 to 8 with ABC\tCtrl-R"));
 493     menuText->Append(TEXT_SELECT, _T("&Select characters 4 to 8\tCtrl-I"));
 494     menuText->Append(TEXT_SET, _T("&Set the first text zone value\tCtrl-E"));
 495     menuText->Append(TEXT_CHANGE, _T("&Change the first text zone value\tShift-Ctrl-E"));
 496     menuText->AppendSeparator();
 497     menuText->Append(TEXT_MOVE_ENDTEXT, _T("Move cursor to the end of &text"));
 498     menuText->Append(TEXT_MOVE_ENDENTRY, _T("Move cursor to the end of &entry"));
 499     menuText->AppendCheckItem(TEXT_SET_EDITABLE, _T("Toggle &editable state"));
 500     menuText->AppendCheckItem(TEXT_SET_ENABLED, _T("Toggle e&nabled state"));
 501     menuText->Check(TEXT_SET_EDITABLE, true);
 502     menuText->Check(TEXT_SET_ENABLED, true);
 503     menuText->AppendSeparator();
 504     menuText->Append(TEXT_LINE_DOWN, _T("Scroll text one line down"));
 505     menuText->Append(TEXT_LINE_UP, _T("Scroll text one line up"));
 506     menuText->Append(TEXT_PAGE_DOWN, _T("Scroll text one page down"));
 507     menuText->Append(TEXT_PAGE_UP, _T("Scroll text one page up"));
 508     menuText->AppendSeparator();
 509     menuText->Append(TEXT_GET_LINE, _T("Get the text of a line of the tabbed multiline"));
 510     menuText->Append(TEXT_GET_LINELENGTH, _T("Get the length of a line of the tabbed multiline"));
 511     menu_bar->Append(menuText, _T("Te&xt"));
 512
 513 #if wxUSE_LOG
 514     wxMenu *menuLog = new wxMenu;
 515     menuLog->AppendCheckItem(TEXT_LOG_KEY, _T("Log &key events"));
 516     menuLog->AppendCheckItem(TEXT_LOG_CHAR, _T("Log &char events"));
 517     menuLog->AppendCheckItem(TEXT_LOG_MOUSE, _T("Log &mouse events"));
 518     menuLog->AppendCheckItem(TEXT_LOG_TEXT, _T("Log &text events"));
 519     menuLog->AppendCheckItem(TEXT_LOG_FOCUS, _T("Log &focus events"));
 520     menuLog->AppendCheckItem(TEXT_LOG_CLIP, _T("Log clip&board events"));
 521     menuLog->AppendSeparator();
 522     menuLog->Append(TEXT_CLEAR, _T("&Clear the log\tCtrl-L"),
 523                     _T("Clear the log window contents"));
 524
 525     // select only the interesting events by default
 526     MyTextCtrl::ms_logClip =
 527     MyTextCtrl::ms_logText = true;
 528
 529     menuLog->Check(TEXT_LOG_KEY, MyTextCtrl::ms_logKey);
 530     menuLog->Check(TEXT_LOG_CHAR, MyTextCtrl::ms_logChar);
 531     menuLog->Check(TEXT_LOG_TEXT, MyTextCtrl::ms_logText);
 532
 533     menu_bar->Append(menuLog, _T("&Log"));
 534 #endif // wxUSE_LOG
 535
 536     frame->SetMenuBar(menu_bar);
 537
 538     frame->Show(true);
 539
 540     SetTopWindow(frame);
 541
 542     // report success
 543     return true;
 544 }
 545
 546 //----------------------------------------------------------------------
 547 // MyTextCtrl
 548 //----------------------------------------------------------------------
 549
 550 BEGIN_EVENT_TABLE(MyTextCtrl, wxTextCtrl)
 551     EVT_KEY_DOWN(MyTextCtrl::OnKeyDown)
 552     EVT_KEY_UP(MyTextCtrl::OnKeyUp)
 553     EVT_CHAR(MyTextCtrl::OnChar)
 554
 555     EVT_TEXT(wxID_ANY, MyTextCtrl::OnText)
 556     EVT_TEXT_ENTER(wxID_ANY, MyTextCtrl::OnTextEnter)
 557     EVT_TEXT_URL(wxID_ANY, MyTextCtrl::OnTextURL)
 558     EVT_TEXT_MAXLEN(wxID_ANY, MyTextCtrl::OnTextMaxLen)
 559     EVT_TEXT_CUT(wxID_ANY,   MyTextCtrl::OnTextCut)
 560     EVT_TEXT_COPY(wxID_ANY,  MyTextCtrl::OnTextCopy)
 561     EVT_TEXT_PASTE(wxID_ANY, MyTextCtrl::OnTextPaste)
 562
 563     EVT_MOUSE_EVENTS(MyTextCtrl::OnMouseEvent)
 564
 565     EVT_SET_FOCUS(MyTextCtrl::OnSetFocus)
 566     EVT_KILL_FOCUS(MyTextCtrl::OnKillFocus)
 567 END_EVENT_TABLE()
 568
 569 bool MyTextCtrl::ms_logKey = false;
 570 bool MyTextCtrl::ms_logChar = false;
 571 bool MyTextCtrl::ms_logMouse = false;
 572 bool MyTextCtrl::ms_logText = false;
 573 bool MyTextCtrl::ms_logFocus = false;
 574 bool MyTextCtrl::ms_logClip = false;
 575
 576 void MyTextCtrl::LogKeyEvent(const wxChar *name, wxKeyEvent& event) const
 577 {
 578     wxString key;
 579     long keycode = event.GetKeyCode();
 580     {
 581         switch ( keycode )
 582         {
 583             case WXK_BACK: key = _T("BACK"); break;
 584             case WXK_TAB: key = _T("TAB"); break;
 585             case WXK_RETURN: key = _T("RETURN"); break;
 586             case WXK_ESCAPE: key = _T("ESCAPE"); break;
 587             case WXK_SPACE: key = _T("SPACE"); break;
 588             case WXK_DELETE: key = _T("DELETE"); break;
 589             case WXK_START: key = _T("START"); break;
 590             case WXK_LBUTTON: key = _T("LBUTTON"); break;
 591             case WXK_RBUTTON: key = _T("RBUTTON"); break;
 592             case WXK_CANCEL: key = _T("CANCEL"); break;
 593             case WXK_MBUTTON: key = _T("MBUTTON"); break;
 594             case WXK_CLEAR: key = _T("CLEAR"); break;
 595             case WXK_SHIFT: key = _T("SHIFT"); break;
 596             case WXK_ALT: key = _T("ALT"); break;
 597             case WXK_CONTROL: key = _T("CONTROL"); break;
 598             case WXK_MENU: key = _T("MENU"); break;
 599             case WXK_PAUSE: key = _T("PAUSE"); break;
 600             case WXK_CAPITAL: key = _T("CAPITAL"); break;
 601             case WXK_END: key = _T("END"); break;
 602             case WXK_HOME: key = _T("HOME"); break;
 603             case WXK_LEFT: key = _T("LEFT"); break;
 604             case WXK_UP: key = _T("UP"); break;
 605             case WXK_RIGHT: key = _T("RIGHT"); break;
 606             case WXK_DOWN: key = _T("DOWN"); break;
 607             case WXK_SELECT: key = _T("SELECT"); break;
 608             case WXK_PRINT: key = _T("PRINT"); break;
 609             case WXK_EXECUTE: key = _T("EXECUTE"); break;
 610             case WXK_SNAPSHOT: key = _T("SNAPSHOT"); break;
 611             case WXK_INSERT: key = _T("INSERT"); break;
 612             case WXK_HELP: key = _T("HELP"); break;
 613             case WXK_NUMPAD0: key = _T("NUMPAD0"); break;
 614             case WXK_NUMPAD1: key = _T("NUMPAD1"); break;
 615             case WXK_NUMPAD2: key = _T("NUMPAD2"); break;
 616             case WXK_NUMPAD3: key = _T("NUMPAD3"); break;
 617             case WXK_NUMPAD4: key = _T("NUMPAD4"); break;
 618             case WXK_NUMPAD5: key = _T("NUMPAD5"); break;
 619             case WXK_NUMPAD6: key = _T("NUMPAD6"); break;
 620             case WXK_NUMPAD7: key = _T("NUMPAD7"); break;
 621             case WXK_NUMPAD8: key = _T("NUMPAD8"); break;
 622             case WXK_NUMPAD9: key = _T("NUMPAD9"); break;
 623             case WXK_MULTIPLY: key = _T("MULTIPLY"); break;
 624             case WXK_ADD: key = _T("ADD"); break;
 625             case WXK_SEPARATOR: key = _T("SEPARATOR"); break;
 626             case WXK_SUBTRACT: key = _T("SUBTRACT"); break;
 627             case WXK_DECIMAL: key = _T("DECIMAL"); break;
 628             case WXK_DIVIDE: key = _T("DIVIDE"); break;
 629             case WXK_F1: key = _T("F1"); break;
 630             case WXK_F2: key = _T("F2"); break;
 631             case WXK_F3: key = _T("F3"); break;
 632             case WXK_F4: key = _T("F4"); break;
 633             case WXK_F5: key = _T("F5"); break;
 634             case WXK_F6: key = _T("F6"); break;
 635             case WXK_F7: key = _T("F7"); break;
 636             case WXK_F8: key = _T("F8"); break;
 637             case WXK_F9: key = _T("F9"); break;
 638             case WXK_F10: key = _T("F10"); break;
 639             case WXK_F11: key = _T("F11"); break;
 640             case WXK_F12: key = _T("F12"); break;
 641             case WXK_F13: key = _T("F13"); break;
 642             case WXK_F14: key = _T("F14"); break;
 643             case WXK_F15: key = _T("F15"); break;
 644             case WXK_F16: key = _T("F16"); break;
 645             case WXK_F17: key = _T("F17"); break;
 646             case WXK_F18: key = _T("F18"); break;
 647             case WXK_F19: key = _T("F19"); break;
 648             case WXK_F20: key = _T("F20"); break;
 649             case WXK_F21: key = _T("F21"); break;
 650             case WXK_F22: key = _T("F22"); break;
 651             case WXK_F23: key = _T("F23"); break;
 652             case WXK_F24: key = _T("F24"); break;
 653             case WXK_NUMLOCK: key = _T("NUMLOCK"); break;
 654             case WXK_SCROLL: key = _T("SCROLL"); break;
 655             case WXK_PAGEUP: key = _T("PAGEUP"); break;
 656             case WXK_PAGEDOWN: key = _T("PAGEDOWN"); break;
 657             case WXK_NUMPAD_SPACE: key = _T("NUMPAD_SPACE"); break;
 658             case WXK_NUMPAD_TAB: key = _T("NUMPAD_TAB"); break;
 659             case WXK_NUMPAD_ENTER: key = _T("NUMPAD_ENTER"); break;
 660             case WXK_NUMPAD_F1: key = _T("NUMPAD_F1"); break;
 661             case WXK_NUMPAD_F2: key = _T("NUMPAD_F2"); break;
 662             case WXK_NUMPAD_F3: key = _T("NUMPAD_F3"); break;
 663             case WXK_NUMPAD_F4: key = _T("NUMPAD_F4"); break;
 664             case WXK_NUMPAD_HOME: key = _T("NUMPAD_HOME"); break;
 665             case WXK_NUMPAD_LEFT: key = _T("NUMPAD_LEFT"); break;
 666             case WXK_NUMPAD_UP: key = _T("NUMPAD_UP"); break;
 667             case WXK_NUMPAD_RIGHT: key = _T("NUMPAD_RIGHT"); break;
 668             case WXK_NUMPAD_DOWN: key = _T("NUMPAD_DOWN"); break;
 669             case WXK_NUMPAD_PAGEUP: key = _T("NUMPAD_PAGEUP"); break;
 670             case WXK_NUMPAD_PAGEDOWN: key = _T("NUMPAD_PAGEDOWN"); break;
 671             case WXK_NUMPAD_END: key = _T("NUMPAD_END"); break;
 672             case WXK_NUMPAD_BEGIN: key = _T("NUMPAD_BEGIN"); break;
 673             case WXK_NUMPAD_INSERT: key = _T("NUMPAD_INSERT"); break;
 674             case WXK_NUMPAD_DELETE: key = _T("NUMPAD_DELETE"); break;
 675             case WXK_NUMPAD_EQUAL: key = _T("NUMPAD_EQUAL"); break;
 676             case WXK_NUMPAD_MULTIPLY: key = _T("NUMPAD_MULTIPLY"); break;
 677             case WXK_NUMPAD_ADD: key = _T("NUMPAD_ADD"); break;
 678             case WXK_NUMPAD_SEPARATOR: key = _T("NUMPAD_SEPARATOR"); break;
 679             case WXK_NUMPAD_SUBTRACT: key = _T("NUMPAD_SUBTRACT"); break;
 680             case WXK_NUMPAD_DECIMAL: key = _T("NUMPAD_DECIMAL"); break;
 681
 682             default:
 683             {
 684                if ( wxIsprint((int)keycode) )
 685                    key.Printf(_T("'%c'"), (char)keycode);
 686                else if ( keycode > 0 && keycode < 27 )
 687                    key.Printf(_("Ctrl-%c"), _T('A') + keycode - 1);
 688                else
 689                    key.Printf(_T("unknown (%ld)"), keycode);
 690             }
 691         }
 692     }
 693
 694 #if wxUSE_UNICODE
 695     key += wxString::Format(_T(" (Unicode: %#04x)"), event.GetUnicodeKey());
 696 #endif // wxUSE_UNICODE
 697
 698     wxLogMessage( _T("%s event: %s (flags = %c%c%c%c)"),
 699                   name,
 700                   key.c_str(),
 701                   GetChar( event.ControlDown(), _T('C') ),
 702                   GetChar( event.AltDown(), _T('A') ),
 703                   GetChar( event.ShiftDown(), _T('S') ),
 704                   GetChar( event.MetaDown(), _T('M') ) );
 705 }
 706
 707 static wxString GetMouseEventDesc(const wxMouseEvent& ev)
 708 {
 709     // click event
 710     wxString button;
 711     bool dbl, up;
 712     if ( ev.LeftDown() || ev.LeftUp() || ev.LeftDClick() )
 713     {
 714         button = _T("Left");
 715         dbl = ev.LeftDClick();
 716         up = ev.LeftUp();
 717     }
 718     else if ( ev.MiddleDown() || ev.MiddleUp() || ev.MiddleDClick() )
 719     {
 720         button = _T("Middle");
 721         dbl = ev.MiddleDClick();
 722         up = ev.MiddleUp();
 723     }
 724     else if ( ev.RightDown() || ev.RightUp() || ev.RightDClick() )
 725     {
 726         button = _T("Right");
 727         dbl = ev.RightDClick();
 728         up = ev.RightUp();
 729     }
 730     else
 731     {
 732         return _T("Unknown mouse event");
 733     }
 734
 735     return wxString::Format(_T("%s mouse button %s"),
 736                             button.c_str(),
 737                             dbl ? _T("double clicked")
 738                                 : up ? _T("released") : _T("clicked"));
 739 }
 740
 741 void MyTextCtrl::OnMouseEvent(wxMouseEvent& ev)
 742 {
 743     ev.Skip();
 744
 745     if ( !ms_logMouse )
 746         return;
 747
 748     if ( !ev.Moving() )
 749     {
 750         wxString msg;
 751         if ( ev.Entering() )
 752         {
 753             msg = _T("Mouse entered the window");
 754         }
 755         else if ( ev.Leaving() )
 756         {
 757             msg = _T("Mouse left the window");
 758         }
 759         else
 760         {
 761             msg = GetMouseEventDesc(ev);
 762         }
 763
 764         msg << _T(" at (") << ev.GetX() << _T(", ") << ev.GetY() << _T(") ");
 765
 766         long pos;
 767         wxTextCtrlHitTestResult rc = HitTest(ev.GetPosition(), &pos);
 768         if ( rc != wxTE_HT_UNKNOWN )
 769         {
 770             msg << _T("at position ") << pos << _T(' ');
 771         }
 772
 773         msg << _T("[Flags: ")
 774             << GetChar( ev.LeftIsDown(), _T('1') )
 775             << GetChar( ev.MiddleIsDown(), _T('2') )
 776             << GetChar( ev.RightIsDown(), _T('3') )
 777             << GetChar( ev.ControlDown(), _T('C') )
 778             << GetChar( ev.AltDown(), _T('A') )
 779             << GetChar( ev.ShiftDown(), _T('S') )
 780             << GetChar( ev.MetaDown(), _T('M') )
 781             << _T(']');
 782
 783         wxLogMessage(msg);
 784     }
 785     //else: we're not interested in mouse move events
 786 }
 787
 788 void MyTextCtrl::OnSetFocus(wxFocusEvent& event)
 789 {
 790     if ( ms_logFocus )
 791         wxLogMessage( wxT("%p got focus."), this);
 792
 793     event.Skip();
 794 }
 795
 796 void MyTextCtrl::OnKillFocus(wxFocusEvent& event)
 797 {
 798     if ( ms_logFocus )
 799         wxLogMessage( wxT("%p lost focus"), this);
 800
 801     event.Skip();
 802 }
 803
 804 void MyTextCtrl::OnText(wxCommandEvent& event)
 805 {
 806     if ( !ms_logText )
 807         return;
 808
 809     MyTextCtrl *win = (MyTextCtrl *)event.GetEventObject();
 810     const wxChar *changeVerb = win->IsModified() ? _T("changed")
 811                                                  : _T("set by program");
 812     const wxChar *data = (const wxChar *)(win->GetClientData());
 813     if ( data )
 814     {
 815         wxLogMessage(_T("Text %s in control \"%s\""), changeVerb, data);
 816     }
 817     else
 818     {
 819         wxLogMessage(_T("Text %s in some control"), changeVerb);
 820     }
 821 }
 822
 823 void MyTextCtrl::OnTextEnter(wxCommandEvent& event)
 824 {
 825     if ( !ms_logText )
 826         return;
 827
 828     MyTextCtrl *win = (MyTextCtrl *)event.GetEventObject();
 829     const wxChar *data = (const wxChar *)(win->GetClientData());
 830     if ( data )
 831     {
 832         wxLogMessage(_T("Enter pressed in control '%s'"), data);
 833     }
 834     else
 835     {
 836         wxLogMessage(_T("Enter pressed in some control"));
 837     }
 838 }
 839
 840 void MyTextCtrl::OnTextMaxLen(wxCommandEvent& WXUNUSED(event))
 841 {
 842     wxLogMessage(_T("You can't enter more characters into this control."));
 843 }
 844
 845
 846 void MyTextCtrl::OnTextCut(wxClipboardTextEvent& event)
 847 {
 848     LogClipEvent(_T("cut to"), event);
 849 }
 850
 851 void MyTextCtrl::OnTextCopy(wxClipboardTextEvent& event)
 852 {
 853     LogClipEvent(_T("copied to"), event);
 854 }
 855
 856 void MyTextCtrl::OnTextPaste(wxClipboardTextEvent& event)
 857 {
 858     LogClipEvent(_T("pasted from"), event);
 859 }
 860
 861 void MyTextCtrl::LogClipEvent(const wxChar *what, wxClipboardTextEvent& event)
 862 {
 863     wxFrame *frame = wxDynamicCast(wxGetTopLevelParent(this), wxFrame);
 864     wxCHECK_RET( frame, _T("no parent frame?") );
 865
 866     const bool veto = frame->GetMenuBar()->IsChecked(TEXT_CLIPBOARD_VETO);
 867     if ( !veto )
 868         event.Skip();
 869
 870     if ( ms_logClip )
 871     {
 872         wxLogMessage(_T("Text %s%s the clipboard."),
 873                      veto ? _T("not ") : _T(""), what);
 874     }
 875 }
 876
 877
 878 void MyTextCtrl::OnTextURL(wxTextUrlEvent& event)
 879 {
 880     const wxMouseEvent& ev = event.GetMouseEvent();
 881
 882     // filter out mouse moves, too many of them
 883     if ( ev.Moving() )
 884         return;
 885
 886     long start = event.GetURLStart(),
 887          end = event.GetURLEnd();
 888
 889     wxLogMessage(_T("Mouse event over URL '%s': %s"),
 890                  GetValue().Mid(start, end - start).c_str(),
 891                  GetMouseEventDesc(ev).c_str());
 892 }
 893
 894 void MyTextCtrl::OnChar(wxKeyEvent& event)
 895 {
 896     if ( ms_logChar )
 897         LogKeyEvent( _T("Char"), event);
 898
 899     event.Skip();
 900 }
 901
 902 void MyTextCtrl::OnKeyUp(wxKeyEvent& event)
 903 {
 904     if ( ms_logKey )
 905         LogKeyEvent( _T("Key up"), event);
 906
 907     event.Skip();
 908 }
 909
 910 void MyTextCtrl::OnKeyDown(wxKeyEvent& event)
 911 {
 912     switch ( event.GetKeyCode() )
 913     {
 914         case WXK_F1:
 915             // show current position and text length
 916             {
 917                 long line, column, pos = GetInsertionPoint();
 918                 PositionToXY(pos, &column, &line);
 919
 920                 wxLogMessage(_T("Current position: %ld\nCurrent line, column: (%ld, %ld)\nNumber of lines: %ld\nCurrent line length: %ld\nTotal text length: %u (%ld)"),
 921                         pos,
 922                         line, column,
 923                         (long) GetNumberOfLines(),
 924                         (long) GetLineLength(line),
 925                         (unsigned int) GetValue().length(),
 926                         GetLastPosition());
 927
 928                 long from, to;
 929                 GetSelection(&from, &to);
 930
 931                 wxString sel = GetStringSelection();
 932
 933                 wxLogMessage(_T("Selection: from %ld to %ld."), from, to);
 934                 wxLogMessage(_T("Selection = '%s' (len = %u)"),
 935                              sel.c_str(),
 936                              (unsigned int) sel.length());
 937
 938                 const wxString text = GetLineText(line);
 939                 wxLogMessage(_T("Current line: \"%s\"; length = %lu"),
 940                              text.c_str(), text.length());
 941             }
 942             break;
 943
 944         case WXK_F2:
 945             // go to the end
 946             SetInsertionPointEnd();
 947             break;
 948
 949         case WXK_F3:
 950             // go to position 10
 951             SetInsertionPoint(10);
 952             break;
 953
 954         case WXK_F4:
 955             if (!m_hasCapture)
 956             {
 957                 wxLogDebug( wxT("Now capturing mouse and events.") );
 958                 m_hasCapture = true;
 959                 CaptureMouse();
 960             }
 961             else
 962             {
 963                 wxLogDebug( wxT("Stopped capturing mouse and events.") );
 964                 m_hasCapture = false;
 965                 ReleaseMouse();
 966             }
 967             break;
 968
 969         case WXK_F5:
 970             // insert a blank line
 971             WriteText(_T("\n"));
 972             break;
 973
 974         case WXK_F6:
 975             wxLogMessage(_T("IsModified() before SetValue(): %d"),
 976                          IsModified());
 977             ChangeValue(_T("ChangeValue() has been called"));
 978             wxLogMessage(_T("IsModified() after SetValue(): %d"),
 979                          IsModified());
 980             break;
 981
 982         case WXK_F7:
 983             wxLogMessage(_T("Position 10 should be now visible."));
 984             ShowPosition(10);
 985             break;
 986
 987         case WXK_F8:
 988             wxLogMessage(_T("Control has been cleared"));
 989             Clear();
 990             break;
 991
 992         case WXK_F9:
 993             WriteText(_T("WriteText() has been called"));
 994             break;
 995
 996         case WXK_F10:
 997             AppendText(_T("AppendText() has been called"));
 998             break;
 999
1000         case WXK_F11:
1001             DiscardEdits();
1002             wxLogMessage(_T("Control marked as non modified"));
1003             break;
1004     }
1005
1006     if ( ms_logKey )
1007         LogKeyEvent( wxT("Key down"), event);
1008
1009     event.Skip();
1010 }
1011
1012 //----------------------------------------------------------------------
1013 // MyPanel
1014 //----------------------------------------------------------------------
1015
1016 MyPanel::MyPanel( wxFrame *frame, int x, int y, int w, int h )
1017        : wxPanel( frame, wxID_ANY, wxPoint(x, y), wxSize(w, h) )
1018 {
1019 #if wxUSE_LOG
1020     m_log = new wxTextCtrl( this, wxID_ANY, _T("This is the log window.\n"),
1021                             wxPoint(5,260), wxSize(630,100),
1022                             wxTE_MULTILINE | wxTE_READONLY /* | wxTE_RICH */);
1023
1024     m_logOld = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
1025 #endif // wxUSE_LOG
1026
1027     // single line text controls
1028
1029     m_text = new MyTextCtrl( this, wxID_ANY, _T("Single line."),
1030                              wxDefaultPosition, wxDefaultSize,
1031                              wxTE_PROCESS_ENTER);
1032     m_text->SetForegroundColour(*wxBLUE);
1033     m_text->SetBackgroundColour(*wxLIGHT_GREY);
1034     (*m_text) << _T(" Appended.");
1035     m_text->SetInsertionPoint(0);
1036     m_text->WriteText( _T("Prepended. ") );
1037
1038     m_password = new MyTextCtrl( this, wxID_ANY, _T(""),
1039       wxPoint(10,50), wxSize(140,wxDefaultCoord), wxTE_PASSWORD );
1040
1041     m_readonly = new MyTextCtrl( this, wxID_ANY, _T("Read only"),
1042       wxPoint(10,90), wxSize(140,wxDefaultCoord), wxTE_READONLY );
1043
1044     m_limited = new MyTextCtrl(this, wxID_ANY, _T("Max 8 ch"),
1045                               wxPoint(10, 130), wxSize(140, wxDefaultCoord));
1046     m_limited->SetMaxLength(8);
1047
1048     // multi line text controls
1049
1050     m_horizontal = new MyTextCtrl( this, wxID_ANY, _T("Multiline text control with a horizontal scrollbar.\n"),
1051       wxPoint(10,170), wxSize(140,70), wxTE_MULTILINE | wxHSCROLL);
1052
1053     // a little hack to use the command line argument for encoding testing
1054     if ( wxTheApp->argc == 2 )
1055     {
1056         switch ( (wxChar)wxTheApp->argv[1][0] )
1057         {
1058             case '2':
1059                 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
1060                                              false, _T(""),
1061                                              wxFONTENCODING_ISO8859_2));
1062                 m_horizontal->AppendText(_T("\256lu\273ou\350k\375 k\371\362 zb\354sile \350e\271tina \253\273"));
1063                 break;
1064
1065             case '1':
1066                 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
1067                                              false, _T(""),
1068                                              wxFONTENCODING_CP1251));
1069                 m_horizontal->AppendText(_T("\317\360\350\342\345\362!"));
1070                 break;
1071
1072             case '8':
1073                 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
1074                                              false, _T(""),
1075                                              wxFONTENCODING_CP1251));
1076 #if wxUSE_UNICODE
1077                 m_horizontal->AppendText(L"\x0412\x0430\x0434\x0438\x043c \x0426");
1078 #else
1079                 m_horizontal->AppendText("\313\301\326\305\324\323\321 \325\304\301\336\316\331\315");
1080 #endif
1081         }
1082     }
1083     else
1084     {
1085         m_horizontal->AppendText(_T("Text in default encoding"));
1086     }
1087
1088     m_multitext = new MyTextCtrl( this, wxID_ANY,
1089                                   _T("Multi line without vertical scrollbar."),
1090       wxPoint(180,10), wxSize(200,70), wxTE_MULTILINE | wxTE_NO_VSCROLL );
1091     m_multitext->SetFont(*wxITALIC_FONT);
1092     (*m_multitext) << _T(" Appended.");
1093     m_multitext->SetInsertionPoint(0);
1094     m_multitext->WriteText( _T("Prepended. ") );
1095     m_multitext->SetForegroundColour(*wxRED);
1096     m_multitext->SetBackgroundColour(*wxLIGHT_GREY);
1097
1098 #if wxUSE_TOOLTIPS
1099     m_multitext->SetToolTip(_T("Press Fn function keys here"));
1100 #endif
1101
1102     m_tab = new MyTextCtrl( this, 100, _T("Multiline, allow <TAB> processing."),
1103       wxPoint(180,90), wxSize(200,70), wxTE_MULTILINE |  wxTE_PROCESS_TAB );
1104     m_tab->SetClientData((void *)_T("tab"));
1105
1106     m_enter = new MyTextCtrl( this, 100, _T("Multiline, allow <ENTER> processing."),
1107       wxPoint(180,170), wxSize(200,70), wxTE_MULTILINE);
1108     m_enter->SetClientData((void *)_T("enter"));
1109
1110     m_textrich = new MyTextCtrl(this, wxID_ANY, _T("Allows more than 30Kb of text\n")
1111                                 _T("(even under broken Win9x)\n")
1112                                 _T("and a very very very very very ")
1113                                 _T("very very very long line to test ")
1114                                 _T("wxHSCROLL style\n")
1115                                 _T("\nAnd here is a link in quotation marks to ")
1116                                 _T("test wxTE_AUTO_URL: \"http://www.wxwidgets.org\""),
1117                                 wxPoint(450, 10), wxSize(200, 230),
1118                                 wxTE_RICH | wxTE_MULTILINE | wxTE_AUTO_URL);
1119     m_textrich->SetStyle(0, 10, *wxRED);
1120     m_textrich->SetStyle(10, 20, *wxBLUE);
1121     m_textrich->SetStyle(30, 40,
1122                          wxTextAttr(*wxGREEN, wxNullColour, *wxITALIC_FONT));
1123     m_textrich->SetDefaultStyle(wxTextAttr());
1124     m_textrich->AppendText(_T("\n\nFirst 10 characters should be in red\n"));
1125     m_textrich->AppendText(_T("Next 10 characters should be in blue\n"));
1126     m_textrich->AppendText(_T("Next 10 characters should be normal\n"));
1127     m_textrich->AppendText(_T("And the next 10 characters should be green and italic\n"));
1128     m_textrich->SetDefaultStyle(wxTextAttr(*wxCYAN, *wxBLUE));
1129     m_textrich->AppendText(_T("This text should be cyan on blue\n"));
1130     m_textrich->SetDefaultStyle(wxTextAttr(*wxBLUE, *wxWHITE));
1131     m_textrich->AppendText(_T("And this should be in blue and the text you ")
1132                            _T("type should be in blue as well"));
1133
1134
1135     // lay out the controls
1136     wxBoxSizer *column1 = new wxBoxSizer(wxVERTICAL);
1137     column1->Add( m_text, 0, wxALL | wxEXPAND, 10 );
1138     column1->Add( m_password, 0, wxALL | wxEXPAND, 10 );
1139     column1->Add( m_readonly, 0, wxALL | wxEXPAND, 10 );
1140     column1->Add( m_limited, 0, wxALL | wxEXPAND, 10 );
1141     column1->Add( m_horizontal, 1, wxALL | wxEXPAND, 10 );
1142
1143     wxBoxSizer *column2 = new wxBoxSizer(wxVERTICAL);
1144     column2->Add( m_multitext, 1, wxALL | wxEXPAND, 10 );
1145     column2->Add( m_tab, 1, wxALL | wxEXPAND, 10 );
1146     column2->Add( m_enter, 1, wxALL | wxEXPAND, 10 );
1147
1148     wxBoxSizer *row1 = new wxBoxSizer(wxHORIZONTAL);
1149     row1->Add( column1, 0, wxALL | wxEXPAND, 10 );
1150     row1->Add( column2, 1, wxALL | wxEXPAND, 10 );
1151     row1->Add( m_textrich, 1, wxALL | wxEXPAND, 10 );
1152
1153     wxBoxSizer *topSizer = new wxBoxSizer(wxVERTICAL);
1154     topSizer->Add( row1, 2, wxALL | wxEXPAND, 10 );
1155
1156 #if wxUSE_LOG
1157     topSizer->Add( m_log, 1, wxALL | wxEXPAND, 10 );
1158 #endif
1159
1160     SetSizer(topSizer);
1161 }
1162
1163 wxTextCtrl *MyPanel::GetFocusedText() const
1164 {
1165     wxWindow *win = FindFocus();
1166
1167     wxTextCtrl *text = win ? wxDynamicCast(win, wxTextCtrl) : NULL;
1168     return text ? text : m_multitext;
1169 }
1170
1171 #if wxUSE_CLIPBOARD
1172 void MyPanel::DoPasteFromClipboard()
1173 {
1174     // On X11, we want to get the data from the primary selection instead
1175     // of the normal clipboard (which isn't normal under X11 at all). This
1176     // call has no effect under MSW.
1177     wxTheClipboard->UsePrimarySelection();
1178
1179     if (!wxTheClipboard->Open())
1180     {
1181 #if wxUSE_LOG
1182         *m_log << _T("Error opening the clipboard.\n");
1183 #endif // wxUSE_LOG
1184         return;
1185     }
1186     else
1187     {
1188 #if wxUSE_LOG
1189         *m_log << _T("Successfully opened the clipboard.\n");
1190 #endif // wxUSE_LOG
1191     }
1192
1193     wxTextDataObject data;
1194
1195     if (wxTheClipboard->IsSupported( data.GetFormat() ))
1196     {
1197 #if wxUSE_LOG
1198         *m_log << _T("Clipboard supports requested format.\n");
1199 #endif // wxUSE_LOG
1200
1201         if (wxTheClipboard->GetData( data ))
1202         {
1203 #if wxUSE_LOG
1204             *m_log << _T("Successfully retrieved data from the clipboard.\n");
1205 #endif // wxUSE_LOG
1206             GetFocusedText()->AppendText(data.GetText());
1207         }
1208         else
1209         {
1210 #if wxUSE_LOG
1211             *m_log << _T("Error getting data from the clipboard.\n");
1212 #endif // wxUSE_LOG
1213         }
1214     }
1215     else
1216     {
1217 #if wxUSE_LOG
1218         *m_log << _T("Clipboard doesn't support requested format.\n");
1219 #endif // wxUSE_LOG
1220     }
1221
1222     wxTheClipboard->Close();
1223
1224 #if wxUSE_LOG
1225     *m_log << _T("Closed the clipboard.\n");
1226 #endif // wxUSE_LOG
1227 }
1228
1229 void MyPanel::DoCopyToClipboard()
1230 {
1231     // On X11, we want to get the data from the primary selection instead
1232     // of the normal clipboard (which isn't normal under X11 at all). This
1233     // call has no effect under MSW.
1234     wxTheClipboard->UsePrimarySelection();
1235
1236     wxString text( GetFocusedText()->GetStringSelection() );
1237
1238     if (text.IsEmpty())
1239     {
1240 #if wxUSE_LOG
1241         *m_log << _T("No text to copy.\n");
1242 #endif // wxUSE_LOG
1243
1244         return;
1245     }
1246
1247     if (!wxTheClipboard->Open())
1248     {
1249 #if wxUSE_LOG
1250         *m_log << _T("Error opening the clipboard.\n");
1251 #endif // wxUSE_LOG
1252
1253         return;
1254     }
1255     else
1256     {
1257 #if wxUSE_LOG
1258         *m_log << _T("Successfully opened the clipboard.\n");
1259 #endif // wxUSE_LOG
1260     }
1261
1262     wxTextDataObject *data = new wxTextDataObject( text );
1263
1264     if (!wxTheClipboard->SetData( data ))
1265     {
1266 #if wxUSE_LOG
1267         *m_log << _T("Error while copying to the clipboard.\n");
1268 #endif // wxUSE_LOG
1269     }
1270     else
1271     {
1272 #if wxUSE_LOG
1273         *m_log << _T("Successfully copied data to the clipboard.\n");
1274 #endif // wxUSE_LOG
1275     }
1276
1277     wxTheClipboard->Close();
1278
1279 #if wxUSE_LOG
1280     *m_log << _T("Closed the clipboard.\n");
1281 #endif // wxUSE_LOG
1282 }
1283
1284 #endif // wxUSE_CLIPBOARD
1285
1286 void MyPanel::DoMoveToEndOfText()
1287 {
1288     m_multitext->SetInsertionPointEnd();
1289     m_multitext->SetFocus();
1290 }
1291
1292 void MyPanel::DoMoveToEndOfEntry()
1293 {
1294     m_text->SetInsertionPointEnd();
1295     m_text->SetFocus();
1296 }
1297
1298 void MyPanel::DoRemoveText()
1299 {
1300     GetFocusedText()->Remove(0, 10);
1301 }
1302
1303 void MyPanel::DoReplaceText()
1304 {
1305     GetFocusedText()->Replace(3, 8, _T("ABC"));
1306 }
1307
1308 void MyPanel::DoSelectText()
1309 {
1310     GetFocusedText()->SetSelection(3, 8);
1311 }
1312
1313 //----------------------------------------------------------------------
1314 // MyFrame
1315 //----------------------------------------------------------------------
1316
1317 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
1318     EVT_MENU(TEXT_QUIT,   MyFrame::OnQuit)
1319     EVT_MENU(TEXT_ABOUT,  MyFrame::OnAbout)
1320     EVT_MENU(TEXT_SAVE,   MyFrame::OnFileSave)
1321     EVT_MENU(TEXT_LOAD,   MyFrame::OnFileLoad)
1322     EVT_MENU(TEXT_RICH_TEXT_TEST, MyFrame::OnRichTextTest)
1323
1324     EVT_MENU(TEXT_LOG_KEY,  MyFrame::OnLogKey)
1325     EVT_MENU(TEXT_LOG_CHAR, MyFrame::OnLogChar)
1326     EVT_MENU(TEXT_LOG_MOUSE,MyFrame::OnLogMouse)
1327     EVT_MENU(TEXT_LOG_TEXT, MyFrame::OnLogText)
1328     EVT_MENU(TEXT_LOG_FOCUS,MyFrame::OnLogFocus)
1329     EVT_MENU(TEXT_LOG_CLIP, MyFrame::OnLogClip)
1330 #if wxUSE_LOG
1331     EVT_MENU(TEXT_CLEAR,    MyFrame::OnLogClear)
1332 #endif // wxUSE_LOG
1333
1334 #if wxUSE_TOOLTIPS
1335     EVT_MENU(TEXT_TOOLTIPS_SETDELAY,  MyFrame::OnSetTooltipDelay)
1336     EVT_MENU(TEXT_TOOLTIPS_ENABLE,    MyFrame::OnToggleTooltips)
1337 #endif // wxUSE_TOOLTIPS
1338
1339 #if wxUSE_CLIPBOARD
1340     EVT_MENU(TEXT_CLIPBOARD_PASTE,    MyFrame::OnPasteFromClipboard)
1341     EVT_MENU(TEXT_CLIPBOARD_COPY,     MyFrame::OnCopyToClipboard)
1342
1343     EVT_UPDATE_UI(TEXT_CLIPBOARD_PASTE, MyFrame::OnUpdatePasteFromClipboard)
1344     EVT_UPDATE_UI(TEXT_CLIPBOARD_COPY,  MyFrame::OnUpdateCopyToClipboard)
1345 #endif // wxUSE_CLIPBOARD
1346
1347     EVT_MENU(TEXT_REMOVE,             MyFrame::OnRemoveText)
1348     EVT_MENU(TEXT_REPLACE,            MyFrame::OnReplaceText)
1349     EVT_MENU(TEXT_SELECT,             MyFrame::OnSelectText)
1350     EVT_MENU(TEXT_ADD_SOME,           MyFrame::OnAddText)
1351     EVT_MENU(TEXT_ADD_FREEZE,         MyFrame::OnAddTextFreeze)
1352     EVT_MENU(TEXT_ADD_LINE,           MyFrame::OnAddTextLine)
1353     EVT_MENU(TEXT_MOVE_ENDTEXT,       MyFrame::OnMoveToEndOfText)
1354     EVT_MENU(TEXT_MOVE_ENDENTRY,      MyFrame::OnMoveToEndOfEntry)
1355
1356     EVT_MENU(TEXT_SET_EDITABLE,       MyFrame::OnSetEditable)
1357     EVT_MENU(TEXT_SET_ENABLED,        MyFrame::OnSetEnabled)
1358
1359     EVT_MENU(TEXT_LINE_DOWN,          MyFrame::OnScrollLineDown)
1360     EVT_MENU(TEXT_LINE_UP,            MyFrame::OnScrollLineUp)
1361     EVT_MENU(TEXT_PAGE_DOWN,          MyFrame::OnScrollPageDown)
1362     EVT_MENU(TEXT_PAGE_UP,            MyFrame::OnScrollPageUp)
1363
1364     EVT_MENU(TEXT_GET_LINE,           MyFrame::OnGetLine)
1365     EVT_MENU(TEXT_GET_LINELENGTH,     MyFrame::OnGetLineLength)
1366
1367     EVT_MENU(TEXT_SET,                MyFrame::OnSetText)
1368     EVT_MENU(TEXT_CHANGE,             MyFrame::OnChangeText)
1369
1370     EVT_IDLE(MyFrame::OnIdle)
1371 END_EVENT_TABLE()
1372
1373 MyFrame::MyFrame(wxFrame *frame, const wxChar *title, int x, int y, int w, int h)
1374        : wxFrame(frame, wxID_ANY, title, wxPoint(x, y), wxSize(w, h) )
1375 {
1376     SetIcon(wxICON(sample));
1377
1378 #if wxUSE_STATUSBAR
1379     CreateStatusBar(2);
1380 #endif // wxUSE_STATUSBAR
1381
1382     m_panel = new MyPanel( this, 10, 10, 300, 100 );
1383 }
1384
1385 void MyFrame::OnQuit (wxCommandEvent& WXUNUSED(event) )
1386 {
1387     Close(true);
1388 }
1389
1390 void MyFrame::OnAbout( wxCommandEvent& WXUNUSED(event) )
1391 {
1392     wxBeginBusyCursor();
1393
1394     wxMessageDialog dialog(this,
1395       _T("This is a text control sample. It demonstrates the many different\n")
1396       _T("text control styles, the use of the clipboard, setting and handling\n")
1397       _T("tooltips and intercepting key and char events.\n")
1398       _T("\n")
1399         _T("Copyright (c) 1999, Robert Roebling, Julian Smart, Vadim Zeitlin"),
1400         _T("About wxTextCtrl Sample"),
1401         wxOK | wxICON_INFORMATION);
1402
1403     dialog.ShowModal();
1404
1405     wxEndBusyCursor();
1406 }
1407
1408 #if wxUSE_TOOLTIPS
1409
1410 void MyFrame::OnSetTooltipDelay(wxCommandEvent& WXUNUSED(event))
1411 {
1412     static long s_delay = 5000;
1413
1414     wxString delay;
1415     delay.Printf( _T("%ld"), s_delay);
1416
1417     delay = wxGetTextFromUser(_T("Enter delay (in milliseconds)"),
1418                               _T("Set tooltip delay"),
1419                               delay,
1420                               this);
1421     if ( !delay )
1422         return; // cancelled
1423
1424     wxSscanf(delay, _T("%ld"), &s_delay);
1425
1426     wxToolTip::SetDelay(s_delay);
1427
1428     wxLogStatus(this, _T("Tooltip delay set to %ld milliseconds"), s_delay);
1429 }
1430
1431 void MyFrame::OnToggleTooltips(wxCommandEvent& WXUNUSED(event))
1432 {
1433     static bool s_enabled = true;
1434
1435     s_enabled = !s_enabled;
1436
1437     wxToolTip::Enable(s_enabled);
1438
1439     wxLogStatus(this, _T("Tooltips %sabled"), s_enabled ? _T("en") : _T("dis") );
1440 }
1441 #endif // tooltips
1442
1443 #if wxUSE_LOG
1444 void MyFrame::OnLogClear(wxCommandEvent& WXUNUSED(event))
1445 {
1446     m_panel->m_log->Clear();
1447 }
1448 #endif // wxUSE_LOG
1449
1450 void MyFrame::OnSetEditable(wxCommandEvent& WXUNUSED(event))
1451 {
1452     static bool s_editable = true;
1453
1454     s_editable = !s_editable;
1455     m_panel->m_text->SetEditable(s_editable);
1456     m_panel->m_password->SetEditable(s_editable);
1457     m_panel->m_multitext->SetEditable(s_editable);
1458     m_panel->m_textrich->SetEditable(s_editable);
1459 }
1460
1461 void MyFrame::OnSetEnabled(wxCommandEvent& WXUNUSED(event))
1462 {
1463     bool enabled = m_panel->m_text->IsEnabled();
1464     enabled = !enabled;
1465
1466     m_panel->m_text->Enable(enabled);
1467     m_panel->m_password->Enable(enabled);
1468     m_panel->m_multitext->Enable(enabled);
1469     m_panel->m_readonly->Enable(enabled);
1470     m_panel->m_limited->Enable(enabled);
1471     m_panel->m_textrich->Enable(enabled);
1472 }
1473
1474 void MyFrame::OnFileSave(wxCommandEvent& WXUNUSED(event))
1475 {
1476     if ( m_panel->m_textrich->SaveFile(_T("dummy.txt")) )
1477     {
1478 #if wxUSE_FILE
1479         // verify that the fil length is correct (it wasn't under Win95)
1480         wxFile file(wxT("dummy.txt"));
1481         wxLogStatus(this,
1482                     _T("Successfully saved file (text len = %lu, file size = %ld)"),
1483                     (unsigned long)m_panel->m_textrich->GetValue().length(),
1484                     (long) file.Length());
1485 #endif
1486     }
1487     else
1488         wxLogStatus(this, _T("Couldn't save the file"));
1489 }
1490
1491 void MyFrame::OnFileLoad(wxCommandEvent& WXUNUSED(event))
1492 {
1493     if ( m_panel->m_textrich->LoadFile(_T("dummy.txt")) )
1494         wxLogStatus(this, _T("Successfully loaded file"));
1495     else
1496         wxLogStatus(this, _T("Couldn't load the file"));
1497 }
1498
1499 void MyFrame::OnRichTextTest(wxCommandEvent& WXUNUSED(event))
1500 {
1501     RichTextFrame* frame = new RichTextFrame(this, _T("Rich Text Editor"));
1502     frame->Show(true);
1503 }
1504
1505 void MyFrame::OnIdle( wxIdleEvent& event )
1506 {
1507     // track the window which has the focus in the status bar
1508     static wxWindow *s_windowFocus = (wxWindow *)NULL;
1509     wxWindow *focus = wxWindow::FindFocus();
1510     if ( focus && (focus != s_windowFocus) )
1511     {
1512         s_windowFocus = focus;
1513
1514         wxString msg;
1515         msg.Printf(
1516 #ifdef __WXMSW__
1517                 _T("Focus: wxWindow = %p, HWND = %p"),
1518 #else
1519                 _T("Focus: wxWindow = %p"),
1520 #endif
1521                 s_windowFocus
1522 #ifdef __WXMSW__
1523                 , s_windowFocus->GetHWND()
1524 #endif
1525                   );
1526
1527 #if wxUSE_STATUSBAR
1528         SetStatusText(msg);
1529 #endif // wxUSE_STATUSBAR
1530     }
1531     event.Skip();
1532 }
1533
1534 /*
1535  * RichTextFrame is used to demonstrate rich text behaviour
1536  */
1537
1538 enum
1539 {
1540     RICHTEXT_CLOSE = 1000,
1541     RICHTEXT_LEFT_ALIGN,
1542     RICHTEXT_RIGHT_ALIGN,
1543     RICHTEXT_CENTRE,
1544     RICHTEXT_JUSTIFY,
1545     RICHTEXT_CHANGE_FONT,
1546     RICHTEXT_CHANGE_TEXT_COLOUR,
1547     RICHTEXT_CHANGE_BACKGROUND_COLOUR,
1548     RICHTEXT_LEFT_INDENT,
1549     RICHTEXT_RIGHT_INDENT,
1550     RICHTEXT_TAB_STOPS
1551 };
1552
1553 BEGIN_EVENT_TABLE(RichTextFrame, wxFrame)
1554     EVT_IDLE(RichTextFrame::OnIdle)
1555     EVT_MENU(RICHTEXT_CLOSE, RichTextFrame::OnClose)
1556     EVT_MENU(RICHTEXT_LEFT_ALIGN, RichTextFrame::OnLeftAlign)
1557     EVT_MENU(RICHTEXT_RIGHT_ALIGN, RichTextFrame::OnRightAlign)
1558     EVT_MENU(RICHTEXT_CENTRE, RichTextFrame::OnCentre)
1559     EVT_MENU(RICHTEXT_JUSTIFY, RichTextFrame::OnJustify)
1560     EVT_MENU(RICHTEXT_CHANGE_FONT, RichTextFrame::OnChangeFont)
1561     EVT_MENU(RICHTEXT_CHANGE_TEXT_COLOUR, RichTextFrame::OnChangeTextColour)
1562     EVT_MENU(RICHTEXT_CHANGE_BACKGROUND_COLOUR, RichTextFrame::OnChangeBackgroundColour)
1563     EVT_MENU(RICHTEXT_LEFT_INDENT, RichTextFrame::OnLeftIndent)
1564     EVT_MENU(RICHTEXT_RIGHT_INDENT, RichTextFrame::OnRightIndent)
1565     EVT_MENU(RICHTEXT_TAB_STOPS, RichTextFrame::OnTabStops)
1566 END_EVENT_TABLE()
1567
1568 RichTextFrame::RichTextFrame(wxWindow* parent, const wxString& title):
1569     wxFrame(parent, wxID_ANY, title, wxDefaultPosition, wxSize(300, 400))
1570 {
1571     m_currentPosition = -1;
1572     m_textCtrl = new wxTextCtrl(this, wxID_ANY, wxEmptyString, wxDefaultPosition,
1573             wxDefaultSize, wxTE_MULTILINE|wxTE_RICH2);
1574
1575     wxString value;
1576     int i;
1577     for (i = 0; i < 10; i++)
1578     {
1579         int j;
1580         for (j = 0; j < 10; j++)
1581         {
1582             value << wxT("Hello, welcome to a very simple rich text editor. You can set some character and paragraph styles from the Edit menu. ");
1583         }
1584         value << wxT("\n\n");
1585     }
1586     m_textCtrl->SetValue(value);
1587
1588     wxMenuBar* menuBar = new wxMenuBar;
1589     wxMenu* fileMenu = new wxMenu;
1590     fileMenu->Append(RICHTEXT_CLOSE, _("Close\tCtrl+W"));
1591     menuBar->Append(fileMenu, _("File"));
1592
1593     wxMenu* editMenu = new wxMenu;
1594     editMenu->Append(RICHTEXT_LEFT_ALIGN, _("Left Align"));
1595     editMenu->Append(RICHTEXT_RIGHT_ALIGN, _("Right Align"));
1596     editMenu->Append(RICHTEXT_CENTRE, _("Centre"));
1597     editMenu->Append(RICHTEXT_JUSTIFY, _("Justify"));
1598     editMenu->AppendSeparator();
1599     editMenu->Append(RICHTEXT_CHANGE_FONT, _("Change Font"));
1600     editMenu->Append(RICHTEXT_CHANGE_TEXT_COLOUR, _("Change Text Colour"));
1601     editMenu->Append(RICHTEXT_CHANGE_BACKGROUND_COLOUR, _("Change Background Colour"));
1602     editMenu->AppendSeparator();
1603     editMenu->Append(RICHTEXT_LEFT_INDENT, _("Left Indent"));
1604     editMenu->Append(RICHTEXT_RIGHT_INDENT, _("Right Indent"));
1605     editMenu->Append(RICHTEXT_TAB_STOPS, _("Tab Stops"));
1606     menuBar->Append(editMenu, _("Edit"));
1607
1608     SetMenuBar(menuBar);
1609 #if wxUSE_STATUSBAR
1610     CreateStatusBar();
1611 #endif // wxUSE_STATUSBAR
1612 }
1613
1614 // Event handlers
1615
1616 void RichTextFrame::OnClose(wxCommandEvent& WXUNUSED(event))
1617 {
1618     Close(true);
1619 }
1620
1621 void RichTextFrame::OnLeftAlign(wxCommandEvent& WXUNUSED(event))
1622 {
1623     wxTextAttr attr;
1624     attr.SetAlignment(wxTEXT_ALIGNMENT_LEFT);
1625
1626     long start, end;
1627     m_textCtrl->GetSelection(& start, & end);
1628     m_textCtrl->SetStyle(start, end, attr);
1629
1630     m_currentPosition = -1;
1631 }
1632
1633 void RichTextFrame::OnRightAlign(wxCommandEvent& WXUNUSED(event))
1634 {
1635     wxTextAttr attr;
1636     attr.SetAlignment(wxTEXT_ALIGNMENT_RIGHT);
1637
1638     long start, end;
1639     m_textCtrl->GetSelection(& start, & end);
1640     m_textCtrl->SetStyle(start, end, attr);
1641
1642     m_currentPosition = -1;
1643 }
1644
1645 void RichTextFrame::OnJustify(wxCommandEvent& WXUNUSED(event))
1646 {
1647     wxTextAttr attr;
1648     attr.SetAlignment(wxTEXT_ALIGNMENT_JUSTIFIED);
1649
1650     long start, end;
1651     m_textCtrl->GetSelection(& start, & end);
1652     m_textCtrl->SetStyle(start, end, attr);
1653
1654     m_currentPosition = -1;
1655 }
1656
1657 void RichTextFrame::OnCentre(wxCommandEvent& WXUNUSED(event))
1658 {
1659     wxTextAttr attr;
1660     attr.SetAlignment(wxTEXT_ALIGNMENT_CENTRE);
1661
1662     long start, end;
1663     m_textCtrl->GetSelection(& start, & end);
1664     m_textCtrl->SetStyle(start, end, attr);
1665
1666     m_currentPosition = -1;
1667 }
1668
1669 void RichTextFrame::OnChangeFont(wxCommandEvent& WXUNUSED(event))
1670 {
1671     wxFontData data;
1672
1673     wxFontDialog dialog(this, data);
1674
1675     if (dialog.ShowModal() == wxID_OK)
1676     {
1677         wxFontData retData = dialog.GetFontData();
1678         wxFont font = retData.GetChosenFont();
1679
1680         wxTextAttr attr;
1681         attr.SetFont(font);
1682
1683         long start, end;
1684         m_textCtrl->GetSelection(& start, & end);
1685         m_textCtrl->SetStyle(start, end, attr);
1686
1687         m_currentPosition = -1;
1688     }
1689 }
1690
1691 void RichTextFrame::OnChangeTextColour(wxCommandEvent& WXUNUSED(event))
1692 {
1693     wxColourData data;
1694     data.SetColour(* wxBLACK);
1695     data.SetChooseFull(true);
1696     for (int i = 0; i < 16; i++)
1697     {
1698         wxColour colour((unsigned char)(i*16), (unsigned char)(i*16), (unsigned char)(i*16));
1699         data.SetCustomColour(i, colour);
1700     }
1701
1702     wxColourDialog dialog(this, &data);
1703     dialog.SetTitle(_T("Choose the text colour"));
1704     if (dialog.ShowModal() == wxID_OK)
1705     {
1706         wxColourData retData = dialog.GetColourData();
1707         wxColour col = retData.GetColour();
1708
1709         wxTextAttr attr;
1710         attr.SetTextColour(col);
1711
1712         long start, end;
1713         m_textCtrl->GetSelection(& start, & end);
1714         m_textCtrl->SetStyle(start, end, attr);
1715
1716         m_currentPosition = -1;
1717     }
1718 }
1719
1720 void RichTextFrame::OnChangeBackgroundColour(wxCommandEvent& WXUNUSED(event))
1721 {
1722     wxColourData data;
1723     data.SetColour(* wxWHITE);
1724     data.SetChooseFull(true);
1725     for (int i = 0; i < 16; i++)
1726     {
1727         wxColour colour((unsigned char)(i*16), (unsigned char)(i*16), (unsigned char)(i*16));
1728         data.SetCustomColour(i, colour);
1729     }
1730
1731     wxColourDialog dialog(this, &data);
1732     dialog.SetTitle(_T("Choose the text background colour"));
1733     if (dialog.ShowModal() == wxID_OK)
1734     {
1735         wxColourData retData = dialog.GetColourData();
1736         wxColour col = retData.GetColour();
1737
1738         wxTextAttr attr;
1739         attr.SetBackgroundColour(col);
1740
1741         long start, end;
1742         m_textCtrl->GetSelection(& start, & end);
1743         m_textCtrl->SetStyle(start, end, attr);
1744
1745         m_currentPosition = -1;
1746     }
1747 }
1748
1749 void RichTextFrame::OnLeftIndent(wxCommandEvent& WXUNUSED(event))
1750 {
1751     wxString indentStr = wxGetTextFromUser
1752                          (
1753                             _("Please enter the left indent in tenths of a millimetre."),
1754                             _("Left Indent"),
1755                             wxEmptyString,
1756                             this
1757                          );
1758     if (!indentStr.IsEmpty())
1759     {
1760         int indent = wxAtoi(indentStr);
1761
1762         wxTextAttr attr;
1763         attr.SetLeftIndent(indent);
1764
1765         long start, end;
1766         m_textCtrl->GetSelection(& start, & end);
1767         m_textCtrl->SetStyle(start, end, attr);
1768
1769         m_currentPosition = -1;
1770     }
1771 }
1772
1773 void RichTextFrame::OnRightIndent(wxCommandEvent& WXUNUSED(event))
1774 {
1775     wxString indentStr = wxGetTextFromUser
1776                          (
1777                             _("Please enter the right indent in tenths of a millimetre."),
1778                             _("Right Indent"),
1779                             wxEmptyString,
1780                             this
1781                          );
1782     if (!indentStr.IsEmpty())
1783     {
1784         int indent = wxAtoi(indentStr);
1785
1786         wxTextAttr attr;
1787         attr.SetRightIndent(indent);
1788
1789         long start, end;
1790         m_textCtrl->GetSelection(& start, & end);
1791         m_textCtrl->SetStyle(start, end, attr);
1792
1793         m_currentPosition = -1;
1794     }
1795 }
1796
1797 void RichTextFrame::OnTabStops(wxCommandEvent& WXUNUSED(event))
1798 {
1799     wxString tabsStr = wxGetTextFromUser
1800                          (
1801                             _("Please enter the tab stop positions in tenths of a millimetre, separated by spaces.\nLeave empty to reset tab stops."),
1802                             _("Tab Stops"),
1803                             wxEmptyString,
1804                             this
1805                          );
1806
1807     wxArrayInt tabs;
1808
1809     wxStringTokenizer tokens(tabsStr, _T(" "));
1810     while (tokens.HasMoreTokens())
1811     {
1812         wxString token = tokens.GetNextToken();
1813         tabs.Add(wxAtoi(token));
1814     }
1815
1816     wxTextAttr attr;
1817     attr.SetTabs(tabs);
1818
1819     long start, end;
1820     m_textCtrl->GetSelection(& start, & end);
1821     m_textCtrl->SetStyle(start, end, attr);
1822
1823     m_currentPosition = -1;
1824 }
1825
1826 void RichTextFrame::OnIdle(wxIdleEvent& WXUNUSED(event))
1827 {
1828     long insertionPoint = m_textCtrl->GetInsertionPoint();
1829     if (insertionPoint != m_currentPosition)
1830     {
1831 #if wxUSE_STATUSBAR
1832         wxTextAttr attr;
1833         if (m_textCtrl->GetStyle(insertionPoint, attr))
1834         {
1835             wxString msg;
1836             wxString facename(wxT("unknown"));
1837             if (attr.GetFont().Ok())
1838             {
1839                 facename = attr.GetFont().GetFaceName();
1840             }
1841             wxString alignment(wxT("unknown alignment"));
1842             if (attr.GetAlignment() == wxTEXT_ALIGNMENT_CENTRE)
1843                 alignment = wxT("centred");
1844             else if (attr.GetAlignment() == wxTEXT_ALIGNMENT_RIGHT)
1845                 alignment = wxT("right-aligned");
1846             else if (attr.GetAlignment() == wxTEXT_ALIGNMENT_LEFT)
1847                 alignment = wxT("left-aligned");
1848             else if (attr.GetAlignment() == wxTEXT_ALIGNMENT_JUSTIFIED)
1849                 alignment = wxT("justified");
1850             msg.Printf( "Facename: %s, wxColour(%d, %d, %d), %s", facename,
1851                 attr.GetTextColour().Red(), attr.GetTextColour().Green(), attr.GetTextColour().Blue(),
1852                 alignment );
1853
1854             if (attr.HasFont())
1855             {
1856                 if (attr.GetFont().GetWeight() == wxBOLD)
1857                     msg += wxT(" BOLD");
1858                 else if (attr.GetFont().GetWeight() == wxNORMAL)
1859                     msg += wxT(" NORMAL");
1860
1861                 if (attr.GetFont().GetStyle() == wxITALIC)
1862                     msg += wxT(" ITALIC");
1863
1864                 if (attr.GetFont().GetUnderlined())
1865                     msg += wxT(" UNDERLINED");
1866             }
1867
1868             SetStatusText(msg);
1869         }
1870 #endif // wxUSE_STATUSBAR
1871         m_currentPosition = insertionPoint;
1872     }
1873 }