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.
checkin from browser
authorcg
Fri, 11 Dec 1998 11:58:02 +0000
changeset 494 77b9e9bbf79a
parent 493 7e16e004250e
child 495 0ec68ea85f2b
checkin from browser
Java.st file | annotate | diff | comparison | revisions
JavaVM.st file | annotate | diff | comparison | revisions 
--- a/Java.st	Fri Dec 11 00:05:59 1998 +0000
+++ b/Java.st	Fri Dec 11 11:58:02 1998 +0000
@@ -810,6 +810,8 @@
 
     |str count offs start stop|
 
+    aJavaString isNil ifTrue:[^ nil].
+
     "/ count := aJavaString instVarNamed:'count'.
     count := aJavaString instVarAt:(JavaSlotIndexCache string_slot_count).
 
@@ -833,7 +835,7 @@
     ^ (str copyFrom:start to:stop) asString
 
     "Created: / 8.8.1997 / 12:02:55 / cg"
-    "Modified: / 3.12.1998 / 13:43:51 / cg"
+    "Modified: / 11.12.1998 / 12:17:08 / cg"
 !
 
 as_String:aString
@@ -1367,6 +1369,6 @@
 !Java class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.82 1998/12/03 13:09:37 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.83 1998/12/11 11:58:02 cg Exp $'
 ! !
 Java initialize!
--- a/JavaVM.st	Fri Dec 11 00:05:59 1998 +0000
+++ b/JavaVM.st	Fri Dec 11 11:58:02 1998 +0000
@@ -91,6 +91,7 @@
     list of all native methods as in jdk1.1.3:
 
       X - implemented
+      * - implemented to be validated
       x - implemented with limited functionality
       o - implemented as dummy (no functionality)
 
@@ -112,8 +113,8 @@
 
     X (Class::java.lang.Class forName (java.lang.String))
     X (Class::java.lang.Object newInstance ())
-      (Class::boolean isInstance (java.lang.Object))
-      (Class::boolean isAssignableFrom (java.lang.Class))
+    * (Class::boolean isInstance (java.lang.Object))
+    X (Class::boolean isAssignableFrom (java.lang.Class))
     X (Class::boolean isInterface ())
       (Class::boolean isArray ())
     X (Class::boolean isPrimitive ())
@@ -126,11 +127,11 @@
       (Class::java.lang.Object[] getSigners ())
       (Class::void setSigners (java.lang.Object[]))
     X (Class::java.lang.Class getPrimitiveClass (java.lang.String))
+      (Class::java.lang.reflect.Field getField0 (java.lang.String int))
       (Class::java.lang.reflect.Field[] getFields0 (int))
+    X (Class::java.lang.reflect.Method getMethod0 (java.lang.String java.lang.Class[] int))
     X (Class::java.lang.reflect.Method[] getMethods0 (int))
       (Class::java.lang.reflect.Constructor[] getConstructors0 (int))
-      (Class::java.lang.reflect.Field getField0 (java.lang.String int))
-    X (Class::java.lang.reflect.Method getMethod0 (java.lang.String java.lang.Class[] int))
       (Class::java.lang.reflect.Constructor getConstructor0 (java.lang.Class[] int))
 
     X (InetAddressImpl::java.lang.String getLocalHostName ())
@@ -160,7 +161,7 @@
     X (Thread::void stop0 (java.lang.Object))
     X (Thread::void suspend0 ())
     X (Thread::void resume0 ())
-      (Thread::void interrupt0 ())
+    * (Thread::void interrupt0 ())
 
       (String::java.lang.String intern ())
 
@@ -230,8 +231,8 @@
     X (File::long lastModified0 ())
     X (File::long length0 ())
     X (File::boolean mkdir0 ())
-      (File::boolean renameTo0 (java.io.File))
-      (File::boolean delete0 ())
+    X (File::boolean renameTo0 (java.io.File))
+    X (File::boolean delete0 ())
       (File::boolean rmdir0 ())
     X (File::java.lang.String[] list0 ())
       (File::java.lang.String canonPath (java.lang.String))
@@ -248,7 +249,7 @@
     X (Double::double valueOf0 (java.lang.String))
 
     X (Runtime::void exitInternal (int))
-      (Runtime::void runFinalizersOnExit0 (boolean))
+    o (Runtime::void runFinalizersOnExit0 (boolean))
     o (Runtime::java.lang.Process execInternal (java.lang.String[] java.lang.String[]))
     X (Runtime::long freeMemory ())
     X (Runtime::long totalMemory ())
