add access method for selector
authorpenk
Fri, 13 Jun 2003 12:54:57 +0200
changeset 7347 1c4e0be2c4f0
parent 7346 f81c01fe741d
child 7348 277bbf3b3de2
add access method for selector
InterestConverter.st
--- a/InterestConverter.st	Fri Jun 13 12:54:13 2003 +0200
+++ b/InterestConverter.st	Fri Jun 13 12:54:57 2003 +0200
@@ -179,6 +179,12 @@
     aspect := a
 
     "Created: 8.3.1996 / 22:42:03 / cg"
+!
+
+selector
+    ^ selector
+
+    "Created: 7.3.1996 / 10:57:01 / cg"
 ! !
 
 !InterestConverter methodsFor:'change & update'!
@@ -201,5 +207,5 @@
 !InterestConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/InterestConverter.st,v 1.10 2001-09-27 17:53:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/InterestConverter.st,v 1.11 2003-06-13 10:54:57 penk Exp $'
 ! !