equal
deleted
inserted
replaced
1873 prerequisitesNode icon:(self class prerequisitesIcon). |
1873 prerequisitesNode icon:(self class prerequisitesIcon). |
1874 prerequisitesNode spec:(self class rightCanvasSpecForPrerequisites). |
1874 prerequisitesNode spec:(self class rightCanvasSpecForPrerequisites). |
1875 |
1875 |
1876 classesNode contents:#classes. |
1876 classesNode contents:#classes. |
1877 classesNode icon:(self class classesIcon). |
1877 classesNode icon:(self class classesIcon). |
1878 ((aProject classes ? #()) copy sort:[:a :b | a name < b name]) |
1878 ((aProject classes ? #()) copy sort:[:a :b | |
|
1879 |nmA nmB| |
|
1880 |
|
1881 nmA := a isSymbol ifTrue:[a] ifFalse:[a name]. |
|
1882 nmB := b isSymbol ifTrue:[b] ifFalse:[b name]. |
|
1883 nmA < nmB |
|
1884 ]) |
1879 do:[:aClass | |
1885 do:[:aClass | |
1880 |cNode| |
1886 |cNode cName| |
1881 |
1887 |
1882 cNode := ProjectTreeItem name:aClass name. |
1888 cName := aClass isSymbol ifTrue:[aClass] ifFalse:[aClass name]. |
|
1889 cNode := ProjectTreeItem name:cName. |
1883 classesNode add:cNode. |
1890 classesNode add:cNode. |
1884 ]. |
1891 ]. |
1885 |
1892 |
1886 propertiesNode contents:#properties. |
1893 propertiesNode contents:#properties. |
1887 propertiesNode spec:(self class rightCanvasSpecForProperties). |
1894 propertiesNode spec:(self class rightCanvasSpecForProperties). |