Alexander Lazarević uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-laza.361.mcz==================== Summary ====================
Name: Morphic-laza.361
Author: laza
Time: 26 February 2010, 5:44:23.651 pm
UUID: 1dc62cc1-ddae-4297-9b2b-e41ccc508125
Ancestors: Morphic-laza.360
removed unnecessary check for label
=============== Diff against Morphic-laza.360 ===============
Item was changed:
----- Method: SystemWindow>>passivate (in category 'top window') -----
passivate
"Make me unable to respond to mouse and keyboard"
label ifNotNil: [label color: Color darkGray].
self setStripeColorsFrom: self paneColorToUse.
model modelSleep.
"Control boxes remain active, except in novice mode"
self submorphsDo: [:m |
m == labelArea ifFalse:
[m lock]].
labelArea ifNotNil:
[labelArea submorphsDo: [:m |
m == label
ifTrue: [m lock]
ifFalse: [
Preferences noviceMode
ifTrue: [m lock; hide]
ifFalse: [
+ (m == closeBox or: [m == collapseBox])
- ({closeBox. collapseBox. label} includes: m)
ifFalse: [m lock; hide]]]]]
ifNil: "i.e. label area is nil, so we're titleless"
[self adjustBorderUponDeactivationWhenLabeless].
!