equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2004 by eXept Software AG |
2 COPYRIGHT (c) 2004 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
63 ! ! |
61 ! ! |
64 |
62 |
65 !SmalltalkChunkFileSourceWriter class methodsFor:'utilities - source code'! |
63 !SmalltalkChunkFileSourceWriter class methodsFor:'utilities - source code'! |
66 |
64 |
67 methodTemplate |
65 methodTemplate |
|
66 <resource: #obsolete> |
68 "return a method definition template string" |
67 "return a method definition template string" |
69 |
68 |
70 |s| |
69 |s| |
71 |
70 |
|
71 self obsoleteMethodWarning:'use codeGenerator'. |
72 s := (TextStream ? WriteStream) on:''. |
72 s := (TextStream ? WriteStream) on:''. |
73 s nextPutAll: |
73 s nextPutAll: |
74 'message "selector and argument names" |
74 'message "selector and argument names" |
75 "comment stating purpose of this message" |
75 "comment stating purpose of this message" |
76 |
76 |
109 " |
109 " |
110 '. |
110 '. |
111 ^ s contents |
111 ^ s contents |
112 ! |
112 ! |
113 |
113 |
|
114 methodTemplateForDocumentation |
|
115 <resource: #obsolete> |
|
116 "return a method definition template string" |
|
117 |
|
118 |s| |
|
119 |
|
120 self obsoleteMethodWarning:'use codeGenerator'. |
|
121 s := (TextStream ? WriteStream) on:''. |
|
122 s nextPutAll: |
|
123 'documentation |
|
124 '. |
|
125 s emphasis:(UserPreferences current commentEmphasisAndColor). |
|
126 s nextPutAll:( |
|
127 '" |
|
128 comment describing this class. |
|
129 you can disable the generation of this template by evaluating: |
|
130 UserPreferences current showMethodTemplate:false |
|
131 |
|
132 [instance variables:] |
|
133 describe instance variables |
|
134 [class variables:] |
|
135 describe class variables |
|
136 [see also:] |
|
137 |
|
138 [author:] |
|
139 %1 |
|
140 " |
|
141 ' bindWith:(OperatingSystem getFullUserName)). |
|
142 ^ s contents |
|
143 ! |
|
144 |
114 versionMethodTemplateForCVS |
145 versionMethodTemplateForCVS |
|
146 <resource: #obsolete> |
115 "careful to avoid expansion by cvs here!!" |
147 "careful to avoid expansion by cvs here!!" |
116 |
148 |
|
149 self obsoleteMethodWarning:'use methodTemplateForVersionMethodCVS'. |
117 ^ ('version_CVS\ ^ ''$' , 'Header$''') withCRs |
150 ^ ('version_CVS\ ^ ''$' , 'Header$''') withCRs |
118 |
151 |
119 "Created: / 21-08-2012 / 11:52:27 / cg" |
152 "Created: / 21-08-2012 / 11:52:27 / cg" |
120 ! ! |
153 ! ! |
121 |
154 |