[Pkg] The Trunk: MorphicExtras-ul.93.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ul.93.mcz

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

Name: MorphicExtras-ul.93
Author: ul
Time: 15 November 2010, 10:04:46.909 am
UUID: b5392ef3-e41e-3e4d-81e7-6a39dd2752d3
Ancestors: MorphicExtras-ar.92

- get rid of the last underscore assignments

=============== Diff against MorphicExtras-ar.92 ===============

Item was changed:
  ----- Method: FlapTab>>mouseMove: (in category 'event handling') -----
  mouseMove: evt
  	| aPosition newReferentThickness adjustedPosition thick |
  
  	dragged ifFalse: [(thick := self referentThickness) > 0
  			ifTrue: [lastReferentThickness := thick]].
  	((self containsPoint: (aPosition := evt cursorPoint)) and: [dragged not])
  		ifFalse:
  			[flapShowing ifFalse: [self showFlap].
  			adjustedPosition := aPosition - evt hand targetOffset.
  			(edgeToAdhereTo == #bottom)
  				ifTrue:
  					[newReferentThickness := inboard
  						ifTrue:
  							[self world height - adjustedPosition y]
  						ifFalse:
  							[self world height - adjustedPosition y - self height]].
  
  			(edgeToAdhereTo == #left)
  					ifTrue:
+ 						[newReferentThickness :=
- 						[newReferentThickness _
  							inboard
  								ifTrue:
  									[adjustedPosition x + self width]
  								ifFalse:
  									[adjustedPosition x]].
  
  			(edgeToAdhereTo == #right)
  					ifTrue:
+ 						[newReferentThickness :=
- 						[newReferentThickness _
  							inboard
  								ifTrue:
  									[self world width - adjustedPosition x]
  								ifFalse:
  									[self world width - adjustedPosition x - self width]].
  
  			(edgeToAdhereTo == #top)
  					ifTrue:
+ 						[newReferentThickness :=
- 						[newReferentThickness _
  							inboard
  								ifTrue:
  									[adjustedPosition y + self height]
  								ifFalse:
  									[adjustedPosition y]].
  		
  			self isCurrentlySolid ifFalse:
  				[(#(left right) includes: edgeToAdhereTo)
  					ifFalse:
  						[self left: adjustedPosition x]
  					ifTrue:
  						[self top: adjustedPosition y]].
  
  			self applyThickness: newReferentThickness.
  			dragged := true.
  			self fitOnScreen.
  			self computeEdgeFraction]!