The Trunk: MorphicExtras-ar.62.mcz

Andreas Raab uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ar.62.mcz

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

Name: MorphicExtras-ar.62
Author: ar
Time: 15 December 2009, 3:48:39 am
UUID: cc012b9a-8273-dd44-be33-7d7919e23ddd
Ancestors: MorphicExtras-ul.61

Make flaps registration and unregistration a bit more robust in the case of non-existing flaps. Allows TextMorphTest to succeed.

=============== Diff against MorphicExtras-ul.61 ===============

Item was changed:
  ----- Method: Flaps class>>registerQuad:forFlapNamed: (in category 'flaps registry') -----
  registerQuad: aQuad forFlapNamed: aLabel
  "If any previous registration of the same label string is already known, delete the old one."
 
  "aQuad received must be an array of the form {TargetObject. #command label  'A Help String'}
 
  Flaps registerQuad: #(FileList2 openMorphicViewInWorld 'Enhanced File List' 'A nicer File List.')
  forFlapNamed: 'Tools' "
 
  self unregisterQuad: aQuad forFlapNamed: aLabel.
+ (self registeredFlapsQuads at: aLabel ifAbsent:[^self]) add: aQuad!
- (self registeredFlapsQuads at: aLabel) add: aQuad!

Item was changed:
  ----- Method: Flaps class>>registeredFlapsQuadsAt: (in category 'flaps registry') -----
  registeredFlapsQuadsAt: aLabel
  "Answer the list of dynamic flaps quads at aLabel"
 
+ ^ (self registeredFlapsQuads at: aLabel ifAbsent:[^#()])
- ^ (self registeredFlapsQuads at: aLabel)
  removeAllSuchThat: [:q | (self environment includesKey: q first) not or: [(self environment at: q first) isNil]]
  !