merged sidebar with map rescaling

source/GM-TE/GMTETileMap.class.st

@@ -109,6 +109,15 @@ GMTETileMap >> borderTileWidth: anObject [
 	borderTileWidth := anObject.
 ]
 
+{
+	#category : #updating,
+	#'squeak_changestamp' : 'Valentin Teutschbein 5/20/2024 20:18'
+}
+GMTETileMap >> clearTiles [
+
+self gridTileMatrix do: [:aTile | aTile delete]
+]
+
 {
 	#category : #'import/export',
 	#'squeak_changestamp' : 'Alex M 5/20/2024 13:15'
@@ -118,6 +127,16 @@ GMTETileMap >> exportAsImage [
 	self exportAsPNG
 ]
 
+{
+	#category : #accessing,
+	#'squeak_changestamp' : 'Valentin Teutschbein 5/20/2024 20:10'
+}
+GMTETileMap >> extent: aPoint [
+
+	self gridTileMatrix ifNotNil: [self rescaleMap].
+	super extent: aPoint.
+]
+
 {
 	#category : #accessing,
 	#'squeak_changestamp' : 'Ivo Zilkenat 5/19/2024 15:57'
@@ -323,17 +342,25 @@ GMTETileMap >> processTiles [
 
 {
 	#category : #updating,
-	#'squeak_changestamp' : 'Ivo Zilkenat 5/19/2024 15:57'
+	#'squeak_changestamp' : 'Valentin Teutschbein 5/20/2024 20:14'
+}
+GMTETileMap >> rescaleMap [
+
+self rescaleMapWidth: self tileWidth height: self tileHeight padding: self mapPadding
+]
+
+{
+	#category : #updating,
+	#'squeak_changestamp' : 'Valentin Teutschbein 5/20/2024 20:18'
 }
 GMTETileMap >> rescaleMapWidth: aWidth height: aHeigth padding: aPadding [
 	"Rescale map & trigger update"
 
 	"Warning: If padding is to small relative to map, divisions by zero can occur"
 
-	self gridTileMatrix do: [:aTile | aTile delete].
+	self clearTiles.
 	self setDimensionsWidth: aWidth height: aHeigth padding: aPadding.
-	self updateGrid
-
+	self updateMap
 ]
 
 {