# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1526610224 -7200
# Node ID a60d3e91748194b585fa3be9880f4b7c34ce0c25
# Parent  0f8c19508a5ee9f87088c326c0fc2111d5bd92c1
#REFACTORING by cg
class: ChangesBrowser
changed: #compressForClass:selector:

diff -r 0f8c19508a5e -r a60d3e917481 ChangesBrowser.st
--- a/ChangesBrowser.st	Thu May 17 21:58:26 2018 +0200
+++ b/ChangesBrowser.st	Fri May 18 04:23:44 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -3748,7 +3746,7 @@
     "/ does not care for VW qualified names
     "/ ^ Parser parseExpression:text inNameSpace:nameSpace.
 
-    (text includesString:'§') ifTrue:[
+    (text includesString:'§') ifTrue:[
         self halt:'should no longer happen'
     ].
 
@@ -5577,7 +5575,7 @@
                                     classes at:changeNr put:thisClass.
                                     types at:changeNr put:#methodsFor
                                 ]
-                            ] on:Parser parseErrorSignal do:[:ex|
+                            ] on:ParseError do:[:ex|
                                 "ignore chunk"        
                                 ex return.
                             ].
@@ -5595,7 +5593,7 @@
                                 selectors at:changeNr put:(aParseTree arg1 value).
                                 classes at:changeNr put:thisClass.
                                 types at:changeNr put:#removeSelector
-                            ] on:Parser parseErrorSignal do:[:ex|
+                            ] on:ParseError do:[:ex|
                                 "ignore chunk"        
                                 ex return.
                             ].
@@ -6869,7 +6867,7 @@
     "
     clsName := nil.
 
-    (chunkText includesString:'§') ifTrue:[
+    (chunkText includesString:'§') ifTrue:[
         self halt:'should no longer happen'
     ].