--- a/UIPainter.st	Wed May 20 12:47:34 2009 +0200
+++ b/UIPainter.st	Thu May 21 16:35:09 2009 +0200
@@ -3607,6 +3607,12 @@
 
 !UIPainter methodsFor:'help specs'!
 
+basicHelpTextFromSpecification:specification forKey:aKey
+    "redefinable, to allow for subclasses to overwrite the helpTexts of the ui-spec"
+
+    ^ specification helpSpec at:aKey ifAbsent:nil
+!
+
 flyByHelpSpec
     |spec|