Hi,
GraphicsDevice>>allOpenDevices
Is including the singleton screen twice. This has
implications when changing the look, as the whole update gets executed twice.
A quick fix is:
allOpenDevices
"Answer
a collection of all open graphics devices (screens, printers, etc.).
Remove
erroneous duplicates from the answer. 16/02/07 SIM.
(caused by double access to Screen registry)."
|
openDevices |
openDevices := OrderedCollection
new.
self allSubclassesDo: [:class | openDevices addAll: class registeredInstances].
^openDevices asSet asOrderedCollection
Cheers,
Stewart