equal
deleted
inserted
replaced
2954 m := self class menuReplaceWidget. |
2954 m := self class menuReplaceWidget. |
2955 m := m decodeAsLiteralArray. |
2955 m := m decodeAsLiteralArray. |
2956 |
2956 |
2957 specAndView := self selectedSpecAndView. |
2957 specAndView := self selectedSpecAndView. |
2958 spec := specAndView first. |
2958 spec := specAndView first. |
2959 |
2959 spec notNil ifTrue:[ |
2960 usefulReplacementSpecClasses := spec usefulReplacementSpecClasses. |
2960 usefulReplacementSpecClasses := spec usefulReplacementSpecClasses. |
2961 usefulReplacementSpecClasses notEmptyOrNil ifTrue:[ |
2961 usefulReplacementSpecClasses notEmptyOrNil ifTrue:[ |
2962 m addSeparator. |
2962 m addSeparator. |
2963 usefulReplacementSpecClasses do:[:eachClass | |
2963 usefulReplacementSpecClasses do:[:eachClass | |
2964 |item| |
2964 |item| |
2965 |
2965 |
2966 item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName). |
2966 item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName). |
2967 item value:#replaceWidgetByClass:. |
2967 item value:#replaceWidgetByClass:. |
2968 item argument:eachClass. |
2968 item argument:eachClass. |
2969 m addItem:item. |
2969 m addItem:item. |
|
2970 ]. |
2970 ]. |
2971 ]. |
2971 ]. |
2972 ]. |
2972 |
2973 |
2973 m findGuiResourcesIn:self. |
2974 m findGuiResourcesIn:self. |
2974 m |
2975 m |