--- a/ApplicationModel.st	Mon Sep 16 12:57:02 2002 +0200
+++ b/ApplicationModel.st	Tue Sep 17 11:08:24 2002 +0200
@@ -932,6 +932,12 @@
     "Modified: / 18.6.1998 / 20:33:36 / cg"
 !
 
+flyByHelpSpec
+    "activeHelp interface: return some short help text for a widget component"
+
+    ^ self class flyByHelpSpec
+!
+
 flyByHelpTextFor:aComponent
     "activeHelp interface: return some short help text for a widget component"
 
@@ -961,11 +967,7 @@
 
     |cls helpText|
 
-    cls := self class.
-
-    (cls respondsTo:#flyByHelpSpec) ifTrue:[
-        helpText := (cls flyByHelpSpec) at:aKey ifAbsent:nil
-    ].
+    helpText := (self flyByHelpSpec) at:aKey ifAbsent:nil.
     helpText isNil ifTrue:[
         masterApplication notNil ifTrue:[
             helpText := masterApplication flyByHelpTextForKey:aKey
@@ -981,18 +983,20 @@
     "Modified: / 4.2.2000 / 15:30:16 / cg"
 !
 
+helpSpec
+    "activeHelp interface: return some short help text for a widget component"
+
+    ^ self class helpSpec
+!
+
 helpTextFor:aComponent
     "activeHelp interface: return some help text for a widget component"
 
-    |key cls|
+    |key|
 
     builder notNil ifTrue:[
-        cls := self class.
-
-        (cls respondsTo:#helpSpec) ifTrue:[
-            (key := builder helpKeyFor:aComponent) notNil ifTrue:[
-                ^ self helpTextForKey:key
-            ]
+        (key := builder helpKeyFor:aComponent) notNil ifTrue:[
+            ^ self helpTextForKey:key
         ]
     ].
     masterApplication notNil ifTrue:[
@@ -1008,13 +1012,9 @@
      key is the symbol associated with some widget or menu item.
      (from my helpSpec); return a language variant (if available)"
 
-    |cls helpText|
-
-    cls := self class.
-
-    (cls respondsTo:#helpSpec) ifTrue:[
-        helpText := (cls helpSpec) at:aKey ifAbsent:nil
-    ].
+    |helpText|
+
+    helpText := (self helpSpec) at:aKey ifAbsent:nil.
     helpText isNil ifTrue:[
         masterApplication notNil ifTrue:[
             helpText := masterApplication helpTextForKey:aKey
@@ -2624,6 +2624,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.172 2002-09-04 19:53:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.173 2002-09-17 09:08:24 cg Exp $'
 ! !
 ApplicationModel initialize!