The Trunk: MorphicExtras-ul.93.mcz

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]!