Merge pull request pharo-spec#720 from tesonep/fix-issue-pharo-14700

Showing CMD character in OSX in Spotter
demarey · Mar 18, 2024 · 9571836 · 9571836
2 parents 937a4e9 + 168b353
commit 9571836
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/src/NewTools-Core/StPharoApplication.class.st b/src/NewTools-Core/StPharoApplication.class.st
@@ -77,6 +77,16 @@ StPharoApplication >> newIconProvider [
 	^ StPharoDefaultIconProvider new
 ]
 
+{ #category : 'private - running' }
+StPharoApplication >> resetBackend [
+	| backendName |
+
+	backendName := backend 
+		ifNil: [ self class defaultBackendName ] 
+		ifNotNil: [ backend name ].
+	self useBackend: backendName.
+]
+
 { #category : 'initialization' }
 StPharoApplication >> resetConfiguration [
 
@@ -104,7 +114,8 @@ StPharoApplication >> start [
 { #category : 'system startup' }
 StPharoApplication >> startUp: resuming [
 
-	self resetConfiguration
+	self resetConfiguration.
+	self resetBackend.
 ]
 
 { #category : 'settings' }

diff --git a/src/NewTools-Spotter/StSpotterHeaderPresenter.class.st b/src/NewTools-Spotter/StSpotterHeaderPresenter.class.st
@@ -102,6 +102,7 @@ StSpotterHeaderPresenter >> initializePresenters [
 	self addStyle: 'stSpotterHeader'.
 	amountLabelPresenter addStyle: 'dim'.
 	helpLabelPresenter addStyle: 'dim'.
+	helpLabelPresenter addStyle: 'shortcut'.
 	diveButtonPresenter image: (self application iconNamed: #smallForward).
 	diveButtonPresenter eventHandler
 		whenMouseDownDo: [ :event |