The Trunk: System-mt.980.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-mt.980.mcz

commits-2
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.980.mcz

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

Name: System-mt.980
Author: mt
Time: 1 December 2017, 3:03:31.540778 pm
UUID: c3f1a214-80ad-de46-b8dc-84579cadeda0
Ancestors: System-dtl.979

Let the result of "self userInterfaceTheme" actually respond to the messages understood by UserInterfaceTheme if those are no properties.

Why? Make the existing use of "self userInterfaceTheme apply" work again.

=============== Diff against System-dtl.979 ===============

Item was changed:
  ----- Method: UserInterfaceThemeRequest>>doesNotUnderstand: (in category 'lookup') -----
  doesNotUnderstand: aMessage
  "Look up the visual-attribute specified by aMessage's #selector in the current theme for the current target object."
 
+ aMessage numArgs = 0 ifTrue: [
+ ^ (self theme get: self target class -> aMessage selector)
+ ifNil: [(self theme respondsTo: aMessage selector)
+ ifTrue: [self theme perform: aMessage selector]
+ ifFalse: [nil "means unset property"]]].
+
+ ^ self theme
+ perform: aMessage selector
+ withArguments: aMessage arguments.!
- ^ aMessage numArgs = 0
- ifTrue: [self theme get: self target class -> aMessage selector]
- ifFalse: [super doesNotUnderstand: aMessage]!

Item was removed:
- ----- Method: UserInterfaceThemeRequest>>set:for:to: (in category 'accessing') -----
- set: propertySymbol for: aClassOrSymbol to: valueObject
- "Where aClass asks its userInterfaceTheme for propertySymbol, provide valueObject. Pass this on to the actual theme"
-
- ^self theme set: propertySymbol for: aClassOrSymbol to: valueObject
-
- !