--- a/RecursionLock.st Thu Feb 23 17:37:31 2017 +0100
+++ b/RecursionLock.st Thu Feb 23 17:37:38 2017 +0100
@@ -128,21 +128,23 @@
!
name
- "return the semaphores userFriendly name"
+ "return the semaphore's userFriendly name"
^ sema name
- "Created: / 28.6.1997 / 16:19:40 / cg"
- "Modified: / 14.12.1999 / 21:03:46 / cg"
+ "Created: / 28-06-1997 / 16:19:40 / cg"
+ "Modified: / 14-12-1999 / 21:03:46 / cg"
+ "Modified (comment): / 23-02-2017 / 16:48:49 / cg"
!
name:aString
- "set the semaphores userFriendly name"
+ "set the semaphore's userFriendly name"
sema name:aString
- "Created: / 28.6.1997 / 16:19:47 / cg"
- "Modified: / 14.12.1999 / 21:03:52 / cg"
+ "Created: / 28-06-1997 / 16:19:47 / cg"
+ "Modified: / 14-12-1999 / 21:03:52 / cg"
+ "Modified (comment): / 23-02-2017 / 16:48:53 / cg"
! !
!RecursionLock methodsFor:'private-initialization'!