The Trunk: Morphic-laza.389.mcz

> Alexander Lazarević uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-laza.389.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-laza.389
> Author: laza
> Time: 25 March 2010, 3:55:38.504 pm
> UUID: 2559029d-daab-4085-b080-eb9f63f493de
> Ancestors: Morphic-ar.388
>
> make inactive Window buttons dimmed
>
> =============== Diff against Morphic-ar.388 ===============
>
> Item was added:
> + ----- Method: SystemWindowButton>>unlock (in category 'accessing') -----
> + unlock
> +       self restoreImage.
> +       super unlock!
>
> Item was added:
> + ----- Method: SystemWindowButton>>lock (in category 'accessing') -----
> + lock
> +       self passivate.
> +       super lock!
>
> 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]].
> +
> +       "Control boxes remain active, except in novice mode"
> +       labelArea
> +               ifNotNil: [
> +                       labelArea submorphsDo: [:m |
> +                               (Preferences noviceMode not and: [m == closeBox or: [m == collapseBox]]) 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])
> -                                                               ifFalse: [m lock; hide]]]]]
>                ifNil: "i.e. label area is nil, so we're titleless"
>                        [self adjustBorderUponDeactivationWhenLabeless].
>  !
>
> Item was added:
> + ----- Method: SystemWindowButton>>passivate (in category 'visual properties') -----
> + passivate
> +
> +       self firstSubmorph form: (self firstSubmorph form dimmed)
> + !
>
>
>