From 5b3f84cec471ddbde98a46220096cdb952bb1935 Mon Sep 17 00:00:00 2001
From: Caolán McNamara <caolanm@redhat.com>
Date: Wed, 9 Mar 2016 15:30:51 +0000
Subject: Resolves: tdf#95428 backspace in readonly macro editor hangs

Change-Id: I16568b00e92d18f32818188ba3ab8df92bbd13aa
---
 basctl/source/basicide/baside2.cxx | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'basctl')

diff --git a/basctl/source/basicide/baside2.cxx b/basctl/source/basicide/baside2.cxx
index 38b804396d5c..b27605b766b7 100644
--- a/basctl/source/basicide/baside2.cxx
+++ b/basctl/source/basicide/baside2.cxx
@@ -867,11 +867,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;
         }
-- 
cgit