--- a/JavaClass.st Wed Oct 14 16:19:19 1998 +0000
+++ b/JavaClass.st Wed Oct 14 16:26:43 1998 +0000
@@ -187,43 +187,43 @@
sel := selector.
(sel includes:$:) ifTrue:[
- sel := sel copyTo:(sel indexOf:$:)-1
+ sel := sel copyTo:(sel indexOf:$:)-1
].
sel := sel asSymbolIfInterned.
sel notNil ifTrue:[
- cls := aClass.
+ cls := aClass.
- [cls notNil
- and:[cls ~~ JavaObject
- and:[cls ~~ JavaClass]]] whileTrue:[
- cls methodDictionary keysAndValuesDo:[:jSel :aMethod |
- ((jSel == sel)
- or:[aMethod name = sel
- or:[aMethod signatureNameWithoutReturnType = sel]])
- ifTrue:[
- aMethod numArgs == nargs ifTrue:[
- staticMethod ifTrue:[
- aMethod isStatic ifTrue:[
- ^ aMethod
- ]
- ] ifFalse:[
- aMethod isStatic ifFalse:[
- ^ aMethod
- ]
- ]
- ]
- ]
- ].
+ [cls notNil
+ and:[cls ~~ JavaObject
+ and:[cls ~~ JavaClass]]] whileTrue:[
+ cls methodDictionary keysAndValuesDo:[:jSel :aMethod |
+ ((jSel == sel)
+ or:[aMethod name = sel
+ or:[aMethod signatureNameWithoutReturnType = sel]])
+ ifTrue:[
+ aMethod numArgs == nargs ifTrue:[
+ staticMethod ifTrue:[
+ aMethod isStatic ifTrue:[
+ ^ aMethod
+ ]
+ ] ifFalse:[
+ aMethod isStatic ifFalse:[
+ ^ aMethod
+ ]
+ ]
+ ]
+ ]
+ ].
- cls := cls superclass.
- ].
+ cls := cls superclass.
+ ].
].
-self halt.
+"/ self halt.
^ nil
- "Created: 17.8.1997 / 18:25:47 / cg"
- "Modified: 17.8.1997 / 18:31:57 / cg"
+ "Created: / 17.8.1997 / 18:25:47 / cg"
+ "Modified: / 14.10.1998 / 14:59:27 / cg"
! !
!JavaClass class methodsFor:'signature parsing'!
@@ -996,7 +996,9 @@
"return the browser to use for this class -
this can be redefined in special classes, to get different browsers"
- ^ JavaBrowser
+ ^ SystemBrowser "/ JavaBrowser
+
+ "Modified: / 14.10.1998 / 15:28:38 / cg"
!
hasInterface:aJavaInterface
@@ -1509,6 +1511,6 @@
!JavaClass class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.78 1998/07/20 11:27:08 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.79 1998/10/14 16:26:43 cg Exp $'
! !
JavaClass initialize!