author | Claus Gittinger <cg@exept.de> |
Sat, 13 Jul 2013 22:25:22 +0200 | |
changeset 3030 | c909ebfb2041 |
parent 3029 | 58cc0b402815 |
child 3031 | a301eabbab46 |
UIHelpTool.st | file | annotate | diff | comparison | revisions |
--- 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. !