Merge pull request #609 from Enzo-Demeulenaere/dev

Added some drag and drop example snippets

src/Bloc-Alexandrie/BlBorder.extension.st

@@ -4,8 +4,7 @@ Extension { #name : #BlBorder }
 BlBorder >> aeApplyTo: aeCanvas element: aBlElement [
 
 	"No need to set any parameter as there is no border"
-	self isTransparent ifTrue: [
-		^ aeCanvas setBorderOff ].
+	self isTransparent ifTrue: [ ^ aeCanvas setBorderOff ].
 
 	"This will double-dispatch with the geometry, and 
 	may set an explicit border path for the outskirt."
@@ -25,9 +24,7 @@ BlBorder >> aeApplyTo: aeCanvas element: aBlElement [
 			offset: style dashOffset.
 
 		aBlElement geometry hasJoins ifTrue: [
-			style lineJoin
-				aeApplyTo: aeCanvas
-				style: style ].
+			style lineJoin aeApplyTo: aeCanvas style: style ].
 
 		(aBlElement geometry hasCaps or: [ style isDashed ]) ifTrue: [
 			style lineCap aeApplyTo: aeCanvas ].

src/Bloc-Alexandrie/BlElement.extension.st

@@ -129,12 +129,10 @@ BlElement >> aeDrawOn: aeCanvas [
 
 	aeCanvas
 		restoreContextAfterPaintAlpha: self opacity
-		with: [
-			"My position is applied before my transformation matrix,
+		with: [ "My position is applied before my transformation matrix,
 			which may have an additional translation."
 			aeCanvas pathTranslate: self position.
 			self transformation aeApplyTo: aeCanvas.
-
 			self aeDrawIgnoringOpacityAndTransformationOn: aeCanvas ]
 ]