Mercurial Mercurial > hg > stx-libjava / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminated old invoke stuff
authorcg
Wed, 04 Nov 1998 20:58:15 +0000
changeset 419 679a4b82b3bb
parent 418 9ab6eb91cfdc
child 420 7d5ce7e030d4
eliminated old invoke stuff
Java.st file | annotate | diff | comparison | revisions
JavaEmbeddedFrameView.st file | annotate | diff | comparison | revisions
JavaObject.st file | annotate | diff | comparison | revisions
JavaVM.st file | annotate | diff | comparison | revisions
SmalltalkAppletContext.st file | annotate | diff | comparison | revisions 
--- a/Java.st	Wed Nov 04 20:55:47 1998 +0000
+++ b/Java.st	Wed Nov 04 20:58:15 1998 +0000
@@ -1285,9 +1285,13 @@
     p := JavaProcess 
             for:[
                     aJavaClass 
-                        invoke:#'main'
-                        signature:#'([Ljava/lang/String;)V'
-                        with:argStringArray
+                        perform:#'main([Ljava/lang/String;)V'
+                        with:argStringArray.
+
+"/                    aJavaClass 
+"/                        invoke:#'main'
+"/                        signature:#'([Ljava/lang/String;)V'
+"/                        with:argStringArray
                 ]
             priority:(Processor activePriority - 1).
 
@@ -1295,12 +1299,12 @@
     ^ p
 
     "Created: / 15.8.1997 / 04:41:20 / cg"
-    "Modified: / 15.1.1998 / 17:33:18 / cg"
+    "Modified: / 4.11.1998 / 21:04:59 / cg"
 ! !
 
 !Java class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.73 1998/11/04 18:57:12 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.74 1998/11/04 20:56:46 cg Exp $'
 ! !
 Java initialize!
--- a/JavaEmbeddedFrameView.st	Wed Nov 04 20:55:47 1998 +0000
+++ b/JavaEmbeddedFrameView.st	Wed Nov 04 20:58:15 1998 +0000
@@ -456,7 +456,7 @@
     embeddedAppletFrame instVarNamed:'pData' put:self.
 
     toolkit := Java classForName:'java.awt.Toolkit'.
-    toolkit := toolkit invoke:#getDefaultToolkit.
+    toolkit := toolkit perform:#getDefaultToolkit.
     peer := toolkit 
                 perform:#'createFrame(Ljava/awt/Frame;)Ljava/awt/peer/FramePeer;'
                 with:embeddedAppletFrame.
@@ -507,7 +507,7 @@
     ^ true
 
     "Created: / 20.10.1998 / 15:38:24 / cg"
-    "Modified: / 20.10.1998 / 15:43:36 / cg"
+    "Modified: / 4.11.1998 / 21:07:03 / cg"
 !
 
 setupAppletFrameIn:anAppletContextOrNil initializeJava:initializeJava
@@ -583,7 +583,7 @@
     embeddedAppletFrame instVarNamed:'pData' put:self.
 
     toolkit := Java classForName:'java.awt.Toolkit'.
-    toolkit := toolkit invoke:#getDefaultToolkit.
+    toolkit := toolkit perform:#getDefaultToolkit.
     peer := toolkit 
                 perform:#'createFrame(Ljava/awt/Frame;)Ljava/awt/peer/FramePeer;'
                 with:embeddedAppletFrame.
@@ -633,8 +633,8 @@
 
     ^ true
 
-    "Modified: / 20.10.1998 / 15:43:36 / cg"
     "Created: / 20.10.1998 / 15:47:04 / cg"
+    "Modified: / 4.11.1998 / 21:07:13 / cg"
 ! !
 
 !JavaEmbeddedFrameView methodsFor:'resizing'!
@@ -662,5 +662,5 @@
 !JavaEmbeddedFrameView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaEmbeddedFrameView.st,v 1.10 1998/11/04 18:59:43 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaEmbeddedFrameView.st,v 1.11 1998/11/04 20:57:49 cg Exp $'
 ! !
--- a/JavaObject.st	Wed Nov 04 20:55:47 1998 +0000
+++ b/JavaObject.st	Wed Nov 04 20:58:15 1998 +0000
@@ -541,15 +541,15 @@
 
 javaDisplayString
     Object errorSignal handle:[:ex |
-	ex return.
+        ex return.
     ] do:[
-	^ Java as_ST_String:(self invoke:#toString).
+        ^ Java as_ST_String:(self perform:#toString).
     ].
 
     ^ super displayString.
 
-    "Created: 7.4.1997 / 17:38:13 / cg"
-    "Modified: 8.8.1997 / 12:07:39 / cg"
+    "Created: / 7.4.1997 / 17:38:13 / cg"
+    "Modified: / 4.11.1998 / 21:07:19 / cg"
 ! !
 
 !JavaObject methodsFor:'queries'!
@@ -689,5 +689,5 @@
 !JavaObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.40 1998/11/04 18:58:14 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.41 1998/11/04 20:58:03 cg Exp $'
 ! !
--- a/JavaVM.st	Wed Nov 04 20:55:47 1998 +0000
+++ b/JavaVM.st	Wed Nov 04 20:58:15 1998 +0000
@@ -2575,8 +2575,8 @@
 
                     "/ Create input stream using byte array 
 
-                    inStream := (Java classForName:'java.io.ByteArrayInputStream') basicNew.
-                    inStream invoke:'<init>([B)V' with:data.
+                    inStream := (Java classForName:'java.io.ByteArrayInputStream') newCleared.
+                    inStream perform:#'<init>([B)V' with:data.
                     ^ inStream.
                 ]
             ]