@@ -279,7 +280,7 @@
     X (WToolkit::int getScreenWidth ())
     X (WToolkit::int getScreenHeight ())
       (WToolkit::void sync ())
-      (WToolkit::void beep ())
+    * (WToolkit::void beep ())
     X (WToolkit::void loadSystemColors (int[]))
 
       (WPrintJob::void end ())
@@ -292,7 +293,7 @@
     X (WWindowPeer::void toBack ())
     X (WWindowPeer::void _setTitle (java.lang.String))
     X (WWindowPeer::void _setResizable (boolean))
-      (WWindowPeer::void create (sun.awt.windows.WComponentPeer))
+    X (WWindowPeer::void create (sun.awt.windows.WComponentPeer))
     o (WWindowPeer::void updateInsets (java.awt.Insets))
       (WWindowPeer::java.awt.Component getContainerElement (java.awt.Container int))
 
@@ -313,7 +314,7 @@
     X (WComponentPeer::void hide ())
     X (WComponentPeer::void enable ())
     X (WComponentPeer::void disable ())
-      (WComponentPeer::java.awt.Point getLocationOnScreen ())
+    X (WComponentPeer::java.awt.Point getLocationOnScreen ())
     X (WComponentPeer::void reshape (int int int int))
     o (WComponentPeer::void handleEvent (java.awt.AWTEvent))
     o (WComponentPeer::void _dispose ())
@@ -5187,10 +5188,11 @@
     |loader|
 
     loader := JavaClassReader classLoaderQuerySignal raise.
-'JAVA: currentClassLoader -> ' infoPrint. loader displayString infoPrintCR.
+"/ 'JAVA: currentClassLoader -> ' infoPrint. loader displayString infoPrintCR.
     ^ loader.
 
     "Created: / 13.1.1998 / 09:23:28 / cg"
+    "Modified: / 11.12.1998 / 12:39:59 / cg"
 !
 
 _SecurityManager_currentLoadedClass0:nativeContext
@@ -8880,18 +8882,22 @@
 !
 
 _WListPeer_delItems:nativeContext
-    |jString index1 index2 selListView|
+    |jString index1 index2 selListView model list|
 
     selListView := self viewForWPeer:nativeContext.
 
-    index1 := nativeContext argAt:1.
-    index2 := nativeContext argAt:2.
-
-    selListView model list removeFromIndex:(index1+1) toIndex:(index2+1).
-    selListView model changed:#list.
+    index1 := (nativeContext argAt:1) + 1. "/ java indices are 0-based.
+    index2 := (nativeContext argAt:2) + 1. "/ st indices are 1-based.
+
+    model := selListView model.
+    list := model list.
+    list size >= index1 ifTrue:[
+        list removeFromIndex:index1 toIndex:(index2 min:list size).
+        model changed:#list.
+    ].
 
     "Created: / 9.4.1998 / 22:19:25 / cg"
-    "Modified: / 9.4.1998 / 22:20:08 / cg"
+    "Modified: / 11.12.1998 / 12:30:07 / cg"
 !
 
 _WListPeer_deselect:nativeContext
@@ -9446,12 +9452,12 @@
     textView := self viewForWPeer:nativeContext.
 
     jstring := nativeContext argAt:1.
-    string := Java as_ST_String:jstring.
+    string := jstring notNil ifTrue:[Java as_ST_String:jstring] ifFalse:[nil].
 
     textView contents:string.
 
     "Created: / 5.1.1998 / 01:28:23 / cg"
-    "Modified: / 15.1.1998 / 15:59:57 / cg"
+    "Modified: / 11.12.1998 / 12:16:46 / cg"
 !
 
 _WTextFieldPeer_create:nativeContext
@@ -9490,9 +9496,11 @@
 
 _WToolkit_beep:nativeContext
     "/ void beep ()
-    UnimplementedNativeMethodSignal raise
+
+    Screen current beep
 
     "Created: / 12.11.1998 / 19:09:23 / cg"
+    "Modified: / 11.12.1998 / 12:15:23 / cg"
 !
 
 _WToolkit_eventLoop:nativeContext
@@ -10737,6 +10745,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.96 1998/12/11 00:05:59 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.97 1998/12/11 11:57:19 cg Exp $'
 ! !
 JavaVM initialize!
hg/stx-libjava