Tcl regex lib

[wxWidgets.git] / samples / text / text.cpp

diff --git a/samples/text/text.cpp b/samples/text/text.cpp
index f5ac96136b6e65bba13653e4101e8ebbdcd14f5e..5f4ba2899cc8409ccfb2424bca39f8788e270b0f 100644 (file)
--- a/samples/text/text.cpp
+++ b/samples/text/text.cpp
@@ -78,14 +78,18 @@ public:
 
     void OnMouseEvent(wxMouseEvent& event);
 
 
     void OnMouseEvent(wxMouseEvent& event);
 

+    void OnSetFocus(wxFocusEvent& event);
+    void OnKillFocus(wxFocusEvent& event);
+

     static bool ms_logKey;
     static bool ms_logChar;
     static bool ms_logMouse;
     static bool ms_logText;
     static bool ms_logKey;
     static bool ms_logChar;
     static bool ms_logMouse;
     static bool ms_logText;

+    static bool ms_logFocus;

 
 private:
     static inline wxChar GetChar(bool on, wxChar c) { return on ? c : _T('-'); }
 
 private:
     static inline wxChar GetChar(bool on, wxChar c) { return on ? c : _T('-'); }

-    void LogEvent(const wxChar *name, wxKeyEvent& event) const;
+    void LogKeyEvent(const wxChar *name, wxKeyEvent& event) const;

 
     bool m_hasCapture;
 
 
     bool m_hasCapture;
 


@@ -96,6 +100,7 @@ class MyPanel: public wxPanel
 {
 public:
     MyPanel(wxFrame *frame, int x, int y, int w, int h);
 {
 public:
     MyPanel(wxFrame *frame, int x, int y, int w, int h);

+    virtual ~MyPanel() { delete wxLog::SetActiveTarget(m_logOld); }

 
 #if wxUSE_CLIPBOARD
     void DoPasteFromClipboard();
 
 #if wxUSE_CLIPBOARD
     void DoPasteFromClipboard();


@@ -122,6 +127,8 @@ public:
 
     wxTextCtrl    *m_log;
 
 
     wxTextCtrl    *m_log;
 

+    wxLog         *m_logOld;
+

 private:
     // get the currently focused text control or return the default one is no
     // text ctrl has focus
 private:
     // get the currently focused text control or return the default one is no
     // text ctrl has focus


@@ -212,6 +219,11 @@ public:
         MyTextCtrl::ms_logText = event.IsChecked();
     }
 
         MyTextCtrl::ms_logText = event.IsChecked();
     }
 

+    void OnLogFocus(wxCommandEvent& event)
+    {
+        MyTextCtrl::ms_logFocus = event.IsChecked();
+    }
+

     void OnSetText(wxCommandEvent& event)
     {
         m_panel->m_text->SetValue(_T("Hello, world (what else did you expect)?"));
     void OnSetText(wxCommandEvent& event)
     {
         m_panel->m_text->SetValue(_T("Hello, world (what else did you expect)?"));


@@ -291,6 +303,7 @@ enum
     TEXT_LOG_CHAR,
     TEXT_LOG_MOUSE,
     TEXT_LOG_TEXT,
     TEXT_LOG_CHAR,
     TEXT_LOG_MOUSE,
     TEXT_LOG_TEXT,

+    TEXT_LOG_FOCUS,

 
     TEXT_END
 };
 
     TEXT_END
 };


@@ -358,12 +371,24 @@ bool MyApp::OnInit()
     menuLog->Append(TEXT_LOG_CHAR, "Log &char events", "", TRUE);
     menuLog->Append(TEXT_LOG_MOUSE, "Log &mouse events", "", TRUE);
     menuLog->Append(TEXT_LOG_TEXT, "Log &text events", "", TRUE);
     menuLog->Append(TEXT_LOG_CHAR, "Log &char events", "", TRUE);
     menuLog->Append(TEXT_LOG_MOUSE, "Log &mouse events", "", TRUE);
     menuLog->Append(TEXT_LOG_TEXT, "Log &text events", "", TRUE);

+    menuLog->Append(TEXT_LOG_FOCUS, "Log &focus events", "", TRUE);

     menuLog->AppendSeparator();
     menuLog->Append(TEXT_CLEAR, "&Clear the log\tCtrl-C",
                     "Clear the log window contents");
     menuLog->AppendSeparator();
     menuLog->Append(TEXT_CLEAR, "&Clear the log\tCtrl-C",
                     "Clear the log window contents");

