[examples] added TBlExample Trait

src/Bloc-Examples.package/BlBasicExamples.class/properties.json

@@ -1,11 +1,13 @@
 {
+	"classtraitcomposition" : "TBlExample classTrait",
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "BlBasicExamples",
 	"commentStamp" : "AliakseiSyrel 1/24/2017 15:10",
 	"super" : "Object",
-	"category" : "Bloc-Examples-Basic",
+	"traitcomposition" : "TBlExample",
+	"type" : "normal",
 	"classinstvars" : [ ],
 	"pools" : [ ],
-	"classvars" : [ ],
-	"instvars" : [ ],
-	"name" : "BlBasicExamples",
-	"type" : "normal"
+	"category" : "Bloc-Examples-Basic"
 }

src/Bloc-Examples.package/BlTransformationExamples.class/class/rotated.st

@@ -0,0 +1,8 @@
+examples
+rotated
+	<script: 'self rotated'>
+
+	self
+		openInWindow: self new rotate
+		named: 'Rotated by 45 degrees'
+		extent: 300@300

src/Bloc-Examples.package/BlTransformationExamples.class/class/scaled.st

@@ -0,0 +1,8 @@
+examples
+scaled
+	<script: 'self scaled'>
+
+	self
+		openInWindow: self new scale
+		named: 'Scaled by 2'
+		extent: 300@300

src/Bloc-Examples.package/BlTransformationExamples.class/properties.json

@@ -1,11 +1,13 @@
 {
+	"classtraitcomposition" : "TBlExample classTrait",
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "BlTransformationExamples",
 	"commentStamp" : "AliakseiSyrel 11/2/2017 14:35",
 	"super" : "Object",
-	"category" : "Bloc-Examples-Basic",
+	"traitcomposition" : "TBlExample",
+	"type" : "normal",
 	"classinstvars" : [ ],
 	"pools" : [ ],
-	"classvars" : [ ],
-	"instvars" : [ ],
-	"name" : "BlTransformationExamples",
-	"type" : "normal"
+	"category" : "Bloc-Examples-Basic"
 }

src/Bloc-Examples.package/TBlExample.trait/README.md

@@ -0,0 +1 @@
+I contain useful helper methods that simplify creation of examples

src/Bloc-Examples.package/TBlExample.trait/class/openInWindow.named.extent..st

@@ -0,0 +1,18 @@
+opening
+openInWindow: anElement named: aTitleString extent: aPoint
+	"Open a given element in a window of a provided extent and specified title"
+	| aSpace |
+	aSpace := BlSpace new
+		extent: aPoint;
+		title: aTitleString.
+
+	aSpace root
+		addChild: anElement;
+		yourself.
+
+	aSpace root addEventHandler:
+			(BlEventHandler
+				on: BlDblClickEvent
+				do: [ :evt | BlElementSelection on: evt target ]).
+
+	aSpace show

src/Bloc-Examples.package/TBlExample.trait/properties.json

@@ -0,0 +1,5 @@
+{
+	"name" : "TBlExample",
+	"commentStamp" : "AliakseiSyrel 11/10/2017 17:49",
+	"category" : "Bloc-Examples"
+}