Merge 780aead

pharo-spec · Apr 20, 2021 · 4ed4e66 · 4ed4e66
2 parents ded86e2 + 780aead
commit 4ed4e66
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/src/NewTools-Spotter/StSpotterHeaderPresenter.class.st b/src/NewTools-Spotter/StSpotterHeaderPresenter.class.st
@@ -15,7 +15,6 @@ Class {
 		'diveInAction',
 		'finalAmount',
 		'amountLabelPresenter',
-		'entryClass',
 		'helpLabelPresenter',
 		'order',
 		'diveOutAction',
@@ -140,23 +139,23 @@ StSpotterHeaderPresenter >> order [
 StSpotterHeaderPresenter >> prepareAsClasses [
 
 	labelPresenter label: '#Classes'.
-	helpLabelPresenter label: (KMShortcutPrinter toString: self model keyBindingForClasses).
+	helpLabelPresenter label: (self model keyBindingForClasses acceptVisitor: OSPlatform current shortcutPrinter).
 ]
 
 { #category : #accessing }
 StSpotterHeaderPresenter >> prepareAsImplementors [
 
 	order := self model order + 1.
 	labelPresenter label: '#Implementors'.
-	helpLabelPresenter label: (KMShortcutPrinter toString: self model keyBindingForImplementors).
+	helpLabelPresenter label: (self model keyBindingForImplementors acceptVisitor: OSPlatform current shortcutPrinter).
 ]
 
 { #category : #accessing }
 StSpotterHeaderPresenter >> prepareAsPackages [
 
 	order := self model order + 2.
 	labelPresenter label: '#Packages'.
-	helpLabelPresenter label: (KMShortcutPrinter toString: self model keyBindingForPackages).
+	helpLabelPresenter label: (self model keyBindingForPackages acceptVisitor: OSPlatform current shortcutPrinter).
 ]
 
 { #category : #'accessing model' }

diff --git a/src/NewTools-Spotter/StSpotterModel.class.st b/src/NewTools-Spotter/StSpotterModel.class.st
@@ -3,7 +3,6 @@ Class {
 	#superclass : #Object,
 	#instVars : [
 		'steps',
-		'candidateAddedAction',
 		'searchUpdatedAction',
 		'amountChangedAction',
 		'mutex',