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 wxHAS_IMAGES_IN_RESOURCES
  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_limited = new MyTextCtrl(this, wxID_ANY, "",
1078                               wxPoint(10, 90), wxDefaultSize);
1079     m_limited->SetHint("Max 8 ch");
1080     m_limited->SetMaxLength(8);
1081     wxSize size2 = m_limited->GetSizeFromTextSize(m_limited->GetTextExtent("WWWWWWWW"));
1082     m_limited->SetSizeHints(size2, size2);
1083
1084     // multi line text controls
1085
1086     wxString string3L("Read only\nMultiline\nFitted size");
1087     m_readonly = new MyTextCtrl( this, wxID_ANY, string3L,
1088                wxPoint(10, 120), wxDefaultSize, wxTE_MULTILINE | wxTE_READONLY );
1089     wxWindowDC dc(m_readonly);
1090     size2 = m_readonly->GetSizeFromTextSize(dc.GetMultiLineTextExtent(string3L));
1091     m_readonly->SetMinSize(size2);
1092
1093     m_horizontal = new MyTextCtrl( this, wxID_ANY, wxT("Multiline text control with a horizontal scrollbar.\n"),
1094       wxPoint(10,170), wxSize(140,70), wxTE_MULTILINE | wxHSCROLL);
1095
1096     // a little hack to use the command line argument for encoding testing
1097     if ( wxTheApp->argc == 2 )
1098     {
1099         switch ( (wxChar)wxTheApp->argv[1][0] )
1100         {
1101             case '2':
1102                 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
1103                                              false, wxT(""),
1104                                              wxFONTENCODING_ISO8859_2));
1105                 m_horizontal->AppendText(wxT("\256lu\273ou\350k\375 k\371\362 zb\354sile \350e\271tina \253\273"));
1106                 break;
1107
1108             case '1':
1109                 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
1110                                              false, wxT(""),
1111                                              wxFONTENCODING_CP1251));
1112                 m_horizontal->AppendText(wxT("\317\360\350\342\345\362!"));
1113                 break;
1114
1115             case '8':
1116                 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
1117                                              false, wxT(""),
1118                                              wxFONTENCODING_CP1251));
1119 #if wxUSE_UNICODE
1120                 m_horizontal->AppendText(L"\x0412\x0430\x0434\x0438\x043c \x0426");
1121 #else
1122                 m_horizontal->AppendText("\313\301\326\305\324\323\321 \325\304\301\336\316\331\315");
1123 #endif
1124         }
1125     }
1126     else
1127     {
1128         m_horizontal->AppendText(wxT("Text in default encoding"));
1129     }
1130
1131     m_multitext = new MyTextCtrl( this, wxID_ANY,
1132                                   wxT("Multi line without vertical scrollbar."),
1133       wxPoint(180,10), wxSize(200,70), wxTE_MULTILINE | wxTE_NO_VSCROLL );
1134     m_multitext->SetFont(*wxITALIC_FONT);
1135     (*m_multitext) << wxT(" Appended.");
1136     m_multitext->SetInsertionPoint(0);
1137     m_multitext->WriteText( wxT("Prepended. ") );
1138     m_multitext->SetForegroundColour(*wxYELLOW);
1139     m_multitext->SetBackgroundColour(*wxLIGHT_GREY);
1140
1141 #if wxUSE_TOOLTIPS
1142     m_multitext->SetToolTip(wxT("Press Fn function keys here"));
1143 #endif
1144
1145     m_tab = new MyTextCtrl( this, 100, wxT("Multiline, allow <TAB> processing."),
1146       wxPoint(180,90), wxDefaultSize, wxTE_MULTILINE |  wxTE_PROCESS_TAB );
1147     m_tab->SetClientData((void *)wxT("tab"));
1148
1149     m_enter = new MyTextCtrl( this, 100, wxT("Multiline, allow <ENTER> processing."),
1150       wxPoint(180,170), wxSize(200,70), wxTE_MULTILINE);
1151     m_enter->SetClientData((void *)wxT("enter"));
1152
1153     m_textrich = new MyTextCtrl(this, wxID_ANY, wxT("Allows more than 30Kb of text\n")
1154                                 wxT("(even under broken Win9x)\n")
1155                                 wxT("and a very very very very very ")
1156                                 wxT("very very very long line to test ")
1157                                 wxT("wxHSCROLL style\n")
1158                                 wxT("\nAnd here is a link in quotation marks to ")
1159                                 wxT("test wxTE_AUTO_URL: \"http://www.wxwidgets.org\""),
1160                                 wxPoint(450, 10), wxSize(200, 230),
1161                                 wxTE_RICH | wxTE_MULTILINE | wxTE_AUTO_URL);
1162     m_textrich->SetStyle(0, 10, *wxRED);
1163     m_textrich->SetStyle(10, 20, *wxBLUE);
1164     m_textrich->SetStyle(30, 40,
1165                          wxTextAttr(*wxGREEN, wxNullColour, *wxITALIC_FONT));
1166     m_textrich->SetDefaultStyle(wxTextAttr());
1167     m_textrich->AppendText(wxT("\n\nFirst 10 characters should be in red\n"));
1168     m_textrich->AppendText(wxT("Next 10 characters should be in blue\n"));
1169     m_textrich->AppendText(wxT("Next 10 characters should be normal\n"));
1170     m_textrich->AppendText(wxT("And the next 10 characters should be green and italic\n"));
1171     m_textrich->SetDefaultStyle(wxTextAttr(*wxCYAN, *wxBLUE));
1172     m_textrich->AppendText(wxT("This text should be cyan on blue\n"));
1173     m_textrich->SetDefaultStyle(wxTextAttr(*wxBLUE, *wxWHITE));
1174     m_textrich->AppendText(wxT("And this should be in blue and the text you ")
1175                            wxT("type should be in blue as well"));
1176
1177
1178     // lay out the controls
1179     wxBoxSizer *column1 = new wxBoxSizer(wxVERTICAL);
1180     column1->Add( m_text, 0, wxALL | wxEXPAND, 10 );
1181     column1->Add( m_password, 0, wxALL | wxEXPAND, 10 );
1182     column1->Add( m_readonly, 0, wxALL, 10 );
1183     column1->Add( m_limited, 0, wxALL, 10 );
1184     column1->Add( m_horizontal, 1, wxALL | wxEXPAND, 10 );
1185
1186     wxBoxSizer *column2 = new wxBoxSizer(wxVERTICAL);
1187     column2->Add( m_multitext, 1, wxALL | wxEXPAND, 10 );
1188     column2->Add( m_tab, 0, wxALL | wxEXPAND, 10 );
1189     column2->Add( m_enter, 1, wxALL | wxEXPAND, 10 );
1190
1191     wxBoxSizer *row1 = new wxBoxSizer(wxHORIZONTAL);
1192     row1->Add( column1, 0, wxALL | wxEXPAND, 10 );
1193     row1->Add( column2, 1, wxALL | wxEXPAND, 10 );
1194     row1->Add( m_textrich, 1, wxALL | wxEXPAND, 10 );
1195
1196     wxBoxSizer *topSizer = new wxBoxSizer(wxVERTICAL);
1197     topSizer->Add( row1, 2, wxALL | wxEXPAND, 10 );
1198
1199 #if wxUSE_LOG
1200     topSizer->Add( m_log, 1, wxALL | wxEXPAND, 10 );
1201 #endif
1202
1203     SetSizer(topSizer);
1204 }
1205
1206 wxTextCtrl *MyPanel::GetFocusedText() const
1207 {
1208     wxWindow *win = FindFocus();
1209
1210     wxTextCtrl *text = win ? wxDynamicCast(win, wxTextCtrl) : NULL;
1211     return text ? text : m_multitext;
1212 }
1213
1214 #if wxUSE_CLIPBOARD
1215 void MyPanel::DoPasteFromClipboard()
1216 {
1217     // On X11, we want to get the data from the primary selection instead
1218     // of the normal clipboard (which isn't normal under X11 at all). This
1219     // call has no effect under MSW.
1220     wxTheClipboard->UsePrimarySelection();
1221
1222     if (!wxTheClipboard->Open())
1223     {
1224 #if wxUSE_LOG
1225         *m_log << wxT("Error opening the clipboard.\n");
1226 #endif // wxUSE_LOG
1227         return;
1228     }
1229     else
1230     {
1231 #if wxUSE_LOG
1232         *m_log << wxT("Successfully opened the clipboard.\n");
1233 #endif // wxUSE_LOG
1234     }
1235
1236     wxTextDataObject data;
1237
1238     if (wxTheClipboard->IsSupported( data.GetFormat() ))
1239     {
1240 #if wxUSE_LOG
1241         *m_log << wxT("Clipboard supports requested format.\n");
1242 #endif // wxUSE_LOG
1243
1244         if (wxTheClipboard->GetData( data ))
1245         {
1246 #if wxUSE_LOG
1247             *m_log << wxT("Successfully retrieved data from the clipboard.\n");
1248 #endif // wxUSE_LOG
1249             GetFocusedText()->AppendText(data.GetText());
1250         }
1251         else
1252         {
1253 #if wxUSE_LOG
1254             *m_log << wxT("Error getting data from the clipboard.\n");
1255 #endif // wxUSE_LOG
1256         }
1257     }
1258     else
1259     {
1260 #if wxUSE_LOG
1261         *m_log << wxT("Clipboard doesn't support requested format.\n");
1262 #endif // wxUSE_LOG
1263     }
1264
1265     wxTheClipboard->Close();
1266
1267 #if wxUSE_LOG
1268     *m_log << wxT("Closed the clipboard.\n");
1269 #endif // wxUSE_LOG
1270 }
1271
1272 void MyPanel::DoCopyToClipboard()
1273 {
1274     // On X11, we want to get the data from the primary selection instead
1275     // of the normal clipboard (which isn't normal under X11 at all). This
1276     // call has no effect under MSW.
1277     wxTheClipboard->UsePrimarySelection();
1278
1279     wxString text( GetFocusedText()->GetStringSelection() );
1280
1281     if (text.IsEmpty())
1282     {
1283 #if wxUSE_LOG
1284         *m_log << wxT("No text to copy.\n");
1285 #endif // wxUSE_LOG
1286
1287         return;
1288     }
1289
1290     if (!wxTheClipboard->Open())
1291     {
1292 #if wxUSE_LOG
1293         *m_log << wxT("Error opening the clipboard.\n");
1294 #endif // wxUSE_LOG
1295
1296         return;
1297     }
1298     else
1299     {
1300 #if wxUSE_LOG
1301         *m_log << wxT("Successfully opened the clipboard.\n");
1302 #endif // wxUSE_LOG
1303     }
1304
1305     wxTextDataObject *data = new wxTextDataObject( text );
1306
1307     if (!wxTheClipboard->SetData( data ))
1308     {
1309 #if wxUSE_LOG
1310         *m_log << wxT("Error while copying to the clipboard.\n");
1311 #endif // wxUSE_LOG
1312     }
1313     else
1314     {
1315 #if wxUSE_LOG
1316         *m_log << wxT("Successfully copied data to the clipboard.\n");
1317 #endif // wxUSE_LOG
1318     }
1319
1320     wxTheClipboard->Close();
1321
1322 #if wxUSE_LOG
1323     *m_log << wxT("Closed the clipboard.\n");
1324 #endif // wxUSE_LOG
1325 }
1326
1327 #endif // wxUSE_CLIPBOARD
1328
1329 void MyPanel::DoMoveToEndOfText()
1330 {
1331     m_multitext->SetInsertionPointEnd();
1332     m_multitext->SetFocus();
1333 }
1334
1335 void MyPanel::DoGetWindowCoordinates()
1336 {
1337     wxTextCtrl * const text = GetFocusedText();
1338
1339     const wxPoint pt0 = text->PositionToCoords(0);
1340     const wxPoint ptCur = text->PositionToCoords(text->GetInsertionPoint());
1341     *m_log << "Current position coordinates: "
1342               "(" << ptCur.x << ", "  << ptCur.y << "), "
1343               "first position coordinates: "
1344               "(" << pt0.x << ", "  << pt0.y << ")\n";
1345 }
1346
1347 void MyPanel::DoMoveToEndOfEntry()
1348 {
1349     m_text->SetInsertionPointEnd();
1350     m_text->SetFocus();
1351 }
1352
1353 void MyPanel::DoRemoveText()
1354 {
1355     GetFocusedText()->Remove(0, 10);
1356 }
1357
1358 void MyPanel::DoReplaceText()
1359 {
1360     GetFocusedText()->Replace(3, 8, wxT("ABC"));
1361 }
1362
1363 void MyPanel::DoSelectText()
1364 {
1365     GetFocusedText()->SetSelection(3, 8);
1366 }
1367
1368 //----------------------------------------------------------------------
1369 // MyFrame
1370 //----------------------------------------------------------------------
1371
1372 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
1373     EVT_MENU(TEXT_QUIT,   MyFrame::OnQuit)
1374     EVT_MENU(TEXT_ABOUT,  MyFrame::OnAbout)
1375     EVT_MENU(TEXT_SAVE,   MyFrame::OnFileSave)
1376     EVT_MENU(TEXT_LOAD,   MyFrame::OnFileLoad)
1377     EVT_MENU(TEXT_RICH_TEXT_TEST, MyFrame::OnRichTextTest)
1378
1379     EVT_MENU(TEXT_LOG_KEY,  MyFrame::OnLogKey)
1380     EVT_MENU(TEXT_LOG_CHAR, MyFrame::OnLogChar)
1381     EVT_MENU(TEXT_LOG_MOUSE,MyFrame::OnLogMouse)
1382     EVT_MENU(TEXT_LOG_TEXT, MyFrame::OnLogText)
1383     EVT_MENU(TEXT_LOG_FOCUS,MyFrame::OnLogFocus)
1384     EVT_MENU(TEXT_LOG_CLIP, MyFrame::OnLogClip)
1385 #if wxUSE_LOG
1386     EVT_MENU(TEXT_CLEAR,    MyFrame::OnLogClear)
1387 #endif // wxUSE_LOG
1388
1389 #if wxUSE_TOOLTIPS
1390     EVT_MENU(TEXT_TOOLTIPS_SETDELAY,  MyFrame::OnSetTooltipDelay)
1391     EVT_MENU(TEXT_TOOLTIPS_ENABLE,    MyFrame::OnToggleTooltips)
1392 #endif // wxUSE_TOOLTIPS
1393
1394 #if wxUSE_CLIPBOARD
1395     EVT_MENU(TEXT_CLIPBOARD_PASTE,    MyFrame::OnPasteFromClipboard)
1396     EVT_MENU(TEXT_CLIPBOARD_COPY,     MyFrame::OnCopyToClipboard)
1397
1398     EVT_UPDATE_UI(TEXT_CLIPBOARD_PASTE, MyFrame::OnUpdatePasteFromClipboard)
1399     EVT_UPDATE_UI(TEXT_CLIPBOARD_COPY,  MyFrame::OnUpdateCopyToClipboard)
1400 #endif // wxUSE_CLIPBOARD
1401
1402     EVT_MENU(TEXT_REMOVE,             MyFrame::OnRemoveText)
1403     EVT_MENU(TEXT_REPLACE,            MyFrame::OnReplaceText)
1404     EVT_MENU(TEXT_SELECT,             MyFrame::OnSelectText)
1405     EVT_MENU(TEXT_ADD_SOME,           MyFrame::OnAddText)
1406     EVT_MENU(TEXT_ADD_FREEZE,         MyFrame::OnAddTextFreeze)
1407     EVT_MENU(TEXT_ADD_LINE,           MyFrame::OnAddTextLine)
1408     EVT_MENU(TEXT_MOVE_ENDTEXT,       MyFrame::OnMoveToEndOfText)
1409     EVT_MENU(TEXT_GET_WINDOW_COORD,   MyFrame::OnGetWindowCoordinates)
1410     EVT_MENU(TEXT_MOVE_ENDENTRY,      MyFrame::OnMoveToEndOfEntry)
1411
1412     EVT_MENU(TEXT_SET_EDITABLE,       MyFrame::OnSetEditable)
1413     EVT_MENU(TEXT_SET_ENABLED,        MyFrame::OnSetEnabled)
1414
1415     EVT_MENU(TEXT_LINE_DOWN,          MyFrame::OnScrollLineDown)
1416     EVT_MENU(TEXT_LINE_UP,            MyFrame::OnScrollLineUp)
1417     EVT_MENU(TEXT_PAGE_DOWN,          MyFrame::OnScrollPageDown)
1418     EVT_MENU(TEXT_PAGE_UP,            MyFrame::OnScrollPageUp)
1419
1420     EVT_MENU(TEXT_GET_LINE,           MyFrame::OnGetLine)
1421     EVT_MENU(TEXT_GET_LINELENGTH,     MyFrame::OnGetLineLength)
1422
1423     EVT_MENU(TEXT_SET,                MyFrame::OnSetText)
1424     EVT_MENU(TEXT_CHANGE,             MyFrame::OnChangeText)
1425
1426     EVT_IDLE(MyFrame::OnIdle)
1427 END_EVENT_TABLE()
1428
1429 MyFrame::MyFrame(wxFrame *frame, const wxChar *title, int x, int y, int w, int h)
1430        : wxFrame(frame, wxID_ANY, title, wxPoint(x, y), wxSize(w, h) )
1431 {
1432     SetIcon(wxICON(sample));
1433
1434 #if wxUSE_STATUSBAR
1435     CreateStatusBar(2);
1436 #endif // wxUSE_STATUSBAR
1437
1438     m_panel = new MyPanel( this, 10, 10, 300, 100 );
1439 }
1440
1441 void MyFrame::OnQuit (wxCommandEvent& WXUNUSED(event) )
1442 {
1443     Close(true);
1444 }
1445
1446 void MyFrame::OnAbout( wxCommandEvent& WXUNUSED(event) )
1447 {
1448     wxBeginBusyCursor();
1449
1450     wxMessageDialog dialog(this,
1451       wxT("This is a text control sample. It demonstrates the many different\n")
1452       wxT("text control styles, the use of the clipboard, setting and handling\n")
1453       wxT("tooltips and intercepting key and char events.\n")
1454       wxT("\n")
1455         wxT("Copyright (c) 1999, Robert Roebling, Julian Smart, Vadim Zeitlin"),
1456         wxT("About wxTextCtrl Sample"),
1457         wxOK | wxICON_INFORMATION);
1458
1459     dialog.ShowModal();
1460
1461     wxEndBusyCursor();
1462 }
1463
1464 #if wxUSE_TOOLTIPS
1465
1466 void MyFrame::OnSetTooltipDelay(wxCommandEvent& WXUNUSED(event))
1467 {
1468     static long s_delay = 5000;
1469
1470     wxString delay;
1471     delay.Printf( wxT("%ld"), s_delay);
1472
1473     delay = wxGetTextFromUser(wxT("Enter delay (in milliseconds)"),
1474                               wxT("Set tooltip delay"),
1475                               delay,
1476                               this);
1477     if ( !delay )
1478         return; // cancelled
1479
1480     wxSscanf(delay, wxT("%ld"), &s_delay);
1481
1482     wxToolTip::SetDelay(s_delay);
1483
1484     wxLogStatus(this, wxT("Tooltip delay set to %ld milliseconds"), s_delay);
1485 }
1486
1487 void MyFrame::OnToggleTooltips(wxCommandEvent& WXUNUSED(event))
1488 {
1489     static bool s_enabled = true;
1490
1491     s_enabled = !s_enabled;
1492
1493     wxToolTip::Enable(s_enabled);
1494
1495     wxLogStatus(this, wxT("Tooltips %sabled"), s_enabled ? wxT("en") : wxT("dis") );
1496 }
1497 #endif // tooltips
1498
1499 #if wxUSE_LOG
1500 void MyFrame::OnLogClear(wxCommandEvent& WXUNUSED(event))
1501 {
1502     m_panel->m_log->Clear();
1503 }
1504 #endif // wxUSE_LOG
1505
1506 void MyFrame::OnSetEditable(wxCommandEvent& WXUNUSED(event))
1507 {
1508     static bool s_editable = true;
1509
1510     s_editable = !s_editable;
1511     m_panel->m_text->SetEditable(s_editable);
1512     m_panel->m_password->SetEditable(s_editable);
1513     m_panel->m_multitext->SetEditable(s_editable);
1514     m_panel->m_textrich->SetEditable(s_editable);
1515 }
1516
1517 void MyFrame::OnSetEnabled(wxCommandEvent& WXUNUSED(event))
1518 {
1519     bool enabled = m_panel->m_text->IsEnabled();
1520     enabled = !enabled;
1521
1522     m_panel->m_text->Enable(enabled);
1523     m_panel->m_password->Enable(enabled);
1524     m_panel->m_multitext->Enable(enabled);
1525     m_panel->m_readonly->Enable(enabled);
1526     m_panel->m_limited->Enable(enabled);
1527     m_panel->m_textrich->Enable(enabled);
1528 }
1529
1530 void MyFrame::OnFileSave(wxCommandEvent& WXUNUSED(event))
1531 {
1532     if ( m_panel->m_textrich->SaveFile(wxT("dummy.txt")) )
1533     {
1534 #if wxUSE_FILE
1535         // verify that the fil length is correct (it wasn't under Win95)
1536         wxFile file(wxT("dummy.txt"));
1537         wxLogStatus(this,
1538                     wxT("Successfully saved file (text len = %lu, file size = %ld)"),
1539                     (unsigned long)m_panel->m_textrich->GetValue().length(),
1540                     (long) file.Length());
1541 #endif
1542     }
1543     else
1544         wxLogStatus(this, wxT("Couldn't save the file"));
1545 }
1546
1547 void MyFrame::OnFileLoad(wxCommandEvent& WXUNUSED(event))
1548 {
1549     if ( m_panel->m_textrich->LoadFile(wxT("dummy.txt")) )
1550     {
1551         wxLogStatus(this, wxT("Successfully loaded file"));
1552     }
1553     else
1554     {
1555         wxLogStatus(this, wxT("Couldn't load the file"));
1556     }
1557 }
1558
1559 void MyFrame::OnRichTextTest(wxCommandEvent& WXUNUSED(event))
1560 {
1561     RichTextFrame* frame = new RichTextFrame(this, wxT("Rich Text Editor"));
1562     frame->Show(true);
1563 }
1564
1565 void MyFrame::OnIdle( wxIdleEvent& event )
1566 {
1567     // track the window which has the focus in the status bar
1568     static wxWindow *s_windowFocus = (wxWindow *)NULL;
1569     wxWindow *focus = wxWindow::FindFocus();
1570     if ( focus && (focus != s_windowFocus) )
1571     {
1572         s_windowFocus = focus;
1573
1574         wxString msg;
1575         msg.Printf(
1576 #ifdef __WXMSW__
1577                 wxT("Focus: wxWindow = %p, HWND = %p"),
1578 #else
1579                 wxT("Focus: wxWindow = %p"),
1580 #endif
1581                 s_windowFocus
1582 #ifdef __WXMSW__
1583                 , s_windowFocus->GetHWND()
1584 #endif
1585                   );
1586
1587 #if wxUSE_STATUSBAR
1588         SetStatusText(msg);
1589 #endif // wxUSE_STATUSBAR
1590     }
1591     event.Skip();
1592 }
1593
1594 /*
1595  * RichTextFrame is used to demonstrate rich text behaviour
1596  */
1597
1598 enum
1599 {
1600     RICHTEXT_CLOSE = 1000,
1601     RICHTEXT_LEFT_ALIGN,
1602     RICHTEXT_RIGHT_ALIGN,
1603     RICHTEXT_CENTRE,
1604     RICHTEXT_JUSTIFY,
1605     RICHTEXT_CHANGE_FONT,
1606     RICHTEXT_CHANGE_TEXT_COLOUR,
1607     RICHTEXT_CHANGE_BACKGROUND_COLOUR,
1608     RICHTEXT_LEFT_INDENT,
1609     RICHTEXT_RIGHT_INDENT,
1610     RICHTEXT_TAB_STOPS
1611 };
1612
1613 BEGIN_EVENT_TABLE(RichTextFrame, wxFrame)
1614     EVT_IDLE(RichTextFrame::OnIdle)
1615     EVT_MENU(RICHTEXT_CLOSE, RichTextFrame::OnClose)
1616     EVT_MENU(RICHTEXT_LEFT_ALIGN, RichTextFrame::OnLeftAlign)
1617     EVT_MENU(RICHTEXT_RIGHT_ALIGN, RichTextFrame::OnRightAlign)
1618     EVT_MENU(RICHTEXT_CENTRE, RichTextFrame::OnCentre)
1619     EVT_MENU(RICHTEXT_JUSTIFY, RichTextFrame::OnJustify)
1620     EVT_MENU(RICHTEXT_CHANGE_FONT, RichTextFrame::OnChangeFont)
1621     EVT_MENU(RICHTEXT_CHANGE_TEXT_COLOUR, RichTextFrame::OnChangeTextColour)
1622     EVT_MENU(RICHTEXT_CHANGE_BACKGROUND_COLOUR, RichTextFrame::OnChangeBackgroundColour)
1623     EVT_MENU(RICHTEXT_LEFT_INDENT, RichTextFrame::OnLeftIndent)
1624     EVT_MENU(RICHTEXT_RIGHT_INDENT, RichTextFrame::OnRightIndent)
1625     EVT_MENU(RICHTEXT_TAB_STOPS, RichTextFrame::OnTabStops)
1626 END_EVENT_TABLE()
1627
1628 RichTextFrame::RichTextFrame(wxWindow* parent, const wxString& title):
1629     wxFrame(parent, wxID_ANY, title, wxDefaultPosition, wxSize(300, 400))
1630 {
1631     m_currentPosition = -1;
1632     m_textCtrl = new wxTextCtrl(this, wxID_ANY, wxEmptyString, wxDefaultPosition,
1633             wxDefaultSize, wxTE_MULTILINE|wxTE_RICH2);
1634
1635     wxString value;
1636     int i;
1637     for (i = 0; i < 10; i++)
1638     {
1639         int j;
1640         for (j = 0; j < 10; j++)
1641         {
1642             value << wxT("Hello, welcome to a very simple rich text editor. You can set some character and paragraph styles from the Edit menu. ");
1643         }
1644         value << wxT("\n\n");
1645     }
1646     m_textCtrl->SetValue(value);
1647
1648     wxMenuBar* menuBar = new wxMenuBar;
1649     wxMenu* fileMenu = new wxMenu;
1650     fileMenu->Append(RICHTEXT_CLOSE, _("Close\tCtrl+W"));
1651     menuBar->Append(fileMenu, _("File"));
1652
1653     wxMenu* editMenu = new wxMenu;
1654     editMenu->Append(RICHTEXT_LEFT_ALIGN, _("Left Align"));
1655     editMenu->Append(RICHTEXT_RIGHT_ALIGN, _("Right Align"));
1656     editMenu->Append(RICHTEXT_CENTRE, _("Centre"));
1657     editMenu->Append(RICHTEXT_JUSTIFY, _("Justify"));
1658     editMenu->AppendSeparator();
1659     editMenu->Append(RICHTEXT_CHANGE_FONT, _("Change Font"));
1660     editMenu->Append(RICHTEXT_CHANGE_TEXT_COLOUR, _("Change Text Colour"));
1661     editMenu->Append(RICHTEXT_CHANGE_BACKGROUND_COLOUR, _("Change Background Colour"));
1662     editMenu->AppendSeparator();
1663     editMenu->Append(RICHTEXT_LEFT_INDENT, _("Left Indent"));
1664     editMenu->Append(RICHTEXT_RIGHT_INDENT, _("Right Indent"));
1665     editMenu->Append(RICHTEXT_TAB_STOPS, _("Tab Stops"));
1666     menuBar->Append(editMenu, _("Edit"));
1667
1668     SetMenuBar(menuBar);
1669 #if wxUSE_STATUSBAR
1670     CreateStatusBar();
1671 #endif // wxUSE_STATUSBAR
1672 }
1673
1674 // Event handlers
1675
1676 void RichTextFrame::OnClose(wxCommandEvent& WXUNUSED(event))
1677 {
1678     Close(true);
1679 }
1680
1681 void RichTextFrame::OnLeftAlign(wxCommandEvent& WXUNUSED(event))
1682 {
1683     wxTextAttr attr;
1684     attr.SetAlignment(wxTEXT_ALIGNMENT_LEFT);
1685
1686     long start, end;
1687     m_textCtrl->GetSelection(& start, & end);
1688     m_textCtrl->SetStyle(start, end, attr);
1689
1690     m_currentPosition = -1;
1691 }
1692
1693 void RichTextFrame::OnRightAlign(wxCommandEvent& WXUNUSED(event))
1694 {
1695     wxTextAttr attr;
1696     attr.SetAlignment(wxTEXT_ALIGNMENT_RIGHT);
1697
1698     long start, end;
1699     m_textCtrl->GetSelection(& start, & end);
1700     m_textCtrl->SetStyle(start, end, attr);
1701
1702     m_currentPosition = -1;
1703 }
1704
1705 void RichTextFrame::OnJustify(wxCommandEvent& WXUNUSED(event))
1706 {
1707     wxTextAttr attr;
1708     attr.SetAlignment(wxTEXT_ALIGNMENT_JUSTIFIED);
1709
1710     long start, end;
1711     m_textCtrl->GetSelection(& start, & end);
1712     m_textCtrl->SetStyle(start, end, attr);
1713
1714     m_currentPosition = -1;
1715 }
1716
1717 void RichTextFrame::OnCentre(wxCommandEvent& WXUNUSED(event))
1718 {
1719     wxTextAttr attr;
1720     attr.SetAlignment(wxTEXT_ALIGNMENT_CENTRE);
1721
1722     long start, end;
1723     m_textCtrl->GetSelection(& start, & end);
1724     m_textCtrl->SetStyle(start, end, attr);
1725
1726     m_currentPosition = -1;
1727 }
1728
1729 void RichTextFrame::OnChangeFont(wxCommandEvent& WXUNUSED(event))
1730 {
1731     wxFontData data;
1732
1733     wxFontDialog dialog(this, data);
1734
1735     if (dialog.ShowModal() == wxID_OK)
1736     {
1737         wxFontData retData = dialog.GetFontData();
1738         wxFont font = retData.GetChosenFont();
1739
1740         wxTextAttr attr;
1741         attr.SetFont(font);
1742
1743         long start, end;
1744         m_textCtrl->GetSelection(& start, & end);
1745         m_textCtrl->SetStyle(start, end, attr);
1746
1747         m_currentPosition = -1;
1748     }
1749 }
1750
1751 void RichTextFrame::OnChangeTextColour(wxCommandEvent& WXUNUSED(event))
1752 {
1753     wxColourData data;
1754     data.SetColour(* wxBLACK);
1755     data.SetChooseFull(true);
1756     for (int i = 0; i < 16; i++)
1757     {
1758         wxColour colour((unsigned char)(i*16), (unsigned char)(i*16), (unsigned char)(i*16));
1759         data.SetCustomColour(i, colour);
1760     }
1761
1762     wxColourDialog dialog(this, &data);
1763     dialog.SetTitle(wxT("Choose the text colour"));
1764     if (dialog.ShowModal() == wxID_OK)
1765     {
1766         wxColourData retData = dialog.GetColourData();
1767         wxColour col = retData.GetColour();
1768
1769         wxTextAttr attr;
1770         attr.SetTextColour(col);
1771
1772         long start, end;
1773         m_textCtrl->GetSelection(& start, & end);
1774         m_textCtrl->SetStyle(start, end, attr);
1775
1776         m_currentPosition = -1;
1777     }
1778 }
1779
1780 void RichTextFrame::OnChangeBackgroundColour(wxCommandEvent& WXUNUSED(event))
1781 {
1782     wxColourData data;
1783     data.SetColour(* wxWHITE);
1784     data.SetChooseFull(true);
1785     for (int i = 0; i < 16; i++)
1786     {
1787         wxColour colour((unsigned char)(i*16), (unsigned char)(i*16), (unsigned char)(i*16));
1788         data.SetCustomColour(i, colour);
1789     }
1790
1791     wxColourDialog dialog(this, &data);
1792     dialog.SetTitle(wxT("Choose the text background colour"));
1793     if (dialog.ShowModal() == wxID_OK)
1794     {
1795         wxColourData retData = dialog.GetColourData();
1796         wxColour col = retData.GetColour();
1797
1798         wxTextAttr attr;
1799         attr.SetBackgroundColour(col);
1800
1801         long start, end;
1802         m_textCtrl->GetSelection(& start, & end);
1803         m_textCtrl->SetStyle(start, end, attr);
1804
1805         m_currentPosition = -1;
1806     }
1807 }
1808
1809 void RichTextFrame::OnLeftIndent(wxCommandEvent& WXUNUSED(event))
1810 {
1811     wxString indentStr = wxGetTextFromUser
1812                          (
1813                             _("Please enter the left indent in tenths of a millimetre."),
1814                             _("Left Indent"),
1815                             wxEmptyString,
1816                             this
1817                          );
1818     if (!indentStr.IsEmpty())
1819     {
1820         int indent = wxAtoi(indentStr);
1821
1822         wxTextAttr attr;
1823         attr.SetLeftIndent(indent);
1824
1825         long start, end;
1826         m_textCtrl->GetSelection(& start, & end);
1827         m_textCtrl->SetStyle(start, end, attr);
1828
1829         m_currentPosition = -1;
1830     }
1831 }
1832
1833 void RichTextFrame::OnRightIndent(wxCommandEvent& WXUNUSED(event))
1834 {
1835     wxString indentStr = wxGetTextFromUser
1836                          (
1837                             _("Please enter the right indent in tenths of a millimetre."),
1838                             _("Right Indent"),
1839                             wxEmptyString,
1840                             this
1841                          );
1842     if (!indentStr.IsEmpty())
1843     {
1844         int indent = wxAtoi(indentStr);
1845
1846         wxTextAttr attr;
1847         attr.SetRightIndent(indent);
1848
1849         long start, end;
1850         m_textCtrl->GetSelection(& start, & end);
1851         m_textCtrl->SetStyle(start, end, attr);
1852
1853         m_currentPosition = -1;
1854     }
1855 }
1856
1857 void RichTextFrame::OnTabStops(wxCommandEvent& WXUNUSED(event))
1858 {
1859     wxString tabsStr = wxGetTextFromUser
1860                          (
1861                             _("Please enter the tab stop positions in tenths of a millimetre, separated by spaces.\nLeave empty to reset tab stops."),
1862                             _("Tab Stops"),
1863                             wxEmptyString,
1864                             this
1865                          );
1866
1867     wxArrayInt tabs;
1868
1869     wxStringTokenizer tokens(tabsStr, wxT(" "));
1870     while (tokens.HasMoreTokens())
1871     {
1872         wxString token = tokens.GetNextToken();
1873         tabs.Add(wxAtoi(token));
1874     }
1875
1876     wxTextAttr attr;
1877     attr.SetTabs(tabs);
1878
1879     long start, end;
1880     m_textCtrl->GetSelection(& start, & end);
1881     m_textCtrl->SetStyle(start, end, attr);
1882
1883     m_currentPosition = -1;
1884 }
1885
1886 void RichTextFrame::OnIdle(wxIdleEvent& WXUNUSED(event))
1887 {
1888     long insertionPoint = m_textCtrl->GetInsertionPoint();
1889     if (insertionPoint != m_currentPosition)
1890     {
1891 #if wxUSE_STATUSBAR
1892         wxTextAttr attr;
1893         if (m_textCtrl->GetStyle(insertionPoint, attr))
1894         {
1895             wxString msg;
1896             wxString facename(wxT("unknown"));
1897             if (attr.GetFont().IsOk())
1898             {
1899                 facename = attr.GetFont().GetFaceName();
1900             }
1901             wxString alignment(wxT("unknown alignment"));
1902             if (attr.GetAlignment() == wxTEXT_ALIGNMENT_CENTRE)
1903                 alignment = wxT("centred");
1904             else if (attr.GetAlignment() == wxTEXT_ALIGNMENT_RIGHT)
1905                 alignment = wxT("right-aligned");
1906             else if (attr.GetAlignment() == wxTEXT_ALIGNMENT_LEFT)
1907                 alignment = wxT("left-aligned");
1908             else if (attr.GetAlignment() == wxTEXT_ALIGNMENT_JUSTIFIED)
1909                 alignment = wxT("justified");
1910
1911             msg.Printf("Facename: %s", facename);
1912
1913             if (attr.HasTextColour())
1914             {
1915                 msg += wxString::Format(", colour: %s",
1916                                         attr.GetTextColour().GetAsString());
1917             }
1918             else
1919             {
1920                 msg += ", no colour";
1921             }
1922
1923             msg << ", " << alignment;
1924
1925             if (attr.HasFont())
1926             {
1927                 if (attr.GetFont().GetWeight() == wxBOLD)
1928                     msg += wxT(" BOLD");
1929                 else if (attr.GetFont().GetWeight() == wxNORMAL)
1930                     msg += wxT(" NORMAL");
1931
1932                 if (attr.GetFont().GetStyle() == wxITALIC)
1933                     msg += wxT(" ITALIC");
1934
1935                 if (attr.GetFont().GetUnderlined())
1936                     msg += wxT(" UNDERLINED");
1937             }
1938
1939             SetStatusText(msg);
1940         }
1941 #endif // wxUSE_STATUSBAR
1942         m_currentPosition = insertionPoint;
1943     }
1944 }