UIPainter.st
changeset 2923 38943deb8672
parent 2920 a7ddf89e20e3
child 2947 9bbc38256343
equal deleted inserted replaced
2922:995b64590960 2923:38943deb8672
  3834                 m addSeparator.
  3834                 m addSeparator.
  3835                 usefulReplacementSpecClasses do:[:eachClass |      
  3835                 usefulReplacementSpecClasses do:[:eachClass |      
  3836                     |item|
  3836                     |item|
  3837 
  3837 
  3838                     item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName).
  3838                     item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName).
  3839                     item value:#replaceWidgetByClass:.
  3839                     item itemValue:#replaceWidgetByClass: argument:eachClass.
  3840                     item argument:eachClass.
       
  3841                     m addItem:item.
  3840                     m addItem:item.
  3842                 ].
  3841                 ].
  3843             ].
  3842             ].
  3844         ].
  3843         ].
  3845 
  3844 
  3846         m findGuiResourcesIn:self.
  3845         m findGuiResourcesIn:self.
  3847         m
  3846         m
  3848       ].
  3847       ].
       
  3848 
       
  3849     "Modified: / 09-09-2012 / 13:25:09 / cg"
  3849 ! !
  3850 ! !
  3850 
  3851 
  3851 !UIPainter methodsFor:'private'!
  3852 !UIPainter methodsFor:'private'!
  3852 
  3853 
  3853 acceptOrIgnoreSectionModification
  3854 acceptOrIgnoreSectionModification