From 9969c3c5284b67741e46feb24071b391bbaed896 Mon Sep 17 00:00:00 2001 From: gambas Date: Mon, 2 Apr 2018 11:12:03 +0200 Subject: [PATCH] Debugger: Renaming a module correctly updates breakpoints now. [DEVELOPMENT ENVIRONMENT] * BUG: Debugger: Renaming a module correctly updates breakpoints now. --- app/src/gambas3/.src/Debug/FDebugInfo.class | 1 + app/src/gambas3/.src/Project.module | 8 ++++++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/app/src/gambas3/.src/Debug/FDebugInfo.class b/app/src/gambas3/.src/Debug/FDebugInfo.class index 3f87b9f4d..95e5e8475 100644 --- a/app/src/gambas3/.src/Debug/FDebugInfo.class +++ b/app/src/gambas3/.src/Debug/FDebugInfo.class @@ -1084,6 +1084,7 @@ Public Sub RefreshBreakpointView() gvwBreakpoint.Columns[1].Width = -1 gvwBreakpoint.Columns[2].Width = -1 gvwBreakpoint.Refresh + gvwBreakpoint_Click End diff --git a/app/src/gambas3/.src/Project.module b/app/src/gambas3/.src/Project.module index a7e493038..24c22fa57 100644 --- a/app/src/gambas3/.src/Project.module +++ b/app/src/gambas3/.src/Project.module @@ -6382,6 +6382,7 @@ Private Sub RenamePaths(sOld As String, sNew As String) Dim hForm As Object Dim sCheck As String Dim sNewFormPath As String + Dim sExt As String ' Rename DoNotTranslate @@ -6429,8 +6430,11 @@ Private Sub RenamePaths(sOld As String, sNew As String) ' Rename breakpoints - If IsSourcePath(sOld) And If File.Ext(sOld) = "class" Then - Design.RenameClass(File.BaseName(sOld), File.BaseName(sNew)) + If IsSourcePath(sOld) Then + sExt = File.Ext(sOld) + If sExt = "class" Or If sExt = "module" Then + Design.RenameClass(File.BaseName(sOld), File.BaseName(sNew)) + Endif Endif End