equal
deleted
inserted
replaced
1665 spec := treeView generateFullSpecForComponents:spec named:methodName. |
1665 spec := treeView generateFullSpecForComponents:spec named:methodName. |
1666 ^ spec |
1666 ^ spec |
1667 ! |
1667 ! |
1668 |
1668 |
1669 generateWindowSpecMethodSource |
1669 generateWindowSpecMethodSource |
1670 |spec specArray str code category cls mthd specCode| |
1670 ^ self |
1671 |
1671 generateWindowSpecMethodSourceFor:(self generateWindowSpec) |
1672 spec := self generateWindowSpec. |
1672 class:className |
|
1673 selector:methodName |
|
1674 |
|
1675 "Modified: / 5.9.1995 / 21:01:35 / claus" |
|
1676 "Modified: / 15.10.1998 / 11:29:53 / cg" |
|
1677 ! |
|
1678 |
|
1679 generateWindowSpecMethodSourceFor:spec class:className selector:methodName |
|
1680 |specArray str code category cls mthd specCode| |
|
1681 |
1673 specArray := spec literalArrayEncoding. |
1682 specArray := spec literalArrayEncoding. |
1674 |
1683 |
1675 str := WriteStream on:String new. |
1684 str := WriteStream on:String new. |
1676 UISpecification prettyPrintSpecArray:specArray on:str indent:5. |
1685 UISpecification prettyPrintSpecArray:specArray on:str indent:4. |
1677 specCode := str contents. |
1686 specCode := str contents. |
1678 |
1687 |
1679 (specCode includes:$!!) ifTrue:[ |
1688 (specCode includes:$!!) ifTrue:[ |
1680 "/ oops - must be chunk format ... |
1689 "/ oops - must be chunk format ... |
1681 str := WriteStream on:String new. |
1690 str := WriteStream on:String new. |
1720 , '\' |
1729 , '\' |
1721 , '!! !!' |
1730 , '!! !!' |
1722 , '\\'. |
1731 , '\\'. |
1723 |
1732 |
1724 ^ code withCRs |
1733 ^ code withCRs |
1725 |
|
1726 "Modified: / 5.9.1995 / 21:01:35 / claus" |
|
1727 "Modified: / 15.10.1998 / 11:29:53 / cg" |
|
1728 ! |
1734 ! |
1729 |
1735 |
1730 listOfAspects |
1736 listOfAspects |
1731 |cls aspects| |
1737 |cls aspects| |
1732 |
1738 |
2472 |
2478 |
2473 "Modified: / 17-08-2011 / 13:56:24 / cg" |
2479 "Modified: / 17-08-2011 / 13:56:24 / cg" |
2474 ! |
2480 ! |
2475 |
2481 |
2476 fullSpecFor:aView |
2482 fullSpecFor:aView |
2477 "generate a full spec for an aView (or component)" |
2483 "generate a full spec for aView (or component)" |
2478 |
2484 |
2479 |mySpec subSpecs| |
2485 |mySpec subSpecs| |
2480 |
2486 |
2481 mySpec := self specFor:aView. |
2487 mySpec := self specFor:aView. |
2482 (mySpec notNil and:[mySpec class supportsSubComponents]) ifTrue:[ |
2488 (mySpec notNil and:[mySpec class supportsSubComponents]) ifTrue:[ |