--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/JavaTopView.st	Fri Apr 08 12:02:36 2011 +0000
@@ -0,0 +1,138 @@
+"
+ COPYRIGHT (c) 1999 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+"{ Package: 'stx:libjava' }"
+
+StandardSystemView subclass:#JavaTopView
+	instanceVariableNames:'eventReceiver updateRegions javaPeer'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Languages-Java-Views-Support'
+!
+
+!JavaTopView class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1999 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
+
+!
+
+documentation
+"
+    [Author:]
+        Claus Gittinger
+"
+
+
+! !
+
+!JavaTopView methodsFor:'accessing'!
+
+delegate:anObject
+"/    super delegate:anObject.
+    eventReceiver := anObject.
+
+    "Created: / 2.12.1998 / 23:32:13 / cg"
+    "Modified: / 2.12.1998 / 23:57:57 / cg"
+!
+
+getNextUpdateRectangle
+    |r|
+
+    updateRegions size == 0 ifTrue:[^ nil].
+    r := updateRegions removeFirst.
+    updateRegions size == 0 ifTrue:[updateRegions := nil].
+    ^ r
+
+    "Created: / 2.12.1998 / 23:32:13 / cg"
+!
+
+javaPeer
+    "for debugging support - here is a handle to the corresponding
+     javaPeer"
+
+    ^ javaPeer
+
+    "Created: / 2.12.1998 / 23:32:13 / cg"
+!
+
+javaPeer:aJavaView
+    "for debugging support - here is a handle to the corresponding
+     javaPeer"
+
+    javaPeer := aJavaView
+
+    "Created: / 2.12.1998 / 23:32:13 / cg"
+! !
+
+!JavaTopView methodsFor:'event handling'!
+
+exposeX:x y:y width:w height:h
+    |ev rect|
+
+    rect := Rectangle left:x top:y width:w height:h.
+
+('JavaTopView exposeX:' , x printString , ' y:' , y printString , ' width:' , w printString , ' height:' , h printString) printCR.
+
+    updateRegions isNil ifTrue:[
+        updateRegions := OrderedCollection new.
+    ].
+    updateRegions add:rect.
+    eventReceiver notNil ifTrue:[
+        ev := WindowEvent 
+                damageFor:self 
+                rectangle:rect. 
+        eventReceiver processEvent:ev.
+    ].
+"/    super exposeX:x y:y width:w height:h
+
+    "Modified: / 19.10.1998 / 23:10:15 / cg"
+    "Created: / 2.12.1998 / 23:32:13 / cg"
+! !
+
+!JavaTopView methodsFor:'initialization'!
+
+initialize
+    super initialize.
+
+    self enableMotionEvents.
+
+    "Modified: / 2.12.1998 / 23:32:30 / cg"
+! !
+
+!JavaTopView methodsFor:'queries'!
+
+isJavaView
+    ^ true
+
+    "Created: / 4.12.1998 / 14:09:37 / cg"
+! !
+
+!JavaTopView class methodsFor:'documentation'!
+
+version
+    ^ '$Id$'
+!
+
+version_SVN
+    ^ '$Id$'
+! !