diff options
-rw-r--r-- | basctl/source/basicide/baside2.cxx | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/basctl/source/basicide/baside2.cxx b/basctl/source/basicide/baside2.cxx index d602a7439d37..891c7f600658 100644 --- a/basctl/source/basicide/baside2.cxx +++ b/basctl/source/basicide/baside2.cxx @@ -894,11 +894,10 @@ void ModulWindow::ExecuteCommand (SfxRequest& rReq) { case SID_DELETE: { - KeyEvent aFakeDelete( 0, KEY_DELETE ); - bool bDone = GetEditView()->KeyInput( aFakeDelete ); - if (!bDone) + if (!IsReadOnly()) { - BaseWindow::KeyInput(aFakeDelete); + KeyEvent aFakeDelete(0, KEY_DELETE); + (void)GetEditView()->KeyInput(aFakeDelete); } break; } |