--- a/AbortAllOperationRequest.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AbortAllOperationRequest.st	Thu Jul 07 23:08:07 2011 +0100
@@ -85,17 +85,11 @@
 !AbortAllOperationRequest class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AbortAllOperationRequest.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: AbortAllOperationRequest.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: AbortAllOperationRequest.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.8 2011/02/09 12:59:00 cg Exp '
+    ^ '§Header: /cvs/stx/stx/libbasic/AbortAllOperationRequest.st,v 1.8 2011/02/09 12:59:00 cg Exp §'
 ! !
 
-AbortAllOperationRequest initialize!
-
-
+AbortAllOperationRequest initialize!
\ No newline at end of file

--- a/AbortAllOperationWantedQuery.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AbortAllOperationWantedQuery.st	Thu Jul 07 23:08:07 2011 +0100
@@ -68,5 +68,4 @@
 
 version_CVS
     ^ '§Header: /cvs/stx/stx/libbasic/AbortAllOperationWantedQuery.st,v 1.2 2011/02/09 10:44:37 cg Exp §'
-! !
-
+! !
\ No newline at end of file

--- a/AbortOperationRequest.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AbortOperationRequest.st	Thu Jul 07 23:08:07 2011 +0100
@@ -63,11 +63,11 @@
 !AbortOperationRequest class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AbortOperationRequest.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: AbortOperationRequest.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: AbortOperationRequest.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: AbortOperationRequest.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 ! !
 
-AbortOperationRequest initialize!
+AbortOperationRequest initialize!
\ No newline at end of file

--- a/AbstractOperatingSystem.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AbstractOperatingSystem.st	Thu Jul 07 23:08:07 2011 +0100
@@ -7034,24 +7034,11 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AbstractOperatingSystem.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: AbstractOperatingSystem.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.213 2011/04/21 11:13:33 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: AbstractOperatingSystem.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '§Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.213 2011/04/21 11:13:33 cg Exp §'
 ! !
 
-AbstractOperatingSystem initialize!
-
-
-
-
-
-
-
-
-
+AbstractOperatingSystem initialize!
\ No newline at end of file

--- a/AbstractSourceFileReader.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AbstractSourceFileReader.st	Thu Jul 07 23:08:07 2011 +0100
@@ -1,14 +1,3 @@
-"
- COPYRIGHT (c) 2006 by eXept Software AG
-              All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice.   This software may not
- be provided or otherwise made available to, or used by, any
- other person.  No title to or ownership of the software is
- hereby transferred.
-"
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#AbstractSourceFileReader
@@ -18,21 +7,6 @@
 	category:'Kernel-Classes'
 !
 
-!AbstractSourceFileReader class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 2006 by eXept Software AG
-              All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice.   This software may not
- be provided or otherwise made available to, or used by, any
- other person.  No title to or ownership of the software is
- hereby transferred.
-"
-! !
 
 !AbstractSourceFileReader class methodsFor:'fileIn'!
 
@@ -73,7 +47,7 @@
 !AbstractSourceFileReader class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AbstractSourceFileReader.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: AbstractSourceFileReader.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
@@ -81,13 +55,5 @@
 !
 
 version_SVN
-    ^ '$Id: AbstractSourceFileReader.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
-
+    ^'$Id: AbstractSourceFileReader.st 10465 2009-08-16 17:14:23Z vranyj1$'
+! !
\ No newline at end of file

--- a/AbstractSourceFileWriter.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AbstractSourceFileWriter.st	Thu Jul 07 23:08:07 2011 +0100
@@ -187,21 +187,10 @@
 
 !AbstractSourceFileWriter class methodsFor:'documentation'!
 
-version
-    ^ '$Id: AbstractSourceFileWriter.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-!
-
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/AbstractSourceFileWriter.st,v 1.6 2009/10/08 12:03:57 fm Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/AbstractSourceFileWriter.st,v 1.7 2011/06/28 11:41:46 vrany Exp §'
 !
 
 version_SVN
-    ^ '$Id: AbstractSourceFileWriter.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
+    ^ '$Id: AbstractSourceFileWriter.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/AbstractTime.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AbstractTime.st	Thu Jul 07 23:08:07 2011 +0100
@@ -440,6 +440,7 @@
     "
 ! !
 
+
 !AbstractTime methodsFor:'abstract'!
 
 hours
@@ -1180,22 +1181,9 @@
 !AbstractTime class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AbstractTime.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: AbstractTime.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.73 2011/01/24 19:55:34 stefan Exp '
-!
-
-version_SVN
-    ^ '$Id: AbstractTime.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
-
-
+    ^ '§Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.73 2011/01/24 19:55:34 stefan Exp §'
+! !
\ No newline at end of file

--- a/ActivityNotification.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/ActivityNotification.st	Thu Jul 07 23:08:07 2011 +0100
@@ -74,11 +74,11 @@
 !ActivityNotification class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ActivityNotification.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: ActivityNotification.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: ActivityNotification.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: ActivityNotification.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 ! !
 
-ActivityNotification initialize!
+ActivityNotification initialize!
\ No newline at end of file

--- a/AllocationFailure.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AllocationFailure.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 ProceedableError subclass:#AllocationFailure
@@ -37,9 +38,5 @@
 !AllocationFailure class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AllocationFailure.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: AllocationFailure.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: AllocationFailure.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/ApplicationDefinition.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/ApplicationDefinition.st	Thu Jul 07 23:08:07 2011 +0100
@@ -2516,7 +2516,7 @@
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
 SectionEnd
 
-LangString appOpen ${LANG_GERMAN}  "Mit %(PRODUCT_NAME) ffnen"
+LangString appOpen ${LANG_GERMAN}  "Mit %(PRODUCT_NAME) öffnen"
 LangString appOpen ${LANG_ENGLISH} "Open with %(PRODUCT_NAME)"
 
 LangString DESC_Section1 ${LANG_ENGLISH} "Program components of %(PRODUCT_NAME)"
@@ -2550,7 +2550,7 @@
 
 Function un.onInit
 !!insertmacro MUI_UNGETLANGUAGE
