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 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.2 1997/08/18 15:48:34 cg Exp $'
! !