--- a/WeakValueDictionary.st Thu Jul 21 17:05:17 2016 +0200
+++ b/WeakValueDictionary.st Thu Jul 21 17:05:32 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1992 by Claus Gittinger
All Rights Reserved
@@ -61,30 +59,6 @@
"
! !
-!WeakValueDictionary methodsFor:'accessing'!
-
-values
- "return a (non-weak) collection of my values"
-
- |values|
-
- valueArray size == 0 ifTrue:[^ #()].
- values := OrderedCollection new:self size.
- valueArray validElementsDo:[:v | values add:v].
- ^ values
-!
-
-valuesAs:collectionClass
- "return a (non-weak) collection (of type collectionClass) of my values"
-
- |values|
-
- valueArray size == 0 ifTrue:[^ collectionClass new].
- values := collectionClass new:self size.
- valueArray validElementsDo:[:v | values add:v].
- ^ values
-! !
-
!WeakValueDictionary methodsFor:'adding & removing'!
at:key ifAbsent:somethingRespondingToValue