I found
theme
"Answer the current theme for the receiver."
(self valueOfProperty: #theme) ifNotNil: [:t | ^ t].
^(self window ifNil: [self class]) theme
in Morph
theme: aUITheme
"Set the current theme for the receiver."
self theme = aUITheme ifFalse: [
self setProperty: #theme toValue: aUITheme.
self themeChanged]
and theme is defined on the Morph class so this means that we can change the
UITheme current by self theme :)
Stef
