equal
deleted
inserted
replaced
17 |
17 |
18 InspectorView subclass:#DictionaryInspectorView |
18 InspectorView subclass:#DictionaryInspectorView |
19 instanceVariableNames:'keys hideClassVars hideClasses hideUnloadedClasses hideAliases |
19 instanceVariableNames:'keys hideClassVars hideClasses hideUnloadedClasses hideAliases |
20 hideNilValues hideLiteralValues hideColorsAndImages |
20 hideNilValues hideLiteralValues hideColorsAndImages |
21 hideSignalInstances hideEmptyCollections hideFreeSemaphores |
21 hideSignalInstances hideEmptyCollections hideFreeSemaphores |
22 hideCollectionsHoldingOnlyLiterals' |
22 hideCollectionsHoldingOnlyLiterals hideNonRefObjectReferences' |
23 classVariableNames:'' |
23 classVariableNames:'' |
24 poolDictionaries:'' |
24 poolDictionaries:'' |
25 category:'Interface-Inspector' |
25 category:'Interface-Inspector' |
26 ! |
26 ! |
27 |
27 |
94 hideColorsAndImages := false. |
94 hideColorsAndImages := false. |
95 hideSignalInstances := false. |
95 hideSignalInstances := false. |
96 hideEmptyCollections := false. |
96 hideEmptyCollections := false. |
97 hideFreeSemaphores := false. |
97 hideFreeSemaphores := false. |
98 hideCollectionsHoldingOnlyLiterals := false. |
98 hideCollectionsHoldingOnlyLiterals := false. |
|
99 hideNonRefObjectReferences := false. |
99 ! ! |
100 ! ! |
100 |
101 |
101 !DictionaryInspectorView methodsFor:'menu'! |
102 !DictionaryInspectorView methodsFor:'menu'! |
102 |
103 |
103 fieldMenu |
104 fieldMenu |
226 ('Show Collections of Literals' doShowCollectionsHoldingOnlyLiterals ) |
227 ('Show Collections of Literals' doShowCollectionsHoldingOnlyLiterals ) |
227 ). |
228 ). |
228 ] ifFalse:[ |
229 ] ifFalse:[ |
229 items := items , #( |
230 items := items , #( |
230 ('Hide Collections of Literals' doHideCollectionsHoldingOnlyLiterals ) |
231 ('Hide Collections of Literals' doHideCollectionsHoldingOnlyLiterals ) |
|
232 ). |
|
233 ]. |
|
234 hideNonRefObjectReferences == true ifTrue:[ |
|
235 items := items , #( |
|
236 ('Show References to Simple Objects' doShowNonRefObjectReferences ) |
|
237 ). |
|
238 ] ifFalse:[ |
|
239 items := items , #( |
|
240 ('Hide References to Simple Objects' doHideNonRefObjectReferences ) |
231 ). |
241 ). |
232 ]. |
242 ]. |
233 |
243 |
234 ] ifFalse:[ |
244 ] ifFalse:[ |
235 items := #( |
245 items := #( |
395 doHideNilValues |
405 doHideNilValues |
396 hideNilValues := true. |
406 hideNilValues := true. |
397 self reinspect |
407 self reinspect |
398 ! |
408 ! |
399 |
409 |
|
410 doHideNonRefObjectReferences |
|
411 hideNonRefObjectReferences := true. |
|
412 self reinspect |
|
413 ! |
|
414 |
400 doHideSignalInstances |
415 doHideSignalInstances |
401 hideSignalInstances := true. |
416 hideSignalInstances := true. |
402 self reinspect |
417 self reinspect |
403 ! |
418 ! |
404 |
419 |
480 self reinspect |
495 self reinspect |
481 ! |
496 ! |
482 |
497 |
483 doShowNilValues |
498 doShowNilValues |
484 hideNilValues := false. |
499 hideNilValues := false. |
|
500 self reinspect |
|
501 ! |
|
502 |
|
503 doShowNonRefObjectReferences |
|
504 hideNonRefObjectReferences := false. |
485 self reinspect |
505 self reinspect |
486 ! |
506 ! |
487 |
507 |
488 doShowSignalInstances |
508 doShowSignalInstances |
489 hideSignalInstances := false. |
509 hideSignalInstances := false. |
675 hidden := true |
695 hidden := true |
676 ]. |
696 ]. |
677 ]. |
697 ]. |
678 (hidden not and:[hideCollectionsHoldingOnlyLiterals == true]) ifTrue:[ |
698 (hidden not and:[hideCollectionsHoldingOnlyLiterals == true]) ifTrue:[ |
679 o isNil ifTrue:[ o := inspectedObject at:k ifAbsent:nil ]. |
699 o isNil ifTrue:[ o := inspectedObject at:k ifAbsent:nil ]. |
680 (o isCollection and:[o conform:[:el | el isLiteral]]) ifTrue:[ |
700 (o isCollection) ifTrue:[ |
681 hidden := true |
701 (o conform:[:el | el isLiteral]) ifTrue:[ |
|
702 hidden := true |
|
703 ] ifFalse:[ |
|
704 (o conform:[:el | el isCollection and:[el conform:[:subEl | subEl isLiteral]]]) ifTrue:[ |
|
705 hidden := true |
|
706 ]. |
|
707 ]. |
682 ]. |
708 ]. |
683 ]. |
709 ]. |
684 (hidden not and:[hideFreeSemaphores == true]) ifTrue:[ |
710 (hidden not and:[hideFreeSemaphores == true]) ifTrue:[ |
685 o isNil ifTrue:[ o := inspectedObject at:k ifAbsent:nil ]. |
711 o isNil ifTrue:[ o := inspectedObject at:k ifAbsent:nil ]. |
686 ((o isKindOf:Semaphore) |
712 ((o isKindOf:Semaphore) |
687 and:[(o owner isNil or:[o owner isCollection and:[o owner isEmpty]]) |
713 and:[(o owner isNil or:[o owner isCollection and:[o owner isEmpty]]) |
688 and:[o waitingProcesses isEmptyOrNil]]) ifTrue:[ |
714 and:[o waitingProcesses isEmptyOrNil]]) ifTrue:[ |
|
715 hidden := true |
|
716 ]. |
|
717 ]. |
|
718 (hidden not and:[hideNonRefObjectReferences == true]) ifTrue:[ |
|
719 o isNil ifTrue:[ o := inspectedObject at:k ifAbsent:nil ]. |
|
720 ((o class == Point) |
|
721 or:[(o class == Rectangle) |
|
722 or:[(o class == Object)]] |
|
723 ) ifTrue:[ |
689 hidden := true |
724 hidden := true |
690 ]. |
725 ]. |
691 ]. |
726 ]. |
692 |
727 |
693 hidden ifFalse:[keys add:k] |
728 hidden ifFalse:[keys add:k] |