oops package def was missing
authorClaus Gittinger <cg@exept.de>
Tue, 21 Apr 2015 18:01:16 +0200
changeset 18249 7d686f203624
parent 18248 9e5dcd03ed41
child 18250 e785acf5ae8b
oops package def was missing
CachingRegistry.st
--- 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 $'
 ! !