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