summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--basctl/sdi/baside.sdi5
-rw-r--r--basctl/source/basicide/baside2.cxx9
-rw-r--r--basctl/source/basicide/baside2b.cxx4
3 files changed, 15 insertions, 3 deletions
diff --git a/basctl/sdi/baside.sdi b/basctl/sdi/baside.sdi
index bc9232c08bfd..f40e239b01bf 100644
--- a/basctl/sdi/baside.sdi
+++ b/basctl/sdi/baside.sdi
@@ -57,6 +57,11 @@ shell BasicIDEShell
StateMethod = GetState;
]
+ SID_SELECTALL
+ [
+ ExecMethod = ExecuteCurrent;
+ ]
+
SID_CUT
[
ExecMethod = ExecuteCurrent;
diff --git a/basctl/source/basicide/baside2.cxx b/basctl/source/basicide/baside2.cxx
index 325ff76c076e..aa1dd1ecd25e 100644
--- a/basctl/source/basicide/baside2.cxx
+++ b/basctl/source/basicide/baside2.cxx
@@ -999,6 +999,15 @@ void ModulWindow::ExecuteCommand( SfxRequest& rReq )
sal_uInt16 nSlot = rReq.GetSlot();
switch ( nSlot )
{
+ case SID_DELETE:
+ {
+ KeyEvent aFakeDelete( 0, KEY_DELETE );
+ GetEditView()->KeyInput( aFakeDelete );
+ break;
+ }
+ case SID_SELECTALL:
+ GetEditView()->SetSelection( TextSelection( TextPaM( 0, 0 ), TextPaM( 0xFFFFFFFF, 0xFFFF ) ) );
+ break;
case SID_BASICRUN:
{
BasicRun();
diff --git a/basctl/source/basicide/baside2b.cxx b/basctl/source/basicide/baside2b.cxx
index 399f0b700f98..bbaddf089ad7 100644
--- a/basctl/source/basicide/baside2b.cxx
+++ b/basctl/source/basicide/baside2b.cxx
@@ -417,9 +417,7 @@ void EditorWindow::KeyInput( const KeyEvent& rKEvt )
if ( !bDone && ( !TextEngine::DoesKeyChangeText( rKEvt ) || ImpCanModify() ) )
{
- if ( ( rKEvt.GetKeyCode().GetCode() == KEY_A) && rKEvt.GetKeyCode().IsMod1() && !rKEvt.GetKeyCode().IsMod2() )
- pEditView->SetSelection( TextSelection( TextPaM( 0, 0 ), TextPaM( 0xFFFFFFFF, 0xFFFF ) ) );
- else if ( ( rKEvt.GetKeyCode().GetCode() == KEY_Y ) && rKEvt.GetKeyCode().IsMod1() )
+ if ( ( rKEvt.GetKeyCode().GetCode() == KEY_Y ) && rKEvt.GetKeyCode().IsMod1() )
bDone = sal_True; // CTRL-Y schlucken, damit kein Vorlagenkatalog
else
{