Etoys: Morphic-kfr.101.mcz

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

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

Name: Morphic-kfr.101
Author: kfr
Time: 11 February 2013, 7:41:57 pm
UUID: 726d69f4-031f-7047-9aa3-868a19a36c1c
Ancestors: Morphic-kfr.100

Fixing issues with flexing FlapTabs

=============== Diff against Morphic-kfr.99 ===============

Item was changed:
  ----- Method: InteriorFlapTab>>hideFlap (in category 'show & hide') -----
  hideFlap
  "Close the flap."
 
+ self privateDeleteReferent.
+ flapShowing := false.
+ self adjustPositionAfterHidingFlap!
- referent privateDelete.
- flapShowing _ false.
- self adjustPositionAfterHidingFlap
- !

Item was changed:
  ----- Method: InteriorFlapTab>>maybeHideFlapOnMouseLeaveDragging (in category 'show & hide') -----
  maybeHideFlapOnMouseLeaveDragging
  "After the mouse leaves, having dragged something out, perhaps close the flap."
 
  | aPasteUpMorph |
  self hasHalo ifTrue: [^ self].
  referent isInWorld ifFalse: [^ self].
  (dragged or: [referent bounds containsPoint: self cursorPoint])
  ifTrue: [^ self].
+ aPasteUpMorph := self pasteUpMorph.
+ self privateDeleteReferent.  "could make me worldless if I'm inboard"
- aPasteUpMorph _ self pasteUpMorph.
- referent privateDelete.  "could make me worldless if I'm inboard"
  aPasteUpMorph ifNotNil: [aPasteUpMorph removeAccommodationForFlap: self].
+ flapShowing := false.
- flapShowing _ false.
  self isInWorld ifFalse: [aPasteUpMorph  ifNotNil: [aPasteUpMorph addMorphFront: self]].
  self adjustPositionAfterHidingFlap!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev