equal
deleted
inserted
replaced
293 |
293 |
294 |
294 |
295 ! |
295 ! |
296 |
296 |
297 defaultLabel |
297 defaultLabel |
298 ^ 'keys' |
298 ^ 'Keys' |
299 |
299 |
300 "Created: 28.6.1996 / 19:46:51 / cg" |
300 "Created: 28.6.1996 / 19:46:51 / cg" |
301 ! |
301 ! |
302 |
302 |
303 indexList |
303 indexList |
398 |
398 |
399 keyIndexForLine:lineNr |
399 keyIndexForLine:lineNr |
400 "helper - return the index of the key-list" |
400 "helper - return the index of the key-list" |
401 |
401 |
402 inspectedObject isNameSpace ifTrue:[ |
402 inspectedObject isNameSpace ifTrue:[ |
403 (hideReceiver not |
403 (self hasSelfEntry |
404 and:[lineNr == 1 or:[lineNr isNil]]) ifTrue:[ |
404 and:[lineNr == 1 or:[lineNr isNil]]) ifTrue:[ |
405 ^ nil "/ self selected |
405 ^ nil "/ self selected |
|
406 ]. |
|
407 (self hasSelfEntry not or:[self suppressPseudoSlots]) ifTrue:[ |
|
408 ^ lineNr |
406 ]. |
409 ]. |
407 ^ lineNr - 5 "/ self, hash, idHash, deps, allInstVars |
410 ^ lineNr - 5 "/ self, hash, idHash, deps, allInstVars |
408 ]. |
411 ]. |
409 ^ super keyIndexForLine:lineNr |
412 ^ super keyIndexForLine:lineNr |
410 ! |
413 ! |
445 ! ! |
448 ! ! |
446 |
449 |
447 !DictionaryInspectorView class methodsFor:'documentation'! |
450 !DictionaryInspectorView class methodsFor:'documentation'! |
448 |
451 |
449 version |
452 version |
450 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.52 2002-09-14 13:00:19 cg Exp $' |
453 ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.53 2002-10-29 12:49:12 cg Exp $' |
451 ! ! |
454 ! ! |