equal
deleted
inserted
replaced
417 |
417 |
418 aMenu at:#special |
418 aMenu at:#special |
419 putLabels:(resources array:#( |
419 putLabels:(resources array:#( |
420 'group radioButtons' |
420 'group radioButtons' |
421 'group enterFields' |
421 'group enterFields' |
422 '-' |
|
423 'delete undo history' |
|
424 ) ) |
422 ) ) |
425 selectors:#( |
423 selectors:#( |
426 groupRadioButtons |
424 groupRadioButtons |
427 groupEnterFields |
425 groupEnterFields |
428 nil |
|
429 removeUndoHistory |
|
430 ) |
426 ) |
431 receiver:workView. |
427 receiver:workView. |
432 |
428 |
433 aMenu at:#code |
429 aMenu at:#code |
434 putLabels:(resources array:#( |
430 putLabels:(resources array:#( |
1022 ] |
1018 ] |
1023 ] ifTrue:[ |
1019 ] ifTrue:[ |
1024 button pressAction:[ |
1020 button pressAction:[ |
1025 receiver notNil ifTrue:[ |
1021 receiver notNil ifTrue:[ |
1026 receiver perform:selector with:argumentToSelector |
1022 receiver perform:selector with:argumentToSelector |
1027 ] |
1023 ]. |
|
1024 receiver enableUndoHistory:false. |
1028 ]. |
1025 ]. |
|
1026 button releaseAction:[ receiver enableUndoHistory:true ]. |
1029 button autoRepeat:true. |
1027 button autoRepeat:true. |
1030 button menuHolder:self; menuMessage:#editMenu; menuPerformer:self. |
1028 button menuHolder:self; menuMessage:#editMenu; menuPerformer:self. |
1031 ] |
1029 ] |
1032 ] ifFalse:[ |
1030 ] ifFalse:[ |
1033 seperator := View in:self. |
1031 seperator := View in:self. |