checkin from browser
authorcg
Wed, 14 Oct 1998 16:26:43 +0000
changeset 375 988259a6fa03
parent 374 946599670402
child 376 ffd6472dbf91
checkin from browser
JavaClass.st
--- 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!