'From Squeak3.1alpha of 4 February 2001 [latest update: #3548] on 8 February 2001 at 9:47:11 pm'! "Change Set: MsgTallyFix-ar Date: 8 February 2001 Author: Andreas Raab A fix for MessageTally behavior."! !InputSensor methodsFor: 'mouse' stamp: 'ar 2/8/2001 21:45'! peekMousePt ^self primMousePt! ! !EventSensor methodsFor: 'accessing' stamp: 'ar 2/8/2001 21:45'! peekMousePt ^mousePosition! ! !TheWorldMenu methodsFor: 'as yet unclassified' stamp: 'ar 2/8/2001 21:46'! startMessageTally (self confirm: 'MessageTally will start now, and stop when the cursor goes to the top of the screen') ifTrue: [MessageTally spyOn: [[Sensor peekMousePt y > 0] whileTrue: [Display doOneCycleMorphic]]]! ! !TheWorldMenu methodsFor: 'as yet unclassified' stamp: 'ar 2/8/2001 21:46'! startThenBrowseMessageTally (self confirm: 'MessageTally will start now, and stop when the cursor goes to the top of the screen') ifTrue: [TimeProfileBrowser onBlock: [[Sensor peekMousePt y > 10] whileTrue: [Display doOneCycleMorphic]]]! !