[ENH] Impassive Project Views (Re: optional panes out-of-the-box,
and other preferences)
Jesse Welton
jwelton at pacific.mps.ohio-state.edu
Tue Feb 6 14:38:19 UTC 2001
I wrote:
>
> Perhaps there's another way to keep the highlighting on mouse-over.
> It is a bit unpleasant that the ProjectViewMorphs provide this nice
> feedback to alert the user that a click will enter the project, but
> activating another window will prevent this behavior -- without also
> locking the enter-on-click behavior.
And here it is: In SystemWindow>>passivate, don't lock submorphs which
are ProjectViewMorphs.
-Jesse
-------------- next part --------------
'From Squeak3.0 of 4 February 2001 [latest update: #3414] on 6 February 2001 at 9:31:55 am'!
"Change Set: impassiveProjectViews
Date: 6 February 2001
Author: Jesse Welton
Change SystemWindow>>passivate to not lock submorphs with are ProjectViews. This way, ProjectViews still provide mouse-over feedback when in passive windows. (Before, they did not give feedback, but still responded to mouse clicks.)"!
!SystemWindow methodsFor: 'top window' stamp: 'JW 2/6/2001 08:09'!
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 or: [m class == ProjectViewMorph]) ifFalse: [
m lock
]
].
labelArea submorphsDo: [:m |
(m == closeBox or: [m == collapseBox]) ifTrue: [
Preferences noviceMode ifTrue: [m lock]
] ifFalse: [
m lock
]
].
self world ifNotNil: "clean damage now, so dont merge this rect with new top window"
[self world == Display bestGuessOfCurrentWorld ifTrue: [self world displayWorld]].
! !
More information about the Squeak-dev
mailing list
|