From 462ebb2183b0bde4a516882095478d5e2c9b9da0 Mon Sep 17 00:00:00 2001
From: Pierre Laborde <pierre.laborde@fr.thalesgroup.com>
Date: Mon, 28 Oct 2024 16:21:04 +0100
Subject: [PATCH] Update model when viewInfos is changed manually

---
 src/GeoView/GeoViewAbstractElement.class.st | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/GeoView/GeoViewAbstractElement.class.st b/src/GeoView/GeoViewAbstractElement.class.st
index 4b31e72..d34e593 100644
--- a/src/GeoView/GeoViewAbstractElement.class.st
+++ b/src/GeoView/GeoViewAbstractElement.class.st
@@ -673,4 +673,5 @@ GeoViewAbstractElement >> viewInfos: aViewInfos [
 	viewInfos := aViewInfos.
 	self updateViewInfos.
 	self getLayers do: [ :l | l viewInfos: viewInfos ].
+	self updateModel: (GeoViewProjectionChanges new).
 ]