-  MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "Mchten Sie %(PRODUCT_NAME) und alle seine Komponenten deinstallieren?" IDYES +2
+  MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "Möchten Sie %(PRODUCT_NAME) und alle seine Komponenten deinstallieren?" IDYES +2
   Abort
 FunctionEnd
 
@@ -2779,14 +2779,10 @@
 
 !ApplicationDefinition class methodsFor:'documentation'!
 
-version
-    ^ '$Id: ApplicationDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 $'
-!
-
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.174 2011/04/21 10:43:19 cg Exp '
+    ^ '§Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.175 2011/06/28 13:07:41 vrany Exp §'
 !
 
 version_SVN
-    ^ '$Id: ApplicationDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 $'
-! !
+    ^ '$Id: ApplicationDefinition.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/ArgumentError.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/ArgumentError.st	Thu Jul 07 23:08:07 2011 +0100
@@ -43,11 +43,11 @@
 !ArgumentError class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ArgumentError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: ArgumentError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: ArgumentError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: ArgumentError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 ! !
 
-ArgumentError initialize!
+ArgumentError initialize!
\ No newline at end of file

--- a/ArithmeticError.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/ArithmeticError.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 ProceedableError subclass:#ArithmeticError
@@ -37,9 +38,5 @@
 !ArithmeticError class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ArithmeticError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: ArithmeticError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: ArithmeticError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/ArithmeticValue.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/ArithmeticValue.st	Thu Jul 07 23:08:07 2011 +0100
@@ -1333,24 +1333,11 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ArithmeticValue.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: ArithmeticValue.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.87 2010/08/09 17:52:46 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: ArithmeticValue.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '§Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.87 2010/08/09 17:52:46 cg Exp §'
 ! !
 
-ArithmeticValue initialize!
-
-
-
-
-
-
-
-
-
+ArithmeticValue initialize!
\ No newline at end of file

--- a/Array.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/Array.st	Thu Jul 07 23:08:07 2011 +0100
@@ -2527,20 +2527,9 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Array.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: Array.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Array.st,v 1.149 2010/09/21 06:57:51 stefan Exp '
-!
-
-version_SVN
-    ^ '$Id: Array.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
+    ^ '§Header: /cvs/stx/stx/libbasic/Array.st,v 1.149 2010/09/21 06:57:51 stefan Exp §'
+! !
\ No newline at end of file

--- a/ArrayedCollection.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/ArrayedCollection.st	Thu Jul 07 23:08:07 2011 +0100
@@ -483,9 +483,5 @@
 !ArrayedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ArrayedCollection.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: ArrayedCollection.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: ArrayedCollection.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/AspectVisitor.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AspectVisitor.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 Visitor subclass:#AspectVisitor
@@ -130,9 +131,5 @@
 !AspectVisitor class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AspectVisitor.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: AspectVisitor.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: AspectVisitor.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/AssertionFailedError.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AssertionFailedError.st	Thu Jul 07 23:08:07 2011 +0100
@@ -43,9 +43,5 @@
 !AssertionFailedError class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AssertionFailedError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: AssertionFailedError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: AssertionFailedError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/Association.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/Association.st	Thu Jul 07 23:08:07 2011 +0100
@@ -173,20 +173,9 @@
 !Association class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Association.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: Association.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Association.st,v 1.23 2009/10/06 15:16:10 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: Association.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
+    ^ '§Header: /cvs/stx/stx/libbasic/Association.st,v 1.23 2009/10/06 15:16:10 cg Exp §'
+! !
\ No newline at end of file

--- a/AutoDeletedFilename.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AutoDeletedFilename.st	Thu Jul 07 23:08:07 2011 +0100
@@ -143,9 +143,5 @@
 !AutoDeletedFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AutoDeletedFilename.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: AutoDeletedFilename.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: AutoDeletedFilename.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/Autoload.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/Autoload.st	Thu Jul 07 23:08:07 2011 +0100
@@ -796,22 +796,11 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Autoload.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: Autoload.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.158 2011/02/08 19:03:57 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: Autoload.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '§Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.158 2011/02/08 19:03:57 cg Exp §'
 ! !
 
-Autoload initialize!
-
-
-
-
-
-
-
+Autoload initialize!
\ No newline at end of file

--- a/AutoloadMetaclass.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/AutoloadMetaclass.st	Thu Jul 07 23:08:07 2011 +0100
@@ -101,20 +101,9 @@
 !AutoloadMetaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AutoloadMetaclass.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: AutoloadMetaclass.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/AutoloadMetaclass.st,v 1.8 2010/04/03 10:47:04 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: AutoloadMetaclass.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
+    ^ '§Header: /cvs/stx/stx/libbasic/AutoloadMetaclass.st,v 1.8 2010/04/03 10:47:04 cg Exp §'
+! !
\ No newline at end of file

--- a/BadLiteralsError.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/BadLiteralsError.st	Thu Jul 07 23:08:07 2011 +0100
@@ -49,11 +49,11 @@
 !BadLiteralsError class methodsFor:'documentation'!
 
 version
-    ^ '$Id: BadLiteralsError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: BadLiteralsError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: BadLiteralsError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
+    ^ '$Id: BadLiteralsError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 ! !
 
-BadLiteralsError initialize!
+BadLiteralsError initialize!
\ No newline at end of file

--- a/BadRomanNumberFormatError.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/BadRomanNumberFormatError.st	Thu Jul 07 23:08:07 2011 +0100
@@ -43,5 +43,5 @@
 !BadRomanNumberFormatError class methodsFor:'documentation'!
 
 version
-    ^ '$Id: BadRomanNumberFormatError.st 10447 2009-06-14 13:09:55Z vranyj1 $'
-! !
+    ^ '$Id: BadRomanNumberFormatError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/Bag.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/Bag.st	Thu Jul 07 23:08:07 2011 +0100
@@ -416,20 +416,9 @@
 !Bag class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Bag.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: Bag.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Bag.st,v 1.41 2010/03/30 13:38:23 stefan Exp '
-!
-
-version_SVN
-    ^ '$Id: Bag.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
+    ^ '§Header: /cvs/stx/stx/libbasic/Bag.st,v 1.41 2010/03/30 13:38:23 stefan Exp §'
+! !
\ No newline at end of file

