--- a/JavaVM.st	Mon Apr 27 14:53:23 1998 +0000
+++ b/JavaVM.st	Mon Apr 27 15:20:21 1998 +0000
@@ -5801,6 +5801,22 @@
     "Created: / 5.1.1998 / 01:56:42 / cg"
 !
 
+_WFramePeer__setIconImage:nativeContext
+    |frame imgRep image|
+
+    frame := self viewForWPeer:nativeContext.
+    imgRep := nativeContext argAt:1.
+    imgRep notNil ifTrue:[
+        image := imgRep instVarNamed:'pData'.
+        image notNil ifTrue:[
+            frame icon:image.
+        ]
+    ].
+
+    "Created: / 27.4.1998 / 17:15:09 / cg"
+    "Modified: / 27.4.1998 / 17:18:24 / cg"
+!
+
 _WFramePeer_create:nativeContext
     |jFramePeer jFrame frame pDataIdx|
 
@@ -6672,20 +6688,7 @@
 
     "Created: / 9.4.1998 / 17:30:56 / cg"
     "Modified: / 10.4.1998 / 14:59:28 / cg"
-! !
-
-!JavaVM class ignoredMethodsFor:'native - sun.awt.windows'!
-
-_WScrollPanePeer__getHScrollbarWidth:nativeContext
-    |scrollPane|
-
-    scrollPane := self viewForWPeer:nativeContext.
-
-    "Created: / 9.4.1998 / 17:29:44 / cg"
-    "Modified: / 9.4.1998 / 17:30:18 / cg"
-! !
-
-!JavaVM class methodsFor:'native - sun.awt.windows'!
+!
 
 _WScrollPanePeer__getVScrollbarWidth:nativeContext
     |scrollPane|
@@ -7736,6 +7739,6 @@
 !JavaVM class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.31 1998/04/14 11:26:24 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.32 1998/04/27 15:20:21 cg Exp $'
 ! !
 JavaVM initialize!