JavaView.st
changeset 596 1649256b9b6d
parent 563 a449d76e4182
child 647 60f4a2f82908
equal deleted inserted replaced
595:045ea996d63a 596:1649256b9b6d
   168 exposeX:x y:y width:w height:h
   168 exposeX:x y:y width:w height:h
   169     |ev rect|
   169     |ev rect|
   170 
   170 
   171     rect := Rectangle left:x top:y width:w height:h.
   171     rect := Rectangle left:x top:y width:w height:h.
   172 
   172 
   173 "/ 'JavaView expose' printCR.
   173 ('JavaView exposeX:' , x printString , ' y:' , y printString , ' width:' , w printString , ' height:' , h printString) printCR.
   174 
   174 
   175     updateRegions isNil ifTrue:[
   175     updateRegions isNil ifTrue:[
   176         updateRegions := OrderedCollection new.
   176         updateRegions := OrderedCollection new.
   177     ].
   177     ].
   178     updateRegions add:rect.
   178     updateRegions add:rect.
   250 ! !
   250 ! !
   251 
   251 
   252 !JavaView class methodsFor:'documentation'!
   252 !JavaView class methodsFor:'documentation'!
   253 
   253 
   254 version
   254 version
   255     ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.19 1999/06/07 12:17:39 cg Exp $'
   255     ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaView.st,v 1.20 1999/08/21 11:36:02 cg Exp $'
   256 ! !
   256 ! !