.
--- a/CacheDict.st Thu Aug 03 05:30:04 1995 +0200
+++ b/CacheDict.st Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -11,17 +11,17 @@
"
Dictionary subclass:#CacheDictionary
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Collections-Unordered'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Collections-Unordered'
!
CacheDictionary comment:'
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/CacheDict.st,v 1.7 1995-07-22 21:38:22 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/CacheDict.st,v 1.8 1995-08-10 13:17:40 claus Exp $
'!
!CacheDictionary class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/CacheDict.st,v 1.7 1995-07-22 21:38:22 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/CacheDict.st,v 1.8 1995-08-10 13:17:40 claus Exp $
+$Revision: 1.8 $
"
!
@@ -78,27 +79,27 @@
index := startIndex.
[true] whileTrue:[
- probe := keyArray basicAt:index.
- (probe == nil or: [probe = key]) ifTrue:[^ index].
+ probe := keyArray basicAt:index.
+ (probe == nil or: [probe = key]) ifTrue:[^ index].
- (freeIndex isNil and:[probe == DeletedEntry]) ifTrue:[
- freeIndex := index
- ].
+ (freeIndex isNil and:[probe == DeletedEntry]) ifTrue:[
+ freeIndex := index
+ ].
- index := index + 1.
- index > length ifTrue:[
- index := 1.
- ].
- index == startIndex ifTrue:[
- "mhmh - actually, a kind of round-robin would be better"
- freeIndex isNil ifTrue:[
- freeIndex := startIndex
- ].
+ index := index + 1.
+ index > length ifTrue:[
+ index := 1.
+ ].
+ index == startIndex ifTrue:[
+ "mhmh - actually, a kind of round-robin would be better"
+ freeIndex isNil ifTrue:[
+ freeIndex := startIndex
+ ].
- valueArray basicAt:freeIndex put:nil.
- tally := tally - 1.
- ^ freeIndex
- ].
+ valueArray basicAt:freeIndex put:nil.
+ tally := tally - 1.
+ ^ freeIndex
+ ].
]
! !
--- a/CacheDictionary.st Thu Aug 03 05:30:04 1995 +0200
+++ b/CacheDictionary.st Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -11,17 +11,17 @@
"
Dictionary subclass:#CacheDictionary
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Collections-Unordered'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Collections-Unordered'
!
CacheDictionary comment:'
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.7 1995-07-22 21:38:22 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.8 1995-08-10 13:17:40 claus Exp $
'!
!CacheDictionary class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1993 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.7 1995-07-22 21:38:22 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.8 1995-08-10 13:17:40 claus Exp $
+$Revision: 1.8 $
"
!
@@ -78,27 +79,27 @@
index := startIndex.
[true] whileTrue:[
- probe := keyArray basicAt:index.
- (probe == nil or: [probe = key]) ifTrue:[^ index].
+ probe := keyArray basicAt:index.
+ (probe == nil or: [probe = key]) ifTrue:[^ index].
- (freeIndex isNil and:[probe == DeletedEntry]) ifTrue:[
- freeIndex := index
- ].
+ (freeIndex isNil and:[probe == DeletedEntry]) ifTrue:[
+ freeIndex := index
+ ].
- index := index + 1.
- index > length ifTrue:[
- index := 1.
- ].
- index == startIndex ifTrue:[
- "mhmh - actually, a kind of round-robin would be better"
- freeIndex isNil ifTrue:[
- freeIndex := startIndex
- ].
+ index := index + 1.
+ index > length ifTrue:[
+ index := 1.
+ ].
+ index == startIndex ifTrue:[
+ "mhmh - actually, a kind of round-robin would be better"
+ freeIndex isNil ifTrue:[
+ freeIndex := startIndex
+ ].
- valueArray basicAt:freeIndex put:nil.
- tally := tally - 1.
- ^ freeIndex
- ].
+ valueArray basicAt:freeIndex put:nil.
+ tally := tally - 1.
+ ^ freeIndex
+ ].
]
! !
--- a/Circle.st Thu Aug 03 05:30:04 1995 +0200
+++ b/Circle.st Thu Aug 10 15:19:05 1995 +0200
@@ -23,7 +23,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Circle.st,v 1.1 1995-06-06 04:01:34 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Circle.st,v 1.2 1995-08-10 13:17:43 claus Exp $
+$Revision: 1.2 $
"
!
--- a/EllArc.st Thu Aug 03 05:30:04 1995 +0200
+++ b/EllArc.st Thu Aug 10 15:19:05 1995 +0200
@@ -35,7 +35,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/EllArc.st,v 1.1 1995-06-06 04:01:53 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/EllArc.st,v 1.2 1995-08-10 13:17:47 claus Exp $
+$Revision: 1.2 $
"
!
--- a/EllipticalArc.st Thu Aug 03 05:30:04 1995 +0200
+++ b/EllipticalArc.st Thu Aug 10 15:19:05 1995 +0200
@@ -35,7 +35,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/EllipticalArc.st,v 1.1 1995-06-06 04:01:53 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/EllipticalArc.st,v 1.2 1995-08-10 13:17:47 claus Exp $
+$Revision: 1.2 $
"
!
--- a/EpsonFX1PrinterStream.st Thu Aug 03 05:30:04 1995 +0200
+++ b/EpsonFX1PrinterStream.st Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1991 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -11,17 +11,17 @@
"
PrinterStream subclass:#EpsonFX1PrinterStream
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Streams-External'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Streams-External'
!
EpsonFX1PrinterStream comment:'
COPYRIGHT (c) 1991 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/EpsonFX1PrinterStream.st,v 1.8 1994-08-05 01:06:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/EpsonFX1PrinterStream.st,v 1.9 1995-08-10 13:17:57 claus Exp $
'!
!EpsonFX1PrinterStream class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1991 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/EpsonFX1PrinterStream.st,v 1.8 1994-08-05 01:06:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/EpsonFX1PrinterStream.st,v 1.9 1995-08-10 13:17:57 claus Exp $
+$Revision: 1.9 $
"
!
@@ -91,9 +92,9 @@
super nextPut:(Character esc).
super nextPut:$p.
aBoolean ifTrue:[
- super nextPut:$1
+ super nextPut:$1
] ifFalse:[
- super nextPut:$0
+ super nextPut:$0
]
!
@@ -124,28 +125,28 @@
ascii := aCharacter asciiValue.
(ascii < 128) ifTrue:[
- ^ super nextPut:aCharacter
+ ^ super nextPut:aCharacter
].
(ascii == 16rfc) ifTrue:[ "udiaeresis"
- ^ self character:$} fromCharacterSet:2
+ ^ self character:$} fromCharacterSet:2
].
(ascii == 16re4) ifTrue:[ "adiaeresis"
- ^ self character:${ fromCharacterSet:2
+ ^ self character:${ fromCharacterSet:2
].
(ascii == 16rf6) ifTrue:[ "odiaeresis"
- ^ self character:$| fromCharacterSet:2
+ ^ self character:$| fromCharacterSet:2
].
(ascii == 16rdc) ifTrue:[ "Udiaeresis"
- ^ self character:$] fromCharacterSet:2
+ ^ self character:$] fromCharacterSet:2
].
(ascii == 16rc4) ifTrue:[ "Adiaeresis"
- ^ self character:$[ fromCharacterSet:2
+ ^ self character:$[ fromCharacterSet:2
].
(ascii == 16rd6) ifTrue:[ "Odiaeresis"
- ^ self character:$\ fromCharacterSet:2
+ ^ self character:$\ fromCharacterSet:2
].
(ascii == 16rdf) ifTrue:[ "ssharp"
- ^ self character:$~ fromCharacterSet:2
+ ^ self character:$~ fromCharacterSet:2
]
!
--- a/ExtBytes.st Thu Aug 03 05:30:04 1995 +0200
+++ b/ExtBytes.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/ExtBytes.st,v 1.13 1995-06-27 02:15:36 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/ExtBytes.st,v 1.14 1995-08-10 13:17:50 claus Exp $
'!
!ExternalBytes class methodsFor:'documentation'!
@@ -42,17 +42,18 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/ExtBytes.st,v 1.13 1995-06-27 02:15:36 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/ExtBytes.st,v 1.14 1995-08-10 13:17:50 claus Exp $
+$Revision: 1.14 $
"
!
documentation
"
This class provides access to any memory in the system. Its main purpose
- is to provide a baseclass for classes referencing structured external data.
+ is to provide a baseclass for objects referencing structured external data.
Since the memory address of an instance stays fixed (once allocated),
- it can also be used to share data with external C-parts (which are not
- prepared for objects to change their address).
+ it can also be used to share data with external C-parts
+ (which are not prepared for objects to change their address).
Use with great care - access is not always checked for out-of-bounds
or valid addresses.
@@ -71,7 +72,10 @@
freeing until the next garbage collect occurs.
If you need memory which is automatically freed, create
- the instance via #unprotectedNew:.
+ the instance via #unprotectedNew: right away; the underlying malloced-memory
+ will be released as soon as no smalltalk reference to the ExtBytes object
+ exists any more (however, you have to know for sure, that no C-references
+ exist to this memory).
To release all memory call #releaseAllMemory which simply sets the
AllocatedInstances class variable to nil (thus releasing those refs).
@@ -98,7 +102,7 @@
...
buffer unregister
- This class only supported unstructured external data
+ This class only supports unstructured external data
- see the companion class ExternalStructure for more.
Notice: support for external data is still being developed -
@@ -107,6 +111,68 @@
Also notice, that this class may not be available or behave different
in other smalltalk systems, making code using it very unportable.
+ It is provided for C interfacing only.
+
+ Finally note, that ST/X's memory system is much faster than malloc/free
+ in the normal case - especially for short term temporary objects,
+ automatically reclaimed object memory is about 5-10 times faster than
+ malloc/free.
+ Things may be different for huge byte-valued objects, which are to be
+ reclaimed by the oldspace colletor.
+ Anyway, for portability, we strongly warn from using this as a substitute
+ for byteArrays.
+"
+!
+
+examples
+"
+ These examples below are not directly executable;
+ some require primitive code to be compiled, or are simply given
+ as sceletton.
+ Notice, that in C, indexing is 0-based, while in Smalltalk, indices start
+ at 1.
+
+ allocating memory in ST, passing it to C:
+
+ in smalltalk:
+ ...
+ bytes := ExternalBytes new:100.
+ ...
+
+ in C (assuming that the bytes-object has been passed):
+
+ ...
+ char *bytePtr;
+
+ bytePtr = (char *)(__externalBytesAddress(bytes));
+ if (bytePtr) {
+ ... do something with bytes at bytePtr ...
+ }
+
+ freeing (in ST):
+
+ ...
+ bytes free.
+ ...
+
+ allocating memory in C, passing it to ST:
+
+ in C:
+ ...
+ char *bytePtr;
+
+ bytePtr = (char *)(malloc(100));
+ ...
+ RETURN (__MKEXTERNALBYTES(bytePtr));
+
+ in Smalltalk (extracting bytes, integers or strings):
+
+ byteVal := bytes byteAt:1.
+ ...
+ intVal := bytes doubleWordAt:1 MSB:true.
+ ...
+ string := bytes stringAt:20.
+ ...
"
! !
--- a/ExtFunc.st Thu Aug 03 05:30:04 1995 +0200
+++ b/ExtFunc.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/ExtFunc.st,v 1.7 1995-07-22 21:38:32 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/ExtFunc.st,v 1.8 1995-08-10 13:17:54 claus Exp $
'!
!ExternalFunction class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/ExtFunc.st,v 1.7 1995-07-22 21:38:32 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/ExtFunc.st,v 1.8 1995-08-10 13:17:54 claus Exp $
+$Revision: 1.8 $
"
!
--- a/FX1PrStr.st Thu Aug 03 05:30:04 1995 +0200
+++ b/FX1PrStr.st Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1991 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -11,17 +11,17 @@
"
PrinterStream subclass:#EpsonFX1PrinterStream
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Streams-External'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Streams-External'
!
EpsonFX1PrinterStream comment:'
COPYRIGHT (c) 1991 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/FX1PrStr.st,v 1.8 1994-08-05 01:06:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/FX1PrStr.st,v 1.9 1995-08-10 13:17:57 claus Exp $
'!
!EpsonFX1PrinterStream class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1991 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/FX1PrStr.st,v 1.8 1994-08-05 01:06:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/FX1PrStr.st,v 1.9 1995-08-10 13:17:57 claus Exp $
+$Revision: 1.9 $
"
!
@@ -91,9 +92,9 @@
super nextPut:(Character esc).
super nextPut:$p.
aBoolean ifTrue:[
- super nextPut:$1
+ super nextPut:$1
] ifFalse:[
- super nextPut:$0
+ super nextPut:$0
]
!
@@ -124,28 +125,28 @@
ascii := aCharacter asciiValue.
(ascii < 128) ifTrue:[
- ^ super nextPut:aCharacter
+ ^ super nextPut:aCharacter
].
(ascii == 16rfc) ifTrue:[ "udiaeresis"
- ^ self character:$} fromCharacterSet:2
+ ^ self character:$} fromCharacterSet:2
].
(ascii == 16re4) ifTrue:[ "adiaeresis"
- ^ self character:${ fromCharacterSet:2
+ ^ self character:${ fromCharacterSet:2
].
(ascii == 16rf6) ifTrue:[ "odiaeresis"
- ^ self character:$| fromCharacterSet:2
+ ^ self character:$| fromCharacterSet:2
].
(ascii == 16rdc) ifTrue:[ "Udiaeresis"
- ^ self character:$] fromCharacterSet:2
+ ^ self character:$] fromCharacterSet:2
].
(ascii == 16rc4) ifTrue:[ "Adiaeresis"
- ^ self character:$[ fromCharacterSet:2
+ ^ self character:$[ fromCharacterSet:2
].
(ascii == 16rd6) ifTrue:[ "Odiaeresis"
- ^ self character:$\ fromCharacterSet:2
+ ^ self character:$\ fromCharacterSet:2
].
(ascii == 16rdf) ifTrue:[ "ssharp"
- ^ self character:$~ fromCharacterSet:2
+ ^ self character:$~ fromCharacterSet:2
]
!
--- a/FileText.st Thu Aug 03 05:30:04 1995 +0200
+++ b/FileText.st Thu Aug 10 15:19:05 1995 +0200
@@ -22,7 +22,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/FileText.st,v 1.9 1995-02-11 16:43:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/FileText.st,v 1.10 1995-08-10 13:18:00 claus Exp $
'!
!FileText class methodsFor:'documentation'!
@@ -43,7 +43,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/FileText.st,v 1.9 1995-02-11 16:43:14 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/FileText.st,v 1.10 1995-08-10 13:18:00 claus Exp $
+$Revision: 1.10 $
"
!
--- a/HPIIPrStr.st Thu Aug 03 05:30:04 1995 +0200
+++ b/HPIIPrStr.st Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
HPLjetIIPrinterStream comment:'
COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/HPIIPrStr.st,v 1.7 1994-08-05 01:06:54 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/HPIIPrStr.st,v 1.8 1995-08-10 13:18:03 claus Exp $
'!
!HPLjetIIPrinterStream class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,8 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/HPIIPrStr.st,v 1.7 1994-08-05 01:06:54 claus Exp $
-5 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/HPIIPrStr.st,v 1.8 1995-08-10 13:18:03 claus Exp $
+$Revision: 1.8 $
"
!
--- a/HPLjetIIPrinterStream.st Thu Aug 03 05:30:04 1995 +0200
+++ b/HPLjetIIPrinterStream.st Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
HPLjetIIPrinterStream comment:'
COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.7 1994-08-05 01:06:54 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.8 1995-08-10 13:18:03 claus Exp $
'!
!HPLjetIIPrinterStream class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1988 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,8 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.7 1994-08-05 01:06:54 claus Exp $
-5 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/HPLjetIIPrinterStream.st,v 1.8 1995-08-10 13:18:03 claus Exp $
+$Revision: 1.8 $
"
!
--- a/HandlerCollection.st Thu Aug 03 05:30:04 1995 +0200
+++ b/HandlerCollection.st Thu Aug 10 15:19:05 1995 +0200
@@ -40,7 +40,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/HandlerCollection.st,v 1.1 1994-10-10 00:54:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/HandlerCollection.st,v 1.2 1995-08-10 13:18:06 claus Exp $
+$Revision: 1.2 $
"
!
--- a/HndlrColl.st Thu Aug 03 05:30:04 1995 +0200
+++ b/HndlrColl.st Thu Aug 10 15:19:05 1995 +0200
@@ -40,7 +40,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/HndlrColl.st,v 1.1 1994-10-10 00:54:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/HndlrColl.st,v 1.2 1995-08-10 13:18:06 claus Exp $
+$Revision: 1.2 $
"
!
--- a/Make.proto Thu Aug 03 05:30:04 1995 +0200
+++ b/Make.proto Thu Aug 10 15:19:05 1995 +0200
@@ -8,7 +8,7 @@
LIBNAME=libbasic2
STCOPT=$(LIBBASIC2_STCOPT)
-STCLOCALOPT='-Padditional-basic-classes-(libbasic2)' $(COMMONSYMBOLS)
+STCLOCALOPT='-Padditional-basic-classes-(libbasic2)' $(COMMONSYMBOLS) $(LINKILC)
# all:: abbrev.stc $(UNCRITICALOBJS) $(OBJS) genClassList $(OBJTARGET)
all:: abbrev.stc objs genClassList $(OBJTARGET)
--- a/MappedColl.st Thu Aug 03 05:30:04 1995 +0200
+++ b/MappedColl.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/MappedColl.st,v 1.9 1994-11-28 20:56:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/MappedColl.st,v 1.10 1995-08-10 13:18:08 claus Exp $
'!
!MappedCollection class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/MappedColl.st,v 1.9 1994-11-28 20:56:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/MappedColl.st,v 1.10 1995-08-10 13:18:08 claus Exp $
+$Revision: 1.10 $
"
!
--- a/MappedCollection.st Thu Aug 03 05:30:04 1995 +0200
+++ b/MappedCollection.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.9 1994-11-28 20:56:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.10 1995-08-10 13:18:08 claus Exp $
'!
!MappedCollection class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.9 1994-11-28 20:56:58 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/MappedCollection.st,v 1.10 1995-08-10 13:18:08 claus Exp $
+$Revision: 1.10 $
"
!
--- a/MessageChannel.st Thu Aug 03 05:30:04 1995 +0200
+++ b/MessageChannel.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/MessageChannel.st,v 1.1 1995-07-22 21:38:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/MessageChannel.st,v 1.2 1995-08-10 13:18:11 claus Exp $
'!
!MessageChannel class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/MessageChannel.st,v 1.1 1995-07-22 21:38:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/MessageChannel.st,v 1.2 1995-08-10 13:18:11 claus Exp $
+$Revision: 1.2 $
"
!
--- a/MsgChannel.st Thu Aug 03 05:30:04 1995 +0200
+++ b/MsgChannel.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/MsgChannel.st,v 1.1 1995-07-22 21:38:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/MsgChannel.st,v 1.2 1995-08-10 13:18:11 claus Exp $
'!
!MessageChannel class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/MsgChannel.st,v 1.1 1995-07-22 21:38:50 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/MsgChannel.st,v 1.2 1995-08-10 13:18:11 claus Exp $
+$Revision: 1.2 $
"
!
--- a/MsgSend.st Thu Aug 03 05:30:04 1995 +0200
+++ b/MsgSend.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/MsgSend.st,v 1.4 1995-07-22 21:48:28 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/MsgSend.st,v 1.5 1995-08-10 13:18:15 claus Exp $
'!
!MessageSend class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/MsgSend.st,v 1.4 1995-07-22 21:48:28 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/MsgSend.st,v 1.5 1995-08-10 13:18:15 claus Exp $
+$Revision: 1.5 $
"
!
--- a/PSPrStr.st Thu Aug 03 05:30:04 1995 +0200
+++ b/PSPrStr.st Thu Aug 10 15:19:05 1995 +0200
@@ -26,7 +26,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.10 1995-05-01 23:02:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.11 1995-08-10 13:18:18 claus Exp $
'!
!PostscriptPrinterStream class methodsFor:'documentation'!
@@ -47,7 +47,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.10 1995-05-01 23:02:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/PSPrStr.st,v 1.11 1995-08-10 13:18:18 claus Exp $
+$Revision: 1.11 $
"
!
--- a/Polygon.st Thu Aug 03 05:30:04 1995 +0200
+++ b/Polygon.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.9 1995-06-06 04:02:10 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.10 1995-08-10 13:18:21 claus Exp $
'!
!Polygon class methodsFor: 'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.9 1995-06-06 04:02:10 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Polygon.st,v 1.10 1995-08-10 13:18:21 claus Exp $
+$Revision: 1.10 $
"
!
--- a/PostscriptPrinterStream.st Thu Aug 03 05:30:04 1995 +0200
+++ b/PostscriptPrinterStream.st Thu Aug 10 15:19:05 1995 +0200
@@ -26,7 +26,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.10 1995-05-01 23:02:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.11 1995-08-10 13:18:18 claus Exp $
'!
!PostscriptPrinterStream class methodsFor:'documentation'!
@@ -47,7 +47,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.10 1995-05-01 23:02:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.11 1995-08-10 13:18:18 claus Exp $
+$Revision: 1.11 $
"
!
--- a/PrinterStream.st Thu Aug 03 05:30:04 1995 +0200
+++ b/PrinterStream.st Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1990 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
PrinterStream comment:'
COPYRIGHT (c) 1990 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.8 1994-08-05 01:07:07 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.9 1995-08-10 13:18:24 claus Exp $
'!
!PrinterStream class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1990 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.8 1994-08-05 01:07:07 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.9 1995-08-10 13:18:24 claus Exp $
+$Revision: 1.9 $
"
!
@@ -60,14 +61,14 @@
"this is usually redefined by the startup-file"
PrintCommand isNil ifTrue:[
- OperatingSystem isBSDlike ifTrue:[
- PrintCommand := 'lpr'
- ] ifFalse:[
- PrintCommand := 'lp'
- ]
+ OperatingSystem isBSDlike ifTrue:[
+ PrintCommand := 'lpr'
+ ] ifFalse:[
+ PrintCommand := 'lp'
+ ]
].
LeftMargin isNil ifTrue:[
- LeftMargin := 0
+ LeftMargin := 0
]
! !
@@ -133,7 +134,7 @@
"send some characters to the printer - translate as needed"
aCollection do:[:aChar |
- self nextPut:aChar
+ self nextPut:aChar
]
!
@@ -141,10 +142,10 @@
"send some characters to the printer - translate as needed"
(aCharacter == Character cr) ifTrue:[
- super nextPut:(Character cr).
- self spaces:LeftMargin
+ super nextPut:(Character cr).
+ self spaces:LeftMargin
] ifFalse:[
- super nextPut:aCharacter
+ super nextPut:aCharacter
]
!
@@ -159,7 +160,7 @@
"send some spaces to the printer"
aNumber timesRepeat:[
- super nextPut:(Character space)
+ super nextPut:(Character space)
]
!
--- a/Promise.st Thu Aug 03 05:30:04 1995 +0200
+++ b/Promise.st Thu Aug 10 15:19:05 1995 +0200
@@ -37,7 +37,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Promise.st,v 1.2 1995-05-16 17:10:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Promise.st,v 1.3 1995-08-10 13:18:26 claus Exp $
+$Revision: 1.3 $
"
!
--- a/Queue.st Thu Aug 03 05:30:04 1995 +0200
+++ b/Queue.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Queue.st,v 1.10 1995-07-22 21:48:34 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Queue.st,v 1.11 1995-08-10 13:18:29 claus Exp $
'!
!Queue class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Queue.st,v 1.10 1995-07-22 21:48:34 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Queue.st,v 1.11 1995-08-10 13:18:29 claus Exp $
+$Revision: 1.11 $
"
!
--- a/Random.st Thu Aug 03 05:30:04 1995 +0200
+++ b/Random.st Thu Aug 10 15:19:05 1995 +0200
@@ -37,7 +37,7 @@
Copyright (C) 1988, 1989 Free Software Foundation, Inc.
Written by Steve Byrne.
-$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.9 1995-05-16 17:11:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.10 1995-08-10 13:18:32 claus Exp $
'!
!Random class methodsFor:'documentation'!
@@ -72,7 +72,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.9 1995-05-16 17:11:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.10 1995-08-10 13:18:32 claus Exp $
+$Revision: 1.10 $
"
!
--- a/RecLock.st Thu Aug 03 05:30:04 1995 +0200
+++ b/RecLock.st Thu Aug 10 15:19:05 1995 +0200
@@ -61,7 +61,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.2 1995-05-09 00:17:53 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.3 1995-08-10 13:18:35 claus Exp $
+$Revision: 1.3 $
"
! !
--- a/SharedQueue.st Thu Aug 03 05:30:04 1995 +0200
+++ b/SharedQueue.st Thu Aug 10 15:19:05 1995 +0200
@@ -20,7 +20,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.8 1995-03-18 05:08:21 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.9 1995-08-10 13:18:38 claus Exp $
'!
!SharedQueue class methodsFor:'documentation'!
@@ -41,7 +41,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.8 1995-03-18 05:08:21 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.9 1995-08-10 13:18:38 claus Exp $
+$Revision: 1.9 $
"
!
--- a/Socket.st Thu Aug 03 05:30:04 1995 +0200
+++ b/Socket.st Thu Aug 10 15:19:05 1995 +0200
@@ -22,7 +22,7 @@
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.25 1995-08-03 03:30:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.26 1995-08-10 13:18:42 claus Exp $
'!
!Socket class methodsFor:'documentation'!
@@ -43,7 +43,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.25 1995-08-03 03:30:04 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.26 1995-08-10 13:18:42 claus Exp $
+$Revision: 1.26 $
"
!
@@ -1379,7 +1380,7 @@
if (_INST(domain) == @symbol(inet)) {
he = gethostbyaddr((char *) &sa.sin_addr.s_addr, alen, AF_INET) ;
if (! he) {
- unsigned long norder;
+ unsigned long norder;
norder = htonl(sa.sin_addr.s_addr) ;
sprintf(dotted, "%d.%d.%d.%d",
--- a/SoundStr.st Thu Aug 03 05:30:04 1995 +0200
+++ b/SoundStr.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.13 1995-02-15 10:29:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.14 1995-08-10 13:18:47 claus Exp $
'!
!SoundStream class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.13 1995-02-15 10:29:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/SoundStr.st,v 1.14 1995-08-10 13:18:47 claus Exp $
+$Revision: 1.14 $
"
!
--- a/SoundStream.st Thu Aug 03 05:30:04 1995 +0200
+++ b/SoundStream.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.13 1995-02-15 10:29:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.14 1995-08-10 13:18:47 claus Exp $
'!
!SoundStream class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.13 1995-02-15 10:29:26 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/SoundStream.st,v 1.14 1995-08-10 13:18:47 claus Exp $
+$Revision: 1.14 $
"
!
--- a/StrColl.st Thu Aug 03 05:30:04 1995 +0200
+++ b/StrColl.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/StrColl.st,v 1.14 1995-02-26 18:16:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/StrColl.st,v 1.15 1995-08-10 13:18:50 claus Exp $
'!
!StringCollection class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/StrColl.st,v 1.14 1995-02-26 18:16:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/StrColl.st,v 1.15 1995-08-10 13:18:50 claus Exp $
+$Revision: 1.15 $
"
!
--- a/TwoByteStr.st Thu Aug 03 05:30:04 1995 +0200
+++ b/TwoByteStr.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/TwoByteStr.st,v 1.10 1995-02-16 03:02:23 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/TwoByteStr.st,v 1.11 1995-08-10 13:18:53 claus Exp $
'!
!TwoByteString class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/TwoByteStr.st,v 1.10 1995-02-16 03:02:23 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/TwoByteStr.st,v 1.11 1995-08-10 13:18:53 claus Exp $
+$Revision: 1.11 $
"
!
--- a/ValLink.st Thu Aug 03 05:30:04 1995 +0200
+++ b/ValLink.st Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1992 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
ValueLink comment:'
COPYRIGHT (c) 1992 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/ValLink.st,v 1.6 1994-08-05 01:07:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/ValLink.st,v 1.7 1995-08-10 13:18:56 claus Exp $
'!
!ValueLink class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1992 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/ValLink.st,v 1.6 1994-08-05 01:07:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/ValLink.st,v 1.7 1995-08-10 13:18:56 claus Exp $
+$Revision: 1.7 $
"
!
--- a/ValueLink.st Thu Aug 03 05:30:04 1995 +0200
+++ b/ValueLink.st Thu Aug 10 15:19:05 1995 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1992 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
ValueLink comment:'
COPYRIGHT (c) 1992 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/ValueLink.st,v 1.6 1994-08-05 01:07:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/ValueLink.st,v 1.7 1995-08-10 13:18:56 claus Exp $
'!
!ValueLink class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
copyright
"
COPYRIGHT (c) 1992 by Claus Gittinger
- All Rights Reserved
+ All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/ValueLink.st,v 1.6 1994-08-05 01:07:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/ValueLink.st,v 1.7 1995-08-10 13:18:56 claus Exp $
+$Revision: 1.7 $
"
!
--- a/VarArray.st Thu Aug 03 05:30:04 1995 +0200
+++ b/VarArray.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/VarArray.st,v 1.9 1995-02-15 10:29:29 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/VarArray.st,v 1.10 1995-08-10 13:18:59 claus Exp $
'!
!VariableArray class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/VarArray.st,v 1.9 1995-02-15 10:29:29 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/VarArray.st,v 1.10 1995-08-10 13:18:59 claus Exp $
+$Revision: 1.10 $
"
!
--- a/VarString.st Thu Aug 03 05:30:04 1995 +0200
+++ b/VarString.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/Attic/VarString.st,v 1.10 1995-02-11 14:10:16 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/VarString.st,v 1.11 1995-08-10 13:19:02 claus Exp $
'!
!VariableString class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/Attic/VarString.st,v 1.10 1995-02-11 14:10:16 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/Attic/VarString.st,v 1.11 1995-08-10 13:19:02 claus Exp $
+$Revision: 1.11 $
"
!
--- a/VariableArray.st Thu Aug 03 05:30:04 1995 +0200
+++ b/VariableArray.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/VariableArray.st,v 1.9 1995-02-15 10:29:29 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/VariableArray.st,v 1.10 1995-08-10 13:18:59 claus Exp $
'!
!VariableArray class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/VariableArray.st,v 1.9 1995-02-15 10:29:29 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/VariableArray.st,v 1.10 1995-08-10 13:18:59 claus Exp $
+$Revision: 1.10 $
"
!
--- a/VariableString.st Thu Aug 03 05:30:04 1995 +0200
+++ b/VariableString.st Thu Aug 10 15:19:05 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1990 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic2/VariableString.st,v 1.10 1995-02-11 14:10:16 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/VariableString.st,v 1.11 1995-08-10 13:19:02 claus Exp $
'!
!VariableString class methodsFor:'documentation'!
@@ -42,7 +42,8 @@
version
"
-$Header: /cvs/stx/stx/libbasic2/VariableString.st,v 1.10 1995-02-11 14:10:16 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/VariableString.st,v 1.11 1995-08-10 13:19:02 claus Exp $
+$Revision: 1.11 $
"
!