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 Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project