--- a/Behavior.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/Behavior.st	Thu Jul 07 23:08:07 2011 +0100
@@ -95,14 +95,14 @@
     Expert info follows:
     --------------------
     NOTICE:
-        the stuff described below may not be available on other
-        Smalltalk implementations; be aware that these error mechanisms
-        are ST/X specials and applications using these (tricks) may
-        not be portable to other systems.
+	the stuff described below may not be available on other
+	Smalltalk implementations; be aware that these error mechanisms
+	are ST/X specials and applications using these (tricks) may
+	not be portable to other systems.
 
     WARNING:
-        do not try the examples below on (some) other smalltalk systems;
-        it has been reported, that some crash badly when doing this .... ;-)
+	do not try the examples below on (some) other smalltalk systems;
+	it has been reported, that some crash badly when doing this .... ;-)
 
     Instances of Behavior and subclasses (i.e. in sloppy words: classes)
     play a special role w.r.t. the VM. Only objects whose class-slot is marked
@@ -132,9 +132,9 @@
     object, the VM EXPECTS the object selector and methodDictionaries to be found
     at the instance positions as defined here.
     (i.e. instanceVariables with contents and semantic corresponding to
-        superclass
-        flags
-        methodDictionary
+	superclass
+	flags
+	methodDictionary
      must be present and have the same instVar-index as here).
 
     The VM (and the system) may crash badly, if this is not the case.
@@ -168,111 +168,111 @@
 
     Examples (only of theoretical interest):
     ----------------------------------------
-        take away the behaviorLike-flag from a class.
-        -> The instances will not understand any messages, since the VM will
-           not recognize its class as being a class ...
-
-        |newMeta notRecognizedAsClass someInstance|
-
-        newMeta := Metaclass new.
-        newMeta flags:0.
-
-        notRecognizedAsClass := newMeta new.
-
-        someInstance := notRecognizedAsClass new.
-        someInstance perform:#isNil
+	take away the behaviorLike-flag from a class.
+	-> The instances will not understand any messages, since the VM will
+	   not recognize its class as being a class ...
+
+	|newMeta notRecognizedAsClass someInstance|
+
+	newMeta := Metaclass new.
+	newMeta flags:0.
+
+	notRecognizedAsClass := newMeta new.
+
+	someInstance := notRecognizedAsClass new.
+	someInstance perform:#isNil
 
 
     Of course, this is an exception which can be handled ...:
     Example:
 
-        |newMeta notRecognizedAsClass someInstance|
-
-        newMeta := Metaclass new.
-        newMeta flags:0.
-
-        notRecognizedAsClass := newMeta new.
-
-        someInstance := notRecognizedAsClass new.
-        Object errorSignal handle:[:ex |
-            ex return
-        ] do:[
-            someInstance perform:#isNil
-        ]
+	|newMeta notRecognizedAsClass someInstance|
+
+	newMeta := Metaclass new.
+	newMeta flags:0.
+
+	notRecognizedAsClass := newMeta new.
+
+	someInstance := notRecognizedAsClass new.
+	Object errorSignal handle:[:ex |
+	    ex return
+	] do:[
+	    someInstance perform:#isNil
+	]
 
 
     likewise, a doesNotUnderstand-notUnderstood can be handled:
     Example:
 
-        |newMeta funnyClass someInstance|
-
-        newMeta := Metaclass new.
-
-        funnyClass := newMeta new.
-        funnyClass setSuperclass:nil.
-
-        someInstance := funnyClass new.
-        Object errorSignal handle:[:ex |
-             ex return
-        ] do:[
-            someInstance perform:#isNil
-        ]
+	|newMeta funnyClass someInstance|
+
+	newMeta := Metaclass new.
+
+	funnyClass := newMeta new.
+	funnyClass setSuperclass:nil.
+
+	someInstance := funnyClass new.
+	Object errorSignal handle:[:ex |
+	     ex return
+	] do:[
+	    someInstance perform:#isNil
+	]
 
 
     more examples, which try to trick the VM ;-):
-        badly playing around with a classes internals ...
-
-        |newClass someInstance|
-
-        newClass := Class new.
-        newClass setSuperclass:nil.
-        someInstance := newClass new.
-        someInstance inspect
-
-
-        |newClass someInstance|
-
-        newClass := Class new.
-        newClass setSuperclass:newClass.
-        someInstance := newClass new.
-        someInstance inspect
-
-
-        |newClass someInstance|
-
-        newClass := Class new.
-        newClass setSuperclass:1.
-        someInstance := newClass new.
-        someInstance inspect
+	badly playing around with a classes internals ...
+
+	|newClass someInstance|
+
+	newClass := Class new.
+	newClass setSuperclass:nil.
+	someInstance := newClass new.
+	someInstance inspect
+
+
+	|newClass someInstance|
+
+	newClass := Class new.
+	newClass setSuperclass:newClass.
+	someInstance := newClass new.
+	someInstance inspect
+
+
+	|newClass someInstance|
+
+	newClass := Class new.
+	newClass setSuperclass:1.
+	someInstance := newClass new.
+	someInstance inspect
 
 
     Example:
-        creating totally anonymous classes:
-
-        |newClass someInstance|
-
-        newClass := Class new.
-        someInstance := newClass new.
-        someInstance inspect
+	creating totally anonymous classes:
+
+	|newClass someInstance|
+
+	newClass := Class new.
+	someInstance := newClass new.
+	someInstance inspect
 
 
     Example:
-        creating totally anonymous metaclasses:
-
-        |newMeta newClass someInstance|
-
-        newMeta := Metaclass new.
-        newClass := newMeta new.
-        someInstance := newClass new.
-        someInstance inspect
+	creating totally anonymous metaclasses:
+
+	|newMeta newClass someInstance|
+
+	newMeta := Metaclass new.
+	newClass := newMeta new.
+	someInstance := newClass new.
+	someInstance inspect
 
 
     PS: if you experiment with new behaviorLike objects, you may want
