--- a/JavaMethodref.st	Thu May 02 23:11:11 1996 +0000
+++ b/JavaMethodref.st	Fri May 03 11:29:12 1996 +0000
@@ -6,6 +6,30 @@
 !
 
 
+!JavaMethodref methodsFor:'accessing'!
+
+name
+    ^ nameandType name.
+!
+
+selector
+    sel isNil ifTrue:[
+        sel := (nameandType name , nameandType signature) asSymbol.
+    ].
+    ^ sel
+!
+
+signature
+    ^ nameandType signature.
+! !
+
+!JavaMethodref methodsFor:'printing & storing'!
+
+displayString
+    ^ 'JavaMethodRef (' , class displayString , ' ' 
+                        , '''' , nameandType name , '''' , nameandType signature , ')'
+! !
+
 !JavaMethodref methodsFor:'resolving'!
 
 method
@@ -31,12 +55,14 @@
 "/ idx print. ' 'print. sel printNL.
         sel == mSel ifTrue:[
             ^ class methodArray at:idx.
+
 "/            mthd := class methodArray at:idx.
 "/ 'try: ' print. mthd signatureName printNL.
 "/            mthd signature = sig ifTrue:[
 "/                method := mthd.
 "/                ^ mthd
 "/            ]
+
         ]
     ].
     self halt.
@@ -64,8 +90,9 @@
         cls selectorArray keysAndValuesDo:[:idx :mSel |
 "/ idx print. ' 'print. sel printNL.
             sel == mSel ifTrue:[
-                ^ class methodArray at:idx.
-"/                mthd := class methodArray at:idx.
+                ^ cls methodArray at:idx.
+
+"/                mthd := cls methodArray at:idx.
 "/                mthd signature = sig ifTrue:[
 "/                    method := mthd.
 "/                    ^ mthd
@@ -74,11 +101,11 @@
         ].
         cls := cls superclass
     ].
-    self halt.
+    ^ nil
 ! !
 
 !JavaMethodref class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethodref.st,v 1.6 1996/05/01 16:22:32 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaMethodref.st,v 1.7 1996/05/03 11:28:51 cg Exp $'
 ! !