From 5938aff40359b443de74b3825583c2ae3e6860c9 Mon Sep 17 00:00:00 2001
From: Nyan11 <y.legoff97@gmail.com>
Date: Sun, 5 Nov 2023 19:53:23 +0100
Subject: [PATCH] Passivate on minimize. Fix protocol. Fix close script

---
 .../MolGeoButtonElementAbstract.class.st      |  6 +--
 .../MolGeoButtonElementNotSelected.class.st   |  6 +--
 .../MolGeoButtonElementSelected.class.st      |  8 ++--
 .../MolGeoConnectedSwitchesElement.class.st   |  2 +-
 .../MolGeoPosApplication.class.st             | 46 +++++++++++++++++--
 .../MolGeoPosMapReceiver.class.st             |  2 +-
 6 files changed, 53 insertions(+), 17 deletions(-)

diff --git a/src/Molecule-Geographical-Position-Example/MolGeoButtonElementAbstract.class.st b/src/Molecule-Geographical-Position-Example/MolGeoButtonElementAbstract.class.st
index 1761194..84e420d 100644
--- a/src/Molecule-Geographical-Position-Example/MolGeoButtonElementAbstract.class.st
+++ b/src/Molecule-Geographical-Position-Example/MolGeoButtonElementAbstract.class.st
@@ -257,7 +257,7 @@ MolGeoButtonElementAbstract >> defaultFontSize [
 	^ 16
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'accessing - colors' }
 MolGeoButtonElementAbstract >> hoverColor [
 
 	^ self shouldBeImplemented
@@ -322,13 +322,13 @@ MolGeoButtonElementAbstract >> makeNewLabelElement: aString [
 	^ rope asElement
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'accessing - colors' }
 MolGeoButtonElementAbstract >> primaryColor [
 
 	^ self shouldBeImplemented
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'accessing - colors' }
 MolGeoButtonElementAbstract >> secondaryColor [
 
 	^ self shouldBeImplemented
diff --git a/src/Molecule-Geographical-Position-Example/MolGeoButtonElementNotSelected.class.st b/src/Molecule-Geographical-Position-Example/MolGeoButtonElementNotSelected.class.st
index e187c6a..a3fcc4e 100644
--- a/src/Molecule-Geographical-Position-Example/MolGeoButtonElementNotSelected.class.st
+++ b/src/Molecule-Geographical-Position-Example/MolGeoButtonElementNotSelected.class.st
@@ -13,19 +13,19 @@ MolGeoButtonElementNotSelected class >> example [
 		openInNewSpace
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'accessing - colors' }
 MolGeoButtonElementNotSelected >> hoverColor [
 
 	^ Color fromHexString: '#bebdbf'
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'accessing - colors' }
 MolGeoButtonElementNotSelected >> primaryColor [
 
 	^ Color fromHexString: '#6c757d'
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'accessing - colors' }
 MolGeoButtonElementNotSelected >> secondaryColor [
 
 	^ Color transparent
diff --git a/src/Molecule-Geographical-Position-Example/MolGeoButtonElementSelected.class.st b/src/Molecule-Geographical-Position-Example/MolGeoButtonElementSelected.class.st
index 9acdf76..3c61708 100644
--- a/src/Molecule-Geographical-Position-Example/MolGeoButtonElementSelected.class.st
+++ b/src/Molecule-Geographical-Position-Example/MolGeoButtonElementSelected.class.st
@@ -13,13 +13,13 @@ MolGeoButtonElementSelected class >> example [
 		openInNewSpace
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'accessing - colors' }
 MolGeoButtonElementSelected >> hoverColor [
 
 	^ Color fromHexString: '#78A7D6'
 ]
 
-{ #category : #accessing }
+{ #category : #'accessing - text' }
 MolGeoButtonElementSelected >> makeNewLabelElement: aString [
 
 	| rope |
@@ -31,13 +31,13 @@ MolGeoButtonElementSelected >> makeNewLabelElement: aString [
 	^ rope asElement
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'accessing - colors' }
 MolGeoButtonElementSelected >> primaryColor [
 
 	^ Color fromHexString: '#0D3151'
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'accessing - colors' }
 MolGeoButtonElementSelected >> secondaryColor [
 
 	^ Color fromHexString: '#8DBEF1'
diff --git a/src/Molecule-Geographical-Position-Example/MolGeoConnectedSwitchesElement.class.st b/src/Molecule-Geographical-Position-Example/MolGeoConnectedSwitchesElement.class.st
index 0df6a60..07b4d79 100644
--- a/src/Molecule-Geographical-Position-Example/MolGeoConnectedSwitchesElement.class.st
+++ b/src/Molecule-Geographical-Position-Example/MolGeoConnectedSwitchesElement.class.st
@@ -20,7 +20,7 @@ MolGeoConnectedSwitchesElement class >> example [
 		openInNewSpace
 ]
 
-{ #category : #accessing }
+{ #category : #control }
 MolGeoConnectedSwitchesElement >> deactivateAllSwitchesExcept: aMolGeoSwitchElement [
 
 	self switches do: [ :each | aMolGeoSwitchElement = each ifFalse: [ each state: false ] ]
diff --git a/src/Molecule-Geographical-Position-Example/MolGeoPosApplication.class.st b/src/Molecule-Geographical-Position-Example/MolGeoPosApplication.class.st
index 4b90f5f..3faba64 100644
--- a/src/Molecule-Geographical-Position-Example/MolGeoPosApplication.class.st
+++ b/src/Molecule-Geographical-Position-Example/MolGeoPosApplication.class.st
@@ -10,14 +10,14 @@ Class {
 
 { #category : #'instance creation' }
 MolGeoPosApplication class >> close [
-	<script>
 
+	<script>
 	| current |
-	current := MolUtils instanceOf: self class.
-	current ifNotNil:[ current space close ].
+	current := MolUtils instanceOf: MolGeoPosMapReceiver.
+	current ifNotNil: [ current space close ].
 
 	"Clean previous opened version if necessary"
-	MolComponentManager cleanUp.
+	MolComponentManager cleanUp
 ]
 
 { #category : #'instance creation' }
@@ -30,6 +30,12 @@ MolGeoPosApplication class >> open [
 	^ self new openApplication
 ]
 
+{ #category : #'component control' }
+MolGeoPosApplication >> activateMapComponent [
+
+	self mapComponent componentActivate
+]
+
 { #category : #private }
 MolGeoPosApplication >> iconSize [
 
@@ -138,6 +144,13 @@ MolGeoPosApplication >> makeWiFiButton [
 		  yourself
 ]
 
+{ #category : #private }
+MolGeoPosApplication >> mapComponent [
+
+	^ MolComponentManager default locatorServices searchComponentTypeImplementorFor:
+		  MolGeoPosReceiverType
+]
+
 { #category : #private }
 MolGeoPosApplication >> mapForm [
 
@@ -160,9 +173,20 @@ MolGeoPosApplication >> openApplication [
 
 	space root addChild: self.
 
+	"When space close, we remove the components"
 	space
 		when: BlSpaceClosedEvent
-		do: [ :evt | MolComponentManager cleanUp ].
+		do: [ :evt | self removeComponents ].
+
+	"When space minimize, we passivate the map component"
+	space
+		when: BlSpaceResizedEvent
+		do: [ :evt | self passivateMapComponent ].
+	
+	"When space focus in (resize), we activate the map component"
+	space
+		when: BlSpaceFocusInEvent
+		do: [ :evt | self activateMapComponent ].
 
 	space enqueueTask: (BlTaskAction new
 			 action: [ space center ];
@@ -174,6 +198,18 @@ MolGeoPosApplication >> openApplication [
 	space show  
 ]
 
+{ #category : #'component control' }
+MolGeoPosApplication >> passivateMapComponent [
+
+	self mapComponent passivateComponent
+]
+
+{ #category : #'component control' }
+MolGeoPosApplication >> removeComponents [
+
+	MolComponentManager cleanUp
+]
+
 { #category : #private }
 MolGeoPosApplication >> stopGeoPosEquipement [
 	"stops every possible component if it's launched"
diff --git a/src/Molecule-Geographical-Position-Example/MolGeoPosMapReceiver.class.st b/src/Molecule-Geographical-Position-Example/MolGeoPosMapReceiver.class.st
index ba01fbf..b66fc09 100644
--- a/src/Molecule-Geographical-Position-Example/MolGeoPosMapReceiver.class.st
+++ b/src/Molecule-Geographical-Position-Example/MolGeoPosMapReceiver.class.st
@@ -353,7 +353,7 @@ MolGeoPosMapReceiver class >> pystonSpec [
 ]'
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #'background - image' }
 MolGeoPosMapReceiver >> backgroundForm: aForm [
 
 (self childWithId: #map) background: aForm.