Merge branch 'master' into stable

This commit is contained in:
gambas 2018-05-01 21:09:43 +02:00
commit bff32a4f28
2 changed files with 17 additions and 4 deletions

View file

@ -1088,6 +1088,21 @@ Public Sub RefreshBreakpointView()
End
Public Sub RemoveAllBreakpoints()
Dim aBreakPoint As String[]
Dim I As Integer
aBreakpoint = Design.GetBreakpoints()
While aBreakpoint.Count
Design.SetBreakpoint(aBreakpoint[0], False)
Wend
RefreshBreakpointView
End
Public Sub btnRemoveBreakpoint_Click()
Dim aBreakPoint As String[]
@ -1130,9 +1145,7 @@ End
Public Sub btnRemoveAllBreakpoint_Click()
If Project.Running Then Return
gvwBreakpoint.SelectAll
btnRemoveBreakpoint_Click
RemoveAllBreakpoints
End

View file

@ -1869,7 +1869,7 @@ End
Public Sub mnuClearBreakpoints_Click()
Design.ClearBreakpoints
FDebugInfo.RemoveAllBreakpoints
End