Kaydet (Commit) 4bc27242 authored tarafından Noel Power's avatar Noel Power Kaydeden (comit) Jan Holesovsky

Fix 'Ctrl+A' in the Basic IDE - fdo#37211.

Signed-off-by: 's avatarJan Holesovsky <kendy@suse.cz>
üst 010a4baa
...@@ -57,6 +57,11 @@ shell BasicIDEShell ...@@ -57,6 +57,11 @@ shell BasicIDEShell
StateMethod = GetState; StateMethod = GetState;
] ]
SID_SELECTALL
[
ExecMethod = ExecuteCurrent;
]
SID_CUT SID_CUT
[ [
ExecMethod = ExecuteCurrent; ExecMethod = ExecuteCurrent;
......
...@@ -999,6 +999,15 @@ void ModulWindow::ExecuteCommand( SfxRequest& rReq ) ...@@ -999,6 +999,15 @@ void ModulWindow::ExecuteCommand( SfxRequest& rReq )
sal_uInt16 nSlot = rReq.GetSlot(); sal_uInt16 nSlot = rReq.GetSlot();
switch ( nSlot ) 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: case SID_BASICRUN:
{ {
BasicRun(); BasicRun();
......
...@@ -417,9 +417,7 @@ void EditorWindow::KeyInput( const KeyEvent& rKEvt ) ...@@ -417,9 +417,7 @@ void EditorWindow::KeyInput( const KeyEvent& rKEvt )
if ( !bDone && ( !TextEngine::DoesKeyChangeText( rKEvt ) || ImpCanModify() ) ) if ( !bDone && ( !TextEngine::DoesKeyChangeText( rKEvt ) || ImpCanModify() ) )
{ {
if ( ( rKEvt.GetKeyCode().GetCode() == KEY_A) && rKEvt.GetKeyCode().IsMod1() && !rKEvt.GetKeyCode().IsMod2() ) if ( ( rKEvt.GetKeyCode().GetCode() == KEY_Y ) && rKEvt.GetKeyCode().IsMod1() )
pEditView->SetSelection( TextSelection( TextPaM( 0, 0 ), TextPaM( 0xFFFFFFFF, 0xFFFF ) ) );
else if ( ( rKEvt.GetKeyCode().GetCode() == KEY_Y ) && rKEvt.GetKeyCode().IsMod1() )
bDone = sal_True; // CTRL-Y schlucken, damit kein Vorlagenkatalog bDone = sal_True; // CTRL-Y schlucken, damit kein Vorlagenkatalog
else else
{ {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment