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
