July 23, 2009
8:31 p.m.
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