JavaVM.st
changeset 408 37ee4bd9c0ee
parent 405 c64cd83f8b42
child 409 51bfbac25b42
--- a/JavaVM.st	Thu Oct 22 18:09:45 1998 +0000
+++ b/JavaVM.st	Mon Oct 26 20:27:32 1998 +0000
@@ -6748,6 +6748,22 @@
     "Modified: / 8.1.1998 / 17:35:50 / cg"
 !
 
+_WListPeer__addItem:nativeContext
+    |jString index1 length selListView|
+
+    selListView := self viewForWPeer:nativeContext.
+
+    jString := nativeContext argAt:1.
+    index1 := nativeContext argAt:2.
+    length := nativeContext argAt:3.
+
+    selListView model list addLast:(Java as_ST_String:jString).
+    selListView model changed:#list.
+
+    "Created: / 26.10.1998 / 20:11:30 / cg"
+    "Modified: / 26.10.1998 / 20:20:08 / cg"
+!
+
 _WListPeer_addItem:nativeContext
     |jString index selListView|
 
@@ -6859,6 +6875,14 @@
     "Modified: / 24.1.1998 / 20:01:06 / cg"
 !
 
+_WListPeer_updateMaxItemWidth:nativeContext
+    |selectionInListView lineNr|
+
+    selectionInListView := self viewForWPeer:nativeContext.
+
+    "Created: / 26.10.1998 / 20:09:46 / cg"
+!
+
 _WMenuBarPeer_create:nativeContext
     |jMenuBarPeer jMenuBar jFrame frame menuBar|
 
@@ -8147,6 +8171,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.49 1998/10/22 16:44:34 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.50 1998/10/26 20:27:32 cg Exp $'
 ! !
 JavaVM initialize!