# HG changeset patch
# User cg
# Date 871936522 0
# Node ID 30c61addabd914b44125fea952d44aece5d7a17d
# Parent  bb25b386183011c49bfd3adfb0f248c35ad8459b
*** empty log message ***

diff -r bb25b3861830 -r 30c61addabd9 JavaView.st
--- 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 $'
 ! !