From e84a566daefe53cae86937e9acf1fa75ab33d09c Mon Sep 17 00:00:00 2001
From: CyrilFerlicot <cyril@ferlicot.me>
Date: Mon, 15 Jan 2024 16:38:01 +0100
Subject: [PATCH] Iteration on demos

Pari programming with Enzo:
- Rename #run into #open which is usually more common for spec
- Add a world menu entry to open the demo in the help menu
- Load the demo browser by default in Bloc
---
 src/BaselineOfBloc/BaselineOfBloc.class.st |  2 ++
 src/Bloc-Demo/BlDemoPresenter.class.st     | 17 +++++++++++++++--
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/src/BaselineOfBloc/BaselineOfBloc.class.st b/src/BaselineOfBloc/BaselineOfBloc.class.st
index 810f6b952..8739f48f2 100644
--- a/src/BaselineOfBloc/BaselineOfBloc.class.st
+++ b/src/BaselineOfBloc/BaselineOfBloc.class.st
@@ -127,6 +127,8 @@ BaselineOfBloc >> baseline: spec [
 			spec
 				package: #'Bloc-Theme' with: [
 					spec requires: #(#'Bloc') ].
+				
+			spec package: #'Bloc-Demo' with: [ spec requires: #(#'Bloc-Layout' #'Bloc-Spec2' #'Bloc-Text-Elements') ].
 
 			"SVG"
 			spec
diff --git a/src/Bloc-Demo/BlDemoPresenter.class.st b/src/Bloc-Demo/BlDemoPresenter.class.st
index 7638756b9..29ef47908 100644
--- a/src/Bloc-Demo/BlDemoPresenter.class.st
+++ b/src/Bloc-Demo/BlDemoPresenter.class.st
@@ -12,8 +12,21 @@ Class {
 }
 
 { #category : #running }
-BlDemoPresenter class >> run [ 
-	<script> 
+BlDemoPresenter class >> menuCommandOn: aBuilder [
+
+	<worldMenu>
+	(aBuilder item: #'Open Bloc Demo')
+		action: [ self open ];
+		parent: #Help;
+		help: 'Open a demo browser of Bloc to display multiple example of Bloc usages.';
+		iconName: #group;
+		withSeparatorAfter
+]
+
+{ #category : #running }
+BlDemoPresenter class >> open [
+
+	<script>
 	self new open
 ]