add postConstructionBlock for the proxies to fix material fix size image

OpenSmock · Jul 31, 2024 · b417590 · b417590
1 parent ed14963
commit b417590
Show file tree

Hide file tree

Showing 3 changed files with 39 additions and 8 deletions.
diff --git a/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st b/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st
@@ -638,7 +638,7 @@ PyramidToploExamples class >> icons2 [
 	"This class has been generated using Pyramid.
 
 	By: YannLEGOFF
-	2024-07-30 18:25:18"
+	2024-07-31 10:27:35"
 
 	<pyStash>
 	^ [ {(ToImage new
@@ -649,14 +649,16 @@ PyramidToploExamples class >> icons2 [
                arguments: {(PyramidExternalRessourceProxy new
                      pyramidExternalRessourceSource: (PyramidExternalRessourceSource new
                            target: ToMaterialDesignIconProvider;
-                           selector: #round_timelapse;
+                           selector: #twotone_mediation;
                            arguments: {};
                            yourself);
                      yourself)};
+               postConstructionBlock: [:obj |  obj constraints horizontal matchParent.
+                  obj constraints vertical matchParent ];
                yourself);
          yourself);
-   constraintsDo: [:constraints |  constraints horizontal exact: 200.0.
-      constraints vertical exact: 200.0 ];
+   constraintsDo: [:constraints |  constraints horizontal exact: 128.0.
+      constraints vertical exact: 128.0 ];
    layout: BlFrameLayout new;
    id: #A;
    yourself)} ] value

diff --git a/src/Pyramid-Toplo/PyramidToploThemePlugin.class.st b/src/Pyramid-Toplo/PyramidToploThemePlugin.class.st
@@ -52,6 +52,11 @@ PyramidToploThemePlugin class >> toploIconThemeCategoryFromClass: aClass withCat
 							                       (PyramidExternalRessourceProxy new
 								                        pyramidExternalRessourceSource:
 									                        (PyramidExternalRessourceSource new
+										                         postConstructionBlock: [ :obj |
+											                         obj constraints horizontal
+												                         matchParent.
+											                         obj constraints vertical
+												                         matchParent ];
 										                         target: BlSvgConverter;
 										                         selector: #convertFromString:;
 										                         arguments:

diff --git a/src/Pyramid/PyramidExternalRessourceSource.class.st b/src/Pyramid/PyramidExternalRessourceSource.class.st
@@ -4,7 +4,8 @@ Class {
 	#instVars : [
 		'target',
 		'selector',
-		'arguments'
+		'arguments',
+		'postConstructionBlock'
 	],
 	#category : #'Pyramid-external-ressources'
 }
@@ -63,13 +64,31 @@ PyramidExternalRessourceSource >> fromSton: stonReader [
 { #category : #'as yet unclassified' }
 PyramidExternalRessourceSource >> getRessource [
 
-	^ self target perform: self selector withArguments: self arguments
+	| ressource |
+	ressource := self target
+		             perform: self selector
+		             withArguments: self arguments.
+	self postConstructionBlock ifNotNil: [ :block | block value: ressource ].
+	^ ressource
 ]
 
 { #category : #initialization }
 PyramidExternalRessourceSource >> initialize [
 
-	arguments := {  }
+	arguments := {  }.
+	postConstructionBlock := nil.
+]
+
+{ #category : #accessing }
+PyramidExternalRessourceSource >> postConstructionBlock [
+
+	^ postConstructionBlock
+]
+
+{ #category : #accessing }
+PyramidExternalRessourceSource >> postConstructionBlock: anObject [
+
+	postConstructionBlock := anObject
 ]
 
 { #category : #accessing }
@@ -88,7 +107,12 @@ PyramidExternalRessourceSource >> selector: anObject [
 PyramidExternalRessourceSource >> stashAccessors [
 
 	<stashAccessors>
-	^ { #target . #selector . #arguments }
+	| accessors |
+	accessors := OrderedCollection new.
+	accessors addAll: { #target. #selector. #arguments }.
+	self postConstructionBlock ifNotNil: [
+		accessors add: #postConstructionBlock ].
+	^ accessors
 ]
 
 { #category : #'as yet unclassified' }