Context.st
branchjv
changeset 18082 e7412c1b6fb0
parent 18081 d3392542df15
child 18086 33a050555eb1
equal deleted inserted replaced
18081:d3392542df15 18082:e7412c1b6fb0
  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