Related: #i50481# improve Select All command in Basic IDE

see also fdo#37211 i.e. commit 4bc27242

(cherry picked from commit f841659f)

Conflicts:
	basctl/source/basicide/baside2.cxx
	basctl/source/basicide/baside2b.cxx
	basctl/source/basicide/baside3.cxx

Change-Id: Id679b1e16b87ec8d81fb78039318728320b9d5bc

basctl/sdi/baside.sdi

@@ -57,6 +57,7 @@ shell basctl_Shell
     SID_SELECTALL
     [
         ExecMethod  = ExecuteCurrent;
+        StateMethod = GetState;
     ]
 
     SID_CUT

basctl/source/basicide/baside2.cxx

@@ -952,8 +952,13 @@ void ModulWindow::ExecuteCommand (SfxRequest& rReq)
             break;
         }
         case SID_SELECTALL:
-            GetEditView()->SetSelection( TextSelection( TextPaM( 0, 0 ), TextPaM( 0xFFFFFFFF, 0xFFFF ) ) );
+        {
+            TextSelection aSel( TextPaM( 0, 0 ), TextPaM( TEXT_PARA_ALL, 0xFFFF ) );
+            TextView * pView = GetEditView();
+            pView->SetSelection( aSel );
+            pView->GetWindow()->GrabFocus();
             break;
+        }
         case SID_BASICRUN:
         {
             BasicRun();
@@ -1170,6 +1175,12 @@ void ModulWindow::GetState( SfxItemSet &rSet )
                 rSet.Put(SfxBoolItem(nWh, bSourceLinesEnabled));
                 break;
             }
+            case SID_SELECTALL:
+            {
+                if ( !GetEditView() )
+                    rSet.DisableItem( nWh );
+            }
+            break;
         }
     }
 }

basctl/source/basicide/baside3.cxx

@@ -409,6 +409,11 @@ void DialogWindow::GetState( SfxItemSet& rSet )
                 rSet.Put(SfxVisibilityItem(nWh, false));
                 break;
             }
+            case SID_SELECTALL:
+            {
+                rSet.DisableItem( nWh );
+            }
+            break;
         }
     }
 }