equal
deleted
inserted
replaced
1125 accept |
1125 accept |
1126 "accepts the help text" |
1126 "accepts the help text" |
1127 |
1127 |
1128 |key txt| |
1128 |key txt| |
1129 |
1129 |
1130 contentsModifiedChannel value ifFalse:[^ self]. |
|
1131 contentsModifiedChannel value:false. |
|
1132 |
|
1133 key := self helpKey. |
1130 key := self helpKey. |
1134 key isNil ifTrue:[^ self]. |
1131 key isNil ifTrue:[^ self]. |
|
1132 |
|
1133 contentsModifiedChannel value ifFalse:[ |
|
1134 (dictionary includes:key) ifTrue:[^ self]. |
|
1135 ]. |
|
1136 contentsModifiedChannel value:false. |
1135 |
1137 |
1136 txt := editTextView contents ? ''. |
1138 txt := editTextView contents ? ''. |
1137 txt := txt asString. |
1139 txt := txt asString. |
1138 |
1140 |
1139 dictionary at:key put:txt. |
1141 dictionary at:key put:txt. |