SmallSense__ClassPO.st
changeset 355 c5b093508242
parent 354 cbffe76c9b5a
child 382 4df672779edd
--- a/SmallSense__ClassPO.st	Wed Oct 01 23:44:32 2014 +0100
+++ b/SmallSense__ClassPO.st	Wed Oct 01 23:56:02 2014 +0100
@@ -164,6 +164,19 @@
     "Modified: / 20-05-2014 / 11:41:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ClassPO methodsFor:'accessing-private'!
+
+subject
+    "Return the real object for which the receiver
+     is a presentor.
+
+     For internal usage only."   
+
+    ^ self klass
+
+    "Created: / 01-10-2014 / 23:48:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ClassPO methodsFor:'converting'!
 
 asString