equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2000 by eXept Software AG |
4 COPYRIGHT (c) 2000 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1691 ]. |
1693 ]. |
1692 |
1694 |
1693 sortBy value == #category ifTrue:[ |
1695 sortBy value == #category ifTrue:[ |
1694 entries |
1696 entries |
1695 sort:[:a :b | |
1697 sort:[:a :b | |
1696 |mthdA mthdB selA selB clsA clsB nmA nmB catA catB clsNmA clsNmB nsNmA nsNmB| |
1698 |mthdA mthdB selA selB clsA clsB |
|
1699 nmA nmB catA catB clsNmA clsNmB nsNmA nsNmB| |
1697 |
1700 |
1698 mthdA := a at:3. mthdB := b at:3. |
1701 mthdA := a at:3. mthdB := b at:3. |
1699 catA := mthdA category. |
1702 catA := mthdA category ? '* no category *'. |
1700 catB := mthdB category. |
1703 catB := mthdB category ? '* no category *'. |
1701 catA = catB ifTrue:[ |
1704 catA = catB ifTrue:[ |
1702 selA := a at:2. selB := b at:2. |
1705 selA := a at:2. selB := b at:2. |
1703 nmA := selA asSymbol selectorWithoutNameSpace. |
1706 nmA := selA asSymbol selectorWithoutNameSpace. |
1704 nmB := selB asSymbol selectorWithoutNameSpace. |
1707 nmB := selB asSymbol selectorWithoutNameSpace. |
1705 nmA = nmB ifTrue:[ |
1708 nmA = nmB ifTrue:[ |
1736 ] ifFalse:[ |
1739 ] ifFalse:[ |
1737 clsNmA < clsNmB |
1740 clsNmA < clsNmB |
1738 ] |
1741 ] |
1739 ] ifFalse:[ nmA < nmB ] |
1742 ] ifFalse:[ nmA < nmB ] |
1740 ]. |
1743 ]. |
|
1744 |
|
1745 "Modified (format): / 03-03-2019 / 22:58:17 / Claus Gittinger" |
1741 ! |
1746 ! |
1742 |
1747 |
1743 updateList |
1748 updateList |
1744 |prevSelection newList newSelection newSelIdx reverseMap sameContents newListSize oldListSize |
1749 |prevSelection newList newSelection newSelIdx reverseMap sameContents newListSize oldListSize |
1745 prevClasses methodSet selectedMethodsHolder| |
1750 prevClasses methodSet selectedMethodsHolder| |