"Clear window" in the SQL Editor

Hello,

In the SQL editor window, when the focus is outside of any text box, the
button "clear window" does nothing.

I believe that confuse the user. In this case the button should clear
the SQL editor.

Do you agree?

I made this change.

void frmQuery::OnClear(wxCommandEvent& ev)
{
     wxWindow *wnd=currentControl();

     if (wnd == sqlQuery)
         sqlQuery->ClearAll();
     else if (wnd == msgResult)
         msgResult->Clear();
     else if (wnd == msgHistory)
         msgHistory->Clear();
     else if (wnd == scratchPad)
         scratchPad->Clear();
+    else
+       sqlQuery->ClearAll();
}


Sorry my bad English. I am Brazilian.
The Google translator is helping me.