ProjectBrowser.st
changeset 1114 7fd86e9a6a11
parent 1109 df7d7c6611b6
child 1116 710c9297a9fc
equal deleted inserted replaced
1113:aec10e7dbe80 1114:7fd86e9a6a11
  3022     project := projectItem contents.
  3022     project := projectItem contents.
  3023 
  3023 
  3024     patches := project individualMethods.
  3024     patches := project individualMethods.
  3025     patches := patches collect:[:m | m who].
  3025     patches := patches collect:[:m | m who].
  3026     patches := patches sort:[:w1 :w2 |
  3026     patches := patches sort:[:w1 :w2 |
  3027                         w1 methodClass name < w2 methodClass name ifTrue:[
  3027                         |w1Nm w2Nm|
       
  3028 
       
  3029                         w1Nm := w1 methodClass name.
       
  3030                         w2Nm := w2 methodClass name.
       
  3031                         w1Nm < w2Nm methodClass name ifTrue:[
  3028                             true
  3032                             true
  3029                         ] ifFalse:[
  3033                         ] ifFalse:[
  3030                             w1 methodClass name = w2 methodClass name ifFalse:[
  3034                             w1Nm = w2Nm ifFalse:[
  3031                                 false
  3035                                 false
  3032                             ] ifTrue:[
  3036                             ] ifTrue:[
  3033                                 w1 methodSelector < w2 methodSelector
  3037                                 w1 methodSelector < w2 methodSelector
  3034                             ]
  3038                             ]
  3035                         ]
  3039                         ]