--- a/ApplicationModel.st	Sat Apr 01 16:29:49 2000 +0200
+++ b/ApplicationModel.st	Fri Apr 14 17:56:40 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview2' }"
+
 Model subclass:#ApplicationModel
 	instanceVariableNames:'builder resources device masterApplication'
 	classVariableNames:'DefaultLabels DefaultVisuals'
@@ -975,7 +977,9 @@
 
      |app|
 
-    (self selfResponsibleFor:aKey) ifTrue:[
+    "/(self selfResponsibleFor:aKey)       "/ rubbish
+    (self respondsTo:aKey)
+    ifTrue:[     
         ^ self perform:aKey
     ].
     ((app := self application) respondsTo:aKey) ifTrue:[
@@ -2394,6 +2398,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.131 2000-02-26 16:52:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.132 2000-04-14 15:56:40 tm Exp $'
 ! !
 ApplicationModel initialize!