samples/text/text.cpp

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