2592 |
2592 |
2593 pseudoFieldNames |
2593 pseudoFieldNames |
2594 "return a list of names to show in the selectionList. |
2594 "return a list of names to show in the selectionList. |
2595 Leave hasMore as true, if a '...' entry should be added." |
2595 Leave hasMore as true, if a '...' entry should be added." |
2596 |
2596 |
|
2597 ^ self pseudoFieldNamesWithIndexed: object class isVariable |
|
2598 |
|
2599 "Modified: / 06-06-2012 / 11:56:56 / cg" |
|
2600 ! |
|
2601 |
|
2602 pseudoFieldNamesWithIndexed:withIndexed |
|
2603 "return a list of names to show in the selectionList. |
|
2604 Leave hasMore as true, if a '...' entry should be added." |
|
2605 |
2597 |list cls| |
2606 |list cls| |
2598 |
2607 |
2599 cls := object class. |
2608 cls := object class. |
2600 |
2609 |
2601 list := OrderedCollection new. |
2610 list := OrderedCollection new. |
2604 "/ list add:'-' , 'inherited messages' allItalic. |
2613 "/ list add:'-' , 'inherited messages' allItalic. |
2605 list add:'-' , 'all messages' allItalic. |
2614 list add:'-' , 'all messages' allItalic. |
2606 list add:'-' , 'hash' allItalic. |
2615 list add:'-' , 'hash' allItalic. |
2607 list add:'-' , 'identityHash' allItalic. |
2616 list add:'-' , 'identityHash' allItalic. |
2608 |
2617 |
|
2618 withIndexed ifTrue:[ |
|
2619 list add:'-' , 'basicSize' allItalic. |
|
2620 ]. |
|
2621 object isCollection ifTrue:[ |
|
2622 (cls whichClassImplements:#size) == (cls whichClassImplements:#basicSize) ifFalse:[ |
|
2623 list add:'-' , 'size' allItalic. |
|
2624 ] |
|
2625 ]. |
|
2626 |
2609 cls hasImmediateInstances ifFalse:[ |
2627 cls hasImmediateInstances ifFalse:[ |
2610 object dependents notEmptyOrNil ifTrue:[ |
2628 object dependents notEmptyOrNil ifTrue:[ |
2611 list add:'-' , 'dependents' allItalic. |
2629 list add:'-' , 'dependents' allItalic. |
2612 ]. |
2630 ]. |
2613 ]. |
2631 ]. |
2614 cls instSize > 0 ifTrue:[ |
2632 cls instSize > 0 ifTrue:[ |
2615 list add:'-' , 'all inst vars' allItalic. |
2633 list add:'-' , 'all inst vars' allItalic. |
2616 ]. |
2634 ]. |
2617 ((cls isVariable) and:[self showAllIndexedVarsInFieldList]) ifTrue:[ |
|
2618 list add:'-' , 'all indexed vars' allItalic. |
|
2619 ]. |
|
2620 ^ list |
|
2621 ! |
|
2622 |
|
2623 pseudoFieldNamesWithIndexed:withIndexed |
|
2624 "return a list of names to show in the selectionList. |
|
2625 Leave hasMore as true, if a '...' entry should be added." |
|
2626 |
|
2627 |list cls| |
|
2628 |
|
2629 cls := object class. |
|
2630 |
|
2631 list := OrderedCollection new. |
|
2632 list add:'-' , 'self' allItalic. |
|
2633 list add:'-' , 'local messages' allItalic. |
|
2634 "/ list add:'-' , 'inherited messages' allItalic. |
|
2635 list add:'-' , 'all messages' allItalic. |
|
2636 list add:'-' , 'hash' allItalic. |
|
2637 list add:'-' , 'identityHash' allItalic. |
|
2638 |
|
2639 cls hasImmediateInstances ifFalse:[ |
|
2640 object dependents notEmptyOrNil ifTrue:[ |
|
2641 list add:'-' , 'dependents' allItalic. |
|
2642 ]. |
|
2643 ]. |
|
2644 cls instSize > 0 ifTrue:[ |
|
2645 list add:'-' , 'all inst vars' allItalic. |
|
2646 ]. |
|
2647 (withIndexed and:[self showAllIndexedVarsInFieldList]) ifTrue:[ |
2635 (withIndexed and:[self showAllIndexedVarsInFieldList]) ifTrue:[ |
2648 list add:'-' , 'all indexed vars' allItalic. |
2636 list add:'-' , 'all indexed vars' allItalic. |
2649 ]. |
2637 ]. |
2650 ^ list |
2638 ^ list |
|
2639 |
|
2640 "Modified: / 06-06-2012 / 11:59:10 / cg" |
2651 ! |
2641 ! |
2652 |
2642 |
2653 setAcceptAction |
2643 setAcceptAction |
2654 "set the codeViews accept action" |
2644 "set the codeViews accept action" |
2655 |
2645 |
2670 acceptAction := nil. |
2660 acceptAction := nil. |
2671 ]. |
2661 ]. |
2672 (sel startsWith:'-hash') ifTrue:[ |
2662 (sel startsWith:'-hash') ifTrue:[ |
2673 acceptAction := nil. |
2663 acceptAction := nil. |
2674 ]. |
2664 ]. |
|
2665 (sel startsWith:'-basicSize') ifTrue:[ |
|
2666 acceptAction := nil. |
|
2667 ]. |
|
2668 (sel startsWith:'-size') ifTrue:[ |
|
2669 acceptAction := nil. |
|
2670 ]. |
2675 (sel startsWith:'-identityHash') ifTrue:[ |
2671 (sel startsWith:'-identityHash') ifTrue:[ |
2676 acceptAction := nil. |
2672 acceptAction := nil. |
2677 ]. |
2673 ]. |
2678 (sel startsWith:'-dependents') ifTrue:[ |
2674 (sel startsWith:'-dependents') ifTrue:[ |
2679 acceptAction := nil. |
2675 acceptAction := nil. |