[squeak-dev] continuous display of cursor position
Edgar J. De Cleene
edgardec2005 at gmail.com
Fri Jan 4 08:57:16 UTC 2013
On 1/3/13 11:50 PM, "Ralph Boland" <rpboland at gmail.com> wrote:
> I would like to create a small TextMorph that continuously displays the
> position
> of the cursor. To do this I need to write something of the form:
>
> true whileTrue: [
> x := self getCursorPosition.
> textMorph display: x.
> self sleep: 10 "milliseconds"]
>
> I plan to use this when investigating some morph that is not displaying the
> way
> I expect it to.
>
> Can someone provide me with hints as how to properly do this or point
> me to a package that already does this or something similar?
>
> I have searched the code and the Internet. I found that "getCursorPosition"
> can be implemented as:
>
> "World activeHand position"
>
> I can also figure out how to build the Morph I need to display the
> Cursor position.
>
> I don't know how to implement "sleep:"
> I am not sure if I should use an infinite loop as I have.
>
> An alternative to the TextMorph I want is to construct a cursor that
> continuously displays its
> position but I prefer my original plan.
>
> Any help much appreciated.
>
> Ralph Boland
>
See the attached, I use daily
Evaluate InfoMorph openInWorld or InfoMorph openInHand
Cheers
Edgar
-------------- next part --------------
'From Squeak4.2 of 13 June 2011 [latest update: #11599] on 16 April 2012 at 9:31 am'!
StringMorph subclass: #InfoMorph
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'SqueakRos'!
!InfoMorph methodsFor: 'step' stamp: 'edc 5/12/2005 16:06'!
step
| position |
super step.
time := Sensor peekMousePt.
self position: ChangeSet current name, ' ',position asString.
! !
!InfoMorph methodsFor: 'step' stamp: 'edc 2/20/2002 11:30'!
stepTime
"Answer the desired time between steps in milliseconds."
^ 1000! !
!InfoMorph methodsFor: 'as yet unclassified' stamp: 'edc 6/26/2002 15:34'!
cambio: s
info contents:s! !
More information about the Squeak-dev
mailing list
|