#REFACTORING by cg
class: Tools::NewSystemBrowser
changed:
#acceptMethod:inClass:language:check:
#startSyntaxHighlightProcess
--- a/Tools__NewSystemBrowser.st Fri May 18 04:23:44 2018 +0200
+++ b/Tools__NewSystemBrowser.st Fri May 18 04:26:05 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2000 by eXept Software AG
All Rights Reserved
@@ -48436,7 +48434,7 @@
self activityNotification:nil.
browser := (UserPreferences current changeSetBrowserClass) openOn:previousMethods.
- browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
+ browser window label:(resources string:'Revisions of %1 » %2' with:mclass name with:mselector).
browser readOnly:true.
].
@@ -53052,7 +53050,7 @@
label:[:chg |
|lbl|
"/ lbl := chg printString
- lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold.
+ lbl := (chg className ? '???') , ' » ' , (chg selector ? '???') allBold.
(chg isMethodChange and:[chg changeMethod isNil]) ifTrue:[
lbl := lbl asText allStrikedOut,' ','(removed)' allItalic.
].
@@ -60582,6 +60580,7 @@
^ selectorCompletion
! !
+
!NewSystemBrowser methodsFor:'private-semantic checks'!
checkAcceptedMethod:aMethod inClass:aClass
@@ -60952,7 +60951,7 @@
codeView modified ifFalse:[
Screen currentScreenQuerySignal answer:device
do:[
- Parser parseErrorSignal handle:[:ex |
+ ParseError handle:[:ex |
|errMsg|
errMsg := ex description asStringCollection first asString.
@@ -62771,7 +62770,7 @@
(existingMethod notNil and:[oldSelector ~= newSelector]) ifTrue:[
"/ seems to be the same selector; however, we must really compile to see if it is not going
"/ to end up in another namespace. In that case, we give a different warning message.
- Parser parseErrorSignal catch:[
+ ParseError catch:[
"/ BreakpointQuery answer: breakpoints do:[
rslt := language compilerClass
compile:code
@@ -62929,7 +62928,7 @@
change := InteractiveAddMethodChange compile:code in:cls classified:cat.
change controller:codeView.
"/ change named:('Accept method ' , newSelector ? '???').
- Parser parseErrorSignal handle:[:ex |
+ ParseError handle:[:ex |
rslt := nil.
"/ mh - there was no error reporting then; do it again to get the err
"/ highlighted. What a kludge