--- a/Class.st Thu May 14 11:39:44 2009 +0200
+++ b/Class.st Thu May 14 12:01:39 2009 +0200
@@ -2424,24 +2424,14 @@
|encoder any16Bit|
- any16Bit :=
- self methodDictionary
- contains:[:m |
- |src|
-
- src := m source ? ''.
- (src contains:[:ch | ch codePoint > 16rFF])
- ].
- any16Bit ifFalse:[
- any16Bit :=
- self class methodDictionary
- contains:[:m |
- |src|
-
- src := m source ? ''.
- (src contains:[:ch | ch codePoint > 16rFF])
- ].
- ].
+ any16Bit := self instAndClassMethods
+ contains:[:m |
+ |src|
+
+ src := m source ? ''.
+ (src contains:[:ch | ch codePoint > 16rFF])
+ ].
+
any16Bit ifTrue:[
encoder := CharacterEncoder encoderForUTF8.
].
@@ -4896,5 +4886,5 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.539 2009-02-13 14:14:45 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.540 2009-05-14 10:01:39 cg Exp $'
! !