test Clear() in the sample

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@51116 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Vadim Zeitlin
2008-01-08 19:27:57 +00:00
parent e52cd41e5d
commit 60f0cf4e12

View File

@@ -121,6 +121,7 @@ public:
void OnSetSelBgCol(wxCommandEvent& event); void OnSetSelBgCol(wxCommandEvent& event);
void OnSetSelFgCol(wxCommandEvent& event); void OnSetSelFgCol(wxCommandEvent& event);
void OnClear(wxCommandEvent& event);
void OnUpdateUISelectAll(wxUpdateUIEvent& event); void OnUpdateUISelectAll(wxUpdateUIEvent& event);
@@ -176,6 +177,8 @@ enum
HtmlLbox_SetSelBgCol, HtmlLbox_SetSelBgCol,
HtmlLbox_SetSelFgCol, HtmlLbox_SetSelFgCol,
HtmlLbox_Clear,
// it is important for the id corresponding to the "About" command to have // 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 // this standard value as otherwise it won't be handled properly under Mac
// (where it is special and put into the "Apple" menu) // (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_SetSelBgCol, MyFrame::OnSetSelBgCol)
EVT_MENU(HtmlLbox_SetSelFgCol, MyFrame::OnSetSelFgCol) EVT_MENU(HtmlLbox_SetSelFgCol, MyFrame::OnSetSelFgCol)
EVT_MENU(HtmlLbox_Clear, MyFrame::OnClear)
EVT_UPDATE_UI(HtmlLbox_SelectAll, MyFrame::OnUpdateUISelectAll) EVT_UPDATE_UI(HtmlLbox_SelectAll, MyFrame::OnUpdateUISelectAll)
@@ -267,6 +272,9 @@ MyFrame::MyFrame()
menuHLbox->AppendCheckItem(HtmlLbox_SetSelFgCol, menuHLbox->AppendCheckItem(HtmlLbox_SetSelFgCol,
_T("Keep &foreground in selection\tCtrl-F")); _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 // the "About" item should be in the help menu
wxMenu *helpMenu = new wxMenu; wxMenu *helpMenu = new wxMenu;
helpMenu->Append(HtmlLbox_About, _T("&About...\tF1"), _T("Show about dialog")); 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) void MyFrame::OnHtmlLinkClicked(wxHtmlLinkEvent &event)
{ {
wxLogMessage(wxT("The url '%s' has been clicked!"), event.GetLinkInfo().GetHref().c_str()); wxLogMessage(wxT("The url '%s' has been clicked!"), event.GetLinkInfo().GetHref().c_str());