Dependencies clean up: Move example in BlMorphicHost to BlMorphicHost…

…Examples
pharo-graphics · May 10, 2024 · 0980047 · 0980047
1 parent af7441d
commit 0980047
Show file tree

Hide file tree

Showing 2 changed files with 44 additions and 33 deletions.
diff --git a/src/Bloc-Examples/BlMorphicHostExamples.class.st b/src/Bloc-Examples/BlMorphicHostExamples.class.st
@@ -0,0 +1,44 @@
+Class {
+	#name : #BlMorphicHostExamples,
+	#superclass : #BlExamplesTest,
+	#instVars : [
+		'containerMorph'
+	],
+	#category : #'Bloc-Examples-Host - Morph'
+}
+
+{ #category : #examples }
+BlMorphicHostExamples >> squares [
+	<sampleInstance>
+	<demo>
+
+	| aMorph aHost aSpace |
+	aMorph := Morph new.
+	"container morph could also have #spaceFill resizing"
+	aMorph extent: 400 asPoint.
+	"Specify a layout policy so the Bloc space fills the whole
+	extent (including Morph resizing)."
+	aMorph layoutPolicy: TableLayout new.
+	aMorph openInWindowLabeled: 'Resize window to layout. Hover squares to color.'.
+
+	aHost := BlMorphicHost new.
+	aHost containerMorph: aMorph.
+
+	aSpace := BlSpace new.
+	aSpace host: aHost.
+	aSpace show.
+
+	aSpace root
+		background: Color paleBlue;
+		layout: BlFlowLayout horizontal.
+
+	50 timesRepeat: [ 
+		aSpace root addChild:
+			(BlElement new
+				background: Color random translucent;
+				addEventHandlerOn: BlMouseEnterEvent
+					do: [ :evt | evt target background: Color random ];
+				yourself) ].
+
+	^ aSpace
+]
diff --git a/src/BlocHost-Morphic/BlMorphicHost.class.st b/src/BlocHost-Morphic/BlMorphicHost.class.st
@@ -20,39 +20,6 @@ Class {
 	#category : #'BlocHost-Morphic-Host - Morph'
 }
 
-{ #category : #examples }
-BlMorphicHost class >> example [
-
-	| aMorph aHost aSpace |
-	aMorph := Morph new.
-	"container morph could also have #spaceFill resizing"
-	aMorph extent: 400 asPoint.
-	"Specify a layout policy so the Bloc space fills the whole
-	extent (including Morph resizing)."
-	aMorph layoutPolicy: TableLayout new.
-	aMorph openInWindowLabeled: 'Resize window to layout. Hover squares to color.'.
-
-	aHost := BlMorphicHost new.
-	aHost containerMorph: aMorph.
-
-	aSpace := BlSpace new.
-	aSpace host: aHost.
-	aSpace show.
-
-	aSpace root
-		background: Color paleBlue;
-		layout: BlFlowLayout horizontal.
-
-	50 timesRepeat: [ 
-		aSpace root addChild:
-			(BlElement new
-				background: Color random translucent;
-				addEventHandlerOn: BlMouseEnterEvent
-					do: [ :evt |
-						evt target background: Color random ];
-				yourself) ]
-]
-
 { #category : #testing }
 BlMorphicHost class >> isSupported [
 	"I can not be used as one of the default Bloc host because I require users to provide containerMorph"