# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1373747122 -7200
# Node ID c909ebfb20417d6e5d1ab8eae0614afdf5236e9d
# Parent  58cc0b4028159a89959cc9875abc262fcfc8543a
class: UIHelpTool
changed: #helpKey:
use asNilIfEmpty

diff -r 58cc0b402815 -r c909ebfb2041 UIHelpTool.st
--- a/UIHelpTool.st	Tue Jul 09 22:07:04 2013 +0200
+++ b/UIHelpTool.st	Sat Jul 13 22:25:22 2013 +0200
@@ -536,13 +536,12 @@
     |key|
 
     self withoutModifyDo:[
-	aKey size ~~ 0 ifTrue:[
-	    key := aKey withoutSeparators.
-	    key isEmpty ifTrue:[ key := nil ]
-	] ifFalse:[
-	    key := nil
-	].
-	editModel value:key.
+        aKey size ~~ 0 ifTrue:[
+            key := aKey withoutSeparators asNilIfEmpty.
+        ] ifFalse:[
+            key := nil
+        ].
+        editModel value:key.
     ].
     self cancel.
 !