equal
deleted
inserted
replaced
1731 forClass:aClass |
1731 forClass:aClass |
1732 inCategory:#documentation. |
1732 inCategory:#documentation. |
1733 ]. |
1733 ]. |
1734 ! |
1734 ! |
1735 |
1735 |
|
1736 createFalseReturnMethodFor:aSelector category:cat in:aClass |
|
1737 "add a ^ false method; |
|
1738 but only if not already present." |
|
1739 |
|
1740 (aClass includesSelector:aSelector) ifFalse:[ |
|
1741 |
|
1742 self compile: |
|
1743 (Method methodDefinitionTemplateForSelector:aSelector) , |
|
1744 ' |
|
1745 "return false here; to be redefined in subclass(es)" |
|
1746 |
|
1747 ^ false |
|
1748 ' |
|
1749 forClass:aClass |
|
1750 inCategory:cat. |
|
1751 ]. |
|
1752 ! |
|
1753 |
1736 createImageSpecMethodFor:anImage comment:comment in:aClass selector:sel |
1754 createImageSpecMethodFor:anImage comment:comment in:aClass selector:sel |
1737 |imageStoreStream mthd imageKey category| |
1755 |imageStoreStream mthd imageKey category| |
1738 |
1756 |
1739 anImage storeOn: (imageStoreStream := WriteStream on: ''). |
1757 anImage storeOn: (imageStoreStream := WriteStream on: ''). |
1740 |
1758 |
2488 ! ! |
2506 ! ! |
2489 |
2507 |
2490 !SmalltalkCodeGeneratorTool class methodsFor:'documentation'! |
2508 !SmalltalkCodeGeneratorTool class methodsFor:'documentation'! |
2491 |
2509 |
2492 version |
2510 version |
2493 ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.16 2012-08-21 10:28:31 cg Exp $' |
2511 ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.17 2012-10-15 20:17:01 cg Exp $' |
2494 ! |
2512 ! |
2495 |
2513 |
2496 version_CVS |
2514 version_CVS |
2497 ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.16 2012-08-21 10:28:31 cg Exp $' |
2515 ^ '$Header: /cvs/stx/stx/libtool/SmalltalkCodeGeneratorTool.st,v 1.17 2012-10-15 20:17:01 cg Exp $' |
2498 ! |
2516 ! |
2499 |
2517 |
2500 version_SVN |
2518 version_SVN |
2501 ^ '§Id§' |
2519 ^ '§Id§' |
2502 ! ! |
2520 ! ! |