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
|