--- a/LazyMethod.st Sun Sep 03 17:19:47 2000 +0200
+++ b/LazyMethod.st Sun Sep 03 17:21:22 2000 +0200
@@ -180,6 +180,33 @@
^ #()
!
+messagesSent
+ "cannot ask a lazyMethod for messagesSent ..."
+
+ |m|
+
+ (m := self asExecutableMethod) notNil ifTrue:[^ m messagesSent].
+ ^ #()
+!
+
+messagesSentToSelf
+ "cannot ask a lazyMethod for messagesSentToSelf ..."
+
+ |m|
+
+ (m := self asExecutableMethod) notNil ifTrue:[^ m messagesSentToSelf].
+ ^ #()
+!
+
+messagesSentToSuper
+ "cannot ask a lazyMethod for messagesSentToSuper ..."
+
+ |m|
+
+ (m := self asExecutableMethod) notNil ifTrue:[^ m messagesSentToSuper].
+ ^ #()
+!
+
resources
"cannot ask a lazyMethod for resources ..."
@@ -195,6 +222,6 @@
!LazyMethod class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.30 2000-08-22 13:48:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.31 2000-09-03 15:21:22 cg Exp $'
! !
LazyMethod initialize!