Tim Felgentreff uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-tfel.194.mcz==================== Summary ====================
Name: MorphicExtras-tfel.194
Author: tfel
Time: 30 August 2016, 6:57:05.056793 pm
UUID: 16e1e153-f298-0c42-84b0-11e192cec7aa
Ancestors: MorphicExtras-tfel.193
fix test in ViewerFlapTab>>unhibernate to actually test a boolean
=============== Diff against MorphicExtras-tfel.193 ===============
Item was changed:
----- Method: ViewerFlapTab>>unhibernate (in category 'transition') -----
unhibernate
"recreate my viewer"
| wasShowing viewer |
+ referent ifNotNil: [referent isViewer ifTrue: [^self]].
- referent ifNotNil: [(referent isViewer) ifNotNil: [^self]].
wasShowing := flapShowing.
"guard against not-quite-player-players"
viewer := ((scriptedPlayer respondsTo: #costume)
and: [scriptedPlayer costume isMorph])
ifTrue: [self presenter viewMorph: scriptedPlayer costume]
ifFalse: [self presenter viewObjectDirectly: scriptedPlayer].
wasShowing ifFalse: [self hideFlap].
^viewer!