equal
deleted
inserted
replaced
594 ('Copy Name or Key' #doCopyKey ) |
594 ('Copy Name or Key' #doCopyKey ) |
595 ('-') |
595 ('-') |
596 ('Inspect' #doInspect ) |
596 ('Inspect' #doInspect ) |
597 ('BasicInspect' #doBasicInspect ) |
597 ('BasicInspect' #doBasicInspect ) |
598 ('Inspect Hierarchical' #doNewInspect ) |
598 ('Inspect Hierarchical' #doNewInspect ) |
599 ('-') |
599 ('-') |
|
600 ('Owners' #showOwners ) |
600 ('Ref Chains' #showReferences ) |
601 ('Ref Chains' #showReferences ) |
601 ('-') |
602 ('-') |
602 ('Browse' #browse ) |
603 ('Browse' #browse ) |
603 "/ ('Browse class hierarchy' #browseClassHierarchy ) |
604 "/ ('Browse class hierarchy' #browseClassHierarchy ) |
604 "/ ('Browse full class protocol' #browseFullClassProtocol) |
605 "/ ('Browse full class protocol' #browseFullClassProtocol) |
994 openFileBrowser |
995 openFileBrowser |
995 |fn| |
996 |fn| |
996 |
997 |
997 fn := self selection. |
998 fn := self selection. |
998 (UserPreferences current fileBrowserClass) openOnFileNamed:fn. |
999 (UserPreferences current fileBrowserClass) openOnFileNamed:fn. |
|
1000 ! |
|
1001 |
|
1002 showOwners |
|
1003 |o| |
|
1004 |
|
1005 o := self selection. |
|
1006 self withCursor:(Cursor questionMark) do:[ |
|
1007 |owners dict| |
|
1008 |
|
1009 owners := (ObjectMemory whoReferences:o). |
|
1010 owners isEmptyOrNil ifTrue:[ |
|
1011 self information:'No owners found.'. |
|
1012 ^ self |
|
1013 ]. |
|
1014 owners := owners asOrderedCollection. |
|
1015 " |
|
1016 skip weakArrays ... (they dont count) |
|
1017 " |
|
1018 owners := owners reject:[:owner | owner isMemberOf:WeakArray]. |
|
1019 owners inspect. |
|
1020 "/ inspector := DictionaryInspectorView openOn:dict. |
|
1021 "/ inspector listView doubleClickAction:[:lineNr | inspector doInspectKey]. |
|
1022 ] |
|
1023 |
|
1024 "Modified: 15.10.1996 / 22:09:38 / cg" |
|
1025 ! |
|
1026 |
|
1027 showReferences |
|
1028 "user selected references-menu entry" |
|
1029 |
|
1030 self selection class hasImmediateInstances ifTrue:[ |
|
1031 ^ self warn:'Sorry - cannot show references to immediate objects' |
|
1032 ]. |
|
1033 ObjectMemory displayRefChainTo:(self selection) |
|
1034 |
|
1035 "Modified: / 30.7.1998 / 14:03:16 / cg" |
999 ! |
1036 ! |
1000 |
1037 |
1001 showStreamContents |
1038 showStreamContents |
1002 |sel| |
1039 |sel| |
1003 |
1040 |
1937 |
1974 |
1938 "Created: 28.6.1996 / 15:06:38 / cg" |
1975 "Created: 28.6.1996 / 15:06:38 / cg" |
1939 "Modified: 18.3.1997 / 18:22:54 / cg" |
1976 "Modified: 18.3.1997 / 18:22:54 / cg" |
1940 ! |
1977 ! |
1941 |
1978 |
1942 showReferences |
|
1943 "user selected references-menu entry" |
|
1944 |
|
1945 self selection class hasImmediateInstances ifTrue:[ |
|
1946 ^ self warn:'Sorry - cannot show references to immediate objects' |
|
1947 ]. |
|
1948 ObjectMemory displayRefChainTo:(self selection) |
|
1949 |
|
1950 "Modified: / 30.7.1998 / 14:03:16 / cg" |
|
1951 ! |
|
1952 |
|
1953 toggleHex |
1979 toggleHex |
1954 |sel| |
1980 |sel| |
1955 |
1981 |
1956 showHex := showHex not. |
1982 showHex := showHex not. |
1957 sel := listView selection. |
1983 sel := listView selection. |
1987 ! ! |
2013 ! ! |
1988 |
2014 |
1989 !InspectorView class methodsFor:'documentation'! |
2015 !InspectorView class methodsFor:'documentation'! |
1990 |
2016 |
1991 version |
2017 version |
1992 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.175 2007-12-06 21:40:25 stefan Exp $' |
2018 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.176 2008-01-27 16:06:28 cg Exp $' |
1993 ! ! |
2019 ! ! |