equal
deleted
inserted
replaced
1231 hasMore ifTrue:[ |
1231 hasMore ifTrue:[ |
1232 items := items , #( |
1232 items := items , #( |
1233 ('-') |
1233 ('-') |
1234 ('Show More' #showMore ) |
1234 ('Show More' #showMore ) |
1235 ). |
1235 ). |
1236 (object basicSize > (nShown * 2)) ifTrue:[ |
1236 (self numIndexedFields > (nShown * 2)) ifTrue:[ |
1237 items := items , #( |
1237 items := items , #( |
1238 ('Show All' #showAll ) |
1238 ('Show All' #showAll ) |
1239 ) |
1239 ) |
1240 ]. |
1240 ]. |
1241 ]. |
1241 ]. |
1339 m disable:#browseMethodsClass |
1339 m disable:#browseMethodsClass |
1340 ]. |
1340 ]. |
1341 |
1341 |
1342 ^ m |
1342 ^ m |
1343 |
1343 |
1344 "Modified: / 13-06-2012 / 09:27:22 / cg" |
1344 "Modified: / 13-06-2012 / 10:13:39 / cg" |
1345 ! |
1345 ! |
1346 |
1346 |
1347 numberBaseItems |
1347 numberBaseItems |
1348 ^ { |
1348 ^ { |
1349 #('-') . |
1349 #('-') . |
1800 |
1800 |
1801 showAll |
1801 showAll |
1802 |o| |
1802 |o| |
1803 |
1803 |
1804 hasMore ifTrue:[ |
1804 hasMore ifTrue:[ |
1805 nShown := object basicSize. |
1805 nShown := self numIndexedFields. |
1806 "/ force update (which is otherwise ignored) |
1806 "/ force update (which is otherwise ignored) |
1807 o := object. |
1807 o := object. |
1808 inspectedObject := object := nil. |
1808 inspectedObject := object := nil. |
1809 self inspect:o |
1809 self inspect:o |
1810 ] |
1810 ] |
1811 |
1811 |
1812 "Modified: / 26-08-1998 / 19:05:25 / cg" |
|
1813 "Created: / 13-06-2012 / 09:27:45 / cg" |
1812 "Created: / 13-06-2012 / 09:27:45 / cg" |
1814 ! |
1813 ! |
1815 |
1814 |
1816 showInWindowsExplorer |
1815 showInWindowsExplorer |
1817 "show in explorer" |
1816 "show in explorer" |
2400 |
2399 |
2401 cls := object class. |
2400 cls := object class. |
2402 |
2401 |
2403 cls isVariable ifFalse:[^ nil ]. |
2402 cls isVariable ifFalse:[^ nil ]. |
2404 |
2403 |
2405 n := objSz := object basicSize. |
2404 n := objSz := self numIndexedFields. |
2406 (n > nShown) ifTrue:[ |
2405 (n > nShown) ifTrue:[ |
2407 n := nShown. |
2406 n := nShown. |
2408 hasMore := true. |
2407 hasMore := true. |
2409 ]. |
2408 ]. |
2410 list := (1 to:n). |
2409 list := (1 to:n). |
2411 ^ list |
2410 ^ list |
2412 "/ keysAndValuesCollect:[:idx :nm | |
2411 "/ keysAndValuesCollect:[:idx :nm | |
2413 "/ LabelAndIcon string:nm image:(self iconForValue:(object basicAt:idx)) |
2412 "/ LabelAndIcon string:nm image:(self iconForValue:(object basicAt:idx)) |
2414 "/ ]. |
2413 "/ ]. |
2415 |
2414 |
2416 "Modified: / 16-05-2012 / 18:34:35 / cg" |
2415 "Modified: / 13-06-2012 / 10:14:13 / cg" |
2417 ! |
2416 ! |
2418 |
2417 |
2419 indexOfFirstNamedInstvarInList |
2418 indexOfFirstNamedInstvarInList |
2420 "helper - return the index for the first named instVar; |
2419 "helper - return the index for the first named instVar; |
2421 nil, if self or a keyed instvar is selected." |
2420 nil, if self or a keyed instvar is selected." |
2620 ]. |
2619 ]. |
2621 |
2620 |
2622 ^ aList |
2621 ^ aList |
2623 |
2622 |
2624 "Modified: / 16-05-2012 / 18:43:23 / cg" |
2623 "Modified: / 16-05-2012 / 18:43:23 / cg" |
|
2624 ! |
|
2625 |
|
2626 numIndexedFields |
|
2627 ^ inspectedObject basicSize |
|
2628 |
|
2629 "Created: / 13-06-2012 / 10:13:24 / cg" |
2625 ! |
2630 ! |
2626 |
2631 |
2627 pseudoFieldNames |
2632 pseudoFieldNames |
2628 "return a list of names to show in the selectionList. |
2633 "return a list of names to show in the selectionList. |
2629 Leave hasMore as true, if a '...' entry should be added." |
2634 Leave hasMore as true, if a '...' entry should be added." |
3211 ! ! |
3216 ! ! |
3212 |
3217 |
3213 !InspectorView class methodsFor:'documentation'! |
3218 !InspectorView class methodsFor:'documentation'! |
3214 |
3219 |
3215 version |
3220 version |
3216 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.259 2012-06-13 07:54:14 cg Exp $' |
3221 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.260 2012-06-13 08:15:49 cg Exp $' |
3217 ! |
3222 ! |
3218 |
3223 |
3219 version_CVS |
3224 version_CVS |
3220 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.259 2012-06-13 07:54:14 cg Exp $' |
3225 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.260 2012-06-13 08:15:49 cg Exp $' |
3221 ! ! |
3226 ! ! |