From 4d7e116ac895fdabc7325538cd4263bc134b4a99 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mart=C3=ADn=20Dias?= <tinchodias@gmail.com>
Date: Sun, 13 Sep 2026 00:05:53 -0300
Subject: [PATCH 1/4] Make ToExWorkspace's open use the Bloc preferredHost

---
 src/Toplo-Examples/ToExWorkspace.class.st | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Toplo-Examples/ToExWorkspace.class.st b/src/Toplo-Examples/ToExWorkspace.class.st
index 83824d175..ee9e5d1b4 100644
--- a/src/Toplo-Examples/ToExWorkspace.class.st
+++ b/src/Toplo-Examples/ToExWorkspace.class.st
@@ -15,7 +15,7 @@ Class {
 ToExWorkspace class >> open [
 
 	<script>
-	self openInHost: BlOSWindowSDL2Host default
+	self openInHost: Bloc preferredHost
 ]
 
 { #category : #'instance creation' }

From 6e8c41b05a596fe6124f296520d73c7eed069e52 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mart=C3=ADn=20Dias?= <tinchodias@gmail.com>
Date: Sun, 13 Sep 2026 00:08:06 -0300
Subject: [PATCH 2/4] ToSandBox: Some examples needed use BlSpace's
 #deferAndSettle:

... since they change elements that are already attached to an opened space.
---
 src/Toplo-Examples/ToSandBox.class.st | 362 +++++++++++++++-----------
 1 file changed, 205 insertions(+), 157 deletions(-)

diff --git a/src/Toplo-Examples/ToSandBox.class.st b/src/Toplo-Examples/ToSandBox.class.st
index 7cd090e03..a2b7e656c 100644
--- a/src/Toplo-Examples/ToSandBox.class.st
+++ b/src/Toplo-Examples/ToSandBox.class.st
@@ -1309,7 +1309,9 @@ ToSandBox class >> example_BasicListWithAllClassesWithCheckboxes [
 
 	| l |
 	l := self example_BasicListWithAllClasses.
-	l toConfiguration useCheckbox: true
+	l space deferAndSettle: [
+		l toConfiguration useCheckbox: true ].
+	^ l
 ]
 
 { #category : #'wrapped list' }
@@ -2919,12 +2921,14 @@ ToSandBox class >> example_GeneralButtonWithIconAndLabel_matchParent [
 
 	| but |
 	but := self example_GeneralButtonWithIconAndLabel.
-	but layout alignCenter.
-	but childrenDo: [ :child |
-		child constraintsDo: [ :c |
-			c linear horizontal alignCenter.
-			c linear vertical alignCenter ] ].
-	but matchParent
+	but space deferAndSettle: [
+		but layout alignCenter.
+		but childrenDo: [ :child |
+			child constraintsDo: [ :c |
+				c linear horizontal alignCenter.
+				c linear vertical alignCenter ] ].
+		but matchParent ].
+	^ but
 ]
 
 { #category : #'general button' }
@@ -3100,46 +3104,51 @@ ToSandBox class >> example_LabeledIconlWithIconAndText_interspace [
 
 	| but |
 	but := self example_LabeledIconlWithIconAndText.
-	but border: Color black.
-	but startInterspace: 100.
+	but space deferAndSettle: [
+		but border: Color black.
+		but startInterspace: 100 ].
 	^ but
 ]
 
 { #category : #'labeled icon' }
 ToSandBox class >> example_LabeledIconlWithIconAndText_labelFirst [
 
-	| but  |
+	| but |
 	but := self example_LabeledIconlWithIconAndText.
-	but endToStart: true.
+	but space deferAndSettle: [
+		but endToStart: true ].
 	^ but
 ]
 
 { #category : #'labeled icon' }
 ToSandBox class >> example_LabeledIconlWithIconAndText_labelFirst_startFlexible [
 
-	| but  |
+	| but |
 	but := self example_LabeledIconlWithIconAndText_labelFirst.
-	but startFlexible: true.
-	but matchParent.
+	but space deferAndSettle: [
+		but startFlexible: true.
+		but matchParent ].
 	^ but
 ]
 
 { #category : #'labeled icon' }
 ToSandBox class >> example_LabeledIconlWithIconAndText_labelFirst_vertical [
 
-	| but  |
+	| but |
 	but := self example_LabeledIconlWithIconAndText_labelFirst.
-	but vertical: true.
+	but space deferAndSettle: [
+		but vertical: true ].
 	^ but
 ]
 
 { #category : #'labeled icon' }
 ToSandBox class >> example_LabeledIconlWithIconAndText_labelFirst_vertical_startFlexible [
 
-	| but  |
+	| but |
 	but := self example_LabeledIconlWithIconAndText_labelFirst_vertical.
-	but startFlexible: true.
-	but matchParent.
+	but space deferAndSettle: [
+		but startFlexible: true.
+		but matchParent ].
 	^ but
 ]
 
@@ -3148,20 +3157,22 @@ ToSandBox class >> example_LabeledIconlWithIconAndText_startAlignment [
 
 	| but |
 	but := self example_LabeledIconlWithIconAndText.
-	but border: Color black.
-	but startAlignment: 100.
+	but space deferAndSettle: [
+		but border: Color black.
+		but startAlignment: 100 ].
 	^ but
 ]
 
 { #category : #'labeled icon' }
 ToSandBox class >> example_LabeledIconlWithIconAndText_startFlexible [
 
-	| but  |
+	| but |
 	but := self example_LabeledIconlWithIconAndText.
-	but startFlexible: true.
-	but border: Color red.
-	but vFitContent.
-	but hMatchParent.
+	but space deferAndSettle: [
+		but startFlexible: true.
+		but border: Color red.
+		but vFitContent.
+		but hMatchParent ].
 	^ but
 ]
 
@@ -3186,18 +3197,20 @@ ToSandBox class >> example_LabeledIconlWithIconAndText_startFlexible_inFitConten
 { #category : #'labeled icon' }
 ToSandBox class >> example_LabeledIconlWithIconAndText_vertical [
 
-	| but  |
+	| but |
 	but := self example_LabeledIconlWithIconAndText.
-	but vertical: true.
+	but space deferAndSettle: [
+		but vertical: true ].
 	^ but
 ]
 
 { #category : #'labeled icon' }
 ToSandBox class >> example_LabeledIconlWithIconAndText_vertical_interspace [
 
-	| but  |
+	| but |
 	but := self example_LabeledIconlWithIconAndText_vertical.
-	but startInterspace: 20.
+	but space deferAndSettle: [
+		but startInterspace: 20 ].
 	^ but
 ]
 
@@ -3583,9 +3596,10 @@ ToSandBox class >> example_ListWithFloatButtons [
 			c anchors add:
 				(c anchors bottomRightAnchor on:
 					 floatAdd bottomLeftAnchor - (5 @ 0)) ] ).
-	
-	floatAdd attachToElement: list.
-	floatRemove attachToElement: list
+	list space deferAndSettle: [
+		floatAdd attachToElement: list.
+		floatRemove attachToElement: list ].
+	^ list
 ]
 
 { #category : #list }
@@ -3930,7 +3944,8 @@ ToSandBox class >> example_MenuPopover [
 
 	| menu |
 	menu := self example_Menu2.
-	menu manager popover: true.
+	menu space deferAndSettle: [
+		menu manager popover: true ].
 	^ menu
 ]
 
@@ -5079,9 +5094,11 @@ ToSandBox class >> example_SelectMultiFiltrableWithMatchParentMaxHeight [
 
 	| select |
 	select := self example_SelectMultiFiltrable.
-	select popupListElement dataAccessor updateAllWith:
-		(self statesOfAmericaWithColor copyFrom: 1 to: 15).
-	select manager withMatchParentMaxHeight.
+	select space deferAndSettle: [
+		select popupListElement dataAccessor updateAllWith:
+			(self statesOfAmericaWithColor copyFrom: 1 to: 15).
+		select manager withMatchParentMaxHeight ].
+	^ select
 ]
 
 { #category : #select }
@@ -5089,12 +5106,13 @@ ToSandBox class >> example_SelectMultiFiltrableWithMax [
 
 	| select |
 	select := self example_SelectMultiFiltrable.
-	select maxSelectedCount: 3.
-	select selecter selectIndex: 3.
-	select selecter selectIndex: 5.
-	select selecter selectIndex: 4.
-	select selecter selectIndex: 6.
-
+	select space deferAndSettle: [
+		select maxSelectedCount: 3.
+		select selecter selectIndex: 3.
+		select selecter selectIndex: 5.
+		select selecter selectIndex: 4.
+		select selecter selectIndex: 6 ].
+	^ select
 ]
 
 { #category : #select }
@@ -5165,19 +5183,21 @@ ToSandBox class >> example_SelectableLabeledIconlWithIconAndText [
 { #category : #'labeled icon' }
 ToSandBox class >> example_SelectableLabeledIconlWithIconAndText_labelFirst [
 
-	| but  |
+	| but |
 	but := self example_SelectableLabeledIconlWithIconAndText.
-	but endToStart: true.
+	but space deferAndSettle: [
+		but endToStart: true ].
 	^ but
 ]
 
 { #category : #'labeled icon' }
 ToSandBox class >> example_SelectableLabeledIconlWithIconAndText_labelFirst_startFlexible [
 
-	| but  |
+	| but |
 	but := self example_SelectableLabeledIconlWithIconAndText_labelFirst.
-	but startFlexible: true.
-	but matchParent.
+	but space deferAndSettle: [
+		but startFlexible: true.
+		but matchParent ].
 	^ but
 ]
 
@@ -5322,7 +5342,9 @@ ToSandBox class >> example_SieveOnList2With_AllMethods_MonoSelection [
 	| listElement assoc |
 	assoc := self example_SieveOnList2With_AllMethods.
 	listElement := assoc key.
-	listElement primarySelectionMode beSingleSelection
+	listElement space deferAndSettle: [
+		listElement primarySelectionMode beSingleSelection ].
+	^ assoc
 ]
 
 { #category : #list }
@@ -5603,11 +5625,10 @@ ToSandBox class >> example_SimpleTabPane [
 { #category : #tabPane }
 ToSandBox class >> example_SimpleTabPaneWithRemoveButtons [
 
-	| tabPane space |
-	space := BlSpace new.
+	| tabPane |
 	tabPane := self example_SimpleTabPane.
-	tabPane items do: [ :tabItem | tabItem removable: true ].
-
+	tabPane space deferAndSettle: [
+		tabPane items do: [ :tabItem | tabItem removable: true ] ].
 	^ tabPane
 ]
 
@@ -5748,8 +5769,8 @@ ToSandBox class >> example_TabGroupElementWithStartAndEndExtras [
 
 	| tabs |
 	tabs := self example_TabGroupElementWithUSStates.
-
-	tabs startExtraBuilder: [ :extra |
+	tabs space deferAndSettle: [
+		tabs startExtraBuilder: [ :extra |
 			| im menu menuPane |
 			menuPane := ToMenuPane new.
 			im := ToMaterialDesignIconProvider innerImageNamed:
@@ -5758,9 +5779,8 @@ ToSandBox class >> example_TabGroupElementWithStartAndEndExtras [
 			menu icon extent: 20 asPoint.
 			menuPane addItem: menu.
 			extra addChild: menuPane ].
-
-	tabs endExtraBuilder: [ :extra |
-		extra addChild: (ToButton new labelText: 'Bookmarks') ].
+		tabs endExtraBuilder: [ :extra |
+			extra addChild: (ToButton new labelText: 'Bookmarks') ] ].
 	^ tabs
 ]
 
@@ -6009,7 +6029,8 @@ ToSandBox class >> example_ThemeSelectPopover [
 
 	| select |
 	select := self example_ThemeSelectNoDeselection.
-	select manager popover: true.
+	select space deferAndSettle: [
+		select manager popover: true ].
 	^ select
 ]
 
@@ -6196,77 +6217,83 @@ ToSandBox class >> example_TripletElementWithIconAndText [
 { #category : #triplet }
 ToSandBox class >> example_TripletElementWithIconAndText_endAlignment [
 
-	| but  |
+	| but |
 	but := self example_TripletElementWithIconAndText.
-	but endAlignment: 50.
-	but border: Color red.
-	but vFitContent.
-	but hFitContent.
+	but space deferAndSettle: [
+		but endAlignment: 50.
+		but border: Color red.
+		but vFitContent.
+		but hFitContent ].
 	^ but
 ]
 
 { #category : #triplet }
 ToSandBox class >> example_TripletElementWithIconAndText_flexible_Interspace [
 
-	| but  |
+	| but |
 	but := self example_TripletElementWithIconAndText.
-	but startInterspace: 30.
-	but endInterspace: 30.
-	but startFlexible: true.
-	but endFlexible: true.
-	but border: Color red.
-	but vFitContent.
-	but hMatchParent.
+	but space deferAndSettle: [
+		but startInterspace: 30.
+		but endInterspace: 30.
+		but startFlexible: true.
+		but endFlexible: true.
+		but border: Color red.
+		but vFitContent.
+		but hMatchParent ].
 	^ but
 ]
 
 { #category : #triplet }
 ToSandBox class >> example_TripletElementWithIconAndText_startAlignment [
 
-	| but  |
+	| but |
 	but := self example_TripletElementWithIconAndText.
-	but startAlignment: 50.
-	but border: Color red.
-	but vFitContent.
-	but hFitContent.
+	but space deferAndSettle: [
+		but startAlignment: 50.
+		but border: Color red.
+		but vFitContent.
+		but hFitContent ].
 	^ but
 ]
 
 { #category : #triplet }
 ToSandBox class >> example_TripletElementWithIconAndText_startFlexible [
 
-	| but  |
+	| but |
 	but := self example_TripletElementWithIconAndText.
-	but startFlexible: true.
-	but border: Color red.
-	but vFitContent.
-	but hMatchParent.
+	but space deferAndSettle: [
+		but startFlexible: true.
+		but border: Color red.
+		but vFitContent.
+		but hMatchParent ].
 	^ but
 ]
 
 { #category : #triplet }
 ToSandBox class >> example_TripletElementWithIconAndText_startFlexible_startAlignment [
 
-	| but  |
+	| but |
 	but := self example_TripletElementWithIconAndText.
-	but startFlexible: true.
-	but startAlignment: 60.
-	but border: Color red.
-	but vFitContent.
-	but hMatchParent.
+	but space deferAndSettle: [
+		but startFlexible: true.
+		but startAlignment: 60.
+		but border: Color red.
+		but vFitContent.
+		but hMatchParent ].
 	^ but
 ]
 
 { #category : #triplet }
 ToSandBox class >> example_TripletElementWithIconAndText_startFlexible_startInterspace [
 
-	| but  |
+	| but |
 	but := self example_TripletElementWithIconAndText.
-	but startInterspace: 30.
-	but startFlexible: true.
-	but border: Color red.
-	but vFitContent.
-	but hMatchParent.
+	but space deferAndSettle: [
+		but startInterspace: 30.
+		but startFlexible: true.
+		but border: Color red.
+		but vFitContent.
+		but hMatchParent ].
 	^ but
 ]
 
@@ -6516,34 +6543,38 @@ ToSandBox class >> example_badgeOnAnIgnoredElement [
 { #category : #button }
 ToSandBox class >> example_buttonWith2Icons [
 
-	| but  |
+	| but |
 	but := self example_buttonWithIcon.
-	but clickAction: [ :evt | evt currentTarget requestFocus ].
-	but addEventHandlerOn: ToSkinEvent do: [ :event | event traceCr ].
-	but clickAction: [ :evt | evt target traceCr ].
-	but addEventHandlerOn: BlDoubleClickEvent do: [ :event | event traceCr ].
-	but label: (ToLabel text: 'Button with 2 icons').
-	but endElement: (ToImage inner: ToThemeIcons searchOutlined16x16).
+	but space deferAndSettle: [
+		but clickAction: [ :evt | evt currentTarget requestFocus ].
+		but addEventHandlerOn: ToSkinEvent do: [ :event | event traceCr ].
+		but clickAction: [ :evt | evt target traceCr ].
+		but addEventHandlerOn: BlDoubleClickEvent do: [ :event | event traceCr ].
+		but label: (ToLabel text: 'Button with 2 icons').
+		but endElement: (ToImage inner: ToThemeIcons searchOutlined16x16) ].
 	^ but
 ]
 
 { #category : #button }
 ToSandBox class >> example_buttonWith2IconsFlexible [
 
-	| but  |
+	| but |
 	but := self example_buttonWith2Icons.
-	but flexible: true.
-	but hMatchParent
+	but space deferAndSettle: [
+		but flexible: true.
+		but hMatchParent ].
+	^ but
 ]
 
 { #category : #button }
 ToSandBox class >> example_buttonWith2IconsVertical [
 
-	| but  |
+	| but |
 	but := self example_buttonWithIcon.
-	but label: (ToLabel text: 'Button with 2 icons').
-	but endElement: (ToImage inner: ToThemeIcons searchOutlined16x16).
-	but beVertical.
+	but space deferAndSettle: [
+		but label: (ToLabel text: 'Button with 2 icons').
+		but endElement: (ToImage inner: ToThemeIcons searchOutlined16x16).
+		but beVertical ].
 	^ but
 ]
 
@@ -6601,29 +6632,36 @@ ToSandBox class >> example_buttonWithIcon [
 { #category : #button }
 ToSandBox class >> example_buttonWithIconAndLabel [
 
-	| but  |
+	| but |
 	but := self example_buttonWithIcon.
-	but label: (ToLabel text: 'Button with label').
-	but clickAction: [ self inform: 'Action runned' ].
+	but space deferAndSettle: [
+		but label: (ToLabel text: 'Button with label').
+		but clickAction: [ self inform: 'Action runned' ] ].
 	^ but
 ]
 
 { #category : #button }
 ToSandBox class >> example_buttonWithIconAndLabelCentered [
 
-	| but  |
+	| but |
 	but := self example_buttonWithIconAndLabel.
-	but hMatchParent.
-	but alignCenter: true.
+	but space deferAndSettle: [
+		but layout alignCenter.
+		but childrenDo: [ :child |
+			child constraintsDo: [ :c |
+				c linear horizontal alignCenter.
+				c linear vertical alignCenter ] ].
+		but matchParent ].
 	^ but
 ]
 
 { #category : #button }
 ToSandBox class >> example_buttonWithIconAndLabelDisabled [
 
-	| but  |
+	| but |
 	but := self example_buttonWithIconDisabled.
-	but label: (ToLabel text: 'Button with label').
+	but space deferAndSettle: [
+		but label: (ToLabel text: 'Button with label') ].
 	^ but
 ]
 
@@ -8146,7 +8184,8 @@ ToSandBox class >> example_selectWith5NodesWithMatchParentMaxHeight [
 
 	| select |
 	select := self example_selectWith5Nodes.
-	select manager withMatchParentMaxHeight.
+	select space deferAndSettle: [
+		select manager withMatchParentMaxHeight ].
 	^ select
 ]
 
@@ -8602,7 +8641,6 @@ ToSandBox class >> example_textField0 [
 	| t |
 	t := ToTextField new text: 'AAAA'.
 	t background: Color yellow.
-	t inspect.
 	t openInSpace
 ]
 
@@ -8884,8 +8922,7 @@ ToSandBox class >> example_toButtonOrientationChanger [
 			but orientation: but orientation inverted ].
 	space := BlSpace new.
 	space root addChild: but.
-	space show.
-	space showStatisticsWindow
+	space show
 ]
 
 { #category : #tooltip }
@@ -9090,7 +9127,6 @@ ToSandBox class >> example_toImageWithSVG [
 	im := ToImage inner: (self pathBugSVG).
 	im extent: 30 asPoint.
 	im withNullSkin.
-	im inspect.
 	im openInSpace
 ]
 
@@ -9523,7 +9559,10 @@ ToSandBox class >> example_toTable1 [
 { #category : #table }
 ToSandBox class >> example_toTable1WithCheckbox [
 
-	self example_toTable1 useCheckbox: true
+	| table |
+	table := self example_toTable1.
+	table space deferAndSettle: [ table useCheckbox: true ].
+	^ table
 ]
 
 { #category : #table }
@@ -9587,39 +9626,7 @@ ToSandBox class >> example_toTableWithSort [
 ToSandBox class >> example_toTreeTable1 [
 
 	| table |
-	table := ToTreeTableElement new.
-	table nodeManager childrenGetter: [ :dataItem |
-		dataItem subclasses sorted: [ :a :b | a name < b name ] ].
-	table columns: {
-			(ToTableColumn new
-				 title: 'Name';
-				 key: 'name';
-				 dataIndex: #name;
-				 yourself).
-			(ToTableColumn new
-				 title: 'Number of methods';
-				 key: 'methods';
-				 dataIndex: #numberOfMethods;
-				 containerBuilder: [ :container |
-					 container background: (Color veryLightGray alpha: 0.2) ];
-				 yourself).
-			(ToTableColumn new
-				 title: 'Space used';
-				 key: 'space';
-				 dataIndex: #spaceUsed;
-				 yourself).
-			(ToTableColumn new
-				 title: 'Package';
-				 key: 'package';
-				 dataIndex: [ :cls | cls packageName ];
-				 containerBuilder: [ :container :column |
-					 container background: (Color veryLightGray alpha: 0.2) ];
-				 yourself) }.
-	table dataAccessor add: ProtoObject.
-	table dataAccessor add: BlElement.
-	table dataAccessor add: Collection.
-	table dataAccessor add: String.
-
+	table := self newTreeTable1.
 	table openInSpace.
 	^ table
 ]
@@ -9628,7 +9635,7 @@ ToSandBox class >> example_toTreeTable1 [
 ToSandBox class >> example_toTreeTable1WithCheckbox [
 
 	| table |
-	table := self example_toTreeTable1.
+	table := self newTreeTable1.
 	table useCheckbox: true.
 	table useScrollbar: true.
 	table list useInfiniteLayout: true.
@@ -9636,7 +9643,9 @@ ToSandBox class >> example_toTreeTable1WithCheckbox [
 			menu addItem: (ToMenuItem new
 					 labelText: 'Inspect';
 					 clickAction: [ table inspect ];
-					 yourself) ]
+					 yourself) ].
+	table openInSpace.
+	^ table
 ]
 
 { #category : #table }
@@ -10439,6 +10448,45 @@ ToSandBox class >> newPopup [
 	^ popupWindowHandler
 ]
 
+{ #category : #table }
+ToSandBox class >> newTreeTable1 [
+
+	| table |
+	table := ToTreeTableElement new.
+	table nodeManager childrenGetter: [ :dataItem |
+		dataItem subclasses sorted: [ :a :b | a name < b name ] ].
+	table columns: {
+			(ToTableColumn new
+				 title: 'Name';
+				 key: 'name';
+				 dataIndex: #name;
+				 yourself).
+			(ToTableColumn new
+				 title: 'Number of methods';
+				 key: 'methods';
+				 dataIndex: #numberOfMethods;
+				 containerBuilder: [ :container |
+					 container background: (Color veryLightGray alpha: 0.2) ];
+				 yourself).
+			(ToTableColumn new
+				 title: 'Space used';
+				 key: 'space';
+				 dataIndex: #spaceUsed;
+				 yourself).
+			(ToTableColumn new
+				 title: 'Package';
+				 key: 'package';
+				 dataIndex: [ :cls | cls packageName ];
+				 containerBuilder: [ :container :column |
+					 container background: (Color veryLightGray alpha: 0.2) ];
+				 yourself) }.
+	table dataAccessor add: ProtoObject.
+	table dataAccessor add: BlElement.
+	table dataAccessor add: Collection.
+	table dataAccessor add: String.
+	^ table
+]
+
 { #category : #accordion }
 ToSandBox class >> paneWithAccordionsWithLabel [
 

From 3c85326f48f53eaf4cf430c10975b3cc51e80c76 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mart=C3=ADn=20Dias?= <tinchodias@gmail.com>
Date: Sun, 13 Sep 2026 00:09:52 -0300
Subject: [PATCH 3/4] Make animated icon infinite instead of 10 loops

This reduces time to settle a space since infinite animation is considered settled already, while 10 loops settle only after the 10 loops are done.
---
 src/Toplo-Widget-Button/ToAnimatedIcon.class.st | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Toplo-Widget-Button/ToAnimatedIcon.class.st b/src/Toplo-Widget-Button/ToAnimatedIcon.class.st
index 6510734d0..1dafa8655 100644
--- a/src/Toplo-Widget-Button/ToAnimatedIcon.class.st
+++ b/src/Toplo-Widget-Button/ToAnimatedIcon.class.st
@@ -47,7 +47,7 @@ ToAnimatedIcon >> defaultDuration [
 { #category : #initialization }
 ToAnimatedIcon >> defaultLoops [
 
-	^ 10
+	^ nil
 ]
 
 { #category : #initialization }

From bac37a2d6d05228e35a8ce717c6afbc255ea713f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mart=C3=ADn=20Dias?= <tinchodias@gmail.com>
Date: Sun, 13 Sep 2026 00:22:32 -0300
Subject: [PATCH 4/4] Enhance smoke tests for Toplo examples

- Implement ToExamplesSmokeTest, a common superclass for smoke tests.
- It is a subclass of BlParameterizedHostTest, so buy default only run on headless host (faster than the others)
- Rename ToExperimentsMockTest, ToSandBoxMockTest and ToTopLevelMockTest with "Smoke" word, and make them subclasses of ToExamplesSmokeTest
- #ignoredExampleSelectors excludes slowerand problematic examples from smoke tests (e.g. URL requests that sometimes fail)
---
 .../ToExamplesSmokeTest.class.st              | 124 ++++++++++++++++++
 .../ToExperimentsMockTest.class.st            |  35 -----
 .../ToExperimentsSmokeTest.class.st           |  11 ++
 src/Toplo-Examples/ToSandBoxMockTest.class.st |  49 -------
 .../ToSandBoxSmokeTest.class.st               |  24 ++++
 .../ToTopLevelMockTest.class.st               |  37 ------
 .../ToTopLevelSmokeTest.class.st              |  44 +++++++
 7 files changed, 203 insertions(+), 121 deletions(-)
 create mode 100644 src/Toplo-Examples/ToExamplesSmokeTest.class.st
 delete mode 100644 src/Toplo-Examples/ToExperimentsMockTest.class.st
 create mode 100644 src/Toplo-Examples/ToExperimentsSmokeTest.class.st
 delete mode 100644 src/Toplo-Examples/ToSandBoxMockTest.class.st
 create mode 100644 src/Toplo-Examples/ToSandBoxSmokeTest.class.st
 delete mode 100644 src/Toplo-Examples/ToTopLevelMockTest.class.st
 create mode 100644 src/Toplo-Examples/ToTopLevelSmokeTest.class.st

diff --git a/src/Toplo-Examples/ToExamplesSmokeTest.class.st b/src/Toplo-Examples/ToExamplesSmokeTest.class.st
new file mode 100644
index 000000000..9479964bc
--- /dev/null
+++ b/src/Toplo-Examples/ToExamplesSmokeTest.class.st
@@ -0,0 +1,124 @@
+Class {
+	#name : #ToExamplesSmokeTest,
+	#superclass : #BlParameterizedHostTest,
+	#instVars : [
+		'previousPreferredHost',
+		'exampleSelector'
+	],
+	#classVars : [
+		'Enabled'
+	],
+	#category : #'Toplo-Examples-Support'
+}
+
+{ #category : #settings }
+ToExamplesSmokeTest class >> enabled [
+
+	^ Enabled ifNil: [ Enabled := true ]
+]
+
+{ #category : #settings }
+ToExamplesSmokeTest class >> enabled: aBoolean [
+
+	Enabled := aBoolean
+]
+
+{ #category : #accessing }
+ToExamplesSmokeTest class >> exampleSelectors [
+
+	^ (self targetClass class selectors select: [ :each |
+		   (each beginsWith: 'example') and: [
+			   (self ignoredExampleSelectors includes: each) not ] ])
+		  asSortedCollection
+]
+
+{ #category : #accessing }
+ToExamplesSmokeTest class >> ignoredExampleSelectors [
+
+	^ #( )
+]
+
+{ #category : #testing }
+ToExamplesSmokeTest class >> isAbstract [
+
+	^ self == ToExamplesSmokeTest
+]
+
+{ #category : #settings }
+ToExamplesSmokeTest class >> settingsOn: aBuilder [
+
+	<systemsettings>
+	(aBuilder setting: #enabled)
+		parent: #Toplo;
+		label: 'Enable Smoke tests';
+		default: true;
+		target: self;
+		description: 'Enable or disable ToExamplesSmokeTest and its subclasses'
+]
+
+{ #category : #accessing }
+ToExamplesSmokeTest class >> targetClass [
+
+	^ nil
+]
+
+{ #category : #'building suites' }
+ToExamplesSmokeTest class >> testParameters [
+
+	| matrix |
+	matrix := super testParameters.
+	self isAbstract ifTrue: [ ^ matrix ].
+	self exampleSelectors ifEmpty: [ ^ matrix ].
+
+	^ matrix * (ParametrizedTestMatrix new
+		  forSelector: #exampleSelector
+		  addOptions: self exampleSelectors)
+]
+
+{ #category : #accessing }
+ToExamplesSmokeTest >> exampleSelector [
+
+	^ exampleSelector
+]
+
+{ #category : #accessing }
+ToExamplesSmokeTest >> exampleSelector: aSymbol [
+
+	exampleSelector := aSymbol
+]
+
+{ #category : #running }
+ToExamplesSmokeTest >> setUp [
+
+	super setUp.
+
+	self class enabled ifFalse: [
+		self skip: 'Smoke tests are disabled via system settings' ].
+
+	previousPreferredHost := BlHostRegistry default preferredHost.
+	BlHostRegistry default preferredHost: host
+]
+
+{ #category : #accessing }
+ToExamplesSmokeTest >> targetClass [
+
+	^ self class targetClass
+]
+
+{ #category : #running }
+ToExamplesSmokeTest >> tearDown [
+
+	BlHostRegistry default preferredHost: previousPreferredHost.
+
+	super tearDown
+]
+
+{ #category : #tests }
+ToExamplesSmokeTest >> testSmoke [
+
+	[
+		self targetClass perform: exampleSelector.
+		self settleNonInitialSpaces
+	] ensure: [
+		self closeNonInitialSpaces ]
+]
diff --git a/src/Toplo-Examples/ToExperimentsMockTest.class.st b/src/Toplo-Examples/ToExperimentsMockTest.class.st
deleted file mode 100644
index 834d9702f..000000000
--- a/src/Toplo-Examples/ToExperimentsMockTest.class.st
+++ /dev/null
@@ -1,35 +0,0 @@
-Class {
-	#name : #ToExperimentsMockTest,
-	#superclass : #TestCase,
-	#category : #'Toplo-Examples-Experiments'
-}
-
-{ #category : #tests }
-ToExperimentsMockTest >> closeWindows [
-
-	Toplo closeSpaces
-]
-
-{ #category : #tests }
-ToExperimentsMockTest >> testMocks [
-
-	| selectors errors |
-
-	self skip.
-	errors := OrderedCollection new.
-	selectors := ToExperiments class selectors select: [ :each |
-		             each beginsWith: 'example' ].
-	self assert: selectors isNotEmpty.
-
-	selectors do: [ :each |
-		[ ToExperiments perform: each.
-		Delay forMilliseconds: 5000.
-		self closeWindows ]
-			on: Error
-			do: [ :err | errors add: each ] ].
-
-	self
-		assert: errors isEmpty
-		description:
-		'The following selectors are broken: ' , errors printString
-]
diff --git a/src/Toplo-Examples/ToExperimentsSmokeTest.class.st b/src/Toplo-Examples/ToExperimentsSmokeTest.class.st
new file mode 100644
index 000000000..107946282
--- /dev/null
+++ b/src/Toplo-Examples/ToExperimentsSmokeTest.class.st
@@ -0,0 +1,11 @@
+Class {
+	#name : #ToExperimentsSmokeTest,
+	#superclass : #ToExamplesSmokeTest,
+	#category : #'Toplo-Examples-Experiments'
+}
+
+{ #category : #accessing }
+ToExperimentsSmokeTest class >> targetClass [
+
+	^ ToExperiments
+]
diff --git a/src/Toplo-Examples/ToSandBoxMockTest.class.st b/src/Toplo-Examples/ToSandBoxMockTest.class.st
deleted file mode 100644
index d32fc9314..000000000
--- a/src/Toplo-Examples/ToSandBoxMockTest.class.st
+++ /dev/null
@@ -1,49 +0,0 @@
-Class {
-	#name : #ToSandBoxMockTest,
-	#superclass : #TestCase,
-	#category : #'Toplo-Examples-SandBox'
-}
-
-{ #category : #tests }
-ToSandBoxMockTest >> closeWindows [
-
-	Toplo closeSpaces
-]
-
-{ #category : #tests }
-ToSandBoxMockTest >> testMocks [
-
-	| selectors errors sortedSelectors exceptions |
-	self skip.
-	self timeLimit: 120 seconds.
-	errors := OrderedCollection new.
-	exceptions := OrderedCollection new.
-	selectors := ToSandBox class selectors select: [ :each |
-		             each beginsWith: 'example' ].
-	sortedSelectors := SortedCollection new.
-	sortedSelectors
-		sortBlock: [ :a :b | a < b ];
-		addAll: selectors.
-
-	
-	"
-	#example_SieveOnList2With_350000_Items produces a test time out even if we set 20 Seconds as a limit
-	"
-
-	self assert: sortedSelectors isNotEmpty.
-
-	sortedSelectors do: [ :each |
-		[
-		ToSandBox perform: each.
-		Delay forMilliseconds: 5000.
-		self closeWindows ]
-			on: Error
-			do: [ :err |
-				errors add: each.
-				exceptions add: err ] ].
-
-	self
-		assert: errors isEmpty
-		description:
-		'The following selectors are broken: ' , errors printString
-]
diff --git a/src/Toplo-Examples/ToSandBoxSmokeTest.class.st b/src/Toplo-Examples/ToSandBoxSmokeTest.class.st
new file mode 100644
index 000000000..1fb97c63a
--- /dev/null
+++ b/src/Toplo-Examples/ToSandBoxSmokeTest.class.st
@@ -0,0 +1,24 @@
+Class {
+	#name : #ToSandBoxSmokeTest,
+	#superclass : #ToExamplesSmokeTest,
+	#category : #'Toplo-Examples-SandBox'
+}
+
+{ #category : #accessing }
+ToSandBoxSmokeTest class >> ignoredExampleSelectors [
+
+	^ #(
+		#example_AnchorWithPointTransition
+		#example_PicsumPhotosGallery
+		#example_PicsumPhotosGallery_crashing
+		#example_listWithAllClasses
+		#example_toImageFromUrl
+		#example_toImageFromUrl2
+		)
+]
+
+{ #category : #accessing }
+ToSandBoxSmokeTest class >> targetClass [
+
+	^ ToSandBox
+]
diff --git a/src/Toplo-Examples/ToTopLevelMockTest.class.st b/src/Toplo-Examples/ToTopLevelMockTest.class.st
deleted file mode 100644
index b3813ccd2..000000000
--- a/src/Toplo-Examples/ToTopLevelMockTest.class.st
+++ /dev/null
@@ -1,37 +0,0 @@
-Class {
-	#name : #ToTopLevelMockTest,
-	#superclass : #TestCase,
-	#category : #'Toplo-Examples-TopLevel'
-}
-
-{ #category : #tests }
-ToTopLevelMockTest >> closeWindows [
-
-	Toplo closeSpaces
-]
-
-{ #category : #tests }
-ToTopLevelMockTest >> testMocks [
-
-	| errors |
-
-	self skip.
-	errors := OrderedCollection new.
-
-	{
-		ToExLoginPage.
-		ToExMiniBrowser.
-		ToExWorkspace } do: [ :each |
-		[
-		each open.
-		Delay forMilliseconds: 5000.
-		self closeWindows ]
-			on: Error
-			do: [ :err | errors add: each ] ].
-
-
-	self
-		assert: errors isEmpty
-		description:
-		'The following examples are broken: ' , errors printString
-]
diff --git a/src/Toplo-Examples/ToTopLevelSmokeTest.class.st b/src/Toplo-Examples/ToTopLevelSmokeTest.class.st
new file mode 100644
index 000000000..2e226ab59
--- /dev/null
+++ b/src/Toplo-Examples/ToTopLevelSmokeTest.class.st
@@ -0,0 +1,44 @@
+Class {
+	#name : #ToTopLevelSmokeTest,
+	#superclass : #ToExamplesSmokeTest,
+	#instVars : [
+		'exampleClass'
+	],
+	#category : #'Toplo-Examples-TopLevel'
+}
+
+{ #category : #'building suites' }
+ToTopLevelSmokeTest class >> testParameters [
+
+	^ super testParameters * (ParametrizedTestMatrix new
+		  forSelector: #exampleClass
+		  addOptions: self topLevelClasses)
+]
+
+{ #category : #accessing }
+ToTopLevelSmokeTest class >> topLevelClasses [
+
+	^ { ToExLoginPage. ToExMiniBrowser. ToExWorkspace }
+]
+
+{ #category : #accessing }
+ToTopLevelSmokeTest >> exampleClass [
+
+	^ exampleClass
+]
+
+{ #category : #accessing }
+ToTopLevelSmokeTest >> exampleClass: aClass [
+
+	exampleClass := aClass
+]
+
+{ #category : #tests }
+ToTopLevelSmokeTest >> testSmoke [
+
+	[
+		self exampleClass open.
+		self settleNonInitialSpaces
+	] ensure: [
+		self closeNonInitialSpaces ]
+]