+
+    // select only the interesting events by default
+#if 0

     menuLog->Check(TEXT_LOG_KEY, TRUE);
     menuLog->Check(TEXT_LOG_CHAR, TRUE);
     menuLog->Check(TEXT_LOG_TEXT, TRUE);
     menuLog->Check(TEXT_LOG_KEY, TRUE);
     menuLog->Check(TEXT_LOG_CHAR, TRUE);
     menuLog->Check(TEXT_LOG_TEXT, TRUE);

+
+    MyTextCtrl::ms_logKey =
+    MyTextCtrl::ms_logChar =
+    MyTextCtrl::ms_logText = TRUE;
+#else
+    menuLog->Check(TEXT_LOG_FOCUS, TRUE);
+    MyTextCtrl::ms_logFocus = TRUE;
+#endif

     menu_bar->Append(menuLog, "&Log");
 
     frame->SetMenuBar(menu_bar);
     menu_bar->Append(menuLog, "&Log");
 
     frame->SetMenuBar(menu_bar);


@@ -390,14 +415,18 @@ BEGIN_EVENT_TABLE(MyTextCtrl, wxTextCtrl)
     EVT_TEXT_MAXLEN(-1, MyTextCtrl::OnTextMaxLen)
 
     EVT_MOUSE_EVENTS(MyTextCtrl::OnMouseEvent)
     EVT_TEXT_MAXLEN(-1, MyTextCtrl::OnTextMaxLen)
 
     EVT_MOUSE_EVENTS(MyTextCtrl::OnMouseEvent)

+
+    EVT_SET_FOCUS(MyTextCtrl::OnSetFocus)
+    EVT_KILL_FOCUS(MyTextCtrl::OnKillFocus)

 END_EVENT_TABLE()
 
 END_EVENT_TABLE()
 

-bool MyTextCtrl::ms_logKey = TRUE;
-bool MyTextCtrl::ms_logChar = TRUE;
+bool MyTextCtrl::ms_logKey = FALSE;
+bool MyTextCtrl::ms_logChar = FALSE;

 bool MyTextCtrl::ms_logMouse = FALSE;
 bool MyTextCtrl::ms_logMouse = FALSE;

-bool MyTextCtrl::ms_logText = TRUE;
+bool MyTextCtrl::ms_logText = FALSE;
+bool MyTextCtrl::ms_logFocus = FALSE;

 
 

-void MyTextCtrl::LogEvent(const wxChar *name, wxKeyEvent& event) const
+void MyTextCtrl::LogKeyEvent(const wxChar *name, wxKeyEvent& event) const

 {
     wxString key;
     long keycode = event.KeyCode();
 {
     wxString key;
     long keycode = event.KeyCode();


@@ -599,6 +628,22 @@ void MyTextCtrl::OnMouseEvent(wxMouseEvent& ev)
     //else: we're not interested in mouse move events
 }
 
     //else: we're not interested in mouse move events
 }
 

+void MyTextCtrl::OnSetFocus(wxFocusEvent& event)
+{
+    if ( ms_logFocus )
+        wxLogMessage("%p got focus.", this);
+
+    event.Skip();
+}
+
+void MyTextCtrl::OnKillFocus(wxFocusEvent& event)
+{
+    if ( ms_logFocus )
+        wxLogMessage("%p lost focus", this);
+
+    event.Skip();
+}
+

 void MyTextCtrl::OnText(wxCommandEvent& event)
 {
     if ( !ms_logText )
 void MyTextCtrl::OnText(wxCommandEvent& event)
 {
     if ( !ms_logText )


@@ -640,7 +685,7 @@ void MyTextCtrl::OnTextURL(wxTextUrlEvent& event)
 void MyTextCtrl::OnChar(wxKeyEvent& event)
 {
     if ( ms_logChar )
 void MyTextCtrl::OnChar(wxKeyEvent& event)
 {
     if ( ms_logChar )

-        LogEvent( _T("Char"), event);
+        LogKeyEvent( _T("Char"), event);

 
     event.Skip();
 }
 
     event.Skip();
 }


@@ -648,7 +693,7 @@ void MyTextCtrl::OnChar(wxKeyEvent& event)
 void MyTextCtrl::OnKeyUp(wxKeyEvent& event)
 {
     if ( ms_logKey )
 void MyTextCtrl::OnKeyUp(wxKeyEvent& event)
 {
     if ( ms_logKey )

-        LogEvent( _T("Key up"), event);
+        LogKeyEvent( _T("Key up"), event);

 
     event.Skip();
 }
 
     event.Skip();
 }


@@ -725,7 +770,7 @@ void MyTextCtrl::OnKeyDown(wxKeyEvent& event)
     }
 
     if ( ms_logKey )
     }
 
     if ( ms_logKey )

