--- a/ApplicationModel.st Wed May 11 01:30:12 2016 +0200
+++ b/ApplicationModel.st Thu May 12 17:48:32 2016 +0200
@@ -3511,10 +3511,19 @@
Can be refefined in subclasses which want to provide per-instance specs."
aSelectorOrSpec isSymbol ifFalse:[
- (aSelectorOrSpec isKindOf:UISpecification) ifTrue:[^ aSelectorOrSpec].
+ (aSelectorOrSpec isKindOf:UISpecification) ifTrue:[^ aSelectorOrSpec].
].
- ^ self class interfaceSpecFor:aSelectorOrSpec
-
+ UnhandledAttributeInLiteralArrayErrorSignal handle:[:ex |
+ "/ that is to support debugging - to easily find the bad spec
+ Transcript showCR:'%1 [warning]: Error in spec (%2):' withCRs
+ with:self class name
+ with:aSelectorOrSpec.
+ Transcript showCR:ex description.
+ ex proceed.
+ ] do:[
+ ^ self class interfaceSpecFor:aSelectorOrSpec
+ ].
+
"Created: / 25-01-1998 / 19:45:12 / cg"
"Modified: / 14-01-2008 / 17:54:29 / cg"
!