DisplaySurface.st
changeset 7466 f2b2fd93f05f
parent 7449 ec17d1521d0b
child 7470 b18bb9a0ed24
equal deleted inserted replaced
7465:8409368bbfe6 7466:f2b2fd93f05f
  1768      to tell the sensor that incoming expose events are to be remembered.
  1768      to tell the sensor that incoming expose events are to be remembered.
  1769      Sometime after the bit-blt, waitForExpose should be sent, to finally
  1769      Sometime after the bit-blt, waitForExpose should be sent, to finally
  1770      suspend until the expose/noExpose event arrives.
  1770      suspend until the expose/noExpose event arrives.
  1771      This is an X speciality - for devices which do not need this kind of
  1771      This is an X speciality - for devices which do not need this kind of
  1772      asynchronous bit-blt confirmation, this is a noop.
  1772      asynchronous bit-blt confirmation, this is a noop.
       
  1773      Answer true if the sender is reqired to do a waitForExpose, false if not.
  1773     "
  1774     "
  1774 
  1775 
  1775     |wg|
  1776     |wg|
  1776 
  1777 
  1777     device scrollsAsynchronous ifFalse:[
  1778     device scrollsAsynchronous ifFalse:[
  1778 	self setGotExposeFlag.
  1779         self setGotExposeFlag.
  1779 	^ self
  1780         ^ false
  1780     ].
  1781     ].
  1781 
  1782 
  1782     self setGraphicsExposures:true.
  1783     self setGraphicsExposures:true.
  1783 
  1784 
  1784     self clearGotExposeFlag.
  1785     self clearGotExposeFlag.
  1785     wg := self windowGroup.
  1786     wg := self windowGroup.
  1786     wg notNil ifTrue:[
  1787     wg notNil ifTrue:[
  1787 	"
  1788         "
  1788 	 must process eny pending expose events, since
  1789          must process eny pending expose events, since
  1789 	 usually the origin is changed soon so that previous
  1790          usually the origin is changed soon so that previous
  1790 	 expose events coordinates are invalid
  1791          expose events coordinates are invalid
  1791 	"
  1792         "
  1792 	wg processRealExposeEventsFor:self.
  1793         wg processRealExposeEventsFor:self.
  1793 	wg sensor catchExposeFor:self
  1794         wg sensor catchExposeFor:self.
  1794     ]
  1795         ^ true
       
  1796     ].
       
  1797     ^ false.
  1795 
  1798 
  1796     "Modified: 6.8.1997 / 19:50:15 / cg"
  1799     "Modified: 6.8.1997 / 19:50:15 / cg"
  1797 !
  1800 !
  1798 
  1801 
  1799 coveredBy:aView
  1802 coveredBy:aView