OpenSmock · LANDAISB · Sep 23, 2026 · Apr 1, 2026 · Apr 1, 2026 · Apr 13, 2026
diff --git a/.github/workflows/CI.yml b/.github/workflows/CI.yml
@@ -15,11 +15,16 @@ jobs:
     strategy:
       matrix:
         os: [ ubuntu-latest, macos-latest, windows-latest ]
-        smalltalk: [ Pharo64-11, Pharo64-12, Pharo64-13 ]
+        smalltalk: [ Pharo64-12, Pharo64-13, Pharo64-14 ]
         ston: [ .smalltalkci.default.ston ]
+    #Specific case for Pharo14 (experimental): ignore failures
+        include:
+          - smalltalk: Pharo64-14
+            experimental: true
     runs-on: ${{ matrix.os }}
     name: >
       ${{ matrix.smalltalk }} • ${{ matrix.os }}
+    continue-on-error: ${{ matrix.experimental == true }}
     steps:
       - uses: actions/checkout@v3
 
@@ -30,4 +35,4 @@ jobs:
       - name: Run ${{ matrix.ston == '.smalltalkci.default.ston' && 'Full' || 'Core' }} tests
         run: smalltalkci -s ${{ matrix.smalltalk }} ${{ matrix.ston }}
         shell: bash
