.
authorclaus
Thu, 10 Aug 1995 15:19:05 +0200
changeset 84 d401ce0001dc
parent 83 7ffbdf63a543
child 85 df13b436b54e
.
CacheDict.st
CacheDictionary.st
Circle.st
EllArc.st
EllipticalArc.st
EpsonFX1PrinterStream.st
ExtBytes.st
ExtFunc.st
FX1PrStr.st
FileText.st
HPIIPrStr.st
HPLjetIIPrinterStream.st
HandlerCollection.st
HndlrColl.st
Make.proto
MappedColl.st
MappedCollection.st
MessageChannel.st
MsgChannel.st
MsgSend.st
PSPrStr.st
Polygon.st
PostscriptPrinterStream.st
PrinterStream.st
Promise.st
Queue.st
Random.st
RecLock.st
SharedQueue.st
Socket.st
SoundStr.st
SoundStream.st
StrColl.st
TwoByteStr.st
ValLink.st
ValueLink.st
VarArray.st
VarString.st
VariableArray.st
VariableString.st
--- 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 $
 "
 !