Issue 0174

src/Pyramid-Bloc/BlElement.extension.st

@@ -24,3 +24,11 @@ BlElement >> editWithPyramid [
 	editor window open.
 	^ editor
 ]
+
+{ #category : #'*Pyramid-Bloc' }
+BlElement >> parentsShouldSerializeChildren [
+
+	self parent ifNil: [ ^ true ].
+	self parent shouldSerializedChildren ifFalse: [ ^ false ].
+	^ self parent parentsShouldSerializeChildren
+]

src/Pyramid-Bloc/PyramidAbstractBlocCommand.class.st

@@ -13,5 +13,5 @@ PyramidAbstractBlocCommand class >> isAbstract [
 { #category : #testing }
 PyramidAbstractBlocCommand >> canBeUsedFor: anObject [
 
-	^ anObject class = BlElement or: [anObject class inheritsFrom: BlElement]
+	^ anObject isKindOf: BlElement 
 ]

src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st

@@ -137,9 +137,16 @@ PyramidBackgroundImageModalPresenter >> defaultLayout [
 { #category : #action }
 PyramidBackgroundImageModalPresenter >> image: aForm [
 
+	| source |
 	self codeBitmap beForObject: aForm.
 	self codeBitmap text: self textBitmap , 'self 
-'
+'.
+	(aForm isPyramidProxy) ifFalse: [ ^ self ].
+	source := aForm pyramidExternalRessourceSource.
+	self inputReceiverProxy text: (Stash new serialize: source target).
+	self inputSelectorProxy text: (Stash new serialize: source selector).
+	self inputArgumentsProxy text:
+		(Stash new serialize: source arguments)
 ]
 
 { #category : #initialization }

src/Pyramid-Bloc/PyramidBlocTextCommand.class.st

@@ -13,8 +13,7 @@ PyramidBlocTextCommand class >> isAbstract [
 { #category : #testing }
 PyramidBlocTextCommand >> canBeUsedFor: anObject [
 
-	^ anObject class = BlTextElement or: [
-		  anObject class inheritsFrom: BlTextElement ]
+	^ anObject isKindOf: BlTextElement
 ]
 
 { #category : #'as yet unclassified' }