--- a/Workspace.st Wed May 16 09:01:02 2018 +0200
+++ b/Workspace.st Fri May 18 04:28:00 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -1729,7 +1727,7 @@
"/ check for expr >> selector...
"/ i.e. given a whoString
- idx := codeToEvaluate indexOf:'»'.
+ idx := codeToEvaluate indexOf:'»'.
idx ~~ 0 ifTrue:[
possibleSelectorString := codeToEvaluate copyFrom:idx+1.
codeToEvaluate := codeToEvaluate copyTo:idx-1.
@@ -1798,7 +1796,7 @@
doItAction isNil ifTrue:[
getClassToBrowseWithoutDoIt value
] ifFalse:[
- (Parser parseErrorSignal , MessageNotUnderstood)
+ (ParseError , MessageNotUnderstood)
handle:getClassToBrowseWithoutDoIt
do:[
gotResult := false.