From e5cc7a9e0d1ab9e7053a91b8b3104c2c9f22fbbd Mon Sep 17 00:00:00 2001
From: gambix <=>
Date: Wed, 27 Oct 2021 17:08:24 +0200
Subject: [PATCH] Remove a forgotten debug line

[GB.MAP]
* BUG: Remove a forgotten debug line
---
 comp/src/gb.map/.src/_MapShape.class | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/comp/src/gb.map/.src/_MapShape.class b/comp/src/gb.map/.src/_MapShape.class
index 912a45cc8..3fc84eaa4 100644
--- a/comp/src/gb.map/.src/_MapShape.class
+++ b/comp/src/gb.map/.src/_MapShape.class
@@ -593,7 +593,7 @@ Public Sub GetItemsFromBounds(hBounds As MapBounds) As _ShapeItem[]
   Dim aShapes As New _ShapeItem[]
   Dim i As Integer
   
-  If MapPoint.Distance(hBounds.TopLeft, hBounds.BottomRight) > 1000000 Then Stop 
+  'If MapPoint.Distance(hBounds.TopLeft, hBounds.BottomRight) > 1000000 Then Stop 
   For i = 0 To $aShapes.Max
     hShape = $aShapes[i]
     If hBounds.Contain(hShape.Bounds) Then