--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/JavaView.st	Mon Aug 18 13:39:33 1997 +0000
@@ -0,0 +1,46 @@
+View subclass:#JavaView
+	instanceVariableNames:'eventReceiver updateRegions'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Java-Support'
+!
+
+
+!JavaView methodsFor:'accessing'!
+
+delegate:anObject
+    super delegate:anObject.
+    eventReceiver := anObject.
+
+    "Created: 18.8.1997 / 15:22:20 / cg"
+!
+
+getNextUpdateRectangle
+    |r|
+
+    updateRegions size == 0 ifTrue:[^ nil].
+    r := updateRegions removeFirst.
+    updateRegions size == 0 ifTrue:[updateRegions := nil].
+    ^ r
+
+    "Created: 18.8.1997 / 15:37:31 / cg"
+! !
+
+!JavaView methodsFor:'event handling'!
+
+exposeX:x y:y width:w height:h
+    updateRegions isNil ifTrue:[
+        updateRegions := OrderedCollection new.
+    ].
+    updateRegions add:(Rectangle left:x top:y width:w height:h).
+    eventReceiver exposeX:x y:y width:w height:h view:self
+
+    "Created: 18.8.1997 / 15:00:24 / cg"
+    "Modified: 18.8.1997 / 15:33:04 / cg"
+! !
+
+!JavaView class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.1 1997/08/18 13:39:33 cg Exp $'
+! !