#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 24 May 2018 14:57:18 +0200
changeset 18152 10a1fcf3d9ec
parent 18151 52aaa15b36fa
child 18153 de80965bf770
#REFACTORING by cg class: ChangesBrowser changed: #appendChange:toFile: #doCheckinAndDeleteClassAll
ChangesBrowser.st
--- a/ChangesBrowser.st	Thu May 24 14:53:14 2018 +0200
+++ b/ChangesBrowser.st	Thu May 24 14:57:18 2018 +0200
@@ -2083,7 +2083,7 @@
             className notNil ifTrue:[
                 class := Smalltalk classNamed:className.
                 class isNil ifTrue:[
-                    self error:'oops - no class: ', className mayProceed:true.
+                    self proceedableError:'oops - no class: ', className.
                 ].
                 class notNil ifTrue:[
                     class := class theNonMetaclass.
@@ -2126,8 +2126,9 @@
         self updateChangeList.
     ]
 
-    "Modified: / 6.9.1995 / 17:11:16 / claus"
-    "Modified: / 17.11.2001 / 14:21:13 / cg"
+    "Modified: / 06-09-1995 / 17:11:16 / claus"
+    "Modified: / 17-11-2001 / 14:21:13 / cg"
+    "Modified: / 24-05-2018 / 14:55:14 / Claus Gittinger"
 !
 
 doCleanup
@@ -4806,7 +4807,7 @@
         chunk := changeInStream nextChunk.
     ].
     chunk withoutSeparators isEmpty ifTrue:[
-        self error:'Empty chunk - should not happen' mayProceed:true.
+        self proceedableError:'Empty chunk - should not happen'.
         ^ false.
     ].
 
@@ -4852,6 +4853,7 @@
     ^ true
 
     "Modified: / 01-05-2016 / 18:25:00 / cg"
+    "Modified: / 24-05-2018 / 14:54:56 / Claus Gittinger"
 !
 
 applyChange:changeNr