-        LogEvent( wxT("Key down"), event);
+        LogKeyEvent( wxT("Key down"), event);

 
     event.Skip();
 }
 
     event.Skip();
 }


@@ -745,9 +790,7 @@ MyPanel::MyPanel( wxFrame *frame, int x, int y, int w, int h )
                             wxPoint(5,260), wxSize(630,100),
                             wxTE_MULTILINE | wxTE_READONLY /* | wxTE_RICH */);
 
                             wxPoint(5,260), wxSize(630,100),
                             wxTE_MULTILINE | wxTE_READONLY /* | wxTE_RICH */);
 

-    wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
-
-    delete old_log;
+    m_logOld = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );

 
     // single line text controls
 
 
     // single line text controls
 


@@ -842,7 +885,6 @@ MyPanel::MyPanel( wxFrame *frame, int x, int y, int w, int h )
                                 // wxTE_AUTO_URL |
                                 wxHSCROLL);
 
                                 // wxTE_AUTO_URL |
                                 wxHSCROLL);
 

-#if 1

     m_textrich->SetStyle(0, 10, *wxRED);
     m_textrich->SetStyle(10, 20, *wxBLUE);
     m_textrich->SetStyle(30, 40,
     m_textrich->SetStyle(0, 10, *wxRED);
     m_textrich->SetStyle(10, 20, *wxBLUE);
     m_textrich->SetStyle(30, 40,


@@ -857,16 +899,6 @@ MyPanel::MyPanel( wxFrame *frame, int x, int y, int w, int h )
     m_textrich->SetDefaultStyle(wxTextAttr(*wxBLUE, *wxWHITE));
     m_textrich->AppendText(_T("And this should be in blue and the text you ")
                            _T("type should be in blue as well"));
     m_textrich->SetDefaultStyle(wxTextAttr(*wxBLUE, *wxWHITE));
     m_textrich->AppendText(_T("And this should be in blue and the text you ")
                            _T("type should be in blue as well"));

-#else
-    m_textrich->SetFont(wxFont(12, wxFONTFAMILY_TELETYPE,
-                               wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL));
-    m_textrich->SetDefaultStyle(wxTextAttr(*wxRED));
-    m_textrich->AppendText(_T("Red text\n"));
-    m_textrich->SetDefaultStyle(wxTextAttr(wxNullColour, *wxLIGHT_GREY));
-    m_textrich->AppendText(_T("Red on grey text\n"));
-    m_textrich->SetDefaultStyle(wxTextAttr(*wxBLUE));
-    m_textrich->AppendText(_T("Blue on grey text\n"));
-#endif

 }
 
 void MyPanel::OnSize( wxSizeEvent &event )
 }
 
 void MyPanel::OnSize( wxSizeEvent &event )


@@ -1004,6 +1036,7 @@ BEGIN_EVENT_TABLE(MyFrame, wxFrame)
     EVT_MENU(TEXT_LOG_CHAR, MyFrame::OnLogChar)
     EVT_MENU(TEXT_LOG_MOUSE,MyFrame::OnLogMouse)
     EVT_MENU(TEXT_LOG_TEXT, MyFrame::OnLogText)
     EVT_MENU(TEXT_LOG_CHAR, MyFrame::OnLogChar)
     EVT_MENU(TEXT_LOG_MOUSE,MyFrame::OnLogMouse)
     EVT_MENU(TEXT_LOG_TEXT, MyFrame::OnLogText)

+    EVT_MENU(TEXT_LOG_FOCUS,MyFrame::OnLogFocus)

     EVT_MENU(TEXT_CLEAR,    MyFrame::OnLogClear)
 
 #if wxUSE_TOOLTIPS
     EVT_MENU(TEXT_CLEAR,    MyFrame::OnLogClear)
 
 #if wxUSE_TOOLTIPS