equal
deleted
inserted
replaced
332 inspectedObject keysDo:[:k | keys add:k]. |
332 inspectedObject keysDo:[:k | keys add:k]. |
333 ]. |
333 ]. |
334 ^ keys |
334 ^ keys |
335 ]. |
335 ]. |
336 |
336 |
337 keys := inspectedObject keys asSortedCollection:[:a :b | a displayString < b displayString]. |
337 "/ do not use 'inspectedObjectkeys', |
|
338 "/ since Sets cannot hold nils (which are now valid keys) |
|
339 keys := OrderedCollection new. |
|
340 inspectedObject keysDo:[:k | keys add:k]. |
|
341 keys := keys asSortedCollection:[:a :b | a displayString < b displayString]. |
338 ^ keys collect:[:k | k isSymbol ifTrue:[ |
342 ^ keys collect:[:k | k isSymbol ifTrue:[ |
339 k printString |
343 k printString |
340 ] ifFalse:[ |
344 ] ifFalse:[ |
341 k displayString |
345 k displayString |
342 ] |
346 ] |
404 ! ! |
408 ! ! |
405 |
409 |
406 !DictionaryInspectorView class methodsFor:'documentation'! |
410 !DictionaryInspectorView class methodsFor:'documentation'! |
407 |
411 |
408 version |
412 version |
409 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.45 2000-03-24 16:43:04 cg Exp $' |
413 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.46 2000-03-28 17:41:42 cg Exp $' |
410 ! ! |
414 ! ! |