equal
deleted
inserted
replaced
470 ^ self == Class class or:[self == Class] |
470 ^ self == Class class or:[self == Class] |
471 |
471 |
472 "Created: 15.4.1996 / 17:17:13 / cg" |
472 "Created: 15.4.1996 / 17:17:13 / cg" |
473 "Modified: 23.4.1996 / 15:56:58 / cg" |
473 "Modified: 23.4.1996 / 15:56:58 / cg" |
474 ! ! |
474 ! ! |
|
475 |
475 |
476 |
476 |
477 |
477 !Class methodsFor:'Compatibility-Dolphin'! |
478 !Class methodsFor:'Compatibility-Dolphin'! |
478 |
479 |
479 defaultCategoryForDolphinClasses |
480 defaultCategoryForDolphinClasses |
5270 |
5271 |
5271 "Created: / 3.2.2000 / 23:30:07 / cg" |
5272 "Created: / 3.2.2000 / 23:30:07 / cg" |
5272 "Modified: / 4.2.2000 / 01:58:56 / cg" |
5273 "Modified: / 4.2.2000 / 01:58:56 / cg" |
5273 ! |
5274 ! |
5274 |
5275 |
|
5276 associations |
|
5277 |assocs| |
|
5278 |
|
5279 assocs := OrderedCollection new. |
|
5280 self associationsDo:[:eachAssoc | |
|
5281 assocs add:eachAssoc |
|
5282 ]. |
|
5283 ^ assocs |
|
5284 |
|
5285 "Created: / 12-09-2011 / 10:15:11 / cg" |
|
5286 ! |
|
5287 |
5275 associationsDo:aBlock |
5288 associationsDo:aBlock |
5276 "evaluate aBlock for all of my simulated classVarName->value associations" |
5289 "evaluate aBlock for all of my simulated classVarName->value associations" |
5277 |
5290 |
5278 class classVarNames do:[:eachName | |
5291 class classVarNames do:[:eachName | |
5279 aBlock value:(self associationAt:eachName) |
5292 aBlock value:(self associationAt:eachName) |
5288 ^ class classVarAt:aKey ifAbsent:exceptionBlock |
5301 ^ class classVarAt:aKey ifAbsent:exceptionBlock |
5289 ! |
5302 ! |
5290 |
5303 |
5291 at:aKey put:something |
5304 at:aKey put:something |
5292 ^ class classVarAt:aKey put:something |
5305 ^ class classVarAt:aKey put:something |
|
5306 ! |
|
5307 |
|
5308 bindingOf:aKey |
|
5309 ^ self associationAt:aKey |
|
5310 |
|
5311 "Created: / 12-09-2011 / 09:41:18 / cg" |
5293 ! |
5312 ! |
5294 |
5313 |
5295 keys |
5314 keys |
5296 ^ class classVarNames collect:[:nm | nm asSymbol] |
5315 ^ class classVarNames collect:[:nm | nm asSymbol] |
5297 |
5316 |
5333 ! ! |
5352 ! ! |
5334 |
5353 |
5335 !Class class methodsFor:'documentation'! |
5354 !Class class methodsFor:'documentation'! |
5336 |
5355 |
5337 version |
5356 version |
5338 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.589 2011-09-04 09:13:42 cg Exp $' |
5357 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.590 2011-09-12 08:18:01 cg Exp $' |
5339 ! |
5358 ! |
5340 |
5359 |
5341 version_CVS |
5360 version_CVS |
5342 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.589 2011-09-04 09:13:42 cg Exp $' |
5361 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.590 2011-09-12 08:18:01 cg Exp $' |
5343 ! |
5362 ! |
5344 |
5363 |
5345 version_SVN |
5364 version_SVN |
5346 ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5365 ^ '§ Id: Class.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5347 ! ! |
5366 ! ! |