View subclass:#JavaView
	instanceVariableNames:'eventReceiver updateRegions'
	classVariableNames:''
	poolDictionaries:''
	category:'Java-Views-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 notNil ifTrue:[
        eventReceiver exposeX:x y:y width:w height:h view:self
    ].
    super exposeX:x y:y width:w height:h

    "Created: 18.8.1997 / 15:00:24 / cg"
    "Modified: 18.8.1997 / 18:14:53 / cg"
! !

!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 $'
! !