From 2a1830145dd5d05b3ffdb144944245c1e71f4c88 Mon Sep 17 00:00:00 2001 From: Yann Le Goff Date: Tue, 26 May 2026 17:45:39 +0200 Subject: [PATCH 1/2] fix the bug with the bomb button --- src/Pyramid/PyramidSinglePopingPresenterBuilder.class.st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Pyramid/PyramidSinglePopingPresenterBuilder.class.st b/src/Pyramid/PyramidSinglePopingPresenterBuilder.class.st index 17d6ce5a..0ff8e91f 100644 --- a/src/Pyramid/PyramidSinglePopingPresenterBuilder.class.st +++ b/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 From 43fd94fdbced3f64c7e791a988de29bc741443fc Mon Sep 17 00:00:00 2001 From: Yann Le Goff Date: Tue, 26 May 2026 18:08:26 +0200 Subject: [PATCH 2/2] fix the proxy image --- .../PyramidBackgroundBlocPlugin.class.st | 12 +++++++++--- .../PyramidBackgroundImageModalPresenter.class.st | 2 +- src/Pyramid/PyramidExternalRessourceProxy.class.st | 6 ++++++ 3 files changed, 16 insertions(+), 4 deletions(-) diff --git a/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st b/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st index e2702d10..61a220e9 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st +++ b/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 diff --git a/src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st b/src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st index 10becb00..3caab0dc 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st +++ b/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 ] diff --git a/src/Pyramid/PyramidExternalRessourceProxy.class.st b/src/Pyramid/PyramidExternalRessourceProxy.class.st index 049fdf16..bec9c29f 100644 --- a/src/Pyramid/PyramidExternalRessourceProxy.class.st +++ b/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 [