home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wxos2240.zip / wxWindows-2.4.0 / samples / text / text.cpp < prev    next >
C/C++ Source or Header  |  2002-12-16  |  40KB  |  1,227 lines
  1. /////////////////////////////////////////////////////////////////////////////
  2. // Name:        text.cpp
  3. // Purpose:     TextCtrl wxWindows sample
  4. // Author:      Robert Roebling
  5. // Modified by:
  6. // RCS-ID:      $Id: text.cpp,v 1.49.2.4 2002/12/14 18:19:58 MBN Exp $
  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 wxChar *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.             _T("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, _T("&Save file\tCtrl-S"),
  320.                       _T("Save the text control contents to file"));
  321.     file_menu->Append(TEXT_LOAD, _T("&Load file\tCtrl-O"),
  322.                       _T("Load the sample file into text control"));
  323.     file_menu->AppendSeparator();
  324.     file_menu->Append(TEXT_ABOUT, _T("&About\tAlt-A"));
  325.     file_menu->AppendSeparator();
  326.     file_menu->Append(TEXT_QUIT, _T("E&xit\tAlt-X"), _T("Quit this sample"));
  327.  
  328.     wxMenuBar *menu_bar = new wxMenuBar( wxMB_DOCKABLE );
  329.     menu_bar->Append(file_menu, _T("&File"));
  330.  
  331. #if wxUSE_TOOLTIPS
  332.     wxMenu *tooltip_menu = new wxMenu;
  333.     tooltip_menu->Append(TEXT_TOOLTIPS_SETDELAY, _T("Set &delay\tCtrl-D"));
  334.     tooltip_menu->AppendSeparator();
  335.     tooltip_menu->Append(TEXT_TOOLTIPS_ENABLE, _T("&Toggle tooltips\tCtrl-T"),
  336.             _T("enable/disable tooltips"), TRUE);
  337.     tooltip_menu->Check(TEXT_TOOLTIPS_ENABLE, TRUE);
  338.     menu_bar->Append(tooltip_menu, _T("&Tooltips"));
  339. #endif // wxUSE_TOOLTIPS
  340.  
  341. #if wxUSE_CLIPBOARD
  342.     wxMenu *menuClipboard = new wxMenu;
  343.     menuClipboard->Append(TEXT_CLIPBOARD_COPY, _T("&Copy\tCtrl-C"),
  344.                           _T("Copy the first line to the clipboard"));
  345.     menuClipboard->Append(TEXT_CLIPBOARD_PASTE, _T("&Paste\tCtrl-V"),
  346.                           _T("Paste from clipboard to the text control"));
  347.     menu_bar->Append(menuClipboard, _T("&Clipboard"));
  348. #endif // wxUSE_CLIPBOARD
  349.  
  350.     wxMenu *menuText = new wxMenu;
  351.     menuText->Append(TEXT_ADD_SOME, _T("&Append some text\tCtrl-A"));
  352.     menuText->Append(TEXT_ADD_FREEZE, _T("&Append text with freeze/thaw\tShift-Ctrl-A"));
  353.     menuText->Append(TEXT_REMOVE, _T("&Remove first 10 characters\tCtrl-X"));
  354.     menuText->Append(TEXT_SET, _T("&Set the first text zone value\tCtrl-E"));
  355.     menuText->AppendSeparator();
  356.     menuText->Append(TEXT_MOVE_ENDTEXT, _T("Move cursor to the end of &text"));
  357.     menuText->Append(TEXT_MOVE_ENDENTRY, _T("Move cursor to the end of &entry"));
  358.     menuText->Append(TEXT_SET_EDITABLE, _T("Toggle &editable state"), _T(""), TRUE);
  359.     menuText->Append(TEXT_SET_ENABLED, _T("Toggle e&nabled state"), _T(""), TRUE);
  360.     menuText->Check(TEXT_SET_EDITABLE, TRUE);
  361.     menuText->Check(TEXT_SET_ENABLED, TRUE);
  362.     menuText->AppendSeparator();
  363.     menuText->Append(TEXT_LINE_DOWN, _T("Scroll text one line down"));
  364.     menuText->Append(TEXT_LINE_UP, _T("Scroll text one line up"));
  365.     menuText->Append(TEXT_PAGE_DOWN, _T("Scroll text one page down"));
  366.     menuText->Append(TEXT_PAGE_DOWN, _T("Scroll text one page up"));
  367.     menu_bar->Append(menuText, _T("Te&xt"));
  368.  
  369.     wxMenu *menuLog = new wxMenu;
  370.     menuLog->Append(TEXT_LOG_KEY, _T("Log &key events"), _T(""), TRUE);
  371.     menuLog->Append(TEXT_LOG_CHAR, _T("Log &char events"), _T(""), TRUE);
  372.     menuLog->Append(TEXT_LOG_MOUSE, _T("Log &mouse events"), _T(""), TRUE);
  373.     menuLog->Append(TEXT_LOG_TEXT, _T("Log &text events"), _T(""), TRUE);
  374.     menuLog->Append(TEXT_LOG_FOCUS, _T("Log &focus events"), _T(""), TRUE);
  375.     menuLog->AppendSeparator();
  376.     menuLog->Append(TEXT_CLEAR, _T("&Clear the log\tCtrl-C"),
  377.                     _T("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, _T("&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 = _T("BACK"); break;
  432.             case WXK_TAB: key = _T("TAB"); break;
  433.             case WXK_RETURN: key = _T("RETURN"); break;
  434.             case WXK_ESCAPE: key = _T("ESCAPE"); break;
  435.             case WXK_SPACE: key = _T("SPACE"); break;
  436.             case WXK_DELETE: key = _T("DELETE"); break;
  437.             case WXK_START: key = _T("START"); break;
  438.             case WXK_LBUTTON: key = _T("LBUTTON"); break;
  439.             case WXK_RBUTTON: key = _T("RBUTTON"); break;
  440.             case WXK_CANCEL: key = _T("CANCEL"); break;
  441.             case WXK_MBUTTON: key = _T("MBUTTON"); break;
  442.             case WXK_CLEAR: key = _T("CLEAR"); break;
  443.             case WXK_SHIFT: key = _T("SHIFT"); break;
  444.             case WXK_ALT: key = _T("ALT"); break;
  445.             case WXK_CONTROL: key = _T("CONTROL"); break;
  446.             case WXK_MENU: key = _T("MENU"); break;
  447.             case WXK_PAUSE: key = _T("PAUSE"); break;
  448.             case WXK_CAPITAL: key = _T("CAPITAL"); break;
  449.             case WXK_PRIOR: key = _T("PRIOR"); break;
  450.             case WXK_NEXT: key = _T("NEXT"); break;
  451.             case WXK_END: key = _T("END"); break;
  452.             case WXK_HOME: key = _T("HOME"); break;
  453.             case WXK_LEFT: key = _T("LEFT"); break;
  454.             case WXK_UP: key = _T("UP"); break;
  455.             case WXK_RIGHT: key = _T("RIGHT"); break;
  456.             case WXK_DOWN: key = _T("DOWN"); break;
  457.             case WXK_SELECT: key = _T("SELECT"); break;
  458.             case WXK_PRINT: key = _T("PRINT"); break;
  459.             case WXK_EXECUTE: key = _T("EXECUTE"); break;
  460.             case WXK_SNAPSHOT: key = _T("SNAPSHOT"); break;
  461.             case WXK_INSERT: key = _T("INSERT"); break;
  462.             case WXK_HELP: key = _T("HELP"); break;
  463.             case WXK_NUMPAD0: key = _T("NUMPAD0"); break;
  464.             case WXK_NUMPAD1: key = _T("NUMPAD1"); break;
  465.             case WXK_NUMPAD2: key = _T("NUMPAD2"); break;
  466.             case WXK_NUMPAD3: key = _T("NUMPAD3"); break;
  467.             case WXK_NUMPAD4: key = _T("NUMPAD4"); break;
  468.             case WXK_NUMPAD5: key = _T("NUMPAD5"); break;
  469.             case WXK_NUMPAD6: key = _T("NUMPAD6"); break;
  470.             case WXK_NUMPAD7: key = _T("NUMPAD7"); break;
  471.             case WXK_NUMPAD8: key = _T("NUMPAD8"); break;
  472.             case WXK_NUMPAD9: key = _T("NUMPAD9"); break;
  473.             case WXK_MULTIPLY: key = _T("MULTIPLY"); break;
  474.             case WXK_ADD: key = _T("ADD"); break;
  475.             case WXK_SEPARATOR: key = _T("SEPARATOR"); break;
  476.             case WXK_SUBTRACT: key = _T("SUBTRACT"); break;
  477.             case WXK_DECIMAL: key = _T("DECIMAL"); break;
  478.             case WXK_DIVIDE: key = _T("DIVIDE"); break;
  479.             case WXK_F1: key = _T("F1"); break;
  480.             case WXK_F2: key = _T("F2"); break;
  481.             case WXK_F3: key = _T("F3"); break;
  482.             case WXK_F4: key = _T("F4"); break;
  483.             case WXK_F5: key = _T("F5"); break;
  484.             case WXK_F6: key = _T("F6"); break;
  485.             case WXK_F7: key = _T("F7"); break;
  486.             case WXK_F8: key = _T("F8"); break;
  487.             case WXK_F9: key = _T("F9"); break;
  488.             case WXK_F10: key = _T("F10"); break;
  489.             case WXK_F11: key = _T("F11"); break;
  490.             case WXK_F12: key = _T("F12"); break;
  491.             case WXK_F13: key = _T("F13"); break;
  492.             case WXK_F14: key = _T("F14"); break;
  493.             case WXK_F15: key = _T("F15"); break;
  494.             case WXK_F16: key = _T("F16"); break;
  495.             case WXK_F17: key = _T("F17"); break;
  496.             case WXK_F18: key = _T("F18"); break;
  497.             case WXK_F19: key = _T("F19"); break;
  498.             case WXK_F20: key = _T("F20"); break;
  499.             case WXK_F21: key = _T("F21"); break;
  500.             case WXK_F22: key = _T("F22"); break;
  501.             case WXK_F23: key = _T("F23"); break;
  502.             case WXK_F24: key = _T("F24"); break;
  503.             case WXK_NUMLOCK: key = _T("NUMLOCK"); break;
  504.             case WXK_SCROLL: key = _T("SCROLL"); break;
  505.             case WXK_PAGEUP: key = _T("PAGEUP"); break;
  506.             case WXK_PAGEDOWN: key = _T("PAGEDOWN"); break;
  507.             case WXK_NUMPAD_SPACE: key = _T("NUMPAD_SPACE"); break;
  508.             case WXK_NUMPAD_TAB: key = _T("NUMPAD_TAB"); break;
  509.             case WXK_NUMPAD_ENTER: key = _T("NUMPAD_ENTER"); break;
  510.             case WXK_NUMPAD_F1: key = _T("NUMPAD_F1"); break;
  511.             case WXK_NUMPAD_F2: key = _T("NUMPAD_F2"); break;
  512.             case WXK_NUMPAD_F3: key = _T("NUMPAD_F3"); break;
  513.             case WXK_NUMPAD_F4: key = _T("NUMPAD_F4"); break;
  514.             case WXK_NUMPAD_HOME: key = _T("NUMPAD_HOME"); break;
  515.             case WXK_NUMPAD_LEFT: key = _T("NUMPAD_LEFT"); break;
  516.             case WXK_NUMPAD_UP: key = _T("NUMPAD_UP"); break;
  517.             case WXK_NUMPAD_RIGHT: key = _T("NUMPAD_RIGHT"); break;
  518.             case WXK_NUMPAD_DOWN: key = _T("NUMPAD_DOWN"); break;
  519.             case WXK_NUMPAD_PRIOR: key = _T("NUMPAD_PRIOR"); break;
  520.             case WXK_NUMPAD_PAGEUP: key = _T("NUMPAD_PAGEUP"); break;
  521.             case WXK_NUMPAD_PAGEDOWN: key = _T("NUMPAD_PAGEDOWN"); break;
  522.             case WXK_NUMPAD_END: key = _T("NUMPAD_END"); break;
  523.             case WXK_NUMPAD_BEGIN: key = _T("NUMPAD_BEGIN"); break;
  524.             case WXK_NUMPAD_INSERT: key = _T("NUMPAD_INSERT"); break;
  525.             case WXK_NUMPAD_DELETE: key = _T("NUMPAD_DELETE"); break;
  526.             case WXK_NUMPAD_EQUAL: key = _T("NUMPAD_EQUAL"); break;
  527.             case WXK_NUMPAD_MULTIPLY: key = _T("NUMPAD_MULTIPLY"); break;
  528.             case WXK_NUMPAD_ADD: key = _T("NUMPAD_ADD"); break;
  529.             case WXK_NUMPAD_SEPARATOR: key = _T("NUMPAD_SEPARATOR"); break;
  530.             case WXK_NUMPAD_SUBTRACT: key = _T("NUMPAD_SUBTRACT"); break;
  531.             case WXK_NUMPAD_DECIMAL: key = _T("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(_T("\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(_T("WriteText() has been called"));
  776.             break;
  777.  
  778.         case WXK_F10:
  779.             AppendText(_T("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, _T("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, _T("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) << _T(" Appended.");
  814.     m_text->SetInsertionPoint(0);
  815.     m_text->WriteText( _T("Prepended. ") );
  816.  
  817.     m_password = new MyTextCtrl( this, -1, _T(""),
  818.       wxPoint(10,50), wxSize(140,-1), wxTE_PASSWORD );
  819.  
  820.     m_readonly = new MyTextCtrl( this, -1, _T("Read only"),
  821.       wxPoint(10,90), wxSize(140,-1), wxTE_READONLY );
  822.  
  823.     m_limited = new MyTextCtrl(this, -1, _T("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, _T("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, _T(""),
  840.                                              wxFONTENCODING_ISO8859_2));
  841.                 m_horizontal->SetValue(_T("«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, _T(""),
  847.                                              wxFONTENCODING_CP1251));
  848.                 m_horizontal->SetValue(_T("╧≡ΦΓσ≥!"));
  849.                 break;
  850.  
  851.             case '8':
  852.                 m_horizontal->SetFont(wxFont(18, wxSWISS, wxNORMAL, wxNORMAL,
  853.                                              FALSE, _T(""),
  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(_T("Text in default encoding"));
  865.     }
  866.  
  867.     m_multitext = new MyTextCtrl( this, -1, _T("Multi line."),
  868.       wxPoint(180,10), wxSize(240,70), wxTE_MULTILINE );
  869.     m_multitext->SetFont(*wxITALIC_FONT);
  870.     (*m_multitext) << _T(" Appended.");
  871.     m_multitext->SetInsertionPoint(0);
  872.     m_multitext->WriteText( _T("Prepended. ") );
  873.     m_multitext->SetForegroundColour(*wxRED);
  874.     m_multitext->SetBackgroundColour(*wxLIGHT_GREY);
  875.  
  876. #if wxUSE_TOOLTIPS
  877.     m_multitext->SetToolTip(_T("Press Fn function keys here"));
  878. #endif
  879.  
  880.     m_tab = new MyTextCtrl( this, 100, _T("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, _T("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, _T("Allows more than 30Kb of text\n")
  889.                                 _T("(even under broken Win9x)\n")
  890.                                 _T("and a very very very very very ")
  891.                                 _T("very very very long line to test ")
  892.                                 _T("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 << _T("Error opening the clipboard.\n");
  941.         return;
  942.     }
  943.     else
  944.     {
  945.         *m_log << _T("Successfully opened the clipboard.\n");
  946.     }
  947.  
  948.     wxTextDataObject data;
  949.  
  950.     if (wxTheClipboard->IsSupported( data.GetFormat() ))
  951.     {
  952.         *m_log << _T("Clipboard supports requested format.\n");
  953.  
  954.         if (wxTheClipboard->GetData( data ))
  955.         {
  956.             *m_log << _T("Successfully retrieved data from the clipboard.\n");
  957.             *m_multitext << data.GetText() << _T("\n");
  958.         }
  959.         else
  960.         {
  961.             *m_log << _T("Error getting data from the clipboard.\n");
  962.         }
  963.     }
  964.     else
  965.     {
  966.         *m_log << _T("Clipboard doesn't support requested format.\n");
  967.     }
  968.  
  969.     wxTheClipboard->Close();
  970.  
  971.     *m_log << _T("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 << _T("No text to copy.\n");
  986.  
  987.         return;
  988.     }
  989.  
  990.     if (!wxTheClipboard->Open())
  991.     {
  992.         *m_log << _T("Error opening the clipboard.\n");
  993.  
  994.         return;
  995.     }
  996.     else
  997.     {
  998.         *m_log << _T("Successfully opened the clipboard.\n");
  999.     }
  1000.  
  1001.     wxTextDataObject *data = new wxTextDataObject( text );
  1002.  
  1003.     if (!wxTheClipboard->SetData( data ))
  1004.     {
  1005.         *m_log << _T("Error while copying to the clipboard.\n");
  1006.     }
  1007.     else
  1008.     {
  1009.         *m_log << _T("Successfully copied data to the clipboard.\n");
  1010.     }
  1011.  
  1012.     wxTheClipboard->Close();
  1013.  
  1014.     *m_log << _T("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 wxChar *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.       _T("This is a text control sample. It demonstrates the many different\n")
  1101.       _T("text control styles, the use of the clipboard, setting and handling\n")
  1102.       _T("tooltips and intercepting key and char events.\n")
  1103.       _T("\n")
  1104.         _T("Copyright (c) 1999, Robert Roebling, Julian Smart, Vadim Zeitlin"),
  1105.         _T("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(_T("Enter delay (in milliseconds)"),
  1122.                               _T("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(_T("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(_T("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. }
  1227.