[squeak-dev] The Inbox: Morphic-ct.1769.mcz

Thiede, Christoph Christoph.Thiede at student.hpi.uni-potsdam.de
Thu May 6 21:15:31 UTC 2021

Well, I actually wanted to prevent a window from automatically applying the color of its first child, which is often a transparent panel morph. Recently we had a student complaining that his window was completely lacking color:

ToolBuilder open: (PluggableWindowSpec new
children: {PluggablePanelSpec new
    frame: (LayoutFrame new
topFraction: 1;


This is because only Model implements #windowColorToUse.
Note that #windowColorToUse, #paneColor, and #defaultColor can still be used to set a translucent color. But I'm not sure whether it is a good idea to derive a transparent color from a child ...

Von: Squeak-dev <squeak-dev-bounces at lists.squeakfoundation.org> im Auftrag von Taeumel, Marcel
Gesendet: Donnerstag, 6. Mai 2021 20:32:24
An: squeak-dev
Betreff: Re: [squeak-dev] The Inbox: Morphic-ct.1769.mcz

> Avoid translucent color.

Why? I did cut out the drop shadow. Translucent windows colors look so cool! :-D

Am 01.05.2021 14:12:32 schrieb commits at source.squeak.org <commits at source.squeak.org>:

A new version of Morphic was added to project The Inbox:

==================== Summary ====================

Name: Morphic-ct.1769
Author: ct
Time: 1 May 2021, 2:12:17.510389 pm
UUID: aa271c07-344a-324a-afe4-3950d6c00839
Ancestors: Morphic-mt.1767

Make SystemWindow's paneColor more robust against missing models. Avoid translucent color.

=============== Diff against Morphic-mt.1767 ===============

Item was changed:
----- Method: SystemWindow>>paneColor (in category 'colors') -----
| cc |
(cc := self valueOfProperty: #paneColor) ifNotNil: [^cc].
(model respondsTo: #windowColorToUse) ifTrue: [cc := model windowColorToUse].
+ cc ifNil: [cc := paneMorphs
+ detect: [:morph | morph color isTransparent not]
+ ifFound: [:morph | morph color asNontranslucentColor]
+ ifNone: [nil]].
- cc ifNil: [cc := paneMorphs isEmptyOrNil ifFalse: [paneMorphs first color]].
cc ifNil: [cc := self defaultColor].
self paneColor: cc.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210506/9e5540a9/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 57317 bytes
Desc: image.png
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210506/9e5540a9/attachment-0002.png>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pastedImage.png
Type: image/png
Size: 15764 bytes
Desc: pastedImage.png
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210506/9e5540a9/attachment-0003.png>

More information about the Squeak-dev mailing list