@@ -2585,7 +2585,7 @@
     ^ nil
 
     "Created: / 8.1.1998 / 16:06:56 / cg"
-    "Modified: / 27.1.1998 / 21:58:54 / cg"
+    "Modified: / 4.11.1998 / 21:05:47 / cg"
 !
 
 _ClassLoader_init:nativeContext
@@ -5453,22 +5453,22 @@
 
     button := Button in:frame.
     button action:[
-			jButtonPeer invoke:#handleAction.
-		  ].
+                        jButtonPeer perform:#handleAction.
+                  ].
 
     lbl := jButton instVarNamed:'label'.
     lbl notNil ifTrue:[
-	lbl := Java as_ST_String:lbl.
-	button label:lbl
+        lbl := Java as_ST_String:lbl.
+        button label:lbl
     ].
     self createdWindowsView:button for:jButtonPeer.
 
     WindowCreationTrace == true ifTrue:[
-	'WButtonPeer_create: ' print. frame print. ' -> ' print. button printNL.
+        'WButtonPeer_create: ' print. frame print. ' -> ' print. button printNL.
     ].
 
     "Created: / 5.1.1998 / 01:53:30 / cg"
-    "Modified: / 13.1.1998 / 22:09:15 / cg"
+    "Modified: / 4.11.1998 / 21:07:27 / cg"
 !
 
 _WButtonPeer_setLabel:nativeContext
@@ -7333,14 +7333,14 @@
     self createdWindowsView:editField for:jTextFieldPeer.
 
     editField crAction:[
-                        jTextFieldPeer invoke:#handleAction.
+                        jTextFieldPeer perform:#handleAction.
                   ].
     WindowCreationTrace == true ifTrue:[
         'WTextFieldPeer_create: ' print. frame print. ' -> ' print. editField printNL.
     ].
 
     "Created: / 5.1.1998 / 01:27:37 / cg"
-    "Modified: / 25.1.1998 / 20:34:45 / cg"
+    "Modified: / 4.11.1998 / 21:07:30 / cg"
 !
 
 _WTextFieldPeer_setEchoCharacter:nativeContext
@@ -8208,7 +8208,7 @@
 "/        ^ self
 "/    ].
 
-    jWToolKit := (Java classForName:'java.awt.Toolkit') invoke:#getDefaultToolkit.
+    jWToolKit := (Java classForName:'java.awt.Toolkit') perform:#getDefaultToolkit.
 
     jEvents do:[:jEv |
         jEv instVarNamed:'source'   put:jWin.
@@ -8223,20 +8223,18 @@
         EventTrace == true ifTrue:[
             'postEvent to Java ...' printCR.
         ].
-        jWToolKit class
-            invoke:#'postEvent(Ljava/awt/AWTEvent;)V' 
-            with:jEv.
+        jWToolKit class perform:#'postEvent(Ljava/awt/AWTEvent;)V' with:jEv.
     ].
 
     ^ false
 
     "Created: / 6.1.1998 / 20:36:36 / cg"
-    "Modified: / 18.7.1998 / 22:09:33 / cg"
+    "Modified: / 4.11.1998 / 21:06:13 / cg"
 ! !
 
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.53 1998/11/04 18:58:57 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.54 1998/11/04 20:57:18 cg Exp $'
 ! !
 JavaVM initialize!
--- a/SmalltalkAppletContext.st	Wed Nov 04 20:55:47 1998 +0000
+++ b/SmalltalkAppletContext.st	Wed Nov 04 20:58:15 1998 +0000
@@ -14,13 +14,13 @@
     "return 
         Toolkit.getDefaultToolkit().createImage(new sun.awt.image.URLImageSource(arg1)))"
 
-    imgSource := (Java classForName:'sun.awt.image.URLImageSource') new.
+    imgSource := (Java classForName:'sun.awt.image.URLImageSource') newCleared.
     imgSource perform:#'<init>(Ljava/net/URL;)V' with:url.
 
-    toolKit := (Java classForName:'java.awt.Toolkit') invoke:#getDefaultToolkit.
+    toolKit := (Java classForName:'java.awt.Toolkit') perform:#getDefaultToolkit.
     ^ toolKit perform:#createImage with:imgSource.
 
-    "Modified: / 25.1.1998 / 19:26:27 / cg"
+    "Modified: / 4.11.1998 / 21:07:48 / cg"
 !
 
 showStatus:arg
@@ -68,5 +68,5 @@
 !SmalltalkAppletContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletContext.st,v 1.6 1998/01/25 19:05:40 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletContext.st,v 1.7 1998/11/04 20:58:15 cg Exp $'
 ! !
hg/stx-libjava