-        to turn off the VM's debugPrintouts
-        with:
-                'Smalltalk debugPrinting:false'
-        and:
-                'Smalltalk infoPrinting:false'
+	to turn off the VM's debugPrintouts
+	with:
+		'Smalltalk debugPrinting:false'
+	and:
+		'Smalltalk infoPrinting:false'
 
     Meta-Object-Protocol support:
     -----------------------------
@@ -281,11 +281,11 @@
     instead of the hardwired VM lookup algorithm, and provide a method as return value.
     This method (if non-nil) will be put into the inline-and polymorph caches for speedy
     call the next time. If non-nil, the lookup object is sent the:
-            lookupMethodForSelector:aSelector 
-            directedTo:searchClass 
-            for:aReceiver 
-            withArguments:argArrayOrNil 
-            from:sendingContext
+	    lookupMethodForSelector:aSelector
+	    directedTo:searchClass
+	    for:aReceiver
+	    withArguments:argArrayOrNil
+	    from:sendingContext
     message.
     'searchClass' is the object class or any of its superclasses (for directed/super sends).
     You can return any arbitrary method there - for example to implement multiple inheritance,
@@ -807,7 +807,7 @@
 
     "private classes are not loaded directly, so ignore them"
     remaining := someClasses asIdentitySet reject:[:eachClass| eachClass isPrivate].
-    "JV-2011-05-05: Sort the classes by name to get more stable order. 
+    "JV-2011-05-05: Sort the classes by name to get more stable order.
      This stabilizes order of classes in generated build files and
      makes text-based diffing/merging easier for both human beings
      and version control systems"
@@ -815,55 +815,55 @@
     classesInLoadOrder := OrderedCollection new:(remaining size).
 
     [remaining notEmpty] whileTrue:[
-        |thoseWithOtherSuperclasses thoseWhichCanBeLoadedNow|
-
-        "find the next class(es) to be loaded.
-         Consider first:
-            all those, which do not have a superclass in the remaining set.
-            and which do not use a shared pool defined in the remaining set"
-
-        thoseWithOtherSuperclasses :=
-            remaining
-                reject:[:eachClass |
-                    (remaining includes:eachClass superclass)
-                    or:[eachClass sharedPoolNames contains:[:eachPoolSymbol|
-                            remaining contains:[:eachRemainingClass| eachPoolSymbol = eachRemainingClass name]
-                        ]
-                    ].
-                ].
-
-        "second: the subset with all those having no private classes,
-                 or having private classes, whose superclasses are NOT in the remaining set"
-
-        thoseWhichCanBeLoadedNow :=
-            thoseWithOtherSuperclasses
-                reject:[:eachClass |
-                    eachClass allPrivateClasses contains:[:eachPrivateClass| |superClassesOwner|
-                        superClassesOwner := eachPrivateClass superclass.
-                        "take care of classes inheriting from nil or ProtoObject"
-                        superClassesOwner isBehavior ifTrue:[
-                            superClassesOwner := superClassesOwner owningClassOrYourself.
-                        ].
-                        superClassesOwner ~~ eachClass
-                        and:[remaining includes:superClassesOwner]
-                    ].
-                ].
-
-        thoseWhichCanBeLoadedNow isEmpty ifTrue:[
-            thoseWithOtherSuperclasses isEmpty ifTrue:[
-                "this does not normally happen"
-                self error:'superclass order is cyclic'.
-            ] ifFalse:[
-                "no class found, that may be loaded - maybe there is a cyclic
-                 dependency involving private classes.
-                 If you proceed here, private class dependencies are ignored
-                 for this pass"
-                self error:'load order is cyclic (care for private classes)' mayProceed:true.
-                thoseWhichCanBeLoadedNow := thoseWithOtherSuperclasses.
-            ].
-        ].
-        remaining removeAllFoundIn:thoseWhichCanBeLoadedNow.
-        classesInLoadOrder addAll:(thoseWhichCanBeLoadedNow asArray sort:[:a :b | a name < b name]).
+	|thoseWithOtherSuperclasses thoseWhichCanBeLoadedNow|
+
+	"find the next class(es) to be loaded.
+	 Consider first:
+	    all those, which do not have a superclass in the remaining set.
+	    and which do not use a shared pool defined in the remaining set"
+
+	thoseWithOtherSuperclasses :=
+	    remaining
+		reject:[:eachClass |
+		    (remaining includes:eachClass superclass)
+		    or:[eachClass sharedPoolNames contains:[:eachPoolSymbol|
+			    remaining contains:[:eachRemainingClass| eachPoolSymbol = eachRemainingClass name]
+			]
+		    ].
+		].
+
+	"second: the subset with all those having no private classes,
+		 or having private classes, whose superclasses are NOT in the remaining set"
+
+	thoseWhichCanBeLoadedNow :=
+	    thoseWithOtherSuperclasses
+		reject:[:eachClass |
+		    eachClass allPrivateClasses contains:[:eachPrivateClass| |superClassesOwner|
+			superClassesOwner := eachPrivateClass superclass.
+			"take care of classes inheriting from nil or ProtoObject"
+			superClassesOwner isBehavior ifTrue:[
+			    superClassesOwner := superClassesOwner owningClassOrYourself.
+			].
+			superClassesOwner ~~ eachClass
+			and:[remaining includes:superClassesOwner]
+		    ].
+		].
+
+	thoseWhichCanBeLoadedNow isEmpty ifTrue:[
+	    thoseWithOtherSuperclasses isEmpty ifTrue:[
+		"this does not normally happen"
+		self error:'superclass order is cyclic'.
+	    ] ifFalse:[
+		"no class found, that may be loaded - maybe there is a cyclic
+		 dependency involving private classes.
+		 If you proceed here, private class dependencies are ignored
+		 for this pass"
+		self error:'load order is cyclic (care for private classes)' mayProceed:true.
+		thoseWhichCanBeLoadedNow := thoseWithOtherSuperclasses.
+	    ].
+	].
+	remaining removeAllFoundIn:thoseWhichCanBeLoadedNow.
+	classesInLoadOrder addAll:(thoseWhichCanBeLoadedNow asArray sort:[:a :b | a name < b name]).
     ].
     ^ classesInLoadOrder
 
