#REFACTORING by cg
class: ChangesBrowser
changed:
#appendChange:toFile:
#doCheckinAndDeleteClassAll
--- 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