Translucent Workspace

Torsten.Bergmann at phaidros.com Torsten.Bergmann at phaidros.com
Mon Apr 7 20:30:07 UTC 2003


Hi Steve,

welcome back to squeak list. :) I've already installed SqueakSkins2 -
it's working for most themes and is a nice piece of code. Thx.

Have you ever thought about cooperating with Jim Bensons who
did the Zurgle UI project? 

The code you've mentioned for the translucent window will just work 
with these small modifications:

"complete translucency for the window, half for the text background"
window := (Transcript openAsMorphLabel: 'Transcript') openInWorld. 
morph := window findA: PluggableTextMorph. 
morph color: (Color blue alpha: 0.5).
window color: (Color white alpha: 0)

or:

"complete translucency for the text background, half for the window"
window := (Transcript openAsMorphLabel: 'Transcript') openInWorld.
morph := window findA: PluggableTextMorph. 
morph color: (Color white alpha: 0).
window color: (Color blue alpha: 0.6)

Unfortunately it is not possible to change the windows color to
a different translucent color using the window menu entry
"window color..." in newer squeak versions because
SystemWindow>>setWindowColor: is implemented like this:

    setWindowColor: incomingColor
	| existingColor aColor |	
	incomingColor ifNil: [^ self].  "it happens"
	aColor := incomingColor asNontranslucentColor.
        ...

The method is from ar 8/15/2001, any comments about the reason?

Bye
Torsten



More information about the Squeak-dev mailing list