@@ -1013,8 +1013,6 @@
     "Modified: 23.4.1996 / 15:55:52 / cg"
 ! !
 
-
-
 !Behavior methodsFor:'Compatibility-Dolphin'!
 
 allSubinstances
@@ -1154,25 +1152,26 @@
     |oldMethod ns selector |
 
     (newSelector isMemberOf:Symbol) ifFalse:[
-        self error:'invalid selector'.
+	self error:'invalid selector'.
     ].
-    
+
     ns := newMethod nameSpace.
-    selector := (ns isNil or:[ns == self programmingLanguage])                   
-                    ifTrue:[newSelector]
-					ifFalse:[(':' , ns name , '::' , newSelector) asSymbol].
+    selector := (ns isNil or:[ns == self programmingLanguage])
+		    ifTrue:[newSelector]
+		    ifFalse:[(':' , ns name , '::' , newSelector) asSymbol].
 
 
     oldMethod := self compiledMethodAt:selector.
     oldMethod notNil ifTrue:[
-        newMethod restricted:(oldMethod isRestricted).
-        newMethod setPrivacy:(oldMethod privacy) flushCaches:false.
+	newMethod restricted:(oldMethod isRestricted).
+	newMethod setPrivacy:(oldMethod privacy) flushCaches:false.
     ].
 
     (self primAddSelector:selector withMethod:newMethod) ifFalse:[^ false].
 
-    selector isNameSpaceSelector ifTrue:
-       [self lookupObject: NamespaceAwareLookup].
+    selector isNameSpaceSelector ifTrue:[
+	self lookupObject: NamespaceAwareLookup
+    ].
 
     "
      if I have no subclasses, all we have to flush is cached
@@ -1181,12 +1180,12 @@
     "
 "
     problem: this is slower; since looking for all subclasses is (currently)
