--- a/Tools__NewSystemBrowser.st	Tue Feb 25 17:22:26 2020 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Feb 25 17:28:24 2020 +0100
@@ -25,8 +25,9 @@
 		isEmbedded hasNonEmptyEnvironmentSelectedHolder
 		smalllintRulesOrAllHolder smalllintRulesOrDefaultHolder
 		explainProcess'
-	classVariableNames:'AutoCreateDocumentationMethod CachedMethodsImplemented
-		CachedTagToRevisionMapping DefaultAutoFormat
+	classVariableNames:'AlwaysDoThisIfMethodNotInList AutoCreateDocumentationMethod
+		CachedMethodsImplemented CachedTagToRevisionMapping
+		ClassSearchPatternHistory DefaultAutoFormat
 		DefaultCodeInfoVisible DefaultEmphasizeUnloadedClasses
 		DefaultHideUnloadedClasses DefaultImmediateExplaining
 		DefaultImmediateSyntaxColoring DefaultMarkApplications
@@ -43,24 +44,22 @@
 		LastCategoryRenameOld LastCategoryRenames LastClassDocDirectory
 		LastClassFilterBlockString LastClassProcessingBlockString
 		LastClassSearchBoxShowedFullName LastClassSearchBoxShowedJavaOnly
-		LastComparedClassName LastCypressDirectory LastImportedPackage
-		LastIndividualChecks LastLintRulesHolder LastLintedPackage
-		LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
-		LastLiteralReplacementType LastLoadedPackages
-		LastMethodFilterBlockString LastMethodMoveOrCopyTargetClass
-		LastMethodProcessingBlockString LastNameSpaceMove
-		LastNewProjectType LastNewProtocols LastProjectMoves
-		LastProtocolRenames LastRemoteRepository LastRenamedNew
-		LastRenamedOld LastSearchedImplementors LastSearchedSenders
-		LastShowNameFilter LastShowSelectorNameFilter LastTag
-		LastTemporaryVariableName LastVariableRenames
-		LastVisitorClassName NewNavigationHistory RecentlyClosedList
-		SharedMethodCategoryCache
+		LastClassSearchPattern LastComparedClassName LastCypressDirectory
+		LastImportedPackage LastIndividualChecks LastLintRulesHolder
+		LastLintedPackage LastLiteralReplacementNewName
+		LastLiteralReplacementOldLiteral LastLiteralReplacementType
+		LastLoadedPackages LastMethodFilterBlockString
+		LastMethodMoveOrCopyTargetClass LastMethodProcessingBlockString
+		LastNameSpaceMove LastNewProjectType LastNewProtocols
+		LastProjectMoves LastProtocolRenames LastRemoteRepository
+		LastRenamedNew LastRenamedOld LastSearchedImplementors
+		LastSearchedSenders LastShowNameFilter LastShowSelectorNameFilter
+		LastTag LastTemporaryVariableName LastVariableRenames
+		LastVisitorClassName NewNavigationHistory NewestRevisionPerClass
+		RecentlyClosedList SharedMethodCategoryCache
+		ShowAboutToRewriteConfirmer
 		ShowMethodTemplateWhenProtocolIsSelected
-		SkipCompilabilityChecksForFastCheckin SynchronousUpdate
-		ShowAboutToRewriteConfirmer AlwaysDoThisIfMethodNotInList
-		LastClassSearchPattern NewestRevisionPerClass
-		ClassSearchPatternHistory'
+		SkipCompilabilityChecksForFastCheckin SynchronousUpdate'
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
 !
@@ -26210,6 +26209,9 @@
 
     |codeView evView key rawKey sensor searchField eventInSearchField|
 
+    anEvent isUserEvent ifFalse:[^ false].
+    "/ anEvent isKeyPressEvent ifTrue:[^ self halt].
+
     codeView := self codeView.
     (codeView isCodeView2) ifTrue:[
         codeView := codeView textView.
@@ -62849,6 +62851,17 @@
     ].
 !
 
+commonPostOpen
+    self windowGroup addPreEventHook:self.
+    "/ self window sensor addEventListener:self.
+
+    "/ whenever some action takes longer, automatically show a busy cursor.
+    "/ now done for all windowGroups by the group itself
+    "/ self windowGroup showWaitCursorWhenBusyForMillis:100.
+
+    super commonPostOpen.
+!
+
 hideToolBarButtonCreated:aButton
     aButton passiveLevel:(MenuPanel defaultLevel).
 "/    aButton passiveLevel:1.
@@ -63059,17 +63072,6 @@
     "Modified: / 18-05-2011 / 17:30:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-postOpenWith:aBuilder
-    self windowGroup addPreEventHook:self.
-    "/ self window sensor addEventListener:self.
-
-    "/ whenever some action takes longer, automatically show a busy cursor.
-    "/ now done for all windowGroups by the group itself
-    "/ self windowGroup showWaitCursorWhenBusyForMillis:100.
-
-    super postOpenWith:aBuilder.
-!
-
 searchFieldCreated:anInputField
     anInputField font:(Label "ListView" defaultFont).
     anInputField emptyFieldReplacementText: