equal
deleted
inserted
replaced
1485 receiverClassName := receiverClass name. |
1485 receiverClassName := receiverClass name. |
1486 ] ifFalse:[ |
1486 ] ifFalse:[ |
1487 receiverClassName := receiverClass name. |
1487 receiverClassName := receiverClass name. |
1488 ] |
1488 ] |
1489 ]. |
1489 ]. |
1490 (receiverClass == SmallInteger) ifTrue:[ |
1490 (receiverClass == SmallInteger |
|
1491 or:[receiverClass == Float]) ifTrue:[ |
1491 newString := '(' , receiver printString , ') ' , receiverClassName |
1492 newString := '(' , receiver printString , ') ' , receiverClassName |
1492 ] ifFalse:[ |
1493 ] ifFalse:[ |
1493 newString := receiverClassName |
1494 newString := receiverClassName |
1494 ]. |
1495 ]. |
1495 |
1496 |
1521 ] |
1522 ] |
1522 ] |
1523 ] |
1523 ]. |
1524 ]. |
1524 |
1525 |
1525 ^ newString |
1526 ^ newString |
|
1527 |
|
1528 "Modified: / 16.11.2001 / 16:04:21 / cg" |
1526 ! ! |
1529 ! ! |
1527 |
1530 |
1528 !Context methodsFor:'private accessing'! |
1531 !Context methodsFor:'private accessing'! |
1529 |
1532 |
1530 markForHandle |
1533 markForHandle |
1986 ! ! |
1989 ! ! |
1987 |
1990 |
1988 !Context class methodsFor:'documentation'! |
1991 !Context class methodsFor:'documentation'! |
1989 |
1992 |
1990 version |
1993 version |
1991 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.111 2001-09-07 16:30:27 cg Exp $' |
1994 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.112 2001-11-16 15:09:08 cg Exp $' |
1992 ! ! |
1995 ! ! |
1993 Context initialize! |
1996 Context initialize! |