--- a/JavaView.st	Mon Aug 18 20:32:30 1997 +0000
+++ b/JavaView.st	Mon Aug 18 20:35:22 1997 +0000
@@ -1,5 +1,5 @@
 View subclass:#JavaView
-	instanceVariableNames:'eventReceiver updateRegions'
+	instanceVariableNames:'eventReceiver updateRegions javaPeer'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Java-Views-Support'
@@ -24,6 +24,24 @@
     ^ r
 
     "Created: 18.8.1997 / 15:37:31 / cg"
+!
+
+javaPeer
+    "for debugging support - here is a handle to the corresponding
+     javaPeer"
+
+    ^ javaPeer
+
+    "Created: 18.8.1997 / 22:34:35 / cg"
+!
+
+javaPeer:aJavaView
+    "for debugging support - here is a handle to the corresponding
+     javaPeer"
+
+    javaPeer := aJavaView
+
+    "Created: 18.8.1997 / 22:34:30 / cg"
 ! !
 
 !JavaView methodsFor:'event handling'!
@@ -45,5 +63,5 @@
 !JavaView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.3 1997/08/18 19:44:02 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.4 1997/08/18 20:35:22 cg Exp $'
 ! !