--- a/JavaClass.st Mon Mar 04 17:35:38 2013 +0000
+++ b/JavaClass.st Mon Mar 04 19:13:45 2013 +0000
@@ -61,7 +61,6 @@
"
! !
-
!JavaClass class methodsFor:'instance creation'!
fullName:aString
@@ -116,7 +115,6 @@
"Created: 15.4.1996 / 15:52:55 / cg"
! !
-
!JavaClass class methodsFor:'boxing-unboxing'!
box: stArgumentsCollection to: typesCollection
@@ -140,7 +138,6 @@
"Created: / 30-08-2011 / 22:13:41 / Jan Kurs <kursjan@fit.cvut.cz>"
! !
-
!JavaClass class methodsFor:'class initialization'!
initialize
@@ -150,7 +147,6 @@
"Created: / 20-10-2010 / 11:11:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass class methodsFor:'method lookup'!
canConvertArgsToJava:argArray asSpecifiedIn:argSigSpecArray
@@ -469,7 +465,6 @@
"Modified: / 4.11.1998 / 19:31:33 / cg"
! !
-
!JavaClass class methodsFor:'signature parsing'!
initialValueFromSignature:aSignature
@@ -489,7 +484,6 @@
! !
-
!JavaClass class methodsFor:'special'!
deinitClasses
@@ -536,7 +530,6 @@
"Modified: / 12.11.1998 / 15:29:10 / cg"
! !
-
!JavaClass methodsFor:'accessing'!
allFields
@@ -883,7 +876,6 @@
"Modified: 21.1.1997 / 22:48:28 / cg"
! !
-
!JavaClass methodsFor:'accessing - java'!
javaMirror
@@ -898,7 +890,6 @@
"Created: / 31-07-2012 / 17:39:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'adding / removing'!
removeFromSystem
@@ -907,7 +898,6 @@
"Created: 12.8.1997 / 02:46:51 / cg"
! !
-
!JavaClass methodsFor:'autoboxing'!
javaBox:anObject
@@ -978,7 +968,6 @@
"Created: / 24-02-2012 / 19:32:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'browser interface'!
isVisualStartable
@@ -1025,7 +1014,6 @@
"Modified: / 3.11.1998 / 22:51:47 / cg"
! !
-
!JavaClass methodsFor:'compiler interface'!
browserClass
@@ -1052,7 +1040,6 @@
"Created: / 15-02-2012 / 01:43:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'compiling'!
recompileMethodsAccessingGlobal:aGlobalKey
@@ -1061,7 +1048,6 @@
"Created: / 9.11.1999 / 16:42:09 / cg"
! !
-
!JavaClass methodsFor:'documentation support'!
htmlDocumentation
@@ -1070,7 +1056,6 @@
"Modified: 22.3.1997 / 14:18:50 / cg"
! !
-
!JavaClass methodsFor:'exception handling support'!
accepts: signal
@@ -1165,7 +1150,6 @@
"Created: / 05-07-2012 / 08:56:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'executing programs'!
startApplet
@@ -1302,7 +1286,6 @@
"Modified: / 24.12.1999 / 02:35:04 / cg"
! !
-
!JavaClass methodsFor:'fileOut'!
basicFileOutDefinitionOn:aStream withNameSpace:nameSpaceBoolean
@@ -1389,7 +1372,6 @@
"Created: / 08-12-2012 / 22:25:28 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'interop support'!
perform:aMessage onReceiver:receiver from:sender ifNotFound:aBlock
@@ -1440,7 +1422,6 @@
"Modified: / 21-08-2012 / 13:32:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'java initialization'!
classInit
@@ -1559,7 +1540,6 @@
"Modified: / 23-02-2012 / 17:14:09 / Marcel Hlopko <hlopik@gmail.com>"
! !
-
!JavaClass methodsFor:'java instance creation'!
basicNew
@@ -1692,7 +1672,6 @@
"Modified: / 02-11-2012 / 21:11:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'java instance creation-proxying'!
new
@@ -1855,7 +1834,6 @@
"Modified: / 02-11-2012 / 21:10:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'message sending'!
doesNotUnderstand:aMessage
@@ -1982,6 +1960,43 @@
"Created: / 10.12.1998 / 21:50:29 / cg"
! !
+!JavaClass methodsFor:'misc ui support'!
+
+iconInBrowserSymbol
+
+ <resource: #programImage>
+
+ | jle jlre |
+
+ self isInterface ifTrue:[
+ self isPrivate ifTrue:[^#javaPrivateInterfaceBrowserIcon].
+ self isProtected ifTrue:[^#javaProtectedInterfaceBrowserIcon].
+ ^#javaPublicInterfaceBrowserIcon
+ ].
+
+ self isEnum ifTrue:[
+ self isPrivate ifTrue:[^#javaPrivateEnumBrowserIcon].
+ self isProtected ifTrue:[^#javaProtectedEnumBrowserIcon].
+ ^#javaPublicEnumBrowserIcon
+ ].
+
+ (jle := Java at:'java.lang.Exception') notNil ifTrue:[
+ (jlre := Java at:'java.lang.RuntimeException') notNil ifTrue:[
+ (self includesBehavior: jlre) ifTrue:[
+ ^#javaRuntimeExceptionBrowserIcon
+ ]
+ ].
+ (self includesBehavior: jle) ifTrue:[
+ ^#javaExceptionBrowserIcon
+ ]
+ ].
+
+ self isPrivate ifTrue:[^#javaPrivateClassBrowserIcon].
+ self isProtected ifTrue:[^#javaProtectedClassBrowserIcon].
+ ^#javaPublicClassBrowserIcon
+
+ "Created: / 20-12-2010 / 19:11:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
!JavaClass methodsFor:'printOut'!
@@ -2005,7 +2020,6 @@
"Created: 22.3.1997 / 14:36:28 / cg"
! !
-
!JavaClass methodsFor:'printing & storing'!
displayString
@@ -2018,7 +2032,6 @@
"Modified: / 18.7.1998 / 22:56:30 / cg"
! !
-
!JavaClass methodsFor:'private accessing'!
addMethod:m name:name signature:signature
@@ -2178,7 +2191,6 @@
"Modified: 22.8.1997 / 15:06:45 / cg"
! !
-
!JavaClass methodsFor:'private-changes management'!
writingChangeWithTimeStamp:doStampIt do:aBlock
@@ -2188,7 +2200,6 @@
"Created: / 14-12-2010 / 18:07:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'queries'!
canBeSubclassed
@@ -2449,7 +2460,6 @@
"Modified: / 02-03-2011 / 22:48:40 / Marcel Hlopko <hlopik@gmail.com>"
! !
-
!JavaClass methodsFor:'queries-protocol'!
equalsOrIsSubclassOf: aJavaClass
@@ -2488,7 +2498,6 @@
"Created: / 20-10-2011 / 16:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'reflection'!
findInstFieldByName: fieldName
@@ -2581,7 +2590,6 @@
"Modified: / 07-12-2011 / 23:06:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
! !
-
!JavaClass methodsFor:'special'!
asClassPointerRef
@@ -2640,7 +2648,6 @@
"Modified: / 4.2.1998 / 22:08:19 / cg"
! !
-
!JavaClass methodsFor:'support - refactorings'!
directlyDefinesMethod: aSelector
@@ -2657,7 +2664,6 @@
"Created: / 16-03-2011 / 14:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'support - sUnit'!
asTestCase
@@ -2760,7 +2766,6 @@
"Modified: / 13-02-2013 / 09:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-
!JavaClass methodsFor:'unwind'!
unwindHandlerInContext: aContext
@@ -2774,15 +2779,14 @@
"Created: / 08-11-2011 / 12:25:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
! !
-
!JavaClass class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.132 2013-02-25 11:15:31 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.133 2013-03-04 19:10:26 +0000 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.132 2013-02-25 11:15:31 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.133 2013-03-04 19:10:26 +0000 vrany Exp $'
!
version_HG