--- a/WeakInterestConverter.st	Wed Mar 15 11:19:42 2006 +0100
+++ b/WeakInterestConverter.st	Wed Mar 15 11:22:20 2006 +0100
@@ -12,8 +12,10 @@
 
 
 
-Object subclass:#WeakInterestConverter
-	instanceVariableNames:'destinationHolder selector aspect'
+"{ Package: 'stx:libbasic' }"
+
+InterestConverter subclass:#WeakInterestConverter
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-Models'
@@ -80,15 +82,13 @@
 destination
     "return my destination"
 
-    ^ destinationHolder at:1
-
-    "Created: 21.5.1997 / 14:08:49 / cg"
+    ^ destination at:1
 !
 
 destination:dest selector:sel
     "set destination and selector"
 
-    destinationHolder := WeakArray with:dest.
+    destination := WeakArray with:dest.
     selector := sel
 
     "Created: 21.5.1997 / 14:08:49 / cg"
@@ -97,7 +97,7 @@
 destination:dest selector:sel aspect:a
     "set destination, selector and aspect"
 
-    destinationHolder := WeakArray with:dest.
+    destination := WeakArray with:dest.
     selector := sel.
     aspect := a
 
@@ -107,12 +107,12 @@
 !WeakInterestConverter methodsFor:'change & update'!
 
 update:something with:aParameter from:someObject
-    |destination|
+    |realDestination|
 
     (aspect isNil or:[aspect == something]) ifTrue:[
-        destination := destinationHolder at:1.
-        destination notNil ifTrue:[
-            destination perform:selector
+        realDestination := destination at:1.
+        realDestination notNil ifTrue:[
+            realDestination perform:selector
         ]
     ]
 
@@ -123,5 +123,5 @@
 !WeakInterestConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakInterestConverter.st,v 1.2 2000-02-18 14:42:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakInterestConverter.st,v 1.3 2006-03-15 10:22:20 cg Exp $'
 ! !