[etoys-dev] Etoys: Etoys-kfr.51.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-kfr.51.mcz

==================== Summary ====================

Name: Etoys-kfr.51
Author: kfr
Time: 18 December 2010, 8:25:57 am
UUID: e58b4a8a-834c-874b-9689-56e94821c55e
Ancestors: Etoys-bf.50

Assure not placing above script header

=============== Diff against Etoys-bf.50 ===============

Item was changed:
  ----- Method: ScriptEditorMorph>>rowInsertionIndexFor: (in category 'private') -----
  rowInsertionIndexFor: aPoint
  	"Return the row into which the given morph should be inserted."
  
  	| m |
  	firstTileRow to: submorphs size do: [:i |
  		m _ submorphs at: i.
  		((m top <= aPoint y) and: [m bottom >= aPoint y]) ifTrue:
  			[(aPoint y > m center y)
  				ifTrue: [^ i]
  				ifFalse: [^ (i - 1) max: firstTileRow]]].
  	^ firstTileRow > submorphs size
  		ifTrue:
  			[submorphs size]
  		ifFalse:
  			[(submorphs at: firstTileRow) top > aPoint y 
+ 				ifTrue: [firstTileRow - 1 max: 1 ]
- 				ifTrue: [firstTileRow - 1]
  				ifFalse: [submorphs size]]
  !