'From Squeak3.1alpha of 4 February 2001 [latest update: #3586] on 14 February 2001 at 12:09:43 am'! "Change Set: PeekPos Date: 14 February 2001 Author: Andreas Raab Fixes a problem with #getCurrentMorphicWorld stealing events by using sensor prims. I'm still unhappy about how this works."! !DisplayScreen methodsFor: 'other' stamp: 'ar 2/14/2001 00:01'! getCurrentMorphicWorld ^RequestCurrentWorldNotification signal ifNil: [ (self morphicWorldAt: Sensor peekPosition) ifNil: [ self getOuterMorphicWorld ]. ] ! ! !InputSensor methodsFor: 'mouse' stamp: 'ar 2/14/2001 00:02'! peekButtons ^self primMouseButtons! ! !InputSensor methodsFor: 'cursor' stamp: 'ar 2/14/2001 00:00'! peekPosition ^self cursorPoint! ! !EventSensor methodsFor: 'accessing' stamp: 'ar 2/14/2001 00:03'! peekButtons inputSemaphore signal. ^mouseButtons! ! !EventSensor methodsFor: 'accessing' stamp: 'ar 2/14/2001 00:01'! peekPosition inputSemaphore signal. "get latest state" ^mousePosition! !