UIHelpTool.st
changeset 2037 35576ff838ca
parent 2020 9de675480091
child 2069 3db21bf80a51
--- 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
 ! !