From 1faf469de33869626c02c6c52adda8aa61d2e6d5 Mon Sep 17 00:00:00 2001 From: Vadim Zeitlin Date: Wed, 9 Jan 2008 14:43:15 +0000 Subject: [PATCH] test Clear() in the sample [backport of r51116 from trunk] git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/branches/WX_2_8_BRANCH@51132 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775 --- samples/htlbox/htlbox.cpp | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/samples/htlbox/htlbox.cpp b/samples/htlbox/htlbox.cpp index 4e445bdeb1..8dc4783cd3 100644 --- a/samples/htlbox/htlbox.cpp +++ b/samples/htlbox/htlbox.cpp @@ -121,6 +121,7 @@ public: void OnSetSelBgCol(wxCommandEvent& event); void OnSetSelFgCol(wxCommandEvent& event); + void OnClear(wxCommandEvent& event); void OnUpdateUISelectAll(wxUpdateUIEvent& event); @@ -176,6 +177,8 @@ enum HtmlLbox_SetSelBgCol, HtmlLbox_SetSelFgCol, + HtmlLbox_Clear, + // it is important for the id corresponding to the "About" command to have // this standard value as otherwise it won't be handled properly under Mac // (where it is special and put into the "Apple" menu) @@ -203,6 +206,8 @@ BEGIN_EVENT_TABLE(MyFrame, wxFrame) EVT_MENU(HtmlLbox_SetSelBgCol, MyFrame::OnSetSelBgCol) EVT_MENU(HtmlLbox_SetSelFgCol, MyFrame::OnSetSelFgCol) + EVT_MENU(HtmlLbox_Clear, MyFrame::OnClear) + EVT_UPDATE_UI(HtmlLbox_SelectAll, MyFrame::OnUpdateUISelectAll) @@ -267,6 +272,9 @@ MyFrame::MyFrame() menuHLbox->AppendCheckItem(HtmlLbox_SetSelFgCol, _T("Keep &foreground in selection\tCtrl-F")); + menuHLbox->AppendSeparator(); + menuHLbox->Append(HtmlLbox_Clear, _T("&Clear\tCtrl-L")); + // the "About" item should be in the help menu wxMenu *helpMenu = new wxMenu; helpMenu->Append(HtmlLbox_About, _T("&About...\tF1"), _T("Show about dialog")); @@ -463,6 +471,11 @@ void MyFrame::OnSetSelFgCol(wxCommandEvent& event) } } +void MyFrame::OnClear(wxCommandEvent& WXUNUSED(event)) +{ + m_hlbox->Clear(); +} + void MyFrame::OnHtmlLinkClicked(wxHtmlLinkEvent &event) { wxLogMessage(wxT("The url '%s' has been clicked!"), event.GetLinkInfo().GetHref().c_str());