changed: #deinitializeAdditionalJavaProtocol expecco_2_1_0
authorClaus Gittinger <cg@exept.de>
Fri, 09 Oct 2009 16:25:28 +0200
changeset 2149 2e3d2a599772
parent 2148 b51eb5830f48
child 2150 3dbc038c151a
changed: #deinitializeAdditionalJavaProtocol
JavaVM.st
--- a/JavaVM.st	Fri Oct 09 16:21:53 2009 +0200
+++ b/JavaVM.st	Fri Oct 09 16:25:28 2009 +0200
@@ -9,9 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:libjava' }"
 
 Object subclass:#JavaVM
@@ -1273,19 +1270,19 @@
 !
 
 deinitializeAdditionalJavaProtocol
-    "install additional java protocol in smalltalk classes, req'd for java programs"
+    "deinstall additional java protocol in smalltalk classes, req'd for java programs"
 
     #(
-	#'clone()Ljava/lang/Object;'
-	#'equals(Ljava/lang/Object;)Z'
-	#'toString()Ljava/lang/String;'
-	#'getClass()Ljava/lang/Class;'
+        #'clone()Ljava/lang/Object;'
+        #'equals(Ljava/lang/Object;)Z'
+        #'toString()Ljava/lang/String;'
+        #'getClass()Ljava/lang/Class;'
      ) do:[:sel |
-	(Object implements:sel) ifTrue:[
-	    Class withoutUpdatingChangesDo:[
-		Object removeSelector:sel.
-	    ]
-	].
+        (Object implements:sel) ifTrue:[
+            Class withoutUpdatingChangesDo:[
+                Object removeSelector:sel.
+            ]
+        ].
     ].
 
     "
@@ -12847,7 +12844,11 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libjava/JavaVM.st,v 1.182 2004-03-20 19:27:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libjava/JavaVM.st,v 1.183 2009-10-09 14:25:28 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libjava/JavaVM.st,v 1.183 2009-10-09 14:25:28 cg Exp $'
 ! !
 
 JavaVM initialize!