equal
deleted
inserted
replaced
2218 ]. |
2218 ]. |
2219 |
2219 |
2220 (value isNumber or:[value isBoolean]) ifTrue:[ |
2220 (value isNumber or:[value isBoolean]) ifTrue:[ |
2221 ^ self basicDisplayStringForValue:value "value printString" |
2221 ^ self basicDisplayStringForValue:value "value printString" |
2222 ]. |
2222 ]. |
2223 (value isSymbol) ifTrue:[ |
2223 ^ value inspectorValueStringInListFor:self |
2224 ^ value storeString |
|
2225 ]. |
|
2226 (value isCharacter) ifTrue:[ |
|
2227 (value codePoint <= 16r7f) ifTrue:[ |
|
2228 ^ value storeString,(' "16r%1 %2"' bindWith:(value codePoint hexPrintString) with:value codePoint) |
|
2229 ]. |
|
2230 ^ value storeString,(' "%1"' bindWith:(value codePoint)) |
|
2231 ]. |
|
2232 value isString ifTrue:[ |
|
2233 ^ value storeString contractTo:30. |
|
2234 ]. |
|
2235 value isColor ifTrue:[ |
|
2236 ^ value htmlPrintString |
|
2237 ]. |
|
2238 value isNil ifTrue:[ |
|
2239 ^ 'nil' |
|
2240 ]. |
|
2241 (value isClass and:[value name notEmptyOrNil]) ifTrue:[ |
|
2242 ^ value name |
|
2243 ]. |
|
2244 ^ value classNameWithArticle "nil" |
|
2245 |
2224 |
2246 "Created: / 13-06-2012 / 12:50:26 / cg" |
2225 "Created: / 13-06-2012 / 12:50:26 / cg" |
2247 ! |
2226 ! |
2248 |
2227 |
2249 stringWithAllIndexedVarValues |
2228 stringWithAllIndexedVarValues |
2619 list := l collect:[:i | i printString]. |
2598 list := l collect:[:i | i printString]. |
2620 ]. |
2599 ]. |
2621 |
2600 |
2622 ^ list |
2601 ^ list |
2623 keysAndValuesCollect:[:idx :nm | |
2602 keysAndValuesCollect:[:idx :nm | |
2624 self listEntryForName:nm value:(self indexedValueAtIndex: idx) |
2603 | val | |
2625 ]. |
2604 |
2626 |
2605 [ |
2627 ^ list. |
2606 val := self indexedValueAtIndex: idx |
2628 |
2607 ] on:Error do:[ |
2629 "Modified: / 22-08-2012 / 19:19:05 / cg" |
2608 val := '** ERROR **' |
|
2609 ]. |
|
2610 self listEntryForName:nm value:val |
|
2611 ]. |
|
2612 |
|
2613 "/ ^ list. |
|
2614 |
|
2615 "Modified: / 21-09-2012 / 11:18:28 / cg" |
2630 "Modified: / 06-07-2012 / 10:37:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2616 "Modified: / 06-07-2012 / 10:37:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2631 ! |
2617 ! |
2632 |
2618 |
2633 indexedValueAtIndex:idx |
2619 indexedValueAtIndex:idx |
2634 ^ object basicAt:idx |
2620 ^ object basicAt:idx |
3332 ! ! |
3318 ! ! |
3333 |
3319 |
3334 !InspectorView class methodsFor:'documentation'! |
3320 !InspectorView class methodsFor:'documentation'! |
3335 |
3321 |
3336 version |
3322 version |
3337 ^ '$Id: InspectorView.st 8050 2012-09-07 19:27:32Z vranyj1 $' |
3323 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.280 2012/09/24 10:34:43 cg Exp $' |
3338 ! |
3324 ! |
3339 |
3325 |
3340 version_CVS |
3326 version_CVS |
3341 ^ '§Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.278 2012/08/23 11:45:48 cg Exp §' |
3327 ^ 'Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.280 2012/09/24 10:34:43 cg Exp ' |
3342 ! |
3328 ! |
3343 |
3329 |
3344 version_SVN |
3330 version_SVN |
3345 ^ '$Id: InspectorView.st 8050 2012-09-07 19:27:32Z vranyj1 $' |
3331 ^ '$Id: InspectorView.st 8059 2012-09-27 20:08:20Z vranyj1 $' |
3346 ! ! |
3332 ! ! |