--- a/CachingRegistry.st Tue Apr 21 17:13:46 2015 +0200
+++ b/CachingRegistry.st Tue Apr 21 18:01:16 2015 +0200
@@ -1,6 +1,6 @@
"
COPYRIGHT (c) 1999 by eXept Software AG
- 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
@@ -10,6 +10,7 @@
hereby transferred.
"
+"{ Package: 'stx:libbasic' }"
Registry subclass:#CachingRegistry
instanceVariableNames:'keptReferences cacheSize'
@@ -23,7 +24,7 @@
copyright
"
COPYRIGHT (c) 1999 by eXept Software AG
- 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
@@ -49,13 +50,13 @@
[author:]
- Claus Gittinger (cg@exept)
+ Claus Gittinger (cg@exept)
[see also:]
[instance variables:]
- keptObjects Collection hard referenced objects
- cacheSize Integer number of hard references
+ keptObjects Collection hard referenced objects
+ cacheSize Integer number of hard references
[class variables:]
"
@@ -74,7 +75,7 @@
keptReferences removeIdentical:anObject ifAbsent:nil.
keptReferences addLast:anObject.
keptReferences size > cacheSize ifTrue:[
- keptReferences removeFirst.
+ keptReferences removeFirst.
].
super register:anObject as:aHandle.
!
@@ -92,5 +93,5 @@
!CachingRegistry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CachingRegistry.st,v 1.1 1999-07-22 23:17:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CachingRegistry.st,v 1.2 2015-04-21 16:01:16 cg Exp $'
! !