Fix proxy

src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st

@@ -238,8 +238,7 @@ PyramidBackgroundBlocPlugin class >> backgroundType [
 	property := PyramidProperty new
 		            name: 'Background Type';
 		            command: PyramidBackgroundTypeCommand new;
-		            inputPresenterClass:
-			            PyramidMagicButtonsInputPresenter;
+		            inputPresenterClass: PyramidMagicButtonsInputPresenter;
 		            yourself.
 	property inputPresenterModel
 		addButtonModel: (PyramidMagicButtonModel new
@@ -265,7 +264,14 @@ PyramidBackgroundBlocPlugin class >> backgroundType [
 				 helpNotSelected: 'Set the value to image.';
 				 label: 'Image';
 				 inputValue: [
-					 BlImageBackground image: (Smalltalk ui icons iconNamed: #pharoBig) ];
+						 BlImageBackground image: (PyramidExternalRessourceProxy new
+									  pyramidExternalRessourceSource:
+										  (PyramidExternalRessourceSource new
+											   target: Object;
+											   selector: #iconNamed:;
+											   arguments: { #pharoBig };
+											   yourself);
+									  yourself) ];
 				 inputValidation: [ :value | value = BlImageBackground ];
 				 yourself).
 	^ property

src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st

@@ -259,7 +259,7 @@ PyramidBackgroundImageModalPresenter >> proxyLayout [
 { #category : #'special objects' }
 PyramidBackgroundImageModalPresenter >> proxyObject [
 
-	| receiver selector arguments proxySource proxy |
+	| receiver selector arguments proxySource |
 	receiver := self inputReceiverProxy
 		            evaluate: self inputReceiverProxy text
 		            onCompileError: [ :err | ^ self ]

src/Pyramid/PyramidExternalRessourceProxy.class.st

@@ -33,6 +33,12 @@ PyramidExternalRessourceProxy class >> fromTarget: aTarget selector: aSelector a
 			postConstructionBlock: aBlock)
 ]
 
+{ #category : #'as yet unclassified' }
+PyramidExternalRessourceProxy >> allSetterAndGettersForMyStash [
+
+	^ self stashAccessors
+]
+
 { #category : #converting }
 PyramidExternalRessourceProxy >> asStashConstructor [
 

src/Pyramid/PyramidSinglePopingPresenterBuilder.class.st

@@ -98,7 +98,7 @@ PyramidSinglePopingPresenterBuilder >> buildPresenterWithButtonsFor: anAssociati
 			                    self property commandExecutor
 				                    use: self property command
 				                    on: self cluster allTargets
-				                    with: input value ].
+				                    with: input value value ].
 	layout := self
 		          layoutForLabel: aString
 		          input: input