The export log was littered with bunch of warnings about unclosed blo…

…cks. This seems to be due to not closing it when evaluating the UseTheme. Even if we skipped it, we still need to remove it from m_colBlocks to balance everything out.
josef-poetzl · Oct 19, 2023 · 0d9ac0a · 0d9ac0a
1 parent 4703b7b
commit 0d9ac0a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/Version Control.accda.src/modules/modSanitize.bas b/Version Control.accda.src/modules/modSanitize.bas
@@ -394,8 +394,12 @@ Private Sub CloseBlock()
 
     ' Skip if we are not using themes for this control (UseTheme=0)
     ' (Applies to "CommandButton", "Tab", "ToggleButton")
-    If dBlock.Exists("UseTheme") Then Exit Sub
-
+    If dBlock.Exists("UseTheme") Then 
+		' Remove this block
+        m_colBlocks.Remove m_colBlocks.Count
+		Exit Sub
+	End If
+
     ' Build array of base properties
     varBase = Array("Back", "AlternateBack", "Border", _
             "Fore", "Gridline", "HoverFore", _