equal
deleted
inserted
replaced
1699 generateWindowSpecMethodSourceFor:spec class:className selector:methodName |
1699 generateWindowSpecMethodSourceFor:spec class:className selector:methodName |
1700 |specArray str code category cls mthd specCode| |
1700 |specArray str code category cls mthd specCode| |
1701 |
1701 |
1702 specArray := spec literalArrayEncoding. |
1702 specArray := spec literalArrayEncoding. |
1703 |
1703 |
1704 str := WriteStream on:String new. |
1704 str := WriteStream on:''. |
1705 UISpecification prettyPrintSpecArray:specArray on:str indent:4. |
1705 UISpecification prettyPrintSpecArray:specArray on:str indent:4. |
1706 specCode := str contents. |
1706 specCode := str contents. |
1707 |
1707 |
1708 (specCode includes:$!!) ifTrue:[ |
1708 (specCode includes:$!!) ifTrue:[ |
1709 "/ oops - must be chunk format ... |
1709 "/ oops - must be chunk format ... |
1710 str := WriteStream on:String new. |
1710 str := WriteStream on:''. |
1711 str nextPutAllAsChunk:specCode. |
1711 str nextPutAllAsChunk:specCode. |
1712 specCode := str contents. |
1712 specCode := str contents. |
1713 ]. |
1713 ]. |
1714 |
1714 |
1715 "/ if that method already exists, do not overwrite the category |
1715 "/ if that method already exists, do not overwrite the category |