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

Reply via email to