but the pharo version looks like this
passivate
"Make me unable to respond to mouse and keyboard"
super passivate.
self setStripeColorsFrom: self paneColorToUse.
model modelSleep.
"Control boxes remain active, except in novice mode"
self lockInactivePortions.
labelArea ifNil: "i.e. label area is nil, so we're titleless"
[self adjustBorderUponDeactivationWhenLabeless]
so we were already fast ;)
On Jul 23, 2009, at 10:31 PM, Stéphane Ducasse wrote:
> I found it
>
>
> passivate
> "Make me unable to respond to mouse and keyboard"
>
> 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 == closeBox or: [m == collapseBox])
> ifTrue:
> [Preferences noviceMode ifTrue: [m
> lock]]
> ifFalse:
> [m lock]]]
> ifNil: "i.e. label area is nil, so we're titleless"
> [self adjustBorderUponDeactivationWhenLabeless].
> self world ifNotNil: "clean damage now, so dont merge this rect with
> new top window"
> [self world == World ifTrue: [self world displayWorld]].
>
> apparently these are the last two lines
>
>
> _______________________________________________
> Pharo-project mailing list
> [email protected]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
