Skip to content

Commit 43fd94f

Browse files
committed
fix the proxy image
1 parent 2a18301 commit 43fd94f

3 files changed

Lines changed: 16 additions & 4 deletions

File tree

src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st

Lines changed: 9 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -238,8 +238,7 @@ PyramidBackgroundBlocPlugin class >> backgroundType [
238238
property := PyramidProperty new
239239
name: 'Background Type';
240240
command: PyramidBackgroundTypeCommand new;
241-
inputPresenterClass:
242-
PyramidMagicButtonsInputPresenter;
241+
inputPresenterClass: PyramidMagicButtonsInputPresenter;
243242
yourself.
244243
property inputPresenterModel
245244
addButtonModel: (PyramidMagicButtonModel new
@@ -265,7 +264,14 @@ PyramidBackgroundBlocPlugin class >> backgroundType [
265264
helpNotSelected: 'Set the value to image.';
266265
label: 'Image';
267266
inputValue: [
268-
BlImageBackground image: (Smalltalk ui icons iconNamed: #pharoBig) ];
267+
BlImageBackground image: (PyramidExternalRessourceProxy new
268+
pyramidExternalRessourceSource:
269+
(PyramidExternalRessourceSource new
270+
target: Object;
271+
selector: #iconNamed:;
272+
arguments: { #pharoBig };
273+
yourself);
274+
yourself) ];
269275
inputValidation: [ :value | value = BlImageBackground ];
270276
yourself).
271277
^ property

src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -259,7 +259,7 @@ PyramidBackgroundImageModalPresenter >> proxyLayout [
259259
{ #category : #'special objects' }
260260
PyramidBackgroundImageModalPresenter >> proxyObject [
261261

262-
| receiver selector arguments proxySource proxy |
262+
| receiver selector arguments proxySource |
263263
receiver := self inputReceiverProxy
264264
evaluate: self inputReceiverProxy text
265265
onCompileError: [ :err | ^ self ]

src/Pyramid/PyramidExternalRessourceProxy.class.st

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -33,6 +33,12 @@ PyramidExternalRessourceProxy class >> fromTarget: aTarget selector: aSelector a
3333
postConstructionBlock: aBlock)
3434
]
3535

36+
{ #category : #'as yet unclassified' }
37+
PyramidExternalRessourceProxy >> allSetterAndGettersForMyStash [
38+
39+
^ self stashAccessors
40+
]
41+
3642
{ #category : #converting }
3743
PyramidExternalRessourceProxy >> asStashConstructor [
3844

0 commit comments

Comments
 (0)