# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 818371855 -3600
# Node ID 2804943fc6f018fdbeb88b8e0b2675ab9e49a35a
# Parent  39a348f13422c61dda1e8cb8c88b98f39326723f
checkin from browser

diff -r 39a348f13422 -r 2804943fc6f0 RecLock.st
--- a/RecLock.st	Mon Dec 04 16:00:37 1995 +0100
+++ b/RecLock.st	Thu Dec 07 22:30:55 1995 +0100
@@ -11,8 +11,6 @@
 "
 
 
-'From Smalltalk/X, Version:2.10.5 on 28-apr-1995 at 12:37:45 pm'!
-
 Object subclass:#RecursionLock
 	 instanceVariableNames:'process sema'
 	 classVariableNames:''
@@ -22,6 +20,21 @@
 
 !RecursionLock class methodsFor:'documentation'!
 
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+	      All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+!
+
 documentation
 "
     like a Semaphore for mutual exclusion, but avoids the deadlock
@@ -42,25 +55,6 @@
 	]
 "
 
-!
-
-copyright
-"
- COPYRIGHT (c) 1995 by Claus Gittinger
-	      All Rights Reserved
-
- This software is furnished under a license and may be used
- only in accordance with the terms of that license and with the
- inclusion of the above copyright notice.   This software may not
- be provided or otherwise made available to, or used by, any
- other person.  No title to or ownership of the software is
- hereby transferred.
-"
-
-!
-
-version 
-    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.5 1995-11-11 15:21:35 cg Exp $'
 ! !
 
 !RecursionLock class methodsFor:'instance creation'!
@@ -70,6 +64,12 @@
 
 ! !
 
+!RecursionLock methodsFor:'private initialization'!
+
+initialize
+    sema := Semaphore forMutualExclusion
+! !
+
 !RecursionLock methodsFor:'wait & signal'!
 
 critical:aBlock
@@ -93,8 +93,8 @@
     ].
 ! !
 
-!RecursionLock methodsFor:'private initialization'!
+!RecursionLock class methodsFor:'documentation'!
 
-initialize
-    sema := Semaphore forMutualExclusion
+version 
+    ^ '$Header: /cvs/stx/stx/libbasic2/Attic/RecLock.st,v 1.6 1995-12-07 21:30:23 cg Exp $'
 ! !
diff -r 39a348f13422 -r 2804943fc6f0 SharedQueue.st
--- a/SharedQueue.st	Mon Dec 04 16:00:37 1995 +0100
+++ b/SharedQueue.st	Thu Dec 07 22:30:55 1995 +0100
@@ -14,7 +14,8 @@
 	 instanceVariableNames:'accessProtect dataAvailable spaceAvailable'
 	 classVariableNames:''
 	 poolDictionaries:''
-	 category:'Kernel-Processes'!
+	 category:'Kernel-Processes'
+!
 
 !SharedQueue class methodsFor:'documentation'!
 
@@ -32,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.11 1995-11-11 15:21:36 cg Exp $'
-!
-
 documentation
 "
     SharedQueues provide a safe mechanism for processes to communicate.
@@ -53,17 +50,6 @@
 "
 ! !
 
-!SharedQueue methodsFor:'initialization'!
-
-init:size
-    "initialize the receiver for size entries"
-
-    super init:size.
-    accessProtect := Semaphore forMutualExclusion.
-    dataAvailable := Semaphore new.
-    spaceAvailable := Semaphore new
-! !
-
 !SharedQueue methodsFor:'accessing'!
 
 next
@@ -120,3 +106,20 @@
     ].
     ^ anObject
 ! !
+
+!SharedQueue methodsFor:'initialization'!
+
+init:size
+    "initialize the receiver for size entries"
+
+    super init:size.
+    accessProtect := Semaphore forMutualExclusion.
+    dataAvailable := Semaphore new.
+    spaceAvailable := Semaphore new
+! !
+
+!SharedQueue class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.12 1995-12-07 21:30:55 cg Exp $'
+! !