--- a/Class.st Wed Jan 27 17:50:04 2016 +0100
+++ b/Class.st Wed Jan 27 19:16:51 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -145,7 +147,6 @@
"
! !
-
!Class class methodsFor:'accessing-flags'!
tryLocalSourceFirst
@@ -495,6 +496,7 @@
"Modified: 23.4.1996 / 15:56:58 / cg"
! !
+
!Class methodsFor:'Compatibility-Dolphin'!
defaultCategoryForDolphinClasses
@@ -1977,7 +1979,6 @@
"Created: / 18-07-2011 / 09:14:38 / cg"
! !
-
!Class methodsFor:'adding & removing'!
removeFromSystem
@@ -5099,14 +5100,14 @@
"return my revision string; that one is extracted from the
classes #version method. Either this is a method returning that string,
or it's a comment-only method and the comment defines the version.
- If the receiver is unloaded, or the source is not accessable,
+ If the receiver is unloaded, or the source is not accessible,
or no such method exists, then nil is returned."
^ self revisionStringOfManager:nil
"
Smalltalk allClassesDo:[:cls |
- Transcript show:cls name; show:' -> '; showCR:cls revisionString
+ Transcript show:cls name; show:' -> '; showCR:cls revisionString
].
Number revisionString