--- a/ApplicationModel.st	Wed Oct 17 11:04:40 2012 +0200
+++ b/ApplicationModel.st	Tue Oct 23 14:11:46 2012 +0200
@@ -2240,6 +2240,14 @@
 flyByHelpSpec
     "activeHelp interface: return some short help text for a widget component"
 
+    |specFromBuilder|
+
+    builder notNil ifTrue:[
+        (specFromBuilder := builder aspectAt:#flyByHelpSpec ifAbsent:nil) notNil ifTrue:[
+            ^ specFromBuilder
+        ].
+
+    ].
     ^ self class flyByHelpSpec
 !
 
@@ -3939,11 +3947,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.331 2012-07-27 07:52:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.332 2012-10-23 12:11:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.331 2012-07-27 07:52:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.332 2012-10-23 12:11:46 cg Exp $'
 ! !
 
 ApplicationModel initialize!