equal
deleted
inserted
replaced
2919 ]. |
2919 ]. |
2920 |
2920 |
2921 cls := self resolveName:specClass. |
2921 cls := self resolveName:specClass. |
2922 dst := columns collect:[:aCol| aCol literalArrayEncoding ]. |
2922 dst := columns collect:[:aCol| aCol literalArrayEncoding ]. |
2923 spc := WriteStream on:String new. |
2923 spc := WriteStream on:String new. |
|
2924 spc nextPutAll:' ^'. |
2924 UISpecification prettyPrintSpecArray:dst asArray on:spc indent:4. |
2925 UISpecification prettyPrintSpecArray:dst asArray on:spc indent:4. |
2925 spc := spc contents. |
2926 spc := spc contents. |
2926 idx := (spc indexOfNonSeparatorStartingAt:1) - 2. |
|
2927 |
|
2928 spc at:idx put:$^. |
|
2929 |
2927 |
2930 "/ if that method already exists, do not overwrite the category |
2928 "/ if that method already exists, do not overwrite the category |
2931 |
2929 |
2932 resourceType := self class resourceType. |
2930 resourceType := self class resourceType. |
2933 category := resourceType, ' specs'. |
2931 category := resourceType, ' specs'. |