equal
deleted
inserted
replaced
1038 contentsModifiedChannel value:false. |
1038 contentsModifiedChannel value:false. |
1039 keyItemModel triggerValue:helpItem. |
1039 keyItemModel triggerValue:helpItem. |
1040 ! |
1040 ! |
1041 |
1041 |
1042 cancel |
1042 cancel |
1043 "cancel modifications, reload helpText |
1043 "cancel modifications, reload helpText" |
1044 " |
1044 |
1045 |item contents modified| |
1045 |item contents modified| |
1046 |
1046 |
1047 item := keyItemModel value. |
1047 item := keyItemModel value. |
1048 modified := false. |
1048 modified := false. |
1049 |
1049 |
1050 item notNil ifTrue:[ |
1050 item notNil ifTrue:[ |
1051 contents := item helpText. |
1051 contents := item helpText. |
1052 ] ifFalse:[ |
1052 ] ifFalse:[ |
1053 contents := nil. |
1053 contents := nil. |
1054 |
1054 |
1055 modifiedHolder isNil ifTrue:[ |
1055 modifiedHolder isNil ifTrue:[ |
1056 modified := self helpKey notNil |
1056 modified := self helpKey notNil |
1057 ] |
1057 ] |
1058 ]. |
1058 ]. |
1059 helpTextView contents:contents. |
1059 helpTextView contents:contents. |
1060 contentsModifiedChannel value:modified. |
1060 contentsModifiedChannel value:modified. |
|
1061 |
|
1062 "Modified: / 29-08-2006 / 10:20:37 / cg" |
1061 ! |
1063 ! |
1062 |
1064 |
1063 doDelete |
1065 doDelete |
1064 "deletes the selected help key |
1066 "deletes the selected help key |
1065 " |
1067 " |