equal
deleted
inserted
replaced
1486 |
1486 |
1487 categorySlot |
1487 categorySlot |
1488 ^ self at:(Class instVarOffsetOf:'category') |
1488 ^ self at:(Class instVarOffsetOf:'category') |
1489 ! |
1489 ! |
1490 |
1490 |
|
1491 classBaseFilename |
|
1492 ^ self classFilename asFilename baseName |
|
1493 |
|
1494 "Created: / 19-10-2006 / 01:10:17 / cg" |
|
1495 ! |
|
1496 |
1491 classFilename |
1497 classFilename |
1492 |classFilenameRef classFilename| |
1498 |classFilenameRef classFilename| |
1493 |
1499 |
1494 classFilenameRef := self classFilenameSlot. |
1500 classFilenameRef := self classFilenameSlot. |
1495 classFilenameRef isInteger ifTrue:[ |
1501 classFilenameRef isInteger ifTrue:[ |