equal
deleted
inserted
replaced
357 |
357 |
358 items := #( |
358 items := #( |
359 ('inspect' #doInspect ) |
359 ('inspect' #doInspect ) |
360 ('basicInspect' #doBasicInspect ) |
360 ('basicInspect' #doBasicInspect ) |
361 ('inspect hierarchical' #doNewInspect ) |
361 ('inspect hierarchical' #doNewInspect ) |
|
362 ('references' #showReferences ) |
362 ('-') |
363 ('-') |
363 ('browse' #browse ) |
364 ('browse' #browse ) |
364 ('browse class hierarchy' #browseClassHierarchy ) |
365 ('browse class hierarchy' #browseClassHierarchy ) |
365 ('browse full class protocol' #browseFullClassProtocol) |
366 ('browse full class protocol' #browseFullClassProtocol) |
366 ('-') |
367 ('-') |
398 items := items , #( |
399 items := items , #( |
399 ('-') |
400 ('-') |
400 ('hex integers' #toggleHex ) |
401 ('hex integers' #toggleHex ) |
401 ) |
402 ) |
402 ]. |
403 ]. |
403 |
|
404 "/ items := items , #( |
|
405 "/ ('-') |
|
406 "/ ('owners' #inspectOwners ) |
|
407 "/ ). |
|
408 |
404 |
409 m := PopUpMenu |
405 m := PopUpMenu |
410 itemList:items |
406 itemList:items |
411 resources:resources. |
407 resources:resources. |
412 |
408 |
803 |
799 |
804 "Created: 28.6.1996 / 15:06:38 / cg" |
800 "Created: 28.6.1996 / 15:06:38 / cg" |
805 "Modified: 18.3.1997 / 18:22:54 / cg" |
801 "Modified: 18.3.1997 / 18:22:54 / cg" |
806 ! |
802 ! |
807 |
803 |
|
804 showReferences |
|
805 "user selected references-menu entry" |
|
806 |
|
807 |objectToInspect| |
|
808 |
|
809 selectedLine notNil ifTrue:[ |
|
810 objectToInspect := self valueAtLine:selectedLine. |
|
811 ObjectMemory displayRefChainTo:objectToInspect |
|
812 ] |
|
813 |
|
814 "Modified: / 31.10.1997 / 12:46:53 / cg" |
|
815 ! |
|
816 |
808 showSelection:lineNr |
817 showSelection:lineNr |
809 "user clicked on an instvar - show value in workspace" |
818 "user clicked on an instvar - show value in workspace" |
810 |
819 |
811 |val| |
820 |val| |
812 |
821 |
901 ! ! |
910 ! ! |
902 |
911 |
903 !InspectorView class methodsFor:'documentation'! |
912 !InspectorView class methodsFor:'documentation'! |
904 |
913 |
905 version |
914 version |
906 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.74 1998-05-07 17:38:07 cg Exp $' |
915 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.75 1998-07-23 21:10:43 cg Exp $' |
907 ! ! |
916 ! ! |