From ec4e830bad3b26b7d4dab27bcd11e90a93f2ac93 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phaneDucasse?= <stephane.ducasse@inria.fr>
Date: Fri, 24 May 2024 21:07:00 +0200
Subject: [PATCH] removing as many as possible Smalltalk references

---
 Chapters/ListTreeTable/ListTreeTable.md | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/Chapters/ListTreeTable/ListTreeTable.md b/Chapters/ListTreeTable/ListTreeTable.md
index 2be0f97..3a5987f 100644
--- a/Chapters/ListTreeTable/ListTreeTable.md
+++ b/Chapters/ListTreeTable/ListTreeTable.md
@@ -11,7 +11,7 @@ The following script illustrates this and the result is shown in Figure *@figSim
 
 ```
 SpListPresenter new
-	items: Smalltalk globals allClasses;
+	items: Collection withAllSubclasses;
 	open
 ```
 
@@ -53,7 +53,7 @@ We can configure the way items are displayed in a more finer-grained way. The fo
 
 ```
 SpListPresenter new
-	items: self environment allClasses;
+	items: Collection withAllSubclasses;
 	displayIcon: [ :aClass | self iconNamed: aClass systemIconName ];
 	displayColor: [ :aClass |
 		(aClass name endsWith: 'Test')
@@ -71,11 +71,11 @@ SpListPresenter new
 
 ### About single/multiple selection
 
-Lists support multiple selection. The message `beMultipleSelection` controls that aspect.
+Lists support multiple selections. The message `beMultipleSelection` controls that aspect.
 
 ```
 SpListPresenter new
-	items: Smalltalk globals allClasses;
+	items: Collection withAllSubclasses;
 	beMultipleSelection;
 	open
 ```
@@ -138,7 +138,7 @@ Lists can also be filtered as shown in Figure *@figFiltering@*. The following sc
 
 ```
 SpFilteringListPresenter new
-	items: Smalltalk globals allClasses;
+	items: Collection withAllSubclasses;
 	open;
 	withWindowDo: [ :window |
 		window title: 'SpFilteringListPresenter example' ]
@@ -150,7 +150,7 @@ The following script shows that the filter can be placed at the top.
 
 ```
 SpFilteringListPresenter new
-	items: Smalltalk globals allClasses;
+	items: Collection withAllSubclasses;
 	openWithLayout: SpFilteringListPresenter topLayout;
 	withWindowDo: [ :window |
 		window title: 'SpFilteringListPresenter example' ]
@@ -160,7 +160,7 @@ Note that a filter can be declared upfront using the message `applyFilter:`.
 
 ```
 SpFilteringListPresenter new
-	items: Smalltalk globals allClasses;
+	items: Collection withAllSubclasses;
 	openWithLayout: SpFilteringListPresenter topLayout;
 	applyFilter: 'ZZ';
 	withWindowDo: [ :window |
@@ -177,7 +177,7 @@ The following script produces this situation.
 
 ```
 (SpFilteringSelectableListPresenter new
-	items: Smalltalk globals allClasses;
+	items: Collection withAllSubclasses;
 	layout: SpFilteringListPresenter topLayout;
 	applyFilter: 'ZZ';
 	asWindow)
@@ -323,7 +323,7 @@ SpTablePresenter new
 	addColumn: ((SpStringTableColumn
 			title: 'Methods'
 			evaluated: [ :c | c methodDictionary size ]) sortFunction: methodCountSorter);
-	items: Smalltalk globals allClasses;
+	items: Collection withAllSubclasses;
 	open
 ```