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