--- a/InterestConverterWithParameters.st	Fri Feb 08 18:25:24 2013 +0100
+++ b/InterestConverterWithParameters.st	Fri Feb 08 18:25:44 2013 +0100
@@ -9,11 +9,10 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic2' }"
 
 InterestConverter subclass:#InterestConverterWithParameters
-	instanceVariableNames:''
+	instanceVariableNames:'defaultParameters'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-Models'
@@ -45,16 +44,23 @@
 "
 ! !
 
+!InterestConverterWithParameters methodsFor:'accessing'!
+
+defaultParameters:something
+    defaultParameters := something.
+! !
+
 !InterestConverterWithParameters methodsFor:'change & update'!
 
 update:something with:parameters from:someObject
     (aspect isNil or:[aspect == something]) ifTrue:[
-        destination perform:selector withArguments:parameters
+        destination perform:selector withArguments:(parameters ? defaultParameters)
     ]
 ! !
 
 !InterestConverterWithParameters class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/InterestConverterWithParameters.st,v 1.2 2006-03-15 10:24:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/InterestConverterWithParameters.st,v 1.3 2013-02-08 17:25:44 cg Exp $'
 ! !
+