[etoys-notify] [JIRA] Created: (SQ-1142) include at cursor tile Places object at nearest point in holder, not at cursor as claimed

[Edward Mokurai Cherlin (JIRA)]

include at cursor tile Places object at nearest point in holder, not at cursor as claimed
-----------------------------------------------------------------------------------------

                 Key: SQ-1142
                 URL: http://tracker.squeakland.org/browse/SQ-1142
             Project: squeakland
          Issue Type: Bug
          Components: etoys
            Reporter: Edward Mokurai Cherlin


Etoys to go 5.0
Ubuntu Linux 12.10

Setup: Open a Page in a Book and drop some Morphs in it. Place a Morph outside the Book. Pull out the tile 'page include at cursor dot' out of the collections category in the StandardViewer for the Page into the World. A Scripting Editor opens to hold it. Get a tile for the Morph from its Halo, and drop it over dot in the script. Run the script.

The Morph is moved to the nearest point within the page, even though it is supposed to appear at the cursor location, that is, the location of the object currently indexed in the cursor variable tile. The help text reads, "Add the object to my contents at my current cursor location." 

The behavior of moving to the nearest point in the Page is verifiable in the Squeak definition of the tile, which calls self includeAtCursor:, which at some point invokes goHome.

goHome
	| box |
	(owner isInMemory and: [owner notNil])
		ifTrue:
			[self visible
				ifTrue:
					[box := owner.
					self left < box left ifTrue: [self position: box left @ self position y].
					self right > box right
						ifTrue: [self position: (box right - self width) @ self position y].
					self top < box top ifTrue: [self position: self position x @ box top].
					self bottom > box bottom
						ifTrue: [self position: self position x @ (box bottom - self height)]]]


-- 
This message is automatically generated by JIRA.
-
If you think it was sent incorrectly contact one of the administrators: http://tracker.squeakland.org/secure/Administrators.jspa
-
For more information on JIRA, see: http://www.atlassian.com/software/jira