equal
deleted
inserted
replaced
727 itemList:items |
727 itemList:items |
728 resources:resources. |
728 resources:resources. |
729 |
729 |
730 m subMenuAt:#protocolMenu put:protocolMenu. |
730 m subMenuAt:#protocolMenu put:protocolMenu. |
731 |
731 |
732 selectionIndex isNil ifTrue:[ |
732 self theSingleSelectionIndex isNil ifTrue:[ |
733 m disableAll:#(doFollow doInspect doBasicInspect doNewInspect |
733 m disableAll:#(doFollow doInspect doBasicInspect doNewInspect |
734 browse browseClassHierarchy browseFullClassProtocol |
734 browse browseClassHierarchy browseFullClassProtocol |
735 doStartMonitor doCopyKey doCopyKey) |
735 doStartMonitor doCopyKey doCopyKey) |
736 ]. |
736 ]. |
737 (selectionIndex == 1) ifTrue:[ |
737 (selectionIndex == 1) ifTrue:[ |
1622 ! |
1622 ! |
1623 |
1623 |
1624 setAcceptAction |
1624 setAcceptAction |
1625 "set the codeViews accept action" |
1625 "set the codeViews accept action" |
1626 |
1626 |
1627 |acceptAction sel| |
1627 |idx acceptAction sel| |
1628 |
1628 |
1629 acceptAction := [:theText | self doAccept:theText asString]. |
1629 acceptAction := [:theText | self doAccept:theText asString]. |
1630 |
1630 |
1631 (selectionIndex isNil |
1631 idx := self theSingleSelectionIndex. |
|
1632 |
|
1633 (idx isNil |
1632 or:[ object class hasImmediateInstances]) |
1634 or:[ object class hasImmediateInstances]) |
1633 ifTrue:[ |
1635 ifTrue:[ |
1634 acceptAction := nil. |
1636 acceptAction := nil. |
1635 ] ifFalse:[ |
1637 ] ifFalse:[ |
1636 sel := listView at:selectionIndex. |
1638 sel := listView at:idx. |
1637 |
1639 |
1638 (sel startsWith:'-all') ifTrue:[ |
1640 (sel startsWith:'-all') ifTrue:[ |
1639 acceptAction := nil. |
1641 acceptAction := nil. |
1640 ]. |
1642 ]. |
1641 (sel startsWith:'-hash') ifTrue:[ |
1643 (sel startsWith:'-hash') ifTrue:[ |
1777 messages asOrderedCollection sort do:[:eachSelector | |
1779 messages asOrderedCollection sort do:[:eachSelector | |
1778 s nextPutAll:eachSelector. |
1780 s nextPutAll:eachSelector. |
1779 s cr. |
1781 s cr. |
1780 ]. |
1782 ]. |
1781 ^ s contents |
1783 ^ s contents |
|
1784 ! |
|
1785 |
|
1786 theSingleSelectionIndex |
|
1787 "helper - return the index of the (single) selected entry. |
|
1788 Nil if nothing or multiple items are selected" |
|
1789 |
|
1790 |idx| |
|
1791 |
|
1792 idx := selectionIndex. |
|
1793 idx isCollection ifTrue:[ |
|
1794 selectionIndex size == 1 ifTrue:[ |
|
1795 ^ selectionIndex first |
|
1796 ]. |
|
1797 ^ nil |
|
1798 ]. |
|
1799 ^ selectionIndex |
1782 ! |
1800 ! |
1783 |
1801 |
1784 valueAtLine:lineNr |
1802 valueAtLine:lineNr |
1785 "helper - return the value of the selected entry" |
1803 "helper - return the value of the selected entry" |
1786 |
1804 |
2061 ! |
2079 ! |
2062 |
2080 |
2063 displayStringForValue:someValue |
2081 displayStringForValue:someValue |
2064 "return the value's displayString to be pasted into the workspace." |
2082 "return the value's displayString to be pasted into the workspace." |
2065 |
2083 |
2066 |sel extraAttributes| |
2084 |idx sel extraAttributes| |
2067 |
2085 |
2068 selectionIndex notNil ifTrue:[ |
2086 idx := self theSingleSelectionIndex. |
2069 sel := listView at:selectionIndex. |
2087 idx notNil ifTrue:[ |
|
2088 sel := listView at:idx. |
2070 |
2089 |
2071 extraAttributes := object inspectorExtraAttributes. |
2090 extraAttributes := object inspectorExtraAttributes. |
2072 (extraAttributes notNil and:[extraAttributes includesKey:sel]) ifTrue:[ |
2091 (extraAttributes notNil and:[extraAttributes includesKey:sel]) ifTrue:[ |
2073 ^ (extraAttributes at:sel) value printString |
2092 ^ (extraAttributes at:sel) value printString |
2074 ]. |
2093 ]. |
2219 "Created: / 1.3.1996 / 19:31:45 / cg" |
2238 "Created: / 1.3.1996 / 19:31:45 / cg" |
2220 "Modified: / 12.2.1999 / 16:05:47 / cg" |
2239 "Modified: / 12.2.1999 / 16:05:47 / cg" |
2221 ! |
2240 ! |
2222 |
2241 |
2223 selection |
2242 selection |
2224 "helper - return the value of the selected entry" |
2243 "helper - return the value of the (single) selected entry. |
2225 |
2244 Nil if nothing or multiple items are selected" |
2226 |val| |
2245 |
2227 |
2246 |idx val| |
2228 selectionIndex isNil ifTrue:[^ nil]. |
2247 |
2229 |
2248 idx := self theSingleSelectionIndex. |
2230 val := self valueAtLine:selectionIndex. |
2249 idx isNil ifTrue:[^ nil]. |
|
2250 |
|
2251 val := self valueAtLine:idx. |
2231 self dereferenceValueHolders ifTrue:[ |
2252 self dereferenceValueHolders ifTrue:[ |
2232 "workspace-variable-inspection" |
2253 "workspace-variable-inspection" |
2233 val := val value |
2254 val := val value |
2234 ]. |
2255 ]. |
2235 ^ val |
2256 ^ val |
2289 ! ! |
2310 ! ! |
2290 |
2311 |
2291 !InspectorView class methodsFor:'documentation'! |
2312 !InspectorView class methodsFor:'documentation'! |
2292 |
2313 |
2293 version |
2314 version |
2294 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.207 2010-02-09 10:05:06 cg Exp $' |
2315 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.208 2010-03-03 11:16:28 cg Exp $' |
2295 ! |
2316 ! |
2296 |
2317 |
2297 version_CVS |
2318 version_CVS |
2298 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.207 2010-02-09 10:05:06 cg Exp $' |
2319 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.208 2010-03-03 11:16:28 cg Exp $' |
2299 ! ! |
2320 ! ! |