INTEGRATION: CWS vcl07 (1.24.10.1.24); FILE MERGED

2003/03/26 11:28:58 tbe 1.24.10.1.24.1: #106204# Breakpoint dialog cannot be accessed via Keyboard

1 files changed, 49 insertions, 2 deletions

diff --git a/basctl/source/basicide/baside2.cxx b/basctl/source/basicide/baside2.cxx
index 665da3d46850..cad927de3276 100644
--- a/basctl/source/basicide/baside2.cxx
+++ b/basctl/source/basicide/baside2.cxx
@@ -2,9 +2,9 @@
  *
  *  $RCSfile: baside2.cxx,v $
  *
- *  $Revision: 1.25 $
+ *  $Revision: 1.26 $
  *
- *  last change: $Author: hr $ $Date: 2003-03-18 16:17:04 $
+ *  last change: $Author: vg $ $Date: 2003-04-11 17:37:21 $
  *
  *  The Contents of this file are made available subject to the terms of
  *  either of the following licenses
@@ -107,6 +107,7 @@
 #include <iderdll2.hxx>
 
 #include <basobj.hxx>
+#include <brkdlg.hxx>
 
 #include <svx/srchdlg.hxx>
 
@@ -656,6 +657,42 @@ BOOL ModulWindow::BasicToggleBreakPoint()
     return bNewBreakPoint;
 }
 
+
+void ModulWindow::BasicToggleBreakPointEnabled()
+{
+    DBG_CHKTHIS( ModulWindow, 0 );
+    AssertValidEditEngine();
+
+    ExtTextView* pView = GetEditView();
+    if ( pView )
+    {
+        TextSelection aSel = pView->GetSelection();
+        BreakPointList& rList = GetBreakPoints();
+
+        for ( ULONG nLine = ++aSel.GetStart().GetPara(), nEnd = ++aSel.GetEnd().GetPara(); nLine <= nEnd; ++nLine )
+        {
+            BreakPoint* pBrk = rList.FindBreakPoint( nLine );
+            if ( pBrk )
+            {
+                pBrk->bEnabled = pBrk->bEnabled ? FALSE : TRUE;
+                UpdateBreakPoint( *pBrk );
+            }
+        }
+
+        GetBreakPointWindow().Invalidate();
+    }
+}
+
+
+void ModulWindow::ManageBreakPoints()
+{
+    BreakPointWindow& rBrkWin = GetBreakPointWindow();
+    BreakPointDialog aBrkDlg( &rBrkWin, GetBreakPoints() );
+    aBrkDlg.Execute();
+    rBrkWin.Invalidate();
+}
+
+
 IMPL_LINK( ModulWindow, BasicErrorHdl, StarBASIC *, pBasic )
 {
     DBG_CHKTHIS( ModulWindow, 0 );
@@ -1035,6 +1072,16 @@ void __EXPORT ModulWindow::ExecuteCommand( SfxRequest& rReq )
             BasicToggleBreakPoint();
         }
         break;
+        case SID_BASICIDE_MANAGEBRKPNTS:
+        {
+            ManageBreakPoints();
+        }
+        break;
+        case SID_BASICIDE_TOGGLEBRKPNTENABLED:
+        {
+            BasicToggleBreakPointEnabled();
+        }
+        break;
         case SID_BASICIDE_ADDWATCH:
         {
             BasicAddWatch();