--- a/BrowserView.st Mon Dec 30 19:07:17 2019 +0100
+++ b/BrowserView.st Mon Dec 30 19:48:04 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -12496,7 +12494,7 @@
extractClassAndSelectorFromSelectionInto:aBlock
"given a string which can be either
- 'class>>sel', 'class » sel' or 'class sel',
+ 'class>>sel', 'class » sel' or 'class sel',
extract className and selector,
and call aBlock with the result."
@@ -12777,10 +12775,10 @@
"tell the codeView what to do on accept and explain"
((self isReadOnlyEnvironment)
- or:[ (currentClass isRealNameSpace)
- or:[ currentClass isNil
- or:[ currentClass isLoaded not ]]])
- ifTrue:[
+ or:[ currentClass isNil
+ or:[ currentClass isRealNameSpace
+ or:[ currentClass isLoaded not ]]]
+ ) ifTrue:[
self clearAcceptAction.
^ self
].