--- a/AbstractOperatingSystem.st Mon Jul 12 06:58:22 2010 +0100
+++ b/AbstractOperatingSystem.st Mon Jul 12 17:20:36 2010 +0100
@@ -6934,17 +6934,18 @@
!AbstractOperatingSystem class methodsFor:'documentation'!
version
- ^ '$Id: AbstractOperatingSystem.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AbstractOperatingSystem.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.197 2010/03/30 13:50:30 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.197 2010/03/30 13:50:30 stefan Exp '
!
version_SVN
- ^ '$Id: AbstractOperatingSystem.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AbstractOperatingSystem.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
AbstractOperatingSystem initialize!
+
--- a/AbstractSourceFileReader.st Mon Jul 12 06:58:22 2010 +0100
+++ b/AbstractSourceFileReader.st Mon Jul 12 17:20:36 2010 +0100
@@ -72,15 +72,16 @@
!AbstractSourceFileReader class methodsFor:'documentation'!
version
- ^ '$Id: AbstractSourceFileReader.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AbstractSourceFileReader.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/AbstractSourceFileReader.st,v 1.4 2009/10/08 11:50:15 fm Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/AbstractSourceFileReader.st,v 1.4 2009/10/08 11:50:15 fm Exp §'
!
version_SVN
- ^ '$Id: AbstractSourceFileReader.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AbstractSourceFileReader.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/AbstractSourceFileWriter.st Mon Jul 12 06:58:22 2010 +0100
+++ b/AbstractSourceFileWriter.st Mon Jul 12 17:20:36 2010 +0100
@@ -188,15 +188,16 @@
!AbstractSourceFileWriter class methodsFor:'documentation'!
version
- ^ '$Id: AbstractSourceFileWriter.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AbstractSourceFileWriter.st 10544 2010-07-12 16:20:36Z 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.6 2009/10/08 12:03:57 fm Exp §'
!
version_SVN
- ^ '$Id: AbstractSourceFileWriter.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AbstractSourceFileWriter.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/AbstractTime.st Mon Jul 12 06:58:22 2010 +0100
+++ b/AbstractTime.st Mon Jul 12 17:20:36 2010 +0100
@@ -1154,15 +1154,16 @@
!AbstractTime class methodsFor:'documentation'!
version
- ^ '$Id: AbstractTime.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AbstractTime.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.68 2010/03/31 13:52:36 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/AbstractTime.st,v 1.68 2010/03/31 13:52:36 stefan Exp '
!
version_SVN
- ^ '$Id: AbstractTime.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AbstractTime.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ApplicationDefinition.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ApplicationDefinition.st Mon Jul 12 17:20:36 2010 +0100
@@ -2629,15 +2629,16 @@
!ApplicationDefinition class methodsFor:'documentation'!
version
- ^ '$Id: ApplicationDefinition.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ApplicationDefinition.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.158 2009/12/10 17:59:27 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ApplicationDefinition.st,v 1.158 2009/12/10 17:59:27 cg Exp '
!
version_SVN
- ^ '$Id: ApplicationDefinition.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ApplicationDefinition.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ArithmeticValue.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ArithmeticValue.st Mon Jul 12 17:20:36 2010 +0100
@@ -1283,17 +1283,18 @@
!ArithmeticValue class methodsFor:'documentation'!
version
- ^ '$Id: ArithmeticValue.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ArithmeticValue.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.85 2010/03/06 10:06:53 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.85 2010/03/06 10:06:53 cg Exp '
!
version_SVN
- ^ '$Id: ArithmeticValue.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ArithmeticValue.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ArithmeticValue initialize!
+
--- a/Array.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Array.st Mon Jul 12 17:20:36 2010 +0100
@@ -2553,15 +2553,16 @@
!Array class methodsFor:'documentation'!
version
- ^ '$Id: Array.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Array.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Array.st,v 1.148 2009/11/05 16:25:19 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Array.st,v 1.148 2009/11/05 16:25:19 stefan Exp '
!
version_SVN
- ^ '$Id: Array.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Array.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Association.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Association.st Mon Jul 12 17:20:36 2010 +0100
@@ -173,15 +173,16 @@
!Association class methodsFor:'documentation'!
version
- ^ '$Id: Association.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Association.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Association.st,v 1.23 2009/10/06 15:16:10 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Association.st,v 1.23 2009/10/06 15:16:10 cg Exp '
!
version_SVN
- ^ '$Id: Association.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Association.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Autoload.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Autoload.st Mon Jul 12 17:20:36 2010 +0100
@@ -763,17 +763,18 @@
!Autoload class methodsFor:'documentation'!
version
- ^ '$Id: Autoload.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Autoload.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.157 2010/03/13 11:36:57 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.157 2010/03/13 11:36:57 cg Exp '
!
version_SVN
- ^ '$Id: Autoload.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Autoload.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Autoload initialize!
+
--- a/AutoloadMetaclass.st Mon Jul 12 06:58:22 2010 +0100
+++ b/AutoloadMetaclass.st Mon Jul 12 17:20:36 2010 +0100
@@ -101,15 +101,16 @@
!AutoloadMetaclass class methodsFor:'documentation'!
version
- ^ '$Id: AutoloadMetaclass.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AutoloadMetaclass.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/AutoloadMetaclass.st,v 1.8 2010/04/03 10:47:04 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/AutoloadMetaclass.st,v 1.8 2010/04/03 10:47:04 cg Exp '
!
version_SVN
- ^ '$Id: AutoloadMetaclass.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: AutoloadMetaclass.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Bag.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Bag.st Mon Jul 12 17:20:36 2010 +0100
@@ -416,15 +416,16 @@
!Bag class methodsFor:'documentation'!
version
- ^ '$Id: Bag.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Bag.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Bag.st,v 1.41 2010/03/30 13:38:23 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Bag.st,v 1.41 2010/03/30 13:38:23 stefan Exp '
!
version_SVN
- ^ '$Id: Bag.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Bag.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Behavior.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Behavior.st Mon Jul 12 17:20:36 2010 +0100
@@ -1427,6 +1427,17 @@
^ self class compilerClass.
!
+dllPath
+ "if a class contains ExternalFunctions,
+ return a collection of pathNames where to find the DLLs
+ containing the external functions.
+
+ Do not code absolute path names here - keep them in the system settings.
+ Use this if the DLL location is kept in some registry entry."
+
+ ^ #()
+!
+
evaluatorClass
"return the compiler to use for expression evaluation for this class -
this can be redefined in special classes, to evaluate expressions with
@@ -1444,7 +1455,8 @@
!
language
-self halt:'should no longer be reached - use #programmingLanguage or Smalltalk language'.
+ <resource: #obsolete>
+ self obsoleteMethodWarning:'use #programmingLanguage or Smalltalk language'.
^ self class programmingLanguage
"Created: / 15-08-2009 / 09:06:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -4710,13 +4722,14 @@
!Behavior class methodsFor:'documentation'!
version
- ^ '$Id: Behavior.st 10535 2010-07-01 19:50:00Z vranyj1 $'
+ ^ '$Id: Behavior.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.304 2010/04/12 16:30:42 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.305 2010/07/08 14:12:15 stefan Exp '
!
version_SVN
- ^ '$Id: Behavior.st 10535 2010-07-01 19:50:00Z vranyj1 $'
+ ^ '$Id: Behavior.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Block.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Block.st Mon Jul 12 17:20:36 2010 +0100
@@ -2021,7 +2021,7 @@
me := Processor activeProcess.
signal := Signal new notifierString:'timeout'.
- showStopper := [ me interruptWith:[ done ifFalse:[ signal raise ] ]].
+ showStopper := [ done ifFalse:[ me interruptWith:[ done ifFalse:[ signal raise ]] ]].
signal handle:[:ex |
retVal := exceptionBlock value.
@@ -2047,8 +2047,8 @@
] valueWithWatchDog:[false] afterMilliseconds:2000
"
- "Modified: / 20-05-2010 / 10:35:33 / cg"
"Modified: / 21-05-2010 / 12:19:57 / sr"
+ "Modified: / 01-07-2010 / 12:42:54 / cg"
! !
!Block methodsFor:'exception handling private'!
@@ -2928,15 +2928,15 @@
!Block class methodsFor:'documentation'!
version
- ^ '$Id: Block.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Block.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Block.st,v 1.180 2010/05/21 15:10:55 sr Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Block.st,v 1.181 2010/07/01 10:43:17 cg Exp '
!
version_SVN
- ^ '$Id: Block.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Block.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Block initialize!
@@ -2944,3 +2944,4 @@
+
--- a/Boolean.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Boolean.st Mon Jul 12 17:20:36 2010 +0100
@@ -222,15 +222,16 @@
!Boolean class methodsFor:'documentation'!
version
- ^ '$Id: Boolean.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Boolean.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.40 2010/01/21 11:48:59 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Boolean.st,v 1.40 2010/01/21 11:48:59 cg Exp '
!
version_SVN
- ^ '$Id: Boolean.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Boolean.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ByteArray.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ByteArray.st Mon Jul 12 17:20:36 2010 +0100
@@ -173,6 +173,7 @@
"Modified: 23.4.1996 / 15:56:25 / cg"
! !
+
!ByteArray methodsFor:'Compatibility-Squeak'!
bitXor:aByteArray
@@ -2588,8 +2589,12 @@
|s|
s := '' writeStream.
- self do:[:byte|
- byte printOn:s base:16 size:2 fill:$0.
+ self do:[:byteOrCharacter |
+ |byte|
+ byte := byteOrCharacter isCharacter
+ ifTrue:[byteOrCharacter codePoint]
+ ifFalse:[byteOrCharacter].
+ byte printOn:s base:16 size:2 fill:$0.
].
^ s contents.
@@ -2600,6 +2605,8 @@
"
ByteArray fromHexString:#[1 2 3 4 10 17] hexPrintString
"
+
+ "Modified: / 03-07-2010 / 01:59:19 / cg"
!
hexPrintStringWithSeparator:aSeparatorStringOrCharacter
@@ -2923,6 +2930,7 @@
"
! !
+
!ByteArray methodsFor:'searching'!
indexOf:aByte startingAt:start
@@ -2978,6 +2986,7 @@
"
! !
+
!ByteArray methodsFor:'testing'!
isByteArray
@@ -3005,16 +3014,17 @@
!ByteArray class methodsFor:'documentation'!
version
- ^ '$Id: ByteArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ByteArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.201 2010/04/14 08:33:59 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.202 2010/07/03 00:00:40 cg Exp '
!
version_SVN
- ^ '$Id: ByteArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ByteArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/CharacterArray.st Mon Jul 12 06:58:22 2010 +0100
+++ b/CharacterArray.st Mon Jul 12 17:20:36 2010 +0100
@@ -5821,15 +5821,15 @@
!CharacterArray class methodsFor:'documentation'!
version
- ^ '$Id: CharacterArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.433 2010/05/11 17:14:29 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.433 2010/05/11 17:14:29 cg Exp '
!
version_SVN
- ^ '$Id: CharacterArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
CharacterArray initialize!
@@ -5837,3 +5837,4 @@
+
--- a/CharacterEncoder.st Mon Jul 12 06:58:22 2010 +0100
+++ b/CharacterEncoder.st Mon Jul 12 17:20:36 2010 +0100
@@ -1592,17 +1592,18 @@
!CharacterEncoder class methodsFor:'documentation'!
version
- ^ '$Id: CharacterEncoder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.106 2009/12/11 16:54:00 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/CharacterEncoder.st,v 1.106 2009/12/11 16:54:00 cg Exp '
!
version_SVN
- ^ '$Id: CharacterEncoder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
CharacterEncoder initialize!
+
--- a/CharacterEncoderImplementations__ISO10646_to_UTF16BE.st Mon Jul 12 06:58:22 2010 +0100
+++ b/CharacterEncoderImplementations__ISO10646_to_UTF16BE.st Mon Jul 12 17:20:36 2010 +0100
@@ -264,15 +264,16 @@
!ISO10646_to_UTF16BE class methodsFor:'documentation'!
version
- ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF16BE.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF16BE.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Encoder_ISO10646_to_UTF16BE.st,v 1.3 2009/11/04 00:46:08 cg Exp §'
+ ^ '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 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoderImplementations__ISO10646_to_UTF16BE.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/CharacterEncoderImplementations__JIS0208_to_SJIS.st Mon Jul 12 06:58:22 2010 +0100
+++ b/CharacterEncoderImplementations__JIS0208_to_SJIS.st Mon Jul 12 17:20:36 2010 +0100
@@ -339,15 +339,16 @@
!JIS0208_to_SJIS class methodsFor:'documentation'!
version
- ^ '$Id: CharacterEncoderImplementations__JIS0208_to_SJIS.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoderImplementations__JIS0208_to_SJIS.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Encoder_SJIS.st,v 1.12 2009/11/05 16:26:27 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Encoder_SJIS.st,v 1.12 2009/11/05 16:26:27 stefan Exp '
!
version_SVN
- ^ '$Id: CharacterEncoderImplementations__JIS0208_to_SJIS.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoderImplementations__JIS0208_to_SJIS.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/CharacterEncoderImplementations__SingleByteEncoder.st Mon Jul 12 06:58:22 2010 +0100
+++ b/CharacterEncoderImplementations__SingleByteEncoder.st Mon Jul 12 17:20:36 2010 +0100
@@ -73,15 +73,16 @@
!SingleByteEncoder class methodsFor:'documentation'!
version
- ^ '$Id: CharacterEncoderImplementations__SingleByteEncoder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoderImplementations__SingleByteEncoder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Encoder_SingleByteEncoder.st,v 1.9 2009/12/11 16:54:15 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Encoder_SingleByteEncoder.st,v 1.9 2009/12/11 16:54:15 cg Exp '
!
version_SVN
- ^ '$Id: CharacterEncoderImplementations__SingleByteEncoder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoderImplementations__SingleByteEncoder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/CharacterEncoderImplementations__TwoByteEncoder.st Mon Jul 12 06:58:22 2010 +0100
+++ b/CharacterEncoderImplementations__TwoByteEncoder.st Mon Jul 12 17:20:36 2010 +0100
@@ -79,15 +79,16 @@
!TwoByteEncoder class methodsFor:'documentation'!
version
- ^ '$Id: CharacterEncoderImplementations__TwoByteEncoder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoderImplementations__TwoByteEncoder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Encoder_TwoByteEncoder.st,v 1.6 2009/11/04 00:47:35 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Encoder_TwoByteEncoder.st,v 1.6 2009/11/04 00:47:35 cg Exp '
!
version_SVN
- ^ '$Id: CharacterEncoderImplementations__TwoByteEncoder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterEncoderImplementations__TwoByteEncoder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/CharacterWriteStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/CharacterWriteStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -240,15 +240,16 @@
!CharacterWriteStream class methodsFor:'documentation'!
version
- ^ '$Id: CharacterWriteStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterWriteStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/CharacterWriteStream.st,v 1.9 2009/10/05 09:20:25 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/CharacterWriteStream.st,v 1.9 2009/10/05 09:20:25 cg Exp '
!
version_SVN
- ^ '$Id: CharacterWriteStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CharacterWriteStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Class.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Class.st Mon Jul 12 17:20:36 2010 +0100
@@ -5074,16 +5074,17 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Id: Class.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Class.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Class.st,v 1.573 2010/04/30 09:56:51 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Class.st,v 1.573 2010/04/30 09:56:51 stefan Exp '
!
version_SVN
- ^ '$Id: Class.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Class.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ClassBuildError.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ClassBuildError.st Mon Jul 12 17:20:36 2010 +0100
@@ -37,15 +37,16 @@
!ClassBuildError class methodsFor:'documentation'!
version
- ^ '$Id: ClassBuildError.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ClassBuildError.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ClassBuildError.st,v 1.2 2009/09/29 19:32:30 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ClassBuildError.st,v 1.2 2009/09/29 19:32:30 cg Exp '
!
version_SVN
- ^ '$Id: ClassBuildError.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ClassBuildError.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ClassBuilder.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ClassBuilder.st Mon Jul 12 17:20:36 2010 +0100
@@ -957,7 +957,7 @@
"/ but: we have to recompile all methods accessing new instars
"/ (it might have been a classVar/global before ...)
- addedNames := newInstVars select:[:nm | (oldInstVars includes:nm) not].
+ addedNames := newInstVars reject:[:nm | oldInstVars includes:nm].
"merge in class variables"
changeSet1 do:[:nm | addedNames add:nm].
@@ -990,6 +990,8 @@
].
].
].
+
+ "Modified: / 11-07-2010 / 16:37:34 / cg"
!
flagsForVariable:variable pointers:pointers words:words
@@ -1550,7 +1552,7 @@
(it might have been a global/undeclared before ...)
"
- addedNames := newNames select:[:nm | (oldNames includes:nm) not].
+ addedNames := newNames reject:[:nm | oldNames includes:nm ].
"/ Smalltalk silentLoading ifFalse:[
"/ Transcript showCR:'recompiling class methods of ' , newMetaclass name ,
@@ -1816,7 +1818,7 @@
"Created: / 29-10-1995 / 19:57:08 / cg"
"Modified: / 01-04-1997 / 15:44:09 / stefan"
- "Modified: / 06-10-2006 / 13:16:58 / cg"
+ "Modified: / 11-07-2010 / 16:37:48 / cg"
!
setPackageInNewClass:newClass fromOld:oldClass
@@ -2220,16 +2222,17 @@
!ClassBuilder class methodsFor:'documentation'!
version
- ^ '$Id: ClassBuilder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ClassBuilder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.93 2010/04/26 22:03:53 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.94 2010/07/11 14:37:58 cg Exp '
!
version_SVN
- ^ '$Id: ClassBuilder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ClassBuilder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ClassDescription.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ClassDescription.st Mon Jul 12 17:20:36 2010 +0100
@@ -4104,15 +4104,15 @@
!ClassDescription class methodsFor:'documentation'!
version
- ^ '$Id: ClassDescription.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ClassDescription.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.214 2010/04/19 16:46:03 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.214 2010/04/19 16:46:03 cg Exp '
!
version_SVN
- ^ '$Id: ClassDescription.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ClassDescription.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ClassDescription initialize!
@@ -4121,3 +4121,4 @@
+
--- a/Collection.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Collection.st Mon Jul 12 17:20:36 2010 +0100
@@ -1831,11 +1831,13 @@
May be redefined by some subclasses for optimal performance
(avoiding the creation of intermediate garbage)"
- ^ (self collect:collectBlock) select:[:el | (rejectBlock value:el) not]
+ ^ self collect:collectBlock thenSelect:[:el | (rejectBlock value:el) not]
"
#(1 2 3 4 5 6 7) collect:[:i | i * 2] thenReject:[:i | i > 10]
"
+
+ "Modified: / 11-07-2010 / 17:03:16 / cg"
!
collect:collectBlock thenSelect:selectBlock
@@ -2275,11 +2277,13 @@
May be redefined by some subclasses for optimal performance
(avoiding the creation of intermediate garbage)"
- ^ (self select:[:el | (rejectBlock value:el) not]) collect:collectBlock
+ ^ self select:[:el | (rejectBlock value:el) not] thenCollect:collectBlock
"
#(1 2 3 4 5 6 7) reject:[:i | i even] thenCollect:[:i | i * 2]
"
+
+ "Modified: / 11-07-2010 / 17:04:07 / cg"
!
reverseDo:aBlock
@@ -3058,11 +3062,13 @@
self emptyCheck.
- ^ self inject:nil
- into:[:maxSoFar :this |
- (maxSoFar isNil
- or:[maxSoFar < this]) ifTrue:[this]
- ifFalse:[maxSoFar]]
+ ^ self
+ inject:nil
+ into:[:maxSoFar :this |
+ (maxSoFar isNil or:[maxSoFar < this])
+ ifTrue:[this]
+ ifFalse:[maxSoFar]
+ ]
"
#(15 1 -9 10 5) max
@@ -3072,7 +3078,7 @@
(0 to:15 by:4) max
"
- "Modified: 8.1.1997 / 22:09:37 / cg"
+ "Modified: / 11-07-2010 / 17:05:25 / cg"
!
min
@@ -3082,11 +3088,13 @@
self emptyCheck.
- ^ self inject:nil
- into:[:minSoFar :this |
- (minSoFar isNil
- or:[this < minSoFar]) ifTrue:[this]
- ifFalse:[minSoFar]]
+ ^ self
+ inject:nil
+ into:[:minSoFar :this |
+ (minSoFar isNil or:[this < minSoFar])
+ ifTrue:[this]
+ ifFalse:[minSoFar]
+ ]
"
#(15 1 -9 10 5) min
@@ -3095,7 +3103,7 @@
(-1 to:-15 by:-4) min
"
- "Modified: 8.1.1997 / 22:09:49 / cg"
+ "Modified: / 11-07-2010 / 17:06:38 / cg"
!
minMax
@@ -3642,17 +3650,18 @@
!Collection class methodsFor:'documentation'!
version
- ^ '$Id: Collection.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Collection.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Collection.st,v 1.241 2010/01/29 16:41:43 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Collection.st,v 1.244 2010/07/11 15:06:50 cg Exp '
!
version_SVN
- ^ '$Id: Collection.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Collection.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Collection initialize!
+
--- a/CompiledCode.st Mon Jul 12 06:58:22 2010 +0100
+++ b/CompiledCode.st Mon Jul 12 17:20:36 2010 +0100
@@ -1801,15 +1801,16 @@
!CompiledCode class methodsFor:'documentation'!
version
- ^ '$Id: CompiledCode.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CompiledCode.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.108 2009/10/06 14:59:40 fm Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.108 2009/10/06 14:59:40 fm Exp '
!
version_SVN
- ^ '$Id: CompiledCode.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: CompiledCode.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Context.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Context.st Mon Jul 12 17:20:36 2010 +0100
@@ -2390,15 +2390,15 @@
!Context class methodsFor:'documentation'!
version
- ^ '$Id: Context.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Context.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Context.st,v 1.157 2010/04/07 17:36:33 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Context.st,v 1.157 2010/04/07 17:36:33 cg Exp '
!
version_SVN
- ^ '$Id: Context.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Context.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Context initialize!
@@ -2406,3 +2406,4 @@
+
--- a/Date.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Date.st Mon Jul 12 17:20:36 2010 +0100
@@ -3014,17 +3014,18 @@
!Date class methodsFor:'documentation'!
version
- ^ '$Id: Date.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Date.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Date.st,v 1.135 2010/03/26 14:26:26 fm Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Date.st,v 1.135 2010/03/26 14:26:26 fm Exp '
!
version_SVN
- ^ '$Id: Date.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Date.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Date initialize!
+
--- a/Dictionary.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Dictionary.st Mon Jul 12 17:20:36 2010 +0100
@@ -2055,17 +2055,18 @@
!Dictionary class methodsFor:'documentation'!
version
- ^ '$Id: Dictionary.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Dictionary.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.101 2010/02/26 10:48:56 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Dictionary.st,v 1.101 2010/02/26 10:48:56 cg Exp '
!
version_SVN
- ^ '$Id: Dictionary.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Dictionary.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Dictionary initialize!
+
--- a/DirectoryStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/DirectoryStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -795,16 +795,17 @@
!DirectoryStream class methodsFor:'documentation'!
version
- ^ '$Id: DirectoryStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: DirectoryStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.74 2010/04/30 16:48:14 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.74 2010/04/30 16:48:14 stefan Exp '
!
version_SVN
- ^ '$Id: DirectoryStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: DirectoryStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/EncodedStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/EncodedStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -258,15 +258,16 @@
!EncodedStream class methodsFor:'documentation'!
version
- ^ '$Id: EncodedStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: EncodedStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.18 2010/02/04 16:11:51 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/EncodedStream.st,v 1.18 2010/02/04 16:11:51 stefan Exp '
!
version_SVN
- ^ '$Id: EncodedStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: EncodedStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Error.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Error.st Mon Jul 12 17:20:36 2010 +0100
@@ -85,17 +85,18 @@
!Error class methodsFor:'documentation'!
version
- ^ '$Id: Error.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Error.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Error.st,v 1.10 2009/10/01 13:44:07 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Error.st,v 1.10 2009/10/01 13:44:07 cg Exp '
!
version_SVN
- ^ '$Id: Error.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Error.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Error initialize!
+
--- a/ExecutableFunction.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ExecutableFunction.st Mon Jul 12 17:20:36 2010 +0100
@@ -413,16 +413,17 @@
!ExecutableFunction class methodsFor:'documentation'!
version
- ^ '$Id: ExecutableFunction.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExecutableFunction.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_SVN
- ^ '$Id: ExecutableFunction.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExecutableFunction.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.56 2010/04/27 10:26:12 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.56 2010/04/27 10:26:12 cg Exp '
! !
+
--- a/ExternalAddress.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ExternalAddress.st Mon Jul 12 17:20:36 2010 +0100
@@ -304,16 +304,17 @@
!ExternalAddress class methodsFor:'documentation'!
version
- ^ '$Id: ExternalAddress.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalAddress.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.25 2010/04/08 11:57:19 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ExternalAddress.st,v 1.25 2010/04/08 11:57:19 cg Exp '
!
version_SVN
- ^ '$Id: ExternalAddress.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalAddress.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ExternalBytes.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ExternalBytes.st Mon Jul 12 17:20:36 2010 +0100
@@ -1279,18 +1279,19 @@
!ExternalBytes class methodsFor:'documentation'!
version
- ^ '$Id: ExternalBytes.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalBytes.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.78 2010/04/08 11:57:17 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ExternalBytes.st,v 1.78 2010/04/08 11:57:17 cg Exp '
!
version_SVN
- ^ '$Id: ExternalBytes.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalBytes.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ExternalBytes initialize!
+
--- a/ExternalFunction.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ExternalFunction.st Mon Jul 12 17:20:36 2010 +0100
@@ -972,17 +972,18 @@
!ExternalFunction class methodsFor:'documentation'!
version
- ^ '$Id: ExternalFunction.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalFunction.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.27 2009/11/05 16:26:28 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.27 2009/11/05 16:26:28 stefan Exp '
!
version_SVN
- ^ '$Id: ExternalFunction.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalFunction.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ExternalFunction initialize!
+
--- a/ExternalFunctionCallback.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ExternalFunctionCallback.st Mon Jul 12 17:20:36 2010 +0100
@@ -829,15 +829,16 @@
!ExternalFunctionCallback class methodsFor:'documentation'!
version
- ^ '$Id: ExternalFunctionCallback.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalFunctionCallback.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.15 2009/11/05 16:25:17 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.15 2009/11/05 16:25:17 stefan Exp '
!
version_SVN
- ^ '$Id: ExternalFunctionCallback.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalFunctionCallback.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ExternalLibrary.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ExternalLibrary.st Mon Jul 12 17:20:36 2010 +0100
@@ -43,7 +43,7 @@
!ExternalLibrary class methodsFor:'documentation'!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ExternalLibrary.st,v 1.2 2010/02/01 11:29:17 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ExternalLibrary.st,v 1.2 2010/02/01 11:29:17 cg Exp '
!
version_SVN
@@ -51,3 +51,4 @@
! !
+
--- a/ExternalLibraryFunction.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ExternalLibraryFunction.st Mon Jul 12 17:20:36 2010 +0100
@@ -573,21 +573,28 @@
filename := dllName asFilename.
nameString := filename name.
- filename exists ifTrue:[
- handle := ObjectFileLoader loadDynamicObject:(filename pathName).
- handle notNil ifTrue:[^ handle ].
- ].
+ "try to load, maybe the system knows where to find the dll"
+ handle := ObjectFileLoader loadDynamicObject:filename.
+ handle notNil ifTrue:[^ handle ].
+
filename isAbsolute ifFalse:[
- self class dllPath do:[:eachDirectory |
- handle := ObjectFileLoader
- loadDynamicObject:(eachDirectory asFilename construct:nameString) pathName.
- handle notNil ifTrue:[^ handle ].
- ].
+ "First ask the class deining the ExternalFunction for the location of the dlls ..."
+ owningClass dllPath do:[:eachDirectory |
+ handle := ObjectFileLoader
+ loadDynamicObject:(eachDirectory asFilename construct:nameString) pathName.
+ handle notNil ifTrue:[^ handle ].
+ ].
+ ".. then ask the system"
+ self class dllPath do:[:eachDirectory |
+ handle := ObjectFileLoader
+ loadDynamicObject:(eachDirectory asFilename construct:nameString) pathName.
+ handle notNil ifTrue:[^ handle ].
+ ].
].
filename suffix isEmpty ifTrue:[
- "/ try again with the OS-specific dll-extension
- ^ self loadLibrary:(filename withSuffix:ObjectFileLoader sharedLibrarySuffix)
+ "/ try again with the OS-specific dll-extension
+ ^ self loadLibrary:(filename withSuffix:ObjectFileLoader sharedLibrarySuffix)
].
^ nil
@@ -1485,17 +1492,18 @@
!ExternalLibraryFunction class methodsFor:'documentation'!
version
- ^ '$Id: ExternalLibraryFunction.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalLibraryFunction.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.78 2010/02/02 15:44:48 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.79 2010/07/08 14:16:05 stefan Exp '
!
version_SVN
- ^ '$Id: ExternalLibraryFunction.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalLibraryFunction.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ExternalLibraryFunction initialize!
+
--- a/ExternalStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ExternalStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -5691,18 +5691,19 @@
!ExternalStream class methodsFor:'documentation'!
version
- ^ '$Id: ExternalStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.341 2010/04/12 19:27:17 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.341 2010/04/12 19:27:17 stefan Exp '
!
version_SVN
- ^ '$Id: ExternalStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ExternalStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ExternalStream initialize!
+
--- a/FileDirectory.st Mon Jul 12 06:58:22 2010 +0100
+++ b/FileDirectory.st Mon Jul 12 17:20:36 2010 +0100
@@ -794,11 +794,11 @@
!FileDirectory class methodsFor:'documentation'!
version
- ^ '$Id: FileDirectory.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: FileDirectory.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.49 2009/10/26 15:24:34 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.49 2009/10/26 15:24:34 cg Exp §'
! !
FileDirectory initialize!
@@ -806,3 +806,4 @@
+
--- a/FileStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/FileStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -1693,17 +1693,18 @@
!FileStream class methodsFor:'documentation'!
version
- ^ '$Id: FileStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: FileStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.142 2010/02/09 14:23:17 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.142 2010/02/09 14:23:17 stefan Exp '
!
version_SVN
- ^ '$Id: FileStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: FileStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
FileStream initialize!
+
--- a/Filename.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Filename.st Mon Jul 12 17:20:36 2010 +0100
@@ -5775,15 +5775,15 @@
!Filename class methodsFor:'documentation'!
version
- ^ '$Id: Filename.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Filename.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Filename.st,v 1.351 2010/05/07 12:06:04 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Filename.st,v 1.351 2010/05/07 12:06:04 cg Exp '
!
version_SVN
- ^ '$Id: Filename.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Filename.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Filename initialize!
@@ -5791,3 +5791,4 @@
+
--- a/FixedPoint.st Mon Jul 12 06:58:22 2010 +0100
+++ b/FixedPoint.st Mon Jul 12 17:20:36 2010 +0100
@@ -1354,15 +1354,16 @@
!FixedPoint class methodsFor:'documentation'!
version
- ^ '$Id: FixedPoint.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: FixedPoint.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.44 2010/02/10 17:46:09 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.44 2010/02/10 17:46:09 cg Exp '
!
version_SVN
- ^ '$Id: FixedPoint.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: FixedPoint.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Float.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Float.st Mon Jul 12 17:20:36 2010 +0100
@@ -2733,18 +2733,19 @@
!Float class methodsFor:'documentation'!
version
- ^ '$Id: Float.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Float.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Float.st,v 1.175 2010/05/05 14:06:04 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Float.st,v 1.175 2010/05/05 14:06:04 stefan Exp '
!
version_SVN
- ^ '$Id: Float.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Float.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Float initialize!
+
--- a/FloatArray.st Mon Jul 12 06:58:22 2010 +0100
+++ b/FloatArray.st Mon Jul 12 17:20:36 2010 +0100
@@ -992,15 +992,16 @@
!FloatArray class methodsFor:'documentation'!
version
- ^ '$Id: FloatArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: FloatArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/FloatArray.st,v 1.26 2009/12/01 22:11:19 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/FloatArray.st,v 1.26 2009/12/01 22:11:19 cg Exp '
!
version_SVN
- ^ '$Id: FloatArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: FloatArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/GenericException.st Mon Jul 12 06:58:22 2010 +0100
+++ b/GenericException.st Mon Jul 12 17:20:36 2010 +0100
@@ -2017,7 +2017,7 @@
WrongProceedabilityError raiseRequestWith:signal
] ifFalse:[
self class name infoPrint.
- ' [warning]: raised with wrong proceedability: ' infoPrint.
+ ' [warning]: raised with wrong proceedability' infoPrintCR.
]
].
@@ -2025,7 +2025,7 @@
^ self doRaise
"Modified: / 04-08-1999 / 08:05:12 / stefan"
- "Modified: / 04-10-2007 / 19:22:34 / cg"
+ "Modified: / 10-07-2010 / 19:48:42 / cg"
!
raiseRequestWith:aParameter errorString:aString
@@ -2133,17 +2133,18 @@
!GenericException class methodsFor:'documentation'!
version
- ^ '$Id: GenericException.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: GenericException.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.124 2009/12/01 20:03:39 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/GenericException.st,v 1.125 2010/07/10 17:49:23 cg Exp '
!
version_SVN
- ^ '$Id: GenericException.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: GenericException.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
GenericException initialize!
+
--- a/HashStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/HashStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -327,15 +327,16 @@
!HashStream class methodsFor:'documentation'!
version
- ^ '$Id: HashStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: HashStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.13 2010/03/04 14:34:21 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/HashStream.st,v 1.13 2010/03/04 14:34:21 cg Exp '
!
version_SVN
- ^ '$Id: HashStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: HashStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ImmutableArray.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ImmutableArray.st Mon Jul 12 17:20:36 2010 +0100
@@ -223,7 +223,7 @@
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.28 2009/11/16 08:59:40 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.28 2009/11/16 08:59:40 stefan Exp '
!
version_SVN
@@ -231,3 +231,4 @@
! !
+
--- a/ImmutableByteArray.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ImmutableByteArray.st Mon Jul 12 17:20:36 2010 +0100
@@ -237,7 +237,7 @@
!ImmutableByteArray class methodsFor:'documentation'!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.7 2009/11/16 08:59:40 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ImmutableByteArray.st,v 1.7 2009/11/16 08:59:40 stefan Exp '
!
version_SVN
@@ -245,3 +245,4 @@
! !
+
--- a/ImmutableString.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ImmutableString.st Mon Jul 12 17:20:36 2010 +0100
@@ -232,7 +232,7 @@
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.9 2009/11/16 08:59:40 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ImmutableString.st,v 1.9 2009/11/16 08:59:40 stefan Exp '
!
version_SVN
@@ -240,3 +240,4 @@
! !
+
--- a/Infinity.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Infinity.st Mon Jul 12 17:20:36 2010 +0100
@@ -425,17 +425,18 @@
!Infinity class methodsFor:'documentation'!
version
- ^ '$Id: Infinity.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Infinity.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Infinity.st,v 1.13 2009/10/12 19:34:30 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Infinity.st,v 1.13 2009/10/12 19:34:30 cg Exp '
!
version_SVN
- ^ '$Id: Infinity.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Infinity.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Infinity initialize!
+
--- a/Integer.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Integer.st Mon Jul 12 17:20:36 2010 +0100
@@ -4699,18 +4699,19 @@
!Integer class methodsFor:'documentation'!
version
- ^ '$Id: Integer.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Integer.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Integer.st,v 1.246 2010/04/13 16:11:42 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Integer.st,v 1.246 2010/04/13 16:11:42 cg Exp '
!
version_SVN
- ^ '$Id: Integer.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Integer.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Integer initialize!
+
--- a/KeyedCollection.st Mon Jul 12 06:58:22 2010 +0100
+++ b/KeyedCollection.st Mon Jul 12 17:20:36 2010 +0100
@@ -208,15 +208,16 @@
!KeyedCollection class methodsFor:'documentation'!
version
- ^ '$Id: KeyedCollection.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: KeyedCollection.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.7 2010/01/29 16:42:18 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.7 2010/01/29 16:42:18 cg Exp '
!
version_SVN
- ^ '$Id: KeyedCollection.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: KeyedCollection.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/LargeInteger.st Mon Jul 12 06:58:22 2010 +0100
+++ b/LargeInteger.st Mon Jul 12 17:20:36 2010 +0100
@@ -5139,16 +5139,17 @@
!LargeInteger class methodsFor:'documentation'!
version
- ^ '$Id: LargeInteger.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: LargeInteger.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.201 2010/04/14 08:00:14 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.201 2010/04/14 08:00:14 stefan Exp '
!
version_SVN
- ^ '$Id: LargeInteger.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: LargeInteger.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/LibraryDefinition.st Mon Jul 12 06:58:22 2010 +0100
+++ b/LibraryDefinition.st Mon Jul 12 17:20:36 2010 +0100
@@ -682,15 +682,16 @@
!LibraryDefinition class methodsFor:'documentation'!
version
- ^ '$Id: LibraryDefinition.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: LibraryDefinition.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.98 2010/03/08 12:00:07 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.98 2010/03/08 12:00:07 cg Exp '
!
version_SVN
- ^ '$Id: LibraryDefinition.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: LibraryDefinition.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/LimitedPrecisionReal.st Mon Jul 12 06:58:22 2010 +0100
+++ b/LimitedPrecisionReal.st Mon Jul 12 17:20:36 2010 +0100
@@ -1197,17 +1197,18 @@
!LimitedPrecisionReal class methodsFor:'documentation'!
version
- ^ '$Id: LimitedPrecisionReal.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: LimitedPrecisionReal.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.72 2010/03/06 11:27:34 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.72 2010/03/06 11:27:34 cg Exp '
!
version_SVN
- ^ '$Id: LimitedPrecisionReal.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: LimitedPrecisionReal.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
LimitedPrecisionReal initialize!
+
--- a/LongFloat.st Mon Jul 12 06:58:22 2010 +0100
+++ b/LongFloat.st Mon Jul 12 17:20:36 2010 +0100
@@ -2537,18 +2537,19 @@
!LongFloat class methodsFor:'documentation'!
version
- ^ '$Id: LongFloat.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: LongFloat.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.67 2010/05/05 13:56:53 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.67 2010/05/05 13:56:53 stefan Exp '
!
version_SVN
- ^ '$Id: LongFloat.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: LongFloat.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
LongFloat initialize!
+
--- a/MD5Stream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/MD5Stream.st Mon Jul 12 17:20:36 2010 +0100
@@ -452,17 +452,18 @@
!MD5Stream class methodsFor:'documentation'!
version
- ^ '$Id: MD5Stream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: MD5Stream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/MD5Stream.st,v 1.13 2010/03/04 20:55:03 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/MD5Stream.st,v 1.13 2010/03/04 20:55:03 cg Exp '
!
version_SVN
- ^ '$Id: MD5Stream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: MD5Stream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
MD5Stream initialize!
+
--- a/Metaclass.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Metaclass.st Mon Jul 12 17:20:36 2010 +0100
@@ -889,17 +889,18 @@
!Metaclass class methodsFor:'documentation'!
version
- ^ '$Id: Metaclass.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Metaclass.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.208 2010/04/03 10:46:40 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.208 2010/04/03 10:46:40 cg Exp '
!
version_SVN
- ^ '$Id: Metaclass.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Metaclass.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Metaclass initialize!
+
--- a/NameSpace.st Mon Jul 12 06:58:22 2010 +0100
+++ b/NameSpace.st Mon Jul 12 17:20:36 2010 +0100
@@ -678,15 +678,16 @@
!NameSpace class methodsFor:'documentation'!
version
- ^ '$Id: NameSpace.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: NameSpace.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.69 2009/12/03 10:42:57 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.69 2009/12/03 10:42:57 stefan Exp '
!
version_SVN
- ^ '$Id: NameSpace.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: NameSpace.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/NamespaceAwareLookup.st Mon Jul 12 06:58:22 2010 +0100
+++ b/NamespaceAwareLookup.st Mon Jul 12 17:20:36 2010 +0100
@@ -111,6 +111,14 @@
if no method in given namespace is found, returns nil"
| searchClass |
+
+ Stdout
+ nextPutAll: ' lookupMethodForSelector: '; nextPutAll: selector storeString;
+ nextPutAll: ' directedTo: '; nextPutAll: initialSearchClass name;
+ nextPutAll: ' inNamespace: '; nextPutAll: nameSpace storeString;
+ cr.
+
+
searchClass := initialSearchClass.
[ searchClass notNil ] whileTrue:
[searchClass selectorsAndMethodsDo:
@@ -126,7 +134,7 @@
!NamespaceAwareLookup class methodsFor:'documentation'!
version_SVN
- ^ '$Id: NamespaceAwareLookup.st 10540 2010-07-10 20:13:49Z vranyj1 $'
+ ^ '$Id: NamespaceAwareLookup.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
NamespaceAwareLookup initialize!
--- a/NoHandlerError.st Mon Jul 12 06:58:22 2010 +0100
+++ b/NoHandlerError.st Mon Jul 12 17:20:36 2010 +0100
@@ -560,17 +560,18 @@
!NoHandlerError class methodsFor:'documentation'!
version
- ^ '$Id: NoHandlerError.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: NoHandlerError.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/NoHandlerError.st,v 1.19 2010/03/13 10:31:25 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/NoHandlerError.st,v 1.19 2010/03/13 10:31:25 cg Exp '
!
version_SVN
- ^ '$Id: NoHandlerError.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: NoHandlerError.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
NoHandlerError initialize!
+
--- a/NoModificationError.st Mon Jul 12 06:58:22 2010 +0100
+++ b/NoModificationError.st Mon Jul 12 17:20:36 2010 +0100
@@ -50,7 +50,7 @@
!NoModificationError class methodsFor:'documentation'!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/NoModificationError.st,v 1.2 2009/11/05 22:42:42 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/NoModificationError.st,v 1.2 2009/11/05 22:42:42 cg Exp '
!
version_SVN
@@ -60,3 +60,4 @@
NoModificationError initialize!
+
--- a/NonPositionableExternalStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/NonPositionableExternalStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -560,15 +560,16 @@
!NonPositionableExternalStream class methodsFor:'documentation'!
version
- ^ '$Id: NonPositionableExternalStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: NonPositionableExternalStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.61 2010/03/04 15:11:43 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.61 2010/03/04 15:11:43 stefan Exp '
!
version_SVN
- ^ '$Id: NonPositionableExternalStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: NonPositionableExternalStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Notification.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Notification.st Mon Jul 12 17:20:36 2010 +0100
@@ -338,17 +338,18 @@
!Notification class methodsFor:'documentation'!
version
- ^ '$Id: Notification.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Notification.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Notification.st,v 1.25 2009/10/14 17:34:24 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Notification.st,v 1.25 2009/10/14 17:34:24 cg Exp '
!
version_SVN
- ^ '$Id: Notification.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Notification.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Notification initialize!
+
--- a/Number.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Number.st Mon Jul 12 17:20:36 2010 +0100
@@ -2248,15 +2248,16 @@
!Number class methodsFor:'documentation'!
version
- ^ '$Id: Number.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Number.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Number.st,v 1.132 2010/03/06 11:29:09 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Number.st,v 1.132 2010/03/06 11:29:09 cg Exp '
!
version_SVN
- ^ '$Id: Number.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Number.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/OSErrorHolder.st Mon Jul 12 06:58:22 2010 +0100
+++ b/OSErrorHolder.st Mon Jul 12 17:20:36 2010 +0100
@@ -406,17 +406,18 @@
!OSErrorHolder class methodsFor:'documentation'!
version
- ^ '$Id: OSErrorHolder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: OSErrorHolder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/OSErrorHolder.st,v 1.17 2009/10/06 08:31:33 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/OSErrorHolder.st,v 1.17 2009/10/06 08:31:33 cg Exp '
!
version_SVN
- ^ '$Id: OSErrorHolder.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: OSErrorHolder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
OSErrorHolder initialize!
+
--- a/OSProcess.st Mon Jul 12 06:58:22 2010 +0100
+++ b/OSProcess.st Mon Jul 12 17:20:36 2010 +0100
@@ -146,7 +146,7 @@
!OSProcess class methodsFor:'documentation'!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/OSProcess.st,v 1.1 2010/04/27 08:07:00 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/OSProcess.st,v 1.1 2010/04/27 08:07:00 stefan Exp '
!
version_SVN
@@ -154,3 +154,4 @@
! !
+
--- a/Object.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Object.st Mon Jul 12 17:20:36 2010 +0100
@@ -9283,17 +9283,18 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Id: Object.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Object.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Object.st,v 1.650 2010/04/07 14:33:48 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Object.st,v 1.650 2010/04/07 14:33:48 cg Exp '
!
version_SVN
- ^ '$Id: Object.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Object.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Object initialize!
+
--- a/ObjectMemory.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ObjectMemory.st Mon Jul 12 17:20:36 2010 +0100
@@ -5353,18 +5353,19 @@
!ObjectMemory class methodsFor:'documentation'!
version
- ^ '$Id: ObjectMemory.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ObjectMemory.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.249 2010/05/11 10:31:43 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.249 2010/05/11 10:31:43 stefan Exp '
!
version_SVN
- ^ '$Id: ObjectMemory.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ObjectMemory.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ObjectMemory initialize!
+
--- a/PCFilename.st Mon Jul 12 06:58:22 2010 +0100
+++ b/PCFilename.st Mon Jul 12 17:20:36 2010 +0100
@@ -879,14 +879,15 @@
!PCFilename class methodsFor:'documentation'!
version
- ^ '$Id: PCFilename.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: PCFilename.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.50 2010/03/09 12:09:53 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.50 2010/03/09 12:09:53 cg Exp §'
! !
+
--- a/PackageId.st Mon Jul 12 06:58:22 2010 +0100
+++ b/PackageId.st Mon Jul 12 17:20:36 2010 +0100
@@ -279,15 +279,16 @@
!PackageId class methodsFor:'documentation'!
version
- ^ '$Id: PackageId.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: PackageId.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/PackageId.st,v 1.16 2009/10/22 15:43:27 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/PackageId.st,v 1.16 2009/10/22 15:43:27 cg Exp '
!
version_SVN
- ^ '$Id: PackageId.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: PackageId.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/PeekableStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/PeekableStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -1026,17 +1026,18 @@
!PeekableStream class methodsFor:'documentation'!
version
- ^ '$Id: PeekableStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: PeekableStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.39 2010/03/12 12:39:13 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.39 2010/03/12 12:39:13 cg Exp '
!
version_SVN
- ^ '$Id: PeekableStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: PeekableStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
PeekableStream initialize!
+
--- a/PipeStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/PipeStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -796,17 +796,18 @@
!PipeStream class methodsFor:'documentation'!
version
- ^ '$Id: PipeStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: PipeStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.111 2010/02/09 18:01:01 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.111 2010/02/09 18:01:01 stefan Exp '
!
version_SVN
- ^ '$Id: PipeStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: PipeStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
PipeStream initialize!
+
--- a/PluginSupport.st Mon Jul 12 06:58:22 2010 +0100
+++ b/PluginSupport.st Mon Jul 12 17:20:36 2010 +0100
@@ -184,15 +184,16 @@
!PluginSupport class methodsFor:'documentation'!
version
- ^ '$Id: PluginSupport.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: PluginSupport.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/PluginSupport.st,v 1.13 2010/02/01 18:20:21 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/PluginSupport.st,v 1.13 2010/02/01 18:20:21 stefan Exp '
!
version_SVN
- ^ '$Id: PluginSupport.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: PluginSupport.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Process.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Process.st Mon Jul 12 17:20:36 2010 +0100
@@ -2043,17 +2043,18 @@
!Process class methodsFor:'documentation'!
version
- ^ '$Id: Process.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Process.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Process.st,v 1.170 2010/03/06 13:45:45 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Process.st,v 1.170 2010/03/06 13:45:45 stefan Exp '
!
version_SVN
- ^ '$Id: Process.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Process.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Process initialize!
+
--- a/ProcessorScheduler.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ProcessorScheduler.st Mon Jul 12 17:20:36 2010 +0100
@@ -3377,17 +3377,18 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Id: ProcessorScheduler.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ProcessorScheduler.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.253 2010/02/09 19:05:37 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.253 2010/02/09 19:05:37 stefan Exp '
!
version_SVN
- ^ '$Id: ProcessorScheduler.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ProcessorScheduler.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ProcessorScheduler initialize!
+
--- a/ProgrammingLanguage.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ProgrammingLanguage.st Mon Jul 12 17:20:36 2010 +0100
@@ -405,16 +405,17 @@
!ProgrammingLanguage class methodsFor:'documentation'!
version
- ^ '$Id: ProgrammingLanguage.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ProgrammingLanguage.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.10 2009/12/04 11:21:32 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.10 2009/12/04 11:21:32 cg Exp §'
!
version_SVN
- ^ '$Id: ProgrammingLanguage.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ProgrammingLanguage.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ProgrammingLanguage initialize!
+
--- a/Project.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Project.st Mon Jul 12 17:20:36 2010 +0100
@@ -1617,17 +1617,18 @@
!Project class methodsFor:'documentation'!
version
- ^ '$Id: Project.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Project.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Project.st,v 1.208 2009/10/27 09:00:33 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Project.st,v 1.208 2009/10/27 09:00:33 cg Exp '
!
version_SVN
- ^ '$Id: Project.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Project.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Project initialize!
+
--- a/ProjectDefinition.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ProjectDefinition.st Mon Jul 12 17:20:36 2010 +0100
@@ -5590,16 +5590,17 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Id: ProjectDefinition.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ProjectDefinition.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.313 2010/05/12 08:55:22 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.313 2010/05/12 08:55:22 stefan Exp '
!
version_SVN
- ^ '$Id: ProjectDefinition.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ProjectDefinition.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
ProjectDefinition initialize!
+
--- a/ProtoObject.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ProtoObject.st Mon Jul 12 17:20:36 2010 +0100
@@ -183,15 +183,16 @@
!ProtoObject class methodsFor:'documentation'!
version
- ^ '$Id: ProtoObject.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ProtoObject.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.13 2009/12/01 19:59:38 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ProtoObject.st,v 1.13 2009/12/01 19:59:38 cg Exp '
!
version_SVN
- ^ '$Id: ProtoObject.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ProtoObject.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/PrototypeLookupAlgorithm.st Mon Jul 12 06:58:22 2010 +0100
+++ b/PrototypeLookupAlgorithm.st Mon Jul 12 17:20:36 2010 +0100
@@ -105,7 +105,7 @@
!PrototypeLookupAlgorithm class methodsFor:'documentation'!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/PrototypeLookupAlgorithm.st,v 1.3 2010/04/07 16:39:47 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/PrototypeLookupAlgorithm.st,v 1.3 2010/04/07 16:39:47 cg Exp '
!
version_SVN
@@ -113,3 +113,4 @@
! !
+
--- a/Query.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Query.st Mon Jul 12 17:20:36 2010 +0100
@@ -272,17 +272,18 @@
!Query class methodsFor:'documentation'!
version
- ^ '$Id: Query.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Query.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Query.st,v 1.13 2009/10/01 13:44:05 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Query.st,v 1.13 2009/10/01 13:44:05 cg Exp '
!
version_SVN
- ^ '$Id: Query.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Query.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Query initialize!
+
--- a/QuerySignal.st Mon Jul 12 06:58:22 2010 +0100
+++ b/QuerySignal.st Mon Jul 12 17:20:36 2010 +0100
@@ -504,15 +504,16 @@
!QuerySignal class methodsFor:'documentation'!
version
- ^ '$Id: QuerySignal.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: QuerySignal.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.44 2009/10/01 07:27:33 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/QuerySignal.st,v 1.44 2009/10/01 07:27:33 cg Exp '
!
version_SVN
- ^ '$Id: QuerySignal.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: QuerySignal.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ReadStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ReadStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -828,15 +828,16 @@
!ReadStream class methodsFor:'documentation'!
version
- ^ '$Id: ReadStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ReadStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.64 2009/11/05 16:25:23 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.64 2009/11/05 16:25:23 stefan Exp '
!
version_SVN
- ^ '$Id: ReadStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ReadStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/RecursionLock.st Mon Jul 12 06:58:22 2010 +0100
+++ b/RecursionLock.st Mon Jul 12 17:20:36 2010 +0100
@@ -310,15 +310,16 @@
!RecursionLock class methodsFor:'documentation'!
version
- ^ '$Id: RecursionLock.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: RecursionLock.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.35 2010/02/04 09:03:44 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/RecursionLock.st,v 1.35 2010/02/04 09:03:44 stefan Exp '
!
version_SVN
- ^ '$Id: RecursionLock.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: RecursionLock.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/SHA1Stream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SHA1Stream.st Mon Jul 12 17:20:36 2010 +0100
@@ -682,18 +682,19 @@
!SHA1Stream class methodsFor:'documentation'!
version
- ^ '$Id: SHA1Stream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SHA1Stream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.19 2010/04/13 14:36:36 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/SHA1Stream.st,v 1.19 2010/04/13 14:36:36 cg Exp '
!
version_SVN
- ^ '$Id: SHA1Stream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SHA1Stream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
SHA1Stream initialize!
+
--- a/Semaphore.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Semaphore.st Mon Jul 12 17:20:36 2010 +0100
@@ -920,15 +920,16 @@
!Semaphore class methodsFor:'documentation'!
version
- ^ '$Id: Semaphore.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Semaphore.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.83 2010/02/05 12:58:06 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Semaphore.st,v 1.83 2010/02/05 12:58:06 cg Exp '
!
version_SVN
- ^ '$Id: Semaphore.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Semaphore.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/SemaphoreSet.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SemaphoreSet.st Mon Jul 12 17:20:36 2010 +0100
@@ -306,15 +306,16 @@
!SemaphoreSet class methodsFor:'documentation'!
version
- ^ '$Id: SemaphoreSet.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SemaphoreSet.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.19 2010/02/05 12:58:13 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.19 2010/02/05 12:58:13 cg Exp '
!
version_SVN
- ^ '$Id: SemaphoreSet.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SemaphoreSet.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/SequenceableCollection.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SequenceableCollection.st Mon Jul 12 17:20:36 2010 +0100
@@ -1926,6 +1926,43 @@
^ true
!
+sameContentsAs:aCollection
+ "return true, if the receiver and the arg have the same contents.
+
+ Redefinded, so that SequenceableCollections are equivalent, especially OrderedCollections with
+ unused space"
+
+ |index "{ Class: SmallInteger }"
+ stop "{ Class: SmallInteger }" |
+
+ (aCollection == self) ifTrue:[^true].
+ (aCollection isSequenceable) ifFalse:[
+ aCollection with:self do:[:e1 :e2 |
+ (e1 = e2) ifFalse:[^false].
+ ].
+ ^ true
+ ].
+
+ stop := self size.
+ stop == (aCollection size) ifFalse:[^false].
+
+ index := 1.
+ [index <= stop] whileTrue:[
+ ((self at:index) = (aCollection at:index)) ifFalse:[^false].
+ index := index + 1
+ ].
+ ^ true
+
+ "
+ #(1 2 3 4 5) sameContentsAs: #(1 2 3 4 5) copy
+ #($1 $2 $3 $4 $5) sameContentsAs: #(1 2 3 4 5)
+ #($1 $2 $3 $4 $5) sameContentsAs: '12345'
+ #($1 $2 $3 $4 $5) sameContentsAs: '54321' asSortedCollection
+ "
+
+ "Created: / 09-07-2010 / 12:44:28 / sr"
+!
+
sameContentsAs:aCollection whenComparedWith:compareBlock
"return true if the receiver and aCollection represent collections
with the same contents, using compareSelector to compare elements.
@@ -2264,16 +2301,18 @@
Nil entries and empty strings are counted as empty lines."
^ self
- from:1 to:(self size)
- asStringWith:sepChar
- compressTabs:false
- final:nil
+ from:1 to:(self size)
+ asStringWith:sepChar
+ compressTabs:false
+ final:nil
"
#('hello' 'world' 'foo' 'bar' 'baz') asStringWith:$;
- "
-
- "Modified: 18.5.1996 / 15:28:14 / cg"
+ #('hello' 'world' 'foo' 'bar' 'baz') asStringWith:'|'
+ 'hello|world|foo|bar|baz' asCollectionOfSubstringsSeparatedBy:$|
+ "
+
+ "Modified: / 10-07-2010 / 22:59:29 / cg"
!
asStringWith:sepCharacter from:firstLine to:lastLine
@@ -7762,18 +7801,19 @@
!SequenceableCollection class methodsFor:'documentation'!
version
- ^ '$Id: SequenceableCollection.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SequenceableCollection.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.295 2010/04/23 13:39:19 mb Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/SequenceableCollection.st,v 1.297 2010/07/10 22:01:19 cg Exp '
!
version_SVN
- ^ '$Id: SequenceableCollection.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SequenceableCollection.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
SequenceableCollection initialize!
+
--- a/Set.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Set.st Mon Jul 12 17:20:36 2010 +0100
@@ -1156,17 +1156,18 @@
!Set class methodsFor:'documentation'!
version
- ^ '$Id: Set.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Set.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Set.st,v 1.105 2010/02/26 10:53:48 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Set.st,v 1.105 2010/02/26 10:53:48 cg Exp '
!
version_SVN
- ^ '$Id: Set.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Set.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Set initialize!
+
--- a/SharedPool.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SharedPool.st Mon Jul 12 17:20:36 2010 +0100
@@ -147,15 +147,16 @@
!SharedPool class methodsFor:'documentation'!
version
- ^ '$Id: SharedPool.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SharedPool.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.8 2009/10/12 19:09:14 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.8 2009/10/12 19:09:14 cg Exp '
!
version_SVN
- ^ '$Id: SharedPool.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SharedPool.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/ShortFloat.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ShortFloat.st Mon Jul 12 17:20:36 2010 +0100
@@ -1724,16 +1724,17 @@
!ShortFloat class methodsFor:'documentation'!
version
- ^ '$Id: ShortFloat.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ShortFloat.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.104 2010/05/05 13:56:55 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.104 2010/05/05 13:56:55 stefan Exp '
!
version_SVN
- ^ '$Id: ShortFloat.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ShortFloat.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Signal.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Signal.st Mon Jul 12 17:20:36 2010 +0100
@@ -982,15 +982,16 @@
!Signal class methodsFor:'documentation'!
version
- ^ '$Id: Signal.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Signal.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Signal.st,v 1.108 2009/10/01 07:38:26 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Signal.st,v 1.108 2009/10/01 07:38:26 cg Exp '
!
version_SVN
- ^ '$Id: Signal.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Signal.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/SignalSet.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SignalSet.st Mon Jul 12 17:20:36 2010 +0100
@@ -332,15 +332,16 @@
!SignalSet class methodsFor:'documentation'!
version
- ^ '$Id: SignalSet.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SignalSet.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.45 2009/10/01 07:38:40 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/SignalSet.st,v 1.45 2009/10/01 07:38:40 cg Exp '
!
version_SVN
- ^ '$Id: SignalSet.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SignalSet.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/SmallInteger.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SmallInteger.st Mon Jul 12 17:20:36 2010 +0100
@@ -3917,16 +3917,17 @@
!SmallInteger class methodsFor:'documentation'!
version
- ^ '$Id: SmallInteger.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SmallInteger.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.185 2010/04/13 18:58:23 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.185 2010/04/13 18:58:23 cg Exp '
!
version_SVN
- ^ '$Id: SmallInteger.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SmallInteger.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Smalltalk.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Smalltalk.st Mon Jul 12 17:20:36 2010 +0100
@@ -7462,15 +7462,15 @@
!Smalltalk class methodsFor:'documentation'!
version
- ^ '$Id: Smalltalk.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Smalltalk.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.936 2010/05/07 12:37:03 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.936 2010/05/07 12:37:03 cg Exp '
!
version_SVN
- ^ '$Id: Smalltalk.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Smalltalk.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
@@ -7482,3 +7482,4 @@
+
--- a/SmalltalkChunkFileSourceReader.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SmalltalkChunkFileSourceReader.st Mon Jul 12 17:20:36 2010 +0100
@@ -47,18 +47,19 @@
!SmalltalkChunkFileSourceReader class methodsFor:'documentation'!
version
- ^ '$Id: SmalltalkChunkFileSourceReader.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SmalltalkChunkFileSourceReader.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceReader.st,v 1.5 2009/10/08 11:56:01 fm Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceReader.st,v 1.5 2009/10/08 11:56:01 fm Exp §'
!
version_SVN
- ^ '$Id: SmalltalkChunkFileSourceReader.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SmalltalkChunkFileSourceReader.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/SmalltalkChunkFileSourceWriter.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SmalltalkChunkFileSourceWriter.st Mon Jul 12 17:20:36 2010 +0100
@@ -505,13 +505,14 @@
!SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
version
- ^ '$Id: SmalltalkChunkFileSourceWriter.st 10535 2010-07-01 19:50:00Z vranyj1 $'
+ ^ '$Id: SmalltalkChunkFileSourceWriter.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.12 2009/10/02 14:30:07 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.12 2009/10/02 14:30:07 cg Exp '
!
version_SVN
- ^ '$Id: SmalltalkChunkFileSourceWriter.st 10535 2010-07-01 19:50:00Z vranyj1 $'
+ ^ '$Id: SmalltalkChunkFileSourceWriter.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/SmalltalkLanguage.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SmalltalkLanguage.st Mon Jul 12 17:20:36 2010 +0100
@@ -211,15 +211,16 @@
!SmalltalkLanguage class methodsFor:'documentation'!
version
- ^ '$Id: SmalltalkLanguage.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SmalltalkLanguage.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.12 2009/11/12 13:53:17 stefan Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/SmalltalkLanguage.st,v 1.12 2009/11/12 13:53:17 stefan Exp §'
!
version_SVN
- ^ '$Id: SmalltalkLanguage.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SmalltalkLanguage.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/StandaloneStartup.st Mon Jul 12 06:58:22 2010 +0100
+++ b/StandaloneStartup.st Mon Jul 12 17:20:36 2010 +0100
@@ -279,7 +279,7 @@
processStartupOfASecondInstance
"This is executed when I have been started as a second instance of an already running application.
If I can get the currentID (i.e. windowID) of the first one and there is a command line argument with a file,
- send a message to the main window of the already running application, o ask it for another window.
+ send a message to the main window of the already running application, to ask it for another window.
If the currentID is unknown, ask if the user wants to open a new instance of the application anyway.
Return true if the first instance has been notified, and this second instance should exit."
@@ -316,15 +316,17 @@
].
].
^ true
+
+ "Modified: / 08-07-2010 / 00:47:44 / cg"
!
releaseApplicationMutex
- OperatingSystem isMSDOSlike ifTrue:[
- MutexHandle notNil ifTrue:[
- OperatingSystem releaseMutex: MutexHandle.
- OperatingSystem primCloseHandle: MutexHandle.
- ].
+ (MutexHandle notNil and:[OperatingSystem isMSDOSlike]) ifTrue:[
+ OperatingSystem releaseMutex: MutexHandle.
+ OperatingSystem primCloseHandle: MutexHandle.
+
+ MutexHandle := nil.
].
!
@@ -690,17 +692,18 @@
!StandaloneStartup class methodsFor:'documentation'!
version
- ^ '$Id: StandaloneStartup.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: StandaloneStartup.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.41 2009/12/18 10:15:16 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.43 2010/07/07 23:05:21 cg Exp '
!
version_SVN
- ^ '$Id: StandaloneStartup.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: StandaloneStartup.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
StandaloneStartup initialize!
+
--- a/Stream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Stream.st Mon Jul 12 17:20:36 2010 +0100
@@ -3129,17 +3129,18 @@
!Stream class methodsFor:'documentation'!
version
- ^ '$Id: Stream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Stream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Stream.st,v 1.185 2009/12/17 15:52:07 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Stream.st,v 1.185 2009/12/17 15:52:07 stefan Exp '
!
version_SVN
- ^ '$Id: Stream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Stream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Stream initialize!
+
--- a/StreamError.st Mon Jul 12 06:58:22 2010 +0100
+++ b/StreamError.st Mon Jul 12 17:20:36 2010 +0100
@@ -53,15 +53,16 @@
!StreamError class methodsFor:'documentation'!
version
- ^ '$Id: StreamError.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: StreamError.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.7 2010/02/04 11:42:34 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/StreamError.st,v 1.7 2010/02/04 11:42:34 stefan Exp '
!
version_SVN
- ^ '$Id: StreamError.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: StreamError.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/String.st Mon Jul 12 06:58:22 2010 +0100
+++ b/String.st Mon Jul 12 17:20:36 2010 +0100
@@ -3708,15 +3708,16 @@
!String class methodsFor:'documentation'!
version
- ^ '$Id: String.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: String.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/String.st,v 1.271 2010/03/06 13:31:19 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/String.st,v 1.271 2010/03/06 13:31:19 stefan Exp '
!
version_SVN
- ^ '$Id: String.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: String.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Symbol.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Symbol.st Mon Jul 12 17:20:36 2010 +0100
@@ -692,15 +692,16 @@
!Symbol class methodsFor:'documentation'!
version
- ^ '$Id: Symbol.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Symbol.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.90 2010/03/06 13:45:51 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.90 2010/03/06 13:45:51 stefan Exp '
!
version_SVN
- ^ '$Id: Symbol.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Symbol.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/SystemChangeNotifier.st Mon Jul 12 06:58:22 2010 +0100
+++ b/SystemChangeNotifier.st Mon Jul 12 17:20:36 2010 +0100
@@ -113,12 +113,13 @@
!SystemChangeNotifier class methodsFor:'documentation'!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/SystemChangeNotifier.st,v 1.4 2010/04/14 16:13:57 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/SystemChangeNotifier.st,v 1.4 2010/04/14 16:13:57 cg Exp '
!
version_SVN
- ^ '$Id: SystemChangeNotifier.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: SystemChangeNotifier.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Time.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Time.st Mon Jul 12 17:20:36 2010 +0100
@@ -714,15 +714,16 @@
!Time class methodsFor:'documentation'!
version
- ^ '$Id: Time.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Time.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Time.st,v 1.87 2010/03/31 09:39:45 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Time.st,v 1.87 2010/03/31 09:39:45 stefan Exp '
!
version_SVN
- ^ '$Id: Time.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Time.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Timestamp.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Timestamp.st Mon Jul 12 17:20:36 2010 +0100
@@ -887,6 +887,7 @@
"Created: / 16-06-2005 / 16:13:36 / masca"
! !
+
!Timestamp methodsFor:'accessing'!
day
@@ -1088,7 +1089,8 @@
deltaFrom:aTimestamp
"return the delta as a timeDuration between 2 timeStamps.
- The argument is supposed to be BEFORE the receiver"
+ The argument is supposed to be BEFORE the receiver,
+ computes self - aTimestamp"
^ TimeDuration fromMilliseconds:(self getMilliseconds - (aTimestamp getMilliseconds))
@@ -1102,11 +1104,13 @@
"
"Created: / 04-10-2007 / 13:34:28 / cg"
+ "Modified: / 10-07-2010 / 09:37:01 / cg"
!
millisecondDeltaFrom:aTimestamp
"return the delta in milliseconds between 2 absolute times.
- The argument is supposed to be BEFORE the receiver"
+ The argument is supposed to be BEFORE the receiver,
+ computes self - aTimestamp"
^ self getMilliseconds - (aTimestamp getMilliseconds)
@@ -1119,12 +1123,13 @@
t2 millisecondDeltaFrom:t1
"
- "Modified: / 5.6.1998 / 04:21:33 / cg"
+ "Modified: / 10-07-2010 / 09:37:18 / cg"
!
secondDeltaFrom:aTimestamp
"return the delta in seconds between 2 absolute times.
- The argument is supposed to be BEFORE the receiver"
+ The argument is supposed to be BEFORE the receiver,
+ computes self - aTimestamp"
^ self getSeconds - (aTimestamp getSeconds)
@@ -1137,7 +1142,7 @@
t2 secondDeltaFrom:t1
"
- "Modified: / 5.6.1998 / 04:21:33 / cg"
+ "Modified: / 10-07-2010 / 09:37:24 / cg"
! !
!Timestamp methodsFor:'comparing'!
@@ -1667,6 +1672,8 @@
"
! !
+
+
!Timestamp methodsFor:'visiting'!
acceptVisitor:aVisitor with:aParameter
@@ -2426,17 +2433,18 @@
!Timestamp class methodsFor:'documentation'!
version
- ^ '$Id: Timestamp.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Timestamp.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.129 2010/03/31 09:41:13 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Timestamp.st,v 1.130 2010/07/10 07:37:34 cg Exp '
!
version_SVN
- ^ '$Id: Timestamp.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Timestamp.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Timestamp initialize!
+
--- a/UninterpretedBytes.st Mon Jul 12 06:58:22 2010 +0100
+++ b/UninterpretedBytes.st Mon Jul 12 17:20:36 2010 +0100
@@ -2886,15 +2886,16 @@
!UninterpretedBytes class methodsFor:'documentation'!
version
- ^ '$Id: UninterpretedBytes.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UninterpretedBytes.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.76 2010/03/08 07:42:57 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.76 2010/03/08 07:42:57 stefan Exp '
!
version_SVN
- ^ '$Id: UninterpretedBytes.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UninterpretedBytes.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/UnixFilename.st Mon Jul 12 06:58:22 2010 +0100
+++ b/UnixFilename.st Mon Jul 12 17:20:36 2010 +0100
@@ -207,15 +207,16 @@
!UnixFilename class methodsFor:'documentation'!
version
- ^ '$Id: UnixFilename.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UnixFilename.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.16 2009/10/28 14:02:12 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.16 2009/10/28 14:02:12 cg Exp '
!
version_SVN
- ^ '$Id: UnixFilename.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UnixFilename.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/UnixOperatingSystem.st Mon Jul 12 06:58:22 2010 +0100
+++ b/UnixOperatingSystem.st Mon Jul 12 17:20:36 2010 +0100
@@ -12721,15 +12721,15 @@
!UnixOperatingSystem class methodsFor:'documentation'!
version
- ^ '$Id: UnixOperatingSystem.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UnixOperatingSystem.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.274 2010/04/12 18:37:20 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.274 2010/04/12 18:37:20 stefan Exp '
!
version_SVN
- ^ '$Id: UnixOperatingSystem.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UnixOperatingSystem.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
UnixOperatingSystem initialize!
@@ -12737,3 +12737,4 @@
+
--- a/UserMessage.st Mon Jul 12 06:58:22 2010 +0100
+++ b/UserMessage.st Mon Jul 12 17:20:36 2010 +0100
@@ -195,15 +195,16 @@
!UserMessage class methodsFor:'documentation'!
version
- ^ '$Id: UserMessage.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UserMessage.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/UserMessage.st,v 1.6 2009/10/02 00:08:10 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/UserMessage.st,v 1.6 2009/10/02 00:08:10 cg Exp '
!
version_SVN
- ^ '$Id: UserMessage.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UserMessage.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/UserNotification.st Mon Jul 12 06:58:22 2010 +0100
+++ b/UserNotification.st Mon Jul 12 17:20:36 2010 +0100
@@ -142,17 +142,18 @@
!UserNotification class methodsFor:'documentation'!
version
- ^ '$Id: UserNotification.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UserNotification.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/UserNotification.st,v 1.15 2009/10/14 17:34:46 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/UserNotification.st,v 1.15 2009/10/14 17:34:46 cg Exp '
!
version_SVN
- ^ '$Id: UserNotification.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: UserNotification.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
UserNotification initialize!
+
--- a/UserPreferences.st Mon Jul 12 06:58:22 2010 +0100
+++ b/UserPreferences.st Mon Jul 12 17:20:36 2010 +0100
@@ -3268,7 +3268,7 @@
!UserPreferences class methodsFor:'documentation'!
version
- ^ '$Id: UserPreferences.st 10533 2010-07-01 16:54:44Z vranyj1 $'
+ ^ '$Id: UserPreferences.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
@@ -3276,5 +3276,6 @@
!
version_SVN
- ^ '$Id: UserPreferences.st 10533 2010-07-01 16:54:44Z vranyj1 $'
+ ^ '$Id: UserPreferences.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/Warning.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Warning.st Mon Jul 12 17:20:36 2010 +0100
@@ -155,17 +155,18 @@
!Warning class methodsFor:'documentation'!
version
- ^ '$Id: Warning.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Warning.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Warning.st,v 1.14 2009/10/14 17:34:52 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Warning.st,v 1.14 2009/10/14 17:34:52 cg Exp '
!
version_SVN
- ^ '$Id: Warning.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Warning.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Warning initialize!
+
--- a/Win32Constants.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Win32Constants.st Mon Jul 12 17:20:36 2010 +0100
@@ -57,13 +57,14 @@
!Win32Constants class methodsFor:'documentation'!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Win32Constants.st,v 1.3 2010/02/01 11:29:27 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Win32Constants.st,v 1.3 2010/02/01 11:29:27 cg Exp '
!
version_SVN
- ^ '$Id: Win32Constants.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Win32Constants.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Win32Constants initialize!
+
--- a/Win32OperatingSystem.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Win32OperatingSystem.st Mon Jul 12 17:20:36 2010 +0100
@@ -9795,23 +9795,24 @@
%{
if (__bothSmallInteger(y, m)
&& __bothSmallInteger(d, h)
- && __bothSmallInteger(min, s)) {
- SYSTEMTIME sysTime;
- FILETIME fileTime;
-
- sysTime.wHour = __intVal(h);
- sysTime.wMinute = __intVal(min);
- sysTime.wSecond = __intVal(s);
- sysTime.wMilliseconds = 0;
-
- sysTime.wYear = __intVal(y);
- sysTime.wMonth = __intVal(m);
- sysTime.wDay = __intVal(d);
-
- if (SystemTimeToFileTime(&sysTime, &fileTime) == 0)
- goto error;
-
- RETURN(FileTimeToOsTime(&fileTime));
+ && __bothSmallInteger(min, s)
+ && __isSmallInteger(millis)) {
+ SYSTEMTIME sysTime;
+ FILETIME fileTime;
+
+ sysTime.wHour = __intVal(h);
+ sysTime.wMinute = __intVal(min);
+ sysTime.wSecond = __intVal(s);
+ sysTime.wMilliseconds = __intVal(millis);
+
+ sysTime.wYear = __intVal(y);
+ sysTime.wMonth = __intVal(m);
+ sysTime.wDay = __intVal(d);
+
+ if (SystemTimeToFileTime(&sysTime, &fileTime) == 0)
+ goto error;
+
+ RETURN(FileTimeToOsTime(&fileTime));
}
error:;
%}.
@@ -9823,6 +9824,8 @@
invalid:
OperatingSystem computeOSTimeFromUTCYear:1970 month:1 day:1 hour:24 minute:0 second:0 millisecond:0
"
+
+ "Modified: / 07-07-2010 / 16:56:21 / cg"
!
computeOSTimeFromYear:y month:m day:d hour:h minute:min seconds:s millis:millis
@@ -9833,31 +9836,32 @@
%{
if (__bothSmallInteger(y, m)
&& __bothSmallInteger(d, h)
- && __bothSmallInteger(min, s)) {
- SYSTEMTIME sysTime;
- FILETIME fileTime;
-
- sysTime.wHour = __intVal(h);
- sysTime.wMinute = __intVal(min);
- sysTime.wSecond = __intVal(s);
- sysTime.wMilliseconds = 0;
-
- sysTime.wYear = __intVal(y);
- sysTime.wMonth = __intVal(m);
- sysTime.wDay = __intVal(d);
+ && __bothSmallInteger(min, s)
+ && __isSmallInteger(millis)) {
+ SYSTEMTIME sysTime;
+ FILETIME fileTime;
+
+ sysTime.wHour = __intVal(h);
+ sysTime.wMinute = __intVal(min);
+ sysTime.wSecond = __intVal(s);
+ sysTime.wMilliseconds = __intVal(millis);
+
+ sysTime.wYear = __intVal(y);
+ sysTime.wMonth = __intVal(m);
+ sysTime.wDay = __intVal(d);
#if 0
- /* Sorry, but this function is not supported in Win2000
- - we use LocalFileTimeToFileTime */
- if (TzSpecificLocalTimeToSystemTime(0, &sysTime, &sysTime) == 0)
- goto error;
-#endif
- if (SystemTimeToFileTime(&sysTime, &fileTime) == 0)
- goto error;
- if (LocalFileTimeToFileTime(&fileTime, &fileTime) == 0)
- goto error;
-
- RETURN(FileTimeToOsTime(&fileTime));
+ /* Sorry, but this function is not supported in Win2000
+ - we use LocalFileTimeToFileTime */
+ if (TzSpecificLocalTimeToSystemTime(0, &sysTime, &sysTime) == 0)
+ goto error;
+#endif
+ if (SystemTimeToFileTime(&sysTime, &fileTime) == 0)
+ goto error;
+ if (LocalFileTimeToFileTime(&fileTime, &fileTime) == 0)
+ goto error;
+
+ RETURN(FileTimeToOsTime(&fileTime));
}
error:;
%}.
@@ -9868,6 +9872,8 @@
OperatingSystem computeOSTimeFromUTCYear:1970 month:1 day:1 hour:0 minute:0 second:0 millisecond:0
OperatingSystem computeOSTimeFromYear:1970 month:1 day:1 hour:0 minute:0 seconds:0 millis:0
"
+
+ "Modified: / 07-07-2010 / 16:56:56 / cg"
!
getMicrosecondTime
@@ -16293,15 +16299,15 @@
!Win32OperatingSystem class methodsFor:'documentation'!
version
- ^ '$Id: Win32OperatingSystem.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Win32OperatingSystem.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.403 2010/04/30 13:52:43 ca Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.404 2010/07/07 14:58:13 cg Exp '
!
version_SVN
- ^ '$Id: Win32OperatingSystem.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Win32OperatingSystem.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
Win32OperatingSystem initialize!
@@ -16310,3 +16316,4 @@
+
--- a/Win32Process.st Mon Jul 12 06:58:22 2010 +0100
+++ b/Win32Process.st Mon Jul 12 17:20:36 2010 +0100
@@ -217,12 +217,13 @@
!Win32Process class methodsFor:'documentation'!
version
- ^ '$Id: Win32Process.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: Win32Process.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/Win32Process.st,v 1.2 2010/02/01 11:29:35 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/Win32Process.st,v 1.2 2010/02/01 11:29:35 cg Exp §'
! !
+
--- a/WriteStream.st Mon Jul 12 06:58:22 2010 +0100
+++ b/WriteStream.st Mon Jul 12 17:20:36 2010 +0100
@@ -622,15 +622,16 @@
!WriteStream class methodsFor:'documentation'!
version
- ^ '$Id: WriteStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: WriteStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.71 2009/10/05 09:19:55 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.71 2009/10/05 09:19:55 cg Exp '
!
version_SVN
- ^ '$Id: WriteStream.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: WriteStream.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+
--- a/stx_libbasic.st Mon Jul 12 06:58:22 2010 +0100
+++ b/stx_libbasic.st Mon Jul 12 17:20:36 2010 +0100
@@ -533,21 +533,22 @@
"Return a SVN revision number of myself.
This number is updated after a commit"
- ^ "$SVN-Revision:"'10539M'"$"
+ ^ "$SVN-Revision:"'10543M'"$"
! !
!stx_libbasic class methodsFor:'documentation'!
version
- ^ '$Id: stx_libbasic.st 10540 2010-07-10 20:13:49Z vranyj1 $'
+ ^ '$Id: stx_libbasic.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/stx_libbasic.st,v 1.74 2010/04/27 08:10:31 stefan Exp §'
+ ^ 'Header: /cvs/stx/stx/libbasic/stx_libbasic.st,v 1.74 2010/04/27 08:10:31 stefan Exp '
!
version_SVN
- ^ '$Id: stx_libbasic.st 10540 2010-07-10 20:13:49Z vranyj1 $'
+ ^ '$Id: stx_libbasic.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+