branch | jv |
changeset 13491 | b3afe831ff0a |
parent 13182 | bc686a7cc736 |
parent 13449 | 9ca3903316f7 |
child 15566 | 184cea584be5 |
13472:81d796e3295c | 13491:b3afe831ff0a |
---|---|
152 poolDictionaries:'' |
152 poolDictionaries:'' |
153 privateIn:Tag |
153 privateIn:Tag |
154 ! |
154 ! |
155 |
155 |
156 Tag subclass:#TMethod |
156 Tag subclass:#TMethod |
157 instanceVariableNames:'' |
157 instanceVariableNames:'isMeta' |
158 classVariableNames:'' |
158 classVariableNames:'' |
159 poolDictionaries:'' |
159 poolDictionaries:'' |
160 privateIn:Tag |
160 privateIn:Tag |
161 ! |
161 ! |
162 |
162 |
1175 "Modified: / 05-05-2011 / 15:41:29 / cg" |
1175 "Modified: / 05-05-2011 / 15:41:29 / cg" |
1176 ! ! |
1176 ! ! |
1177 |
1177 |
1178 !Tag::TMethod methodsFor:'accessing'! |
1178 !Tag::TMethod methodsFor:'accessing'! |
1179 |
1179 |
1180 isMeta |
|
1181 ^ isMeta |
|
1182 ! |
|
1183 |
|
1184 isMeta:aBoolean |
|
1185 isMeta := aBoolean. |
|
1186 ! |
|
1187 |
|
1180 typeIdentifierInList |
1188 typeIdentifierInList |
1181 ^ 'M' |
1189 ^ isMeta ifTrue:['M'] ifFalse:['m'] |
1182 |
|
1183 |
|
1184 ! |
1190 ! |
1185 |
1191 |
1186 typeString |
1192 typeString |
1187 ^ 'method' |
1193 ^ 'method' |
1188 |
1194 |
1367 ! ! |
1373 ! ! |
1368 |
1374 |
1369 !Tag class methodsFor:'documentation'! |
1375 !Tag class methodsFor:'documentation'! |
1370 |
1376 |
1371 version_CVS |
1377 version_CVS |
1372 ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.7 2013-04-25 13:10:58 stefan Exp $' |
1378 ^ '$Header: /cvs/stx/stx/libtool/Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $' |
1373 ! |
1379 ! |
1374 |
1380 |
1375 version_HG |
1381 version_HG |
1376 |
1382 |
1377 ^ '$Changeset: <not expanded> $' |
1383 ^ '$Changeset: <not expanded> $' |
1378 ! |
1384 ! |
1379 |
1385 |
1380 version_SVN |
1386 version_SVN |
1381 ^ '§Id§' |
1387 ^ '$Id: Tools__Tag.st,v 1.8 2013-09-01 07:31:11 cg Exp $' |
1382 ! ! |
1388 ! ! |
1383 |
1389 |