samples/text/text.cpp

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