JavaClass.st
changeset 2396 fadc6d7a2f5b
parent 2353 fa7400d022a0
child 2429 ebece4dcaab9
child 2436 a2d9e86960c4
equal deleted inserted replaced
2390:47358426d752 2396:fadc6d7a2f5b
    58 "
    58 "
    59     (Java at:'java.util.Stack') new inspect
    59     (Java at:'java.util.Stack') new inspect
    60     (Java at:'java.util.Vector') new inspect
    60     (Java at:'java.util.Vector') new inspect
    61 "
    61 "
    62 ! !
    62 ! !
       
    63 
    63 
    64 
    64 !JavaClass class methodsFor:'instance creation'!
    65 !JavaClass class methodsFor:'instance creation'!
    65 
    66 
    66 fullName:aString
    67 fullName:aString
    67     self shouldNotImplement.
    68     self shouldNotImplement.
   113     self shouldNotImplement
   114     self shouldNotImplement
   114 
   115 
   115     "Created: 15.4.1996 / 15:52:55 / cg"
   116     "Created: 15.4.1996 / 15:52:55 / cg"
   116 ! !
   117 ! !
   117 
   118 
       
   119 
   118 !JavaClass class methodsFor:'boxing-unboxing'!
   120 !JavaClass class methodsFor:'boxing-unboxing'!
   119 
   121 
   120 box: stArgumentsCollection to: typesCollection
   122 box: stArgumentsCollection to: typesCollection
   121     " box smalltalk arguments collection to Java arguments "
   123     " box smalltalk arguments collection to Java arguments "
   122     ^ stArgumentsCollection with: typesCollection collect: [ :stObject :javaType |
   124     ^ stArgumentsCollection with: typesCollection collect: [ :stObject :javaType |
   136     ^ (JavaTypeBox typeBoxForJava: returnType) unbox: jObj.
   138     ^ (JavaTypeBox typeBoxForJava: returnType) unbox: jObj.
   137 
   139 
   138     "Created: / 30-08-2011 / 22:13:41 / Jan Kurs <kursjan@fit.cvut.cz>"
   140     "Created: / 30-08-2011 / 22:13:41 / Jan Kurs <kursjan@fit.cvut.cz>"
   139 ! !
   141 ! !
   140 
   142 
       
   143 
   141 !JavaClass class methodsFor:'class initialization'!
   144 !JavaClass class methodsFor:'class initialization'!
   142 
   145 
   143 initialize
   146 initialize
   144 
   147 
   145     ArgumentConversionErrorSignal := Signal new notifierString:'argument conversion error'.
   148     ArgumentConversionErrorSignal := Signal new notifierString:'argument conversion error'.
   146 
   149 
   147     "Created: / 20-10-2010 / 11:11:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   150     "Created: / 20-10-2010 / 11:11:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   148 ! !
   151 ! !
       
   152 
   149 
   153 
   150 !JavaClass class methodsFor:'method lookup'!
   154 !JavaClass class methodsFor:'method lookup'!
   151 
   155 
   152 canConvertArgsToJava:argArray asSpecifiedIn:argSigSpecArray
   156 canConvertArgsToJava:argArray asSpecifiedIn:argSigSpecArray
   153     "given a smalltalk argument array, return true, if these can be converted to java objects as appropriate."
   157     "given a smalltalk argument array, return true, if these can be converted to java objects as appropriate."
   463 
   467 
   464     "Created: / 4.11.1998 / 19:04:51 / cg"
   468     "Created: / 4.11.1998 / 19:04:51 / cg"
   465     "Modified: / 4.11.1998 / 19:31:33 / cg"
   469     "Modified: / 4.11.1998 / 19:31:33 / cg"
   466 ! !
   470 ! !
   467 
   471 
       
   472 
   468 !JavaClass class methodsFor:'signature parsing'!
   473 !JavaClass class methodsFor:'signature parsing'!
   469 
   474 
   470 initialValueFromSignature:aSignature
   475 initialValueFromSignature:aSignature
   471     "given a signature, return an initializer value"
   476     "given a signature, return an initializer value"
   472 
   477 
   482     "
   487     "
   483 
   488 
   484 
   489 
   485 ! !
   490 ! !
   486 
   491 
       
   492 
   487 !JavaClass class methodsFor:'special'!
   493 !JavaClass class methodsFor:'special'!
   488 
   494 
   489 deinitClasses
   495 deinitClasses
   490 
   496 
   491     Smalltalk allClassesDo:
   497     Smalltalk allClassesDo:
   527     OrderOfClassInits := OrderedCollection new.
   533     OrderOfClassInits := OrderedCollection new.
   528 
   534 
   529     "Created: / 12.11.1998 / 15:26:32 / cg"
   535     "Created: / 12.11.1998 / 15:26:32 / cg"
   530     "Modified: / 12.11.1998 / 15:29:10 / cg"
   536     "Modified: / 12.11.1998 / 15:29:10 / cg"
   531 ! !
   537 ! !
       
   538 
   532 
   539 
   533 !JavaClass methodsFor:'accessing'!
   540 !JavaClass methodsFor:'accessing'!
   534 
   541 
   535 allFields
   542 allFields
   536     "Returns all fields, including those inherited from
   543     "Returns all fields, including those inherited from
   874     "
   881     "
   875 
   882 
   876     "Modified: 21.1.1997 / 22:48:28 / cg"
   883     "Modified: 21.1.1997 / 22:48:28 / cg"
   877 ! !
   884 ! !
   878 
   885 
       
   886 
   879 !JavaClass methodsFor:'accessing - java'!
   887 !JavaClass methodsFor:'accessing - java'!
   880 
   888 
   881 javaMirror
   889 javaMirror
   882     ^self javaMirrorClass forClass: self.
   890     ^self javaMirrorClass forClass: self.
   883 
   891 
   888     ^JavaMirror mirrorClassForJavaClass
   896     ^JavaMirror mirrorClassForJavaClass
   889 
   897 
   890     "Created: / 31-07-2012 / 17:39:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   898     "Created: / 31-07-2012 / 17:39:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   891 ! !
   899 ! !
   892 
   900 
       
   901 
   893 !JavaClass methodsFor:'adding / removing'!
   902 !JavaClass methodsFor:'adding / removing'!
   894 
   903 
   895 removeFromSystem
   904 removeFromSystem
   896      Java removeClass:self
   905      Java removeClass:self
   897 
   906 
   898     "Created: 12.8.1997 / 02:46:51 / cg"
   907     "Created: 12.8.1997 / 02:46:51 / cg"
   899 ! !
   908 ! !
       
   909 
   900 
   910 
   901 !JavaClass methodsFor:'autoboxing'!
   911 !JavaClass methodsFor:'autoboxing'!
   902 
   912 
   903 javaBox:anObject 
   913 javaBox:anObject 
   904     ^ anObject
   914     ^ anObject
   965     ^object
   975     ^object
   966 
   976 
   967     "Modified: / 12-12-2011 / 18:05:29 / kursjan <kursjan@fit.cvut.cz>"
   977     "Modified: / 12-12-2011 / 18:05:29 / kursjan <kursjan@fit.cvut.cz>"
   968     "Created: / 24-02-2012 / 19:32:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   978     "Created: / 24-02-2012 / 19:32:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   969 ! !
   979 ! !
       
   980 
   970 
   981 
   971 !JavaClass methodsFor:'browser interface'!
   982 !JavaClass methodsFor:'browser interface'!
   972 
   983 
   973 isVisualStartable
   984 isVisualStartable
   974     "return true, if this is an application class,
   985     "return true, if this is an application class,
  1012 
  1023 
  1013     "Created: / 15.1.1998 / 17:18:30 / cg"
  1024     "Created: / 15.1.1998 / 17:18:30 / cg"
  1014     "Modified: / 3.11.1998 / 22:51:47 / cg"
  1025     "Modified: / 3.11.1998 / 22:51:47 / cg"
  1015 ! !
  1026 ! !
  1016 
  1027 
       
  1028 
  1017 !JavaClass methodsFor:'compiler interface'!
  1029 !JavaClass methodsFor:'compiler interface'!
  1018 
  1030 
  1019 browserClass
  1031 browserClass
  1020     "return the browser to use for this class -
  1032     "return the browser to use for this class -
  1021      this can be redefined in special classes, to get different browsers"
  1033      this can be redefined in special classes, to get different browsers"
  1038     ]
  1050     ]
  1039 
  1051 
  1040     "Created: / 15-02-2012 / 01:43:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1052     "Created: / 15-02-2012 / 01:43:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1041 ! !
  1053 ! !
  1042 
  1054 
       
  1055 
  1043 !JavaClass methodsFor:'compiling'!
  1056 !JavaClass methodsFor:'compiling'!
  1044 
  1057 
  1045 recompileMethodsAccessingGlobal:aGlobalKey
  1058 recompileMethodsAccessingGlobal:aGlobalKey
  1046     "/ dummy for now
  1059     "/ dummy for now
  1047 
  1060 
  1048     "Created: / 9.11.1999 / 16:42:09 / cg"
  1061     "Created: / 9.11.1999 / 16:42:09 / cg"
  1049 ! !
  1062 ! !
  1050 
  1063 
       
  1064 
  1051 !JavaClass methodsFor:'documentation support'!
  1065 !JavaClass methodsFor:'documentation support'!
  1052 
  1066 
  1053 htmlDocumentation
  1067 htmlDocumentation
  1054     ^ nil "/ replace by access to javadoc-generated documentation later
  1068     ^ nil "/ replace by access to javadoc-generated documentation later
  1055 
  1069 
  1056     "Modified: 22.3.1997 / 14:18:50 / cg"
  1070     "Modified: 22.3.1997 / 14:18:50 / cg"
  1057 ! !
  1071 ! !
       
  1072 
  1058 
  1073 
  1059 !JavaClass methodsFor:'exception handling support'!
  1074 !JavaClass methodsFor:'exception handling support'!
  1060 
  1075 
  1061 accepts: signal
  1076 accepts: signal
  1062     "Return true, iff receicer is a throwable and
  1077     "Return true, iff receicer is a throwable and
  1147 
  1162 
  1148     ^self class.
  1163     ^self class.
  1149 
  1164 
  1150     "Created: / 05-07-2012 / 08:56:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1165     "Created: / 05-07-2012 / 08:56:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1151 ! !
  1166 ! !
       
  1167 
  1152 
  1168 
  1153 !JavaClass methodsFor:'executing programs'!
  1169 !JavaClass methodsFor:'executing programs'!
  1154 
  1170 
  1155 startApplet
  1171 startApplet
  1156     |f me stub top appFrame|
  1172     |f me stub top appFrame|
  1284     ]
  1300     ]
  1285 
  1301 
  1286     "Modified: / 24.12.1999 / 02:35:04 / cg"
  1302     "Modified: / 24.12.1999 / 02:35:04 / cg"
  1287 ! !
  1303 ! !
  1288 
  1304 
       
  1305 
  1289 !JavaClass methodsFor:'fileOut'!
  1306 !JavaClass methodsFor:'fileOut'!
  1290 
  1307 
  1291 basicFileOutDefinitionOn:aStream withNameSpace:nameSpaceBoolean
  1308 basicFileOutDefinitionOn:aStream withNameSpace:nameSpaceBoolean
  1292 
  1309 
  1293     | source |
  1310     | source |
  1369 fileOutOn: aWriteStream
  1386 fileOutOn: aWriteStream
  1370 aWriteStream nextPutAll: self theNonMetaclass source.
  1387 aWriteStream nextPutAll: self theNonMetaclass source.
  1371 
  1388 
  1372     "Created: / 08-12-2012 / 22:25:28 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
  1389     "Created: / 08-12-2012 / 22:25:28 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
  1373 ! !
  1390 ! !
       
  1391 
  1374 
  1392 
  1375 !JavaClass methodsFor:'interop support'!
  1393 !JavaClass methodsFor:'interop support'!
  1376 
  1394 
  1377 perform:aMessage onReceiver:receiver from:sender ifNotFound:aBlock
  1395 perform:aMessage onReceiver:receiver from:sender ifNotFound:aBlock
  1378 
  1396 
  1419 
  1437 
  1420     "Created: / 19-09-2011 / 23:33:06 / Jan Kurs <kursjan@fit.cvut.cz>"
  1438     "Created: / 19-09-2011 / 23:33:06 / Jan Kurs <kursjan@fit.cvut.cz>"
  1421     "Modified: / 10-04-2012 / 16:47:31 / kursjan"
  1439     "Modified: / 10-04-2012 / 16:47:31 / kursjan"
  1422     "Modified: / 21-08-2012 / 13:32:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1440     "Modified: / 21-08-2012 / 13:32:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1423 ! !
  1441 ! !
       
  1442 
  1424 
  1443 
  1425 !JavaClass methodsFor:'java initialization'!
  1444 !JavaClass methodsFor:'java initialization'!
  1426 
  1445 
  1427 classInit
  1446 classInit
  1428     "call the classes JAVA clinit function"
  1447     "call the classes JAVA clinit function"
  1538 
  1557 
  1539     "Created: / 18-11-2011 / 15:26:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  1558     "Created: / 18-11-2011 / 15:26:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  1540     "Modified: / 23-02-2012 / 17:14:09 / Marcel Hlopko <hlopik@gmail.com>"
  1559     "Modified: / 23-02-2012 / 17:14:09 / Marcel Hlopko <hlopik@gmail.com>"
  1541 ! !
  1560 ! !
  1542 
  1561 
       
  1562 
  1543 !JavaClass methodsFor:'java instance creation'!
  1563 !JavaClass methodsFor:'java instance creation'!
  1544 
  1564 
  1545 basicNew
  1565 basicNew
  1546     "Create a new cleared JAVA instance. Its instVars are cleared to the 
  1566     "Create a new cleared JAVA instance. Its instVars are cleared to the 
  1547      corresponding typed values; however, constructor is not invoked."
  1567      corresponding typed values; however, constructor is not invoked."
  1669 
  1689 
  1670     "Modified: / 04-11-1998 / 18:04:34 / cg"
  1690     "Modified: / 04-11-1998 / 18:04:34 / cg"
  1671     "Created: / 13-11-1998 / 14:17:01 / cg"
  1691     "Created: / 13-11-1998 / 14:17:01 / cg"
  1672     "Modified: / 02-11-2012 / 21:11:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1692     "Modified: / 02-11-2012 / 21:11:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1673 ! !
  1693 ! !
       
  1694 
  1674 
  1695 
  1675 !JavaClass methodsFor:'java instance creation-proxying'!
  1696 !JavaClass methodsFor:'java instance creation-proxying'!
  1676 
  1697 
  1677 new
  1698 new
  1678     "create a new instance, preset its fields,
  1699     "create a new instance, preset its fields,
  1832     "Created: / 17-03-2012 / 15:12:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1853     "Created: / 17-03-2012 / 15:12:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1833     "Created: / 02-04-2012 / 10:52:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  1854     "Created: / 02-04-2012 / 10:52:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  1834     "Modified: / 02-11-2012 / 21:10:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1855     "Modified: / 02-11-2012 / 21:10:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1835 ! !
  1856 ! !
  1836 
  1857 
       
  1858 
  1837 !JavaClass methodsFor:'message sending'!
  1859 !JavaClass methodsFor:'message sending'!
  1838 
  1860 
  1839 doesNotUnderstand:aMessage
  1861 doesNotUnderstand:aMessage
  1840     | sender |
  1862     | sender |
  1841     sender := thisContext sender.
  1863     sender := thisContext sender.
  1981     self warn:'printOut not yet supported'
  2003     self warn:'printOut not yet supported'
  1982 
  2004 
  1983     "Created: 22.3.1997 / 14:36:28 / cg"
  2005     "Created: 22.3.1997 / 14:36:28 / cg"
  1984 ! !
  2006 ! !
  1985 
  2007 
       
  2008 
  1986 !JavaClass methodsFor:'printing & storing'!
  2009 !JavaClass methodsFor:'printing & storing'!
  1987 
  2010 
  1988 displayString
  2011 displayString
  1989     ^ fullName copyReplaceAll:$/ with:$.
  2012     ^ fullName copyReplaceAll:$/ with:$.
  1990 
  2013 
  1992 "/    ^ name , '(Java)'  "/ 'JavaClass(' , name , ')'
  2015 "/    ^ name , '(Java)'  "/ 'JavaClass(' , name , ')'
  1993 
  2016 
  1994     "Created: / 15.4.1996 / 16:02:48 / cg"
  2017     "Created: / 15.4.1996 / 16:02:48 / cg"
  1995     "Modified: / 18.7.1998 / 22:56:30 / cg"
  2018     "Modified: / 18.7.1998 / 22:56:30 / cg"
  1996 ! !
  2019 ! !
       
  2020 
  1997 
  2021 
  1998 !JavaClass methodsFor:'private accessing'!
  2022 !JavaClass methodsFor:'private accessing'!
  1999 
  2023 
  2000 addMethod:m name:name signature:signature
  2024 addMethod:m name:name signature:signature
  2001     |sel|
  2025     |sel|
  2152 
  2176 
  2153     "Created: 15.4.1996 / 16:42:52 / cg"
  2177     "Created: 15.4.1996 / 16:42:52 / cg"
  2154     "Modified: 22.8.1997 / 15:06:45 / cg"
  2178     "Modified: 22.8.1997 / 15:06:45 / cg"
  2155 ! !
  2179 ! !
  2156 
  2180 
       
  2181 
  2157 !JavaClass methodsFor:'private-changes management'!
  2182 !JavaClass methodsFor:'private-changes management'!
  2158 
  2183 
  2159 writingChangeWithTimeStamp:doStampIt do:aBlock
  2184 writingChangeWithTimeStamp:doStampIt do:aBlock
  2160 
  2185 
  2161     "No changes for Java classes now"
  2186     "No changes for Java classes now"
  2162 
  2187 
  2163     "Created: / 14-12-2010 / 18:07:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2188     "Created: / 14-12-2010 / 18:07:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2164 ! !
  2189 ! !
       
  2190 
  2165 
  2191 
  2166 !JavaClass methodsFor:'queries'!
  2192 !JavaClass methodsFor:'queries'!
  2167 
  2193 
  2168 canBeSubclassed
  2194 canBeSubclassed
  2169     "return true, if its allowed to create subclasses of the receiver."
  2195     "return true, if its allowed to create subclasses of the receiver."
  2420      (Java at:'java.util.Stack') typeName"
  2446      (Java at:'java.util.Stack') typeName"
  2421 
  2447 
  2422     "Modified: / 10-02-1998 / 17:13:26 / cg"
  2448     "Modified: / 10-02-1998 / 17:13:26 / cg"
  2423     "Modified: / 02-03-2011 / 22:48:40 / Marcel Hlopko <hlopik@gmail.com>"
  2449     "Modified: / 02-03-2011 / 22:48:40 / Marcel Hlopko <hlopik@gmail.com>"
  2424 ! !
  2450 ! !
       
  2451 
  2425 
  2452 
  2426 !JavaClass methodsFor:'queries-protocol'!
  2453 !JavaClass methodsFor:'queries-protocol'!
  2427 
  2454 
  2428 equalsOrIsSubclassOf: aJavaClass 
  2455 equalsOrIsSubclassOf: aJavaClass 
  2429     self = aJavaClass ifTrue: [^true].
  2456     self = aJavaClass ifTrue: [^true].
  2458     ].
  2485     ].
  2459     ^false
  2486     ^false
  2460 
  2487 
  2461     "Created: / 20-10-2011 / 16:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2488     "Created: / 20-10-2011 / 16:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2462 ! !
  2489 ! !
       
  2490 
  2463 
  2491 
  2464 !JavaClass methodsFor:'reflection'!
  2492 !JavaClass methodsFor:'reflection'!
  2465 
  2493 
  2466 findInstFieldByName: fieldName 
  2494 findInstFieldByName: fieldName 
  2467     "tries to find a field in current class (not superclasses)"
  2495     "tries to find a field in current class (not superclasses)"
  2551     "Created: / 11-04-2011 / 21:27:08 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2579     "Created: / 11-04-2011 / 21:27:08 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2552     "Modified: / 26-08-2011 / 18:27:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2580     "Modified: / 26-08-2011 / 18:27:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2553     "Modified: / 07-12-2011 / 23:06:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2581     "Modified: / 07-12-2011 / 23:06:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2554 ! !
  2582 ! !
  2555 
  2583 
       
  2584 
  2556 !JavaClass methodsFor:'special'!
  2585 !JavaClass methodsFor:'special'!
  2557 
  2586 
  2558 asClassPointerRef
  2587 asClassPointerRef
  2559 "/ self halt.
  2588 "/ self halt.
  2560      ^ self
  2589      ^ self
  2609     ]
  2638     ]
  2610 
  2639 
  2611     "Modified: / 4.2.1998 / 22:08:19 / cg"
  2640     "Modified: / 4.2.1998 / 22:08:19 / cg"
  2612 ! !
  2641 ! !
  2613 
  2642 
       
  2643 
  2614 !JavaClass methodsFor:'support - refactorings'!
  2644 !JavaClass methodsFor:'support - refactorings'!
  2615 
  2645 
  2616 directlyDefinesMethod: aSelector 
  2646 directlyDefinesMethod: aSelector 
  2617 
  2647 
  2618     ^self methodDictionary includes: aSelector.
  2648     ^self methodDictionary includes: aSelector.
  2624 
  2654 
  2625     ^self class
  2655     ^self class
  2626 
  2656 
  2627     "Created: / 16-03-2011 / 14:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2657     "Created: / 16-03-2011 / 14:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2628 ! !
  2658 ! !
       
  2659 
  2629 
  2660 
  2630 !JavaClass methodsFor:'support - sUnit'!
  2661 !JavaClass methodsFor:'support - sUnit'!
  2631 
  2662 
  2632 asTestCase
  2663 asTestCase
  2633     self isTestletLike 
  2664     self isTestletLike 
  2726 
  2757 
  2727     "Modified: / 02-03-2011 / 23:08:02 / Marcel Hlopko <hlopik@gmail.com>"
  2758     "Modified: / 02-03-2011 / 23:08:02 / Marcel Hlopko <hlopik@gmail.com>"
  2728     "Created: / 29-04-2011 / 17:02:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2759     "Created: / 29-04-2011 / 17:02:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2729     "Modified: / 13-02-2013 / 09:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2760     "Modified: / 13-02-2013 / 09:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2730 ! !
  2761 ! !
       
  2762 
  2731 
  2763 
  2732 !JavaClass methodsFor:'unwind'!
  2764 !JavaClass methodsFor:'unwind'!
  2733 
  2765 
  2734 unwindHandlerInContext: aContext 
  2766 unwindHandlerInContext: aContext 
  2735     "given a context which has been marked for unwind,
  2767     "given a context which has been marked for unwind,
  2740     ^ JavaVM unwindHandlerForJavaContext: aContext.
  2772     ^ JavaVM unwindHandlerForJavaContext: aContext.
  2741 
  2773 
  2742     "Created: / 08-11-2011 / 12:25:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2774     "Created: / 08-11-2011 / 12:25:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
  2743 ! !
  2775 ! !
  2744 
  2776 
       
  2777 
  2745 !JavaClass class methodsFor:'documentation'!
  2778 !JavaClass class methodsFor:'documentation'!
  2746 
  2779 
  2747 version
  2780 version
  2748     ^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.131 2013-02-16 18:08:32 vrany Exp $'
  2781     ^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.132 2013-02-25 11:15:31 vrany Exp $'
  2749 !
  2782 !
  2750 
  2783 
  2751 version_CVS
  2784 version_CVS
  2752     ^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.131 2013-02-16 18:08:32 vrany Exp $'
  2785     ^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.132 2013-02-25 11:15:31 vrany Exp $'
  2753 !
  2786 !
  2754 
  2787 
  2755 version_HG
  2788 version_HG
  2756 
  2789 
  2757     ^ '$Changeset: <not expanded> $'
  2790     ^ '$Changeset: <not expanded> $'