equal
deleted
inserted
replaced
534 "change the helpKey without any change notification (modifiedHolder). |
534 "change the helpKey without any change notification (modifiedHolder). |
535 " |
535 " |
536 |key| |
536 |key| |
537 |
537 |
538 self withoutModifyDo:[ |
538 self withoutModifyDo:[ |
539 aKey size ~~ 0 ifTrue:[ |
539 aKey size ~~ 0 ifTrue:[ |
540 key := aKey withoutSeparators. |
540 key := aKey withoutSeparators asNilIfEmpty. |
541 key isEmpty ifTrue:[ key := nil ] |
541 ] ifFalse:[ |
542 ] ifFalse:[ |
542 key := nil |
543 key := nil |
543 ]. |
544 ]. |
544 editModel value:key. |
545 editModel value:key. |
|
546 ]. |
545 ]. |
547 self cancel. |
546 self cancel. |
548 ! |
547 ! |
549 |
548 |
550 modified |
549 modified |