8300     ] ifFalse:[

  8300     ] ifFalse:[

  8301         title := 'Class to copy class method category from:'

  8301         title := 'Class to copy class method category from:'

  8302     ].

  8302     ].

  8303 

  8303 

  8304     box := self listBoxTitle:title 

  8304     box := self listBoxTitle:title 

  8306                         list:(environment allClasses collect:[:cls | cls name]) asArray sort.

  8306                         list:(environment allClasses collect:[:cls | cls name]) asArray sort.

  8307 

  8307 

  8308     box label:(resources string:'Copy methods').

  8308     box label:(resources string:'Copy methods').

  8309     box action:[:aString | self copyMethodsFromClass:aString].

  8309     box action:[:aString | self copyMethodsFromClass:aString].

  8310     box open

  8310     box open