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