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

Remove a forgotten debug line

Browse source 
[GB.MAP]
* BUG: Remove a forgotten debug line
This commit is contained in:
gambix 2021-10-27 17:08:24 +02:00
parent 6e86ad7218
commit e5cc7a9e0d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
comp/src/gb.map/.src/_MapShape.class
View file

@ -593,7 +593,7 @@ Public Sub GetItemsFromBounds(hBounds As MapBounds) As _ShapeItem[]
Dim aShapes As New _ShapeItem[] Dim aShapes As New _ShapeItem[]
Dim i As Integer 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 For i = 0 To $aShapes.Max
hShape = $aShapes[i] hShape = $aShapes[i]
If hBounds.Contain(hShape.Bounds) Then If hBounds.Contain(hShape.Bounds) Then