equal
deleted
inserted
replaced
1517 s isNil ifTrue:[ |
1517 s isNil ifTrue:[ |
1518 ^ '**************** nil displayString of ',(someObject class name ? '??') |
1518 ^ '**************** nil displayString of ',(someObject class name ? '??') |
1519 ]. |
1519 ]. |
1520 "/ JV@2013-04-26: Following is rubbish, the calles must handle string output correctly. |
1520 "/ JV@2013-04-26: Following is rubbish, the calles must handle string output correctly. |
1521 "/ moreover storeString does not work on self-referencing structures!! |
1521 "/ moreover storeString does not work on self-referencing structures!! |
|
1522 ^ s |
|
1523 |
1522 ! |
1524 ! |
1523 |
1525 |
1524 argsDisplayString |
1526 argsDisplayString |
1525 ^ String streamContents:[:s | self displayArgsOn:s ]. |
1527 ^ String streamContents:[:s | self displayArgsOn:s ]. |
1526 |
1528 |