*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 06 Mar 2006 21:36:02 +0100
changeset 2037 35576ff838ca
parent 2036 f38451813c50
child 2038 dfa6f1e641a7
*** empty log message ***
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
 ! !