[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