# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1141677362 -3600
# Node ID 35576ff838cab1e8d59d9788f1fbf6ec3d55e19a
# Parent  f38451813c50e624275824334965ab590ff02175
*** empty log message ***

diff -r f38451813c50 -r 35576ff838ca UIHelpTool.st
--- a/UIHelpTool.st	Mon Mar 06 21:34:10 2006 +0100
+++ b/UIHelpTool.st	Mon Mar 06 21:36:02 2006 +0100
@@ -650,6 +650,7 @@
     "returns the info label as value holder"
 
     masterApplication notNil ifTrue:[
+        builder aspectAt:#useAlienInfoLabelHolder put:true.
         ^ masterApplication infoLabelHolder
     ].
     ^ super infoLabelHolder
@@ -1304,12 +1305,11 @@
     "
     |key|
 
-    aKey size ~~ 0 ifTrue:[
-	key := aKey asSymbol.
+    aKey isEmptyOrNil ifTrue:[ ^ nil ].
+    key := aKey asSymbol.
 
-	self do:[:anItem|
-	    anItem helpKey == key ifTrue:[ ^ anItem ].
-	]
+    self do:[:anItem|
+        anItem helpKey == key ifTrue:[ ^ anItem ].
     ].
     ^ nil
 ! !