-        timeout-minutes: 30
+        timeout-minutes: 30
diff --git a/README.md b/README.md
@@ -1,6 +1,6 @@
-[![Pharo 11](https://img.shields.io/badge/Pharo-11-%23aac9ff.svg)](https://pharo.org/download)
 [![Pharo 12](https://img.shields.io/badge/Pharo-12-%23aac9ff.svg)](https://pharo.org/download)
 [![Pharo 13](https://img.shields.io/badge/Pharo-13-%23aac9ff.svg)](https://pharo.org/download)
+[![Pharo 14](https://img.shields.io/badge/Pharo-14-%23aac9ff.svg)](https://pharo.org/download)
 
 [![License](https://img.shields.io/github/license/OpenSmock/Pyramid.svg)](./LICENSE)
 [![Unit tests](https://github.com/OpenSmock/Pyramid/actions/workflows/CI.yml/badge.svg)](https://github.com/OpenSmock/Pyramid/actions/workflows/CI.yml)

diff --git a/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st b/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st
@@ -20,7 +20,7 @@ PyramidAbstractBorderCommand >> borderBuilderOf: aBlElement [
 	^ builder
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidAbstractBorderCommand >> setValueFor: aBlElement with: anArgument [
 
 	| builder |

diff --git a/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st b/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st
@@ -16,7 +16,7 @@ PyramidAbstractChangeDrawOrderCommand >> canBeUsedFor: anObject [
 	^ (super canBeUsedFor: anObject) and: [ anObject hasParent]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidAbstractChangeDrawOrderCommand >> getValueFor: aBlElement [
 	"return current index for testing."
 

diff --git a/src/Pyramid-Bloc/PyramidAddChildCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildCommand.class.st
@@ -4,14 +4,27 @@ Class {
 	#category : #'Pyramid-Bloc-plugin-bloc'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #history }
 PyramidAddChildCommand >> commandInverse [
 
 	^ PyramidRemoveChildCommand new
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #private }
+PyramidAddChildCommand >> savedIndexFor: aChild in: aParent [
+
+	| index |
+	index := aChild userData at: #pyramidRemovedAtIndex ifAbsent: [ 0 ].
+	(index = 0 or: [ index > aParent children size ])
+		ifTrue: [ ^ aParent children size + 1 ]
+		ifFalse: [ ^ index ]
+]
+
+{ #category : #setter }
 PyramidAddChildCommand >> setValueFor: aBlElement with: aChildToAdd [
 
-	aBlElement addChild: aChildToAdd
+	aBlElement
+		addChild: aChildToAdd
+		at: (self savedIndexFor: aChildToAdd in: aBlElement).
+	aChildToAdd userData removeKey: #pyramidRemovedAtIndex ifAbsent: [ ]
 ]
diff --git a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st
@@ -4,14 +4,14 @@ Class {
 	#category : #'Pyramid-Bloc-plugin-bloc'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #history }
 PyramidAddChildrenCommand >> commandInverse [
 
 	^ PyramidRemoveChildrenCommand new
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidAddChildrenCommand >> setValueFor: aBlElement with: aChildrenToAdd [
 
-	aBlElement addChildren: aChildrenToAdd
+    aBlElement addChildren: aChildrenToAdd 
 ]
diff --git a/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st b/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st
@@ -671,6 +671,86 @@ PyramidBackgroundBlocPlugin class >> outskirts [
 	^ property
 ]
 
+{ #category : #accessing }
+PyramidBackgroundBlocPlugin class >> shadow [
+
+	| property |
+	property := PyramidProperty new
+		            name: 'Shadow Effect';
+		            command: PyramidShadowCommand current;
+		            inputPresenterClass: PyramidMagicButtonsInputPresenter;
+		            yourself.
+	property inputPresenterModel
+		addButtonModel: (PyramidMagicButtonModel new
+				 icon: (Smalltalk ui icons iconNamed: #blank);
+				 helpSelected: 'No shadow.';
+				 helpNotSelected: 'Remove shadow.';
+				 label: 'None';
+				 inputValue: [ BlNullEffect new ];
+				 inputValidation: [ :value | value class = BlNullEffect ];
+				 yourself);
+		addButtonModel: (PyramidMagicButtonModel new
+				 icon: (Smalltalk ui icons iconNamed: #windowMaximize);
+				 helpSelected: 'Shadow type is simple.';
+				 helpNotSelected: 'Set shadow type to simple.';
+				 label: 'Simple';
+				 inputValue: [ PyramidShadowCommand current lastSimpleShadow ];
+				 inputValidation: [ :value | value class = BlSimpleShadowEffect ];
+				 yourself);
+		addButtonModel: (PyramidMagicButtonModel new
+				 icon: (Smalltalk ui icons iconNamed: #radioButtonUnselected);
+				 helpSelected: 'Shadow type is gaussian.';
+				 helpNotSelected: 'Set shadow type to gaussian.';
+				 label: 'Gaussian';
+				 inputValue: [ PyramidShadowCommand current lastGaussianShadow ];
+				 inputValidation: [ :value | value class = BlGaussianShadowEffect ];
+				 yourself).
+	^ property
+]
+
+{ #category : #accessing }
+PyramidBackgroundBlocPlugin class >> shadowColor [
+
+	| property |
+	property := PyramidProperty new
+		            name: 'Shadow Color';
+		            command: PyramidShadowColorCommand new;
+		            inputPresenterClass:
+			            PyramidColorInputSingleLineWithPickupButtonPresenter;
+		            yourself.
+	^ property
+
+
+]
+
+{ #category : #accessing }
+PyramidBackgroundBlocPlugin class >> shadowOffset [
+
+	| property |
+	property := PyramidProperty new
+		            name: 'Shadow Offset';
+		            command: PyramidShadowOffsetCommand new;
+		            inputPresenterClass:
+			            PyramidPointInputPresenter;
+		            yourself.
+		property inputPresenterModel help:
+		'Set the position x and y for the shadow offset'.
+	^ property
+]
+
+{ #category : #accessing }
+PyramidBackgroundBlocPlugin class >> shadowWidthGaussian [
+
+	| property |
+	property := PyramidProperty new
+		            name: 'Shadow Width';
+		            command: PyramidShadowGaussianWidthCommand new;
+		            inputPresenterClass: PyramidNumberInputPresenter;
+		            yourself.
+	property inputPresenterModel help: 'Set the width value'.
+	^ property
+]
+
 { #category : #adding }
 PyramidBackgroundBlocPlugin >> addPanelsOn: aPyramidSimpleWindow [
 
@@ -747,7 +827,14 @@ PyramidBackgroundBlocPlugin >> initialize [
 	propertiesManager addProperty: self class borderRadialInnerCenter.
 	propertiesManager addProperty: self class borderRadialInnerRadius.
 	propertiesManager addProperty: self class borderRadialOuterCenter.
-	propertiesManager addProperty: self class borderRadialOuterRadius
+	propertiesManager addProperty: self class borderRadialOuterRadius.
+
+	"Shadow"
+	PyramidShadowCommand resetShadowCommand.
+	propertiesManager addProperty: self class shadow.
+	propertiesManager addProperty: self class shadowColor.
+	propertiesManager addProperty: self class shadowOffset.
+	propertiesManager addProperty: self class shadowWidthGaussian
 ]
 
 { #category : #adding }

diff --git a/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st
@@ -11,13 +11,13 @@ PyramidBackgroundImageCommand >> canBeUsedFor: anObject [
 		  anObject background isKindOf: BlImageBackground ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundImageCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background image
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundImageCommand >> setValueFor: aBlElement with: anArgument [
 
 	aBlElement background: (BlBackground image: anArgument)

diff --git a/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st
@@ -4,13 +4,13 @@ Class {
 	#category : #'Pyramid-Bloc-plugin-bloc-visuals'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundOpacityCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background opacity
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundOpacityCommand >> setValueFor: aBlElement with: anArgument [
 
 	| background |

diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st
@@ -12,13 +12,13 @@ PyramidBackgroundPaintColorCommand >> canBeUsedFor: anObject [
 			  anObject background paint isKindOf: BlColorPaint ] ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintColorCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background paint color
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundPaintColorCommand >> setValueFor: aBlElement with: anArgument [
 
 	aBlElement background: (BlBackground paint: anArgument asBlPaint)

diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintCommand.class.st
@@ -11,19 +11,19 @@ PyramidBackgroundPaintCommand >> canBeUsedFor: anObject [
 		  anObject background isKindOf: BlPaintBackground ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintCommand >> getGroupedValueFor: aBlElement [
 
 	^ aBlElement background paint class
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background paint
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundPaintCommand >> setValueFor: aBlElement with: anArgument [
 
 	aBlElement background: (BlBackground paint: anArgument value)

diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st
@@ -4,13 +4,13 @@ Class {
 	#category : #'Pyramid-Bloc-plugin-bloc-visuals'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintLinearEndCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background paint end
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundPaintLinearEndCommand >> setValueFor: aBlElement with: anArgument [
 
 	aBlElement background paint end: anArgument

diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearStartCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearStartCommand.class.st
@@ -4,13 +4,13 @@ Class {
 	#category : #'Pyramid-Bloc-plugin-bloc-visuals'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintLinearStartCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background paint start
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundPaintLinearStartCommand >> setValueFor: aBlElement with: anArgument [
 
 	aBlElement background paint start: anArgument

diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st
@@ -4,13 +4,13 @@ Class {
 	#category : #'Pyramid-Bloc-plugin-bloc-visuals'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintRadialInnerCenterCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background paint innerCenter
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundPaintRadialInnerCenterCommand >> setValueFor: aBlElement with: anArgument [
 
 	aBlElement background paint innerCenter: anArgument

diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerRadiusCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerRadiusCommand.class.st
@@ -4,13 +4,13 @@ Class {
 	#category : #'Pyramid-Bloc-plugin-bloc-visuals'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintRadialInnerRadiusCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background paint innerRadius
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundPaintRadialInnerRadiusCommand >> setValueFor: aBlElement with: anArgument [
 
 	aBlElement background paint innerRadius: anArgument

diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterCenterCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterCenterCommand.class.st
@@ -4,13 +4,13 @@ Class {
 	#category : #'Pyramid-Bloc-plugin-bloc-visuals'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintRadialOuterCenterCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background paint outerCenter
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundPaintRadialOuterCenterCommand >> setValueFor: aBlElement with: anArgument [
 
 	aBlElement background paint outerCenter: anArgument

diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterRadiusCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterRadiusCommand.class.st
@@ -4,13 +4,13 @@ Class {
 	#category : #'Pyramid-Bloc-plugin-bloc-visuals'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintRadialOuterRadiusCommand >> getValueFor: aBlElement [
 
 	^ aBlElement background paint outerRadius
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundPaintRadialOuterRadiusCommand >> setValueFor: aBlElement with: anArgument [
 
 	aBlElement background paint outerRadius: anArgument

diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintStopsCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintStopsCommand.class.st
@@ -12,15 +12,15 @@ PyramidBackgroundPaintStopsCommand >> canBeUsedFor: anObject [
 			  anObject background paint isKindOf: BlGradientPaint ] ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #getter }
 PyramidBackgroundPaintStopsCommand >> getValueFor: aBlElement [
 	"We ensure that we are working with a copy of the associations."
 
 	^ aBlElement background paint stops collect: [ :asso |
 		  asso key copy -> asso value copy ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #setter }
 PyramidBackgroundPaintStopsCommand >> setValueFor: aBlElement with: anArgument [
 	"We ensure that we are working with a copy of the associations."