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