Update shortcut manager -> shortcut on spec and shortcut on space

src/Pyramid-Bloc/BlElementGeometry.extension.st

@@ -5,7 +5,7 @@ BlElementGeometry class >> asIcon [
 
 	| element |
 	element := BlElement new
-		           size: 16 @ 12;
+		           extent: 16 @ 12;
 		           background: (Color gray: 0.75);
 		           border: (BlBorder paint: Color black width: 1);
 		           geometry: self pyramidDefaultValueForIcon;

src/Pyramid-Bloc/PyramidGeometryInputPresenter.class.st

@@ -52,7 +52,7 @@ PyramidGeometryInputPresenter >> initializeGeometryButtons [
 				 help: 'Change the geometry to a rectangle.';
 				 defaultGeometry: BlRectangleGeometry new;
 				 blocIcon: (BlElement new
-						  size: 16 asPoint;
+						  extent: 16 asPoint;
 						  geometry: BlRectangleGeometry new;
 						  yourself);
 				 yourself).
@@ -64,23 +64,23 @@ PyramidGeometryInputPresenter >> initializeGeometryButtons [
 				 help: 'Change the geometry to an ellipse.';
 				 defaultGeometry: BlEllipseGeometry new;
 				 blocIcon: (BlElement new
-						  size: 16 asPoint;
+						  extent: 16 asPoint;
 						  geometry: BlEllipseGeometry new;
 						  yourself);
 				 yourself).
-	
+
 	geometryDictionary
 		at: BlRoundedRectangleGeometry
 		put: (PyramidGeometryInputModel new
 				 input: self;
 				 help: 'Change the geometry to an ellipse.';
 				 defaultGeometry: (BlRoundedRectangleGeometry cornerRadius: 12);
 				 blocIcon: (BlElement new
-						  size: 16 asPoint;
+						  extent: 16 asPoint;
 						  geometry: (BlRoundedRectangleGeometry cornerRadius: 5);
 						  yourself);
 				 yourself).
-	
+
 	geometryDictionary
 		at: BlPolygonGeometry
 		put: (PyramidGeometryInputModel new
@@ -93,7 +93,7 @@ PyramidGeometryInputPresenter >> initializeGeometryButtons [
 								  (16 @ 6).
 								  (3 @ 16) } * 3);
 				 blocIcon: (BlElement new
-						  size: 16 asPoint;
+						  extent: 16 asPoint;
 						  geometry: (BlPolygonGeometry vertices: {
 										   (8 @ 0).
 										   (13 @ 16).

src/Pyramid-Bloc/PyramidLibraryElement.class.st

@@ -24,7 +24,7 @@ PyramidLibraryElement >> asForm [
 
 	formElement := BlElement new
 		               clipChildren: false;
-		               size: 800 @ 600;
+		               extent: 800 @ 600;
 		               addChildren: self asArray;
 		               background: Color white;
 		               yourself.
@@ -39,13 +39,13 @@ PyramidLibraryElement >> asForm [
 		         bottom: 0.
 	formElement childrenDo: [ :each |
 		bound merge: (each localBoundsToParent:
-		           (BlBounds fromRectangle: each invalidationBounds)) ].
+				 (BlBounds fromRectangle: each invalidationBounds)) ].
 	extent := bound extent.
 	possibleSizes := {
 		                 (50 @ 50).
 		                 (240 @ 240).
 		                 (480 @ 480) } select: [ :each | each >= extent ].
-	possibleSizes ifNotEmpty: [ formElement size: possibleSizes first ].
+	possibleSizes ifNotEmpty: [ formElement extent: possibleSizes first ].
 
 	^ formElement exportAsForm
 ]

src/Pyramid-Bloc/PyramidMainExtension.class.st

@@ -243,20 +243,23 @@ PyramidMainExtension >> initialize [
 	workplacePropertiesView := PyramidWorkplacePropertiesPresenter new
 		                           workplaceSizeValue: self defaultExtent;
 		                           whenWorkplaceValuesChangedDo: [ :point |
-												self extent: point ];
+			                           self extent: point ];
 		                           whenVisibilityChangedDo: [
-												self switchGridvisibility.
-												self createGrid ];
+			                           self switchGridvisibility.
+			                           self createGrid ];
 		                           spacingTextValue: self defaultGridSpacing;
-		                           whenSpacingTextChangedDo: [ :value | 
-												(self checkZeroOrSubZeroGridSpacingValue: value)
-												ifTrue: [ gridSpacing := self defaultGridSpacing ]
-												ifFalse: [ gridSpacing := value ].
-												self createGrid ];
+		                           whenSpacingTextChangedDo: [ :value |
+			                           (self
+				                            checkZeroOrSubZeroGridSpacingValue:
+					                            value)
+				                           ifTrue: [
+					                           gridSpacing := self defaultGridSpacing ]
+				                           ifFalse: [ gridSpacing := value ].
+			                           self createGrid ];
 		                           gridColorValue: self defaultGridColor;
 		                           whenColorValuesChangedDo: [ :color |
-												gridColor := color.
-												self createGrid ];
+			                           gridColor := color.
+			                           self createGrid ];
 		                           yourself.
 
 	"Button of the pop-up windows properties who call the creation of the pop-up"
@@ -310,7 +313,7 @@ PyramidMainExtension >> initialize [
 
 	sizeElement := BlElement new
 		               id: #MainExtension_sizeElement;
-		               size: self defaultExtent;
+		               extent: self defaultExtent;
 		               clipChildren: false;
 		               addChildren: {
 				               containerElement.
@@ -327,7 +330,7 @@ PyramidMainExtension >> installOn: aBuilder [
 	self elementAtTransforms transformDo: [ :t |
 		t translateBy: self offsetTranslation ].
 	self builder signalTransformationChanged.
-	self elementAtWidgets size: self defaultExtent
+	self elementAtWidgets extent: self defaultExtent
 ]
 
 { #category : #'as yet unclassified' }