menuFor: and labelFor:
must check for self-class providing the aspect BEFORE
going to masterApplication.
Bugfix for TabListEditors menu bug, which was
taken from its masterApplication, the UI Painter
--- a/ApplicationModel.st Tue Jun 22 09:38:14 2004 +0200
+++ b/ApplicationModel.st Wed Jun 30 09:09:35 2004 +0200
@@ -470,6 +470,12 @@
"Created: / 13.11.2001 / 12:28:36 / cg"
! !
+!ApplicationModel class methodsFor:'private'!
+
+selfResponsibleFor:aKey
+ ^ self respondsTo:aKey
+! !
+
!ApplicationModel class methodsFor:'queries'!
interfaceSpecFor:aSelector
@@ -1089,6 +1095,9 @@
(self selfResponsibleFor:aKey) ifTrue:[
^ self perform:aKey
].
+ (self class selfResponsibleFor:aKey) ifTrue:[
+ ^ self class perform:aKey
+ ].
^ masterApplication labelFor:aKey
"Modified: / 18.6.1998 / 20:33:42 / cg"
@@ -1136,6 +1145,9 @@
(self selfResponsibleFor:aKey) ifTrue:[
^ self perform:aKey
].
+ (self class selfResponsibleFor:aKey) ifTrue:[
+ ^ self class perform:aKey
+ ].
^ masterApplication menuFor:aKey
"Modified: / 18.6.1998 / 20:33:56 / cg"
@@ -2791,7 +2803,7 @@
!ApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.206 2004-06-09 16:24:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.207 2004-06-30 07:09:35 cg Exp $'
! !
ApplicationModel initialize!