-             a bit slow :-(
-             We need the hasSubclasses-info bit in Behavior; now
+	     a bit slow :-(
+	     We need the hasSubclasses-info bit in Behavior; now
 
     self withAllSubclassesDo:[:aClass |
-        ObjectMemory flushInlineCachesFor:aClass withArgs:nargs.
-        ObjectMemory flushMethodCacheFor:aClass
+	ObjectMemory flushInlineCachesFor:aClass withArgs:nargs.
+	ObjectMemory flushMethodCacheFor:aClass
     ].
 "
 
@@ -1235,9 +1234,10 @@
     |dict newDict|
 
     (Smalltalk
-        changeRequest:#methodInClassRemoved
-        with:(Array with:self with:aSelector)) ifFalse:[
-    ^ false
+	changeRequest:#methodInClassRemoved
+	with:(Array with:self with:aSelector)
+    ) ifFalse:[
+	^ false
     ].
 
     dict := self methodDictionary.
@@ -1279,13 +1279,17 @@
      has to provide a method object for message sends."
 
     | behavior lookup |
+
+    Lookup isNil ifTrue:[^ nil].
+
     behavior := self.
-    [ behavior notNil ] whileTrue:
-        [lookup := behavior getLookupObject.
-        lookup ifNotNil: [^lookup].
-        behavior := behavior superclass].
-
-    ^Lookup builtin.
+    [ behavior notNil ] whileTrue:[
+	lookup := behavior getLookupObject.
+	lookup notNil ifTrue: [^ lookup].
+	behavior := behavior superclass
+    ].
+
+    ^ Lookup builtin.
 
     "Modified: / 26-04-2010 / 21:05:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -1294,15 +1298,17 @@
     anObject isNil ifTrue:[^self setLookupObject: anObject].
 
     (anObject respondsTo: #lookupMethodForSelector:directedTo:for:withArguments:from:)
-        ifFalse:
-            [self error:'Lookup object does not respond to #lookupMethodForSelector:directedTo:for:withArguments:from:'].
-    (anObject respondsTo:#superLookupObject:) 
-        ifTrue:
-            [anObject superLookupObject: self lookupObject].
+    ifFalse:[
+	self error:'Lookup object does not respond to #lookupMethodForSelector:directedTo:for:withArguments:from:'
+    ].
+    (anObject respondsTo:#superLookupObject:)
+    ifTrue:[
+	anObject superLookupObject: self lookupObject
+    ].
     self setLookupObject: anObject.
 
     "Created: / 26-04-2010 / 13:35:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 26-04-2010 / 21:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" 
+    "Modified: / 26-04-2010 / 21:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 methodDictionary
@@ -1410,7 +1416,7 @@
 !
 
 dllPath
-    "if a class contains ExternalFunctions, 
+    "if a class contains ExternalFunctions,
      return a collection of pathNames where to find the DLLs
      containing the external functions.
 
@@ -1837,8 +1843,8 @@
 
     cls := self.
     [cls notNil] whileTrue:[
-        (aBlock value: cls) ifTrue: [^ cls].
-        cls := cls superclass.
+	(aBlock value: cls) ifTrue: [^ cls].
+	cls := cls superclass.
     ].
     ^ nil
 
@@ -2971,7 +2977,7 @@
      If non-nil, no lookup is performed by the VM, instead the lookupObject
      has to provide a method object for message sends."
 
-    ^lookupObject
+    ^ lookupObject
 
     "Created: / 26-04-2010 / 13:36:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -3434,14 +3440,14 @@
     OBJ __theClass = __INST(superclass);
 
     while (__theClass != nil) {
-        if (__theClass == aClass) {
-            RETURN(true);
-        }
-        if (__isBehaviorLike(__theClass)) {
-            __theClass = __ClassInstPtr(__theClass)->c_superclass;
-        } else {
-            __theClass = nil;
-        }
+	if (__theClass == aClass) {
+	    RETURN(true);
+	}
+	if (__isBehaviorLike(__theClass)) {
+	    __theClass = __ClassInstPtr(__theClass)->c_superclass;
+	} else {
+	    __theClass = nil;
+	}
     }
     RETURN (false);
 %}.
@@ -3463,10 +3469,10 @@
 "/    ^ false
 
     "
-     String isSubclassOf:Collection 
-     LinkedList isSubclassOf:Array  
+     String isSubclassOf:Collection
+     LinkedList isSubclassOf:Array
      1 isSubclassOf:Number              <- will fail since 1 is no class
-     Number isSubclassOf:1              
+     Number isSubclassOf:1
     "
 !
 
@@ -4089,18 +4095,20 @@
     "return true, if the receiver or one of its superclasses implements aSelector.
      (i.e. true if my instances understand aSelector)"
 
-	"JV @ 2010-08-22: Rewritten to respect lookup object."
-	^ (self lookupObject 
-	    lookupMethodForSelector:aSelector 
-	    directedTo:self 
+    |l|
+
+    "JV @ 2010-08-22: Rewritten to respect lookup object."
+    (l := self lookupObject) notNil ifTrue:[
+	^ (l
+	    lookupMethodForSelector:aSelector
+	    directedTo:self
 	    for: nil "Fake receiver"
-		withArguments: nil "Fake arguments" 
+		withArguments: nil "Fake arguments"
 		from: thisContext sender) notNil
+    ].
 
     "Original implementation"
-	"	
     ^ (self lookupMethodFor:aSelector) notNil
-	"
 
     "
      True canUnderstand:#ifTrue:
@@ -4150,6 +4158,10 @@
 !
 
 compiledMethodNamed: methodName
+    "Warning: this method is here to support multiple languages.
+     Do not use in code that works just with the smalltalk code.
+     Use compiledMethodAt: selector instead"
+
     "Returns a method with given name. This differs from
     #compiledMethodAt:, since class may contain more methods
     with same names and different selectors.
@@ -4164,11 +4176,16 @@
     "
 
     "Created: / 24-08-2009 / 10:00:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-06-2011 / 14:16:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 compiledMethodNamed: name ifAbsent:exceptionValue
+   "Warning: this method is here to support multiple languages.
+     Do not use in code that works just with the smalltalk code.
+     Use compiledMethodAt: selector instead"
+
     "Returns a method with given name of value of exceptionValue
-    if not present. This differs from #compiledMethodAt:, since class 
+    if not present. This differs from #compiledMethodAt:, since class
     may contain more methods with same name and different selectors.
 
     Only methods in the receiver - not in the superclass chain are tested."
@@ -4177,20 +4194,20 @@
 
     dict := self methodDictionary.
     dict isNil ifTrue:[
-        ('Behavior [warning]: nil methodDictionary in ' , self name printString) errorPrintCR.
-        ^ exceptionValue value
+	('Behavior [warning]: nil methodDictionary in ' , self name printString) errorPrintCR.
+	^ exceptionValue value
     ].
-    "Quick check: look into method dictionary"        
+    "Quick check: look into method dictionary"
     mth := dict at: name asSymbol ifAbsent:nil.
     mth ifNotNil:[^mth].
 
     "Slow search..."
     dict do:
-        [:each|
-        (each isSynthetic not and:[each name = name])
-            ifTrue:[^each]].
+	[:each|
+	(each isSynthetic not and:[each name = name])
+	    ifTrue:[^each]].
     ^exceptionValue value
-    
+
 
     "
      Object compiledMethodNamed:#==
@@ -4198,7 +4215,7 @@
     "
 
     "Created: / 24-08-2009 / 10:02:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 24-08-2009 / 21:44:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 28-06-2011 / 14:16:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 containsMethod:aMethod
@@ -4272,14 +4289,14 @@
      This is semantically equivalent to implements: (ST/80/Squeak compatibility).
 
      Hint:
-        Dont use this method to check if someone responds to a message -
-        use #canUnderstand: on the class or #respondsTo: on the instance
-        to do this.
+	Dont use this method to check if someone responds to a message -
+	use #canUnderstand: on the class or #respondsTo: on the instance
+	to do this.
 
      Caveat:
-        This simply checks for the selector being present in the classes
-        selector table - therefore, it does not care for ignoredMethods.
-        (but: you should not use this method for protocol-testing, anyway)."
+	This simply checks for the selector being present in the classes
+	selector table - therefore, it does not care for ignoredMethods.
+	(but: you should not use this method for protocol-testing, anyway)."
 
     ^ self methodDictionary includesIdenticalKey:aSelector
 
@@ -4307,17 +4324,17 @@
      Return the method, or nil if instances do not understand aSelector.
      EXPERIMENTAL: take care of multiple superclasses."
 
-	"JV @ 2010-08-22: Rewritten to respect lookup object."
-	^ (self lookupObject 
-	    lookupMethodForSelector:aSelector 
-	    directedTo:self 
+    |l m cls|
+
+    "JV @ 2010-08-22: Rewritten to respect lookup object."
+    (l := self lookupObject) notNil ifTrue:[
+	^ (l
+	    lookupMethodForSelector:aSelector
+	    directedTo:self
 	    for: nil "Fake receiver"
-		withArguments: nil "Fake arguments" 
+		withArguments: nil "Fake arguments"
 		from: thisContext sender)
-
-    "Original implementation"
-	"
-    |m cls|
+    ].
 
     cls := self.
     [cls notNil] whileTrue:[
@@ -4334,7 +4351,6 @@
 	]
     ].
     ^ nil
-	"
 !
 
 responseTo:aSelector
@@ -4577,8 +4593,8 @@
     ^ self whichClassSatisfies:[:aClass | aClass classVarNames includes:name]
 
     "
-     TextView whichClassDefinesClassVar:'CachedScales' 
-     TextView whichClassDefinesClassVar:'xxx' 
+     TextView whichClassDefinesClassVar:'CachedScales'
+     TextView whichClassDefinesClassVar:'xxx'
     "
 !
 
@@ -4704,15 +4720,11 @@
 
 !Behavior class methodsFor:'documentation'!
 
-version
-    ^ '$Id: Behavior.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-!
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.309 2011/05/20 10:06:03 stefan Exp '
+    ^ '§Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.313 2011/06/28 19:32:32 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Behavior.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
+    ^ '$Id: Behavior.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/Block.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/Block.st	Thu Jul 07 23:08:07 2011 +0100
@@ -370,7 +370,6 @@
     "Modified: 23.4.1996 / 15:55:58 / cg"
 ! !
 
-
 !Block methodsFor:'Compatibility-ANSI'!
 
 argumentCount
@@ -2950,27 +2949,11 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Block.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: Block.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Block.st,v 1.184 2011/01/18 18:24:31 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: Block.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '§Header: /cvs/stx/stx/libbasic/Block.st,v 1.184 2011/01/18 18:24:31 cg Exp §'
 ! !
 
-Block initialize!
-
-
-
-
-
-
-
-
-
-
-
-
+Block initialize!
\ No newline at end of file

--- a/BlockContext.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/BlockContext.st	Thu Jul 07 23:08:07 2011 +0100
@@ -240,9 +240,5 @@
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Id: BlockContext.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: BlockContext.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: BlockContext.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/Boolean.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/Boolean.st	Thu Jul 07 23:08:07 2011 +0100
@@ -110,6 +110,8 @@
 ! !
 
 
+
+
 !Boolean methodsFor:'blocked'!
 
 addDependent:someOne
@@ -192,6 +194,7 @@
     ^ self printString
 ! !
 
+
 !Boolean methodsFor:'testing'!
 
 isBoolean
@@ -229,20 +232,9 @@
 !Boolean class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Boolean.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: Boolean.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.41 2010/11/17 14:59:49 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: Boolean.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
+    ^ '§Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.41 2010/11/17 14:59:49 cg Exp §'
+! !
\ No newline at end of file

--- a/BreakPointInterrupt.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/BreakPointInterrupt.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 HaltInterrupt subclass:#BreakPointInterrupt
@@ -44,9 +45,5 @@
 !BreakPointInterrupt class methodsFor:'documentation'!
 
 version
-    ^ '$Id: BreakPointInterrupt.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: BreakPointInterrupt.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: BreakPointInterrupt.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/ByteArray.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/ByteArray.st	Thu Jul 07 23:08:07 2011 +0100
@@ -2989,22 +2989,9 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ByteArray.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: ByteArray.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.204 2011/01/18 17:09:02 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: ByteArray.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
-
-
+    ^ '§Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.204 2011/01/18 17:09:02 cg Exp §'
+! !
\ No newline at end of file

--- a/CachingRegistry.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CachingRegistry.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,7 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-"{ Package: 'stx:libbasic' }"
+
 
 Registry subclass:#CachingRegistry
 	instanceVariableNames:'keptReferences cacheSize'
@@ -92,9 +92,5 @@
 !CachingRegistry class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CachingRegistry.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: CachingRegistry.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: CachingRegistry.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CannotResumeError.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CannotResumeError.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 ContextError subclass:#CannotResumeError
@@ -46,9 +47,5 @@
 !CannotResumeError class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CannotResumeError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: CannotResumeError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: CannotResumeError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CannotReturnError.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CannotReturnError.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 ContextError subclass:#CannotReturnError
@@ -46,9 +47,5 @@
 !CannotReturnError class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CannotReturnError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: CannotReturnError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: CannotReturnError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/Character.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/Character.st	Thu Jul 07 23:08:07 2011 +0100
@@ -484,6 +484,12 @@
     ^ Character codePoint:9
 ! !
 
+!Character class methodsFor:'others'!
+
+version_CVS
+    ^ '§Header: /cvs/stx/stx/libbasic/Character.st,v 1.140 2011/07/04 17:35:39 cg Exp §'
+! !
+
 !Character class methodsFor:'primitive input'!
 
 fromUser
@@ -1368,6 +1374,15 @@
     ^ Interval from:self to:(aMagnitude \\ 16r3FFFFFFF)
 !
 
+to:aMagnitude by:inc
+    "Return an Interval over the characters from the receiver to <aMagnitude>.
+     Wrap <aMagnitude> if it is not a legal Character value. (JS)"
+
+    ^ Interval from:self to:(aMagnitude \\ 16r3FFFFFFF) by:inc
+
+    "Created: / 04-07-2011 / 19:35:15 / cg"
+!
+
 utf8Encoded
     "convert a character to its UTF-8 encoding.
      this returns a String"
@@ -2771,9 +2786,5 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Character.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: Character.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: Character.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterArray.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterArray.st	Thu Jul 07 23:08:07 2011 +0100
@@ -3325,7 +3325,6 @@
     ^ super copyWith:aCharacter
 ! !
 
-
 !CharacterArray methodsFor:'displaying'!
 
 displayOn:aGC x:x y:y from:start to:stop
@@ -3710,58 +3709,12 @@
     ^ s contents
 
     "
-     'abcde' utf8Encoded
+     'abcdeäöüß' utf8Encoded
     "
 
     "Modified: / 11-05-2010 / 19:12:37 / cg"
 ! !
 
-!CharacterArray methodsFor:'helpers'!
-
-reindent: indent
-
-    ^String streamContents:
-        [:s|
-        self reindent: indent on: s]
-
-    "Created: / 15-08-2009 / 12:55:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-reindent: indent on: stream
-
-    ^self reindent: indent using: Character tab on: stream
-
-    "Created: / 15-08-2009 / 12:41:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-reindent: indent using: indentCharOrString
-
-    ^String streamContents:
-        [:s|
-        self reindent: indent using: indentCharOrString on: s]
-
-    "Created: / 15-08-2009 / 12:55:31 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
-reindent: indent using: indentCharOrString on: stream
-
-    (self includes: Character cr)
-        ifFalse:
-            [|start|
-            start := self indexOfNonSeparator.
-            start = 0 ifTrue:[start := 1].
-            indent timesRepeat: [stream nextPutAll: indentCharOrString asString].
-            stream 
-                nextPutBytes: (self size - start + 1)
-                from: self
-                startingAt: start]
-        ifTrue:
-            [self asStringCollection
-                reindent: indent using: indentCharOrString on: stream]
-
-    "Created: / 15-08-2009 / 12:29:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
-! !
-
 
 !CharacterArray methodsFor:'matching - glob expressions'!
 
@@ -5960,28 +5913,11 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterArray.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: CharacterArray.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.452 2011/05/05 14:28:34 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: CharacterArray.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '§Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.452 2011/05/05 14:28:34 cg Exp §'
 ! !
 
-CharacterArray initialize!
-
-
-
-
-
-
-
-
-
-
-
-
-
+CharacterArray initialize!
\ No newline at end of file

--- a/CharacterEncoder.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoder.st	Thu Jul 07 23:08:07 2011 +0100
@@ -1627,22 +1627,11 @@
 !CharacterEncoder class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoder.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: CharacterEncoder.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.111 2011/05/31 14:06:40 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: CharacterEncoder.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '§Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.111 2011/05/31 14:06:40 cg Exp §'
 ! !
 
-CharacterEncoder initialize!
-
-
-
-
-
-
-
+CharacterEncoder initialize!
\ No newline at end of file

--- a/CharacterEncoderError.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderError.st	Thu Jul 07 23:08:07 2011 +0100
@@ -65,9 +65,5 @@
 !CharacterEncoderError class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: CharacterEncoderError.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderError.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ASCII.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ASCII.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: CharacterEncoderImplementations }"
@@ -240,9 +241,5 @@
 !ASCII class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ASCII.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: CharacterEncoderImplementations__ASCII.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ASCII.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__BIG5.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__BIG5.st	Thu Jul 07 23:08:07 2011 +0100
@@ -52,5 +52,5 @@
 !BIG5 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__BIG5.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__BIG5.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__CNS11643.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__CNS11643.st	Thu Jul 07 23:08:07 2011 +0100
@@ -46,5 +46,5 @@
 !CNS11643 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__CNS11643.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__CNS11643.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__CP437.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__CP437.st	Thu Jul 07 23:08:07 2011 +0100
@@ -933,5 +933,5 @@
 !CP437 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__CP437.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__CP437.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__EBCDIC.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__EBCDIC.st	Thu Jul 07 23:08:07 2011 +0100
@@ -624,7 +624,4 @@
 
 version_CVS
     ^ '§Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__EBCDIC.st,v 1.1 2010/09/20 15:26:46 cg Exp §'
-! !
-
-
-
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__GB2313_1980.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__GB2313_1980.st	Thu Jul 07 23:08:07 2011 +0100
@@ -52,5 +52,5 @@
 !GB2313_1980 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__GB2313_1980.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__GB2313_1980.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__HANGUL.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__HANGUL.st	Thu Jul 07 23:08:07 2011 +0100
@@ -46,5 +46,5 @@
 !HANGUL class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__HANGUL.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__HANGUL.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO10646_1.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO10646_1.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: CharacterEncoderImplementations }"
@@ -63,9 +64,5 @@
 !ISO10646_1 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO10646_1.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: CharacterEncoderImplementations__ISO10646_1.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO10646_1.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO10646_to_JavaText.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO10646_to_JavaText.st	Thu Jul 07 23:08:07 2011 +0100
@@ -146,5 +146,5 @@
 !ISO10646_to_JavaText class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_JavaText.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_JavaText.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO10646_to_SGML.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO10646_to_SGML.st	Thu Jul 07 23:08:07 2011 +0100
@@ -154,5 +154,5 @@
 !ISO10646_to_SGML class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_SGML.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_SGML.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO10646_to_UTF16BE.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO10646_to_UTF16BE.st	Thu Jul 07 23:08:07 2011 +0100
@@ -264,20 +264,9 @@
 !ISO10646_to_UTF16BE class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF16BE.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF16BE.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Encoder_ISO10646_to_UTF16BE.st,v 1.3 2009/11/04 00:46:08 cg Exp '
-!
-
-version_SVN
-    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF16BE.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-! !
-
-
-
-
-
-
-
+    ^ '§Header: /cvs/stx/stx/libbasic/Encoder_ISO10646_to_UTF16BE.st,v 1.3 2009/11/04 00:46:08 cg Exp §'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO10646_to_UTF16LE.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO10646_to_UTF16LE.st	Thu Jul 07 23:08:07 2011 +0100
@@ -82,5 +82,5 @@
 !ISO10646_to_UTF16LE class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF16LE.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF16LE.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO10646_to_UTF8.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO10646_to_UTF8.st	Thu Jul 07 23:08:07 2011 +0100
@@ -452,9 +452,5 @@
 !ISO10646_to_UTF8 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF8.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF8.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF8.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO8859_1.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO8859_1.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: CharacterEncoderImplementations }"
@@ -458,9 +459,5 @@
 !ISO8859_1 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO8859_1.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: CharacterEncoderImplementations__ISO8859_1.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO8859_1.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO8859_10.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO8859_10.st	Thu Jul 07 23:08:07 2011 +0100
@@ -734,5 +734,5 @@
 !ISO8859_10 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO8859_10.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO8859_10.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO8859_11.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO8859_11.st	Thu Jul 07 23:08:07 2011 +0100
@@ -596,5 +596,5 @@
 !ISO8859_11 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO8859_11.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO8859_11.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO8859_13.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO8859_13.st	Thu Jul 07 23:08:07 2011 +0100
@@ -737,5 +737,5 @@
 !ISO8859_13 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO8859_13.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO8859_13.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO8859_14.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO8859_14.st	Thu Jul 07 23:08:07 2011 +0100
@@ -780,5 +780,5 @@
 !ISO8859_14 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO8859_14.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO8859_14.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO8859_15.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO8859_15.st	Thu Jul 07 23:08:07 2011 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: CharacterEncoderImplementations }"
@@ -638,9 +639,5 @@
 !ISO8859_15 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO8859_15.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-!
-
-version_SVN
-    ^ '$Id: CharacterEncoderImplementations__ISO8859_15.st 10517 2010-04-26 18:26:38Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO8859_15.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file

--- a/CharacterEncoderImplementations__ISO8859_16.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/CharacterEncoderImplementations__ISO8859_16.st	Thu Jul 07 23:08:07 2011 +0100
@@ -723,5 +723,5 @@
 !ISO8859_16 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: CharacterEncoderImplementations__ISO8859_16.st 10467 2009-08-19 16:14:36Z vranyj1 $'
-! !
+    ^ '$Id: CharacterEncoderImplementations__ISO8859_16.st 10656 2011-07-07 22:08:07Z vranyj1 $'
+! !
\ No newline at end of file