luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Debugger: Renaming a module correctly updates breakpoints now.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Debugger: Renaming a module correctly updates breakpoints now.
This commit is contained in:
gambas 2018-04-02 11:12:03 +02:00
parent 31193668a9
commit 9969c3c528
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
app/src/gambas3/.src/Debug/FDebugInfo.class
View file

@ -1084,6 +1084,7 @@ Public Sub RefreshBreakpointView()
gvwBreakpoint.Columns[1].Width = -1 gvwBreakpoint.Columns[1].Width = -1
gvwBreakpoint.Columns[2].Width = -1 gvwBreakpoint.Columns[2].Width = -1
gvwBreakpoint.Refresh gvwBreakpoint.Refresh
gvwBreakpoint_Click
End End

8
app/src/gambas3/.src/Project.module
View file

@ -6382,6 +6382,7 @@ Private Sub RenamePaths(sOld As String, sNew As String)
Dim hForm As Object Dim hForm As Object
Dim sCheck As String Dim sCheck As String
Dim sNewFormPath As String Dim sNewFormPath As String
Dim sExt As String
' Rename DoNotTranslate ' Rename DoNotTranslate
@ -6429,8 +6430,11 @@ Private Sub RenamePaths(sOld As String, sNew As String)
' Rename breakpoints ' Rename breakpoints
If IsSourcePath(sOld) And If File.Ext(sOld) = "class" Then If IsSourcePath(sOld) Then
Design.RenameClass(File.BaseName(sOld), File.BaseName(sNew)) sExt = File.Ext(sOld)
If sExt = "class" Or If sExt = "module" Then
Design.RenameClass(File.BaseName(sOld), File.BaseName(sNew))
Endif
Endif Endif
End End