680 ) |
680 ) |
681 (MenuItem |
681 (MenuItem |
682 label: 'Browse View Class' |
682 label: 'Browse View Class' |
683 itemValue: doBrowse: |
683 itemValue: doBrowse: |
684 translateLabel: true |
684 translateLabel: true |
685 argument: view |
685 argument: #view |
686 ) |
686 ) |
687 (MenuItem |
687 (MenuItem |
688 label: 'Browse Model Class' |
688 label: 'Browse Model Class' |
689 itemValue: doBrowse: |
689 itemValue: doBrowse: |
690 translateLabel: true |
690 translateLabel: true |
691 isVisible: hasModel |
691 isVisible: hasModel |
692 argument: model |
692 argument: #model |
693 ) |
693 ) |
694 (MenuItem |
694 (MenuItem |
695 label: 'Browse Application Class' |
695 label: 'Browse Application Class' |
696 itemValue: doBrowse: |
696 itemValue: doBrowse: |
697 translateLabel: true |
697 translateLabel: true |
698 isVisible: hasApplication |
698 isVisible: hasApplication |
699 argument: application |
699 argument: #application |
700 ) |
700 ) |
701 (MenuItem |
701 (MenuItem |
702 label: 'Browse Controller Class' |
702 label: 'Browse Controller Class' |
703 itemValue: doBrowse: |
703 itemValue: doBrowse: |
704 translateLabel: true |
704 translateLabel: true |
705 isVisible: hasController |
705 isVisible: hasController |
706 argument: controller |
706 argument: #controller |
707 ) |
707 ) |
708 (MenuItem |
708 (MenuItem |
709 label: '-' |
709 label: '-' |
710 ) |
710 ) |
711 (MenuItem |
711 (MenuItem |
712 label: 'Inspect View' |
712 label: 'Inspect View' |
713 itemValue: doInspect: |
713 itemValue: doInspect: |
714 translateLabel: true |
714 translateLabel: true |
715 argument: view |
715 argument: #view |
716 ) |
716 ) |
717 (MenuItem |
717 (MenuItem |
718 label: 'Inspect Window Group' |
718 label: 'Inspect Window Group' |
719 itemValue: doInspect: |
719 itemValue: doInspect: |
720 translateLabel: true |
720 translateLabel: true |
721 argument: group |
721 argument: #group |
722 ) |
722 ) |
723 (MenuItem |
723 (MenuItem |
724 label: 'Inspect Model' |
724 label: 'Inspect Model' |
725 itemValue: doInspect: |
725 itemValue: doInspect: |
726 translateLabel: true |
726 translateLabel: true |
727 isVisible: hasModel |
727 isVisible: hasModel |
728 argument: model |
728 argument: #model |
729 ) |
729 ) |
730 (MenuItem |
730 (MenuItem |
731 label: 'Inspect Application' |
731 label: 'Inspect Application' |
732 itemValue: doInspect: |
732 itemValue: doInspect: |
733 translateLabel: true |
733 translateLabel: true |
734 isVisible: hasApplication |
734 isVisible: hasApplication |
735 argument: application |
735 argument: #application |
736 ) |
736 ) |
737 (MenuItem |
737 (MenuItem |
738 label: 'Inspect Controller' |
738 label: 'Inspect Controller' |
739 itemValue: doInspect: |
739 itemValue: doInspect: |
740 translateLabel: true |
740 translateLabel: true |
741 isVisible: hasController |
741 isVisible: hasController |
742 argument: controller |
742 argument: #controller |
743 ) |
743 ) |
744 (MenuItem |
744 (MenuItem |
745 label: '-' |
745 label: '-' |
746 ) |
746 ) |
747 (MenuItem |
747 (MenuItem |
2120 what == #group ifTrue:[ inst := view windowGroup ] |
2120 what == #group ifTrue:[ inst := view windowGroup ] |
2121 ifFalse:[what == #model ifTrue:[ inst := view model ] |
2121 ifFalse:[what == #model ifTrue:[ inst := view model ] |
2122 ifFalse:[what == #application ifTrue:[ inst := view application ] |
2122 ifFalse:[what == #application ifTrue:[ inst := view application ] |
2123 ifFalse:[what == #controller ifTrue:[ inst := view controller ] |
2123 ifFalse:[what == #controller ifTrue:[ inst := view controller ] |
2124 ifFalse:[what == #process ifTrue:[ inst := view windowGroup process ] |
2124 ifFalse:[what == #process ifTrue:[ inst := view windowGroup process ] |
2125 ifFalse:[what == #sensor ifTrue:[ inst := view sensor ]]]]]]. |
2125 ifFalse:[what == #sensor ifTrue:[ inst := view sensor ] |
|
2126 ifFalse:[inst := view ]]]]]]. |
2126 |
2127 |
2127 (inst isNil and:[what == #application]) ifTrue:[ |
2128 (inst isNil and:[what == #application]) ifTrue:[ |
2128 inst := view topView |
2129 inst := view topView |
2129 ]. |
2130 ]. |
2130 ^ inst |
2131 ^ inst |