Merge pull request #1639 from hernanmd/add-p13-helpers

Add helper method to setup the filtering list header title
pharo-spec · Nov 12, 2024 · f3e248d · f3e248d
2 parents 5d75805 + 74567f6
commit f3e248d
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 5 deletions.
diff --git a/src/Spec2-CommonWidgets/SpFilteringListPresenter.class.st b/src/Spec2-CommonWidgets/SpFilteringListPresenter.class.st
@@ -141,6 +141,13 @@ SpFilteringListPresenter >> filterText [
 	^  self filterInputPresenter text
 ]
 
+{ #category : 'api' }
+SpFilteringListPresenter >> headerTitle: aString [
+	"Set the receiver's header title to aString"
+
+	listPresenter headerTitle: aString
+]
+
 { #category : 'initialization' }
 SpFilteringListPresenter >> initializePresenters [
 

diff --git a/src/Spec2-Examples/SpFilteringListPresenter.extension.st b/src/Spec2-Examples/SpFilteringListPresenter.extension.st
@@ -6,11 +6,11 @@ SpFilteringListPresenter class >> example [
 	<sampleInstance>
 	| example |
 	example := self new.
-	example items: RBBrowserEnvironment default classes asArray.
-	example open.
-	example withWindowDo: [ :window | 
-		window title: self name asString , ' example' ].
-
+	example 
+		items: RBBrowserEnvironment default classes asArray;
+		headerTitle: 'Classes';
+		open;
+		withWindowDo: [ :window | window title: self name asString , ' example' ].
 	^ example
 ]