class: UIHelpTool
authorClaus Gittinger <cg@exept.de>
Sat, 13 Jul 2013 22:25:22 +0200
changeset 3030 c909ebfb2041
parent 3029 58cc0b402815
child 3031 a301eabbab46
class: UIHelpTool changed: #helpKey: use asNilIfEmpty
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.
 !