equal
deleted
inserted
replaced
4114 usefulReplacementSpecClasses notEmptyOrNil ifTrue:[ |
4114 usefulReplacementSpecClasses notEmptyOrNil ifTrue:[ |
4115 m addSeparator. |
4115 m addSeparator. |
4116 usefulReplacementSpecClasses do:[:eachClass | |
4116 usefulReplacementSpecClasses do:[:eachClass | |
4117 |item| |
4117 |item| |
4118 |
4118 |
4119 item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName). |
4119 item := MenuItem |
4120 item itemValue:#replaceWidgetByClass: argument:eachClass. |
4120 label:(resources string:'Replace by %1' with:eachClass userFriendlyName) |
|
4121 itemValue:#replaceWidgetByClass: argument:eachClass. |
|
4122 item translateLabel:false. |
4121 m addItem:item. |
4123 m addItem:item. |
4122 ]. |
4124 ]. |
4123 ]. |
4125 ]. |
4124 ]. |
4126 ]. |
4125 |
4127 |