Tools__ViewTreeApplication.st
changeset 3169 54d9e27b384d
parent 3168 894c517d8696
child 3171 16cec0f0e3b4
     1.1 --- a/Tools__ViewTreeApplication.st	Mon Dec 01 17:43:38 2014 +0100
     1.2 +++ b/Tools__ViewTreeApplication.st	Tue Dec 02 19:23:38 2014 +0100
     1.3 @@ -682,28 +682,28 @@
     1.4              label: 'Browse View Class'
     1.5              itemValue: doBrowse:
     1.6              translateLabel: true
     1.7 -            argument: view
     1.8 +            argument: #view
     1.9            )
    1.10           (MenuItem
    1.11              label: 'Browse Model Class'
    1.12              itemValue: doBrowse:
    1.13              translateLabel: true
    1.14              isVisible: hasModel
    1.15 -            argument: model
    1.16 +            argument: #model
    1.17            )
    1.18           (MenuItem
    1.19              label: 'Browse Application Class'
    1.20              itemValue: doBrowse:
    1.21              translateLabel: true
    1.22              isVisible: hasApplication
    1.23 -            argument: application
    1.24 +            argument: #application
    1.25            )
    1.26           (MenuItem
    1.27              label: 'Browse Controller Class'
    1.28              itemValue: doBrowse:
    1.29              translateLabel: true
    1.30              isVisible: hasController
    1.31 -            argument: controller
    1.32 +            argument: #controller
    1.33            )
    1.34           (MenuItem
    1.35              label: '-'
    1.36 @@ -712,34 +712,34 @@
    1.37              label: 'Inspect View'
    1.38              itemValue: doInspect:
    1.39              translateLabel: true
    1.40 -            argument: view
    1.41 +            argument: #view
    1.42            )
    1.43           (MenuItem
    1.44              label: 'Inspect Window Group'
    1.45              itemValue: doInspect:
    1.46              translateLabel: true
    1.47 -            argument: group
    1.48 +            argument: #group
    1.49            )
    1.50           (MenuItem
    1.51              label: 'Inspect Model'
    1.52              itemValue: doInspect:
    1.53              translateLabel: true
    1.54              isVisible: hasModel
    1.55 -            argument: model
    1.56 +            argument: #model
    1.57            )
    1.58           (MenuItem
    1.59              label: 'Inspect Application'
    1.60              itemValue: doInspect:
    1.61              translateLabel: true
    1.62              isVisible: hasApplication
    1.63 -            argument: application
    1.64 +            argument: #application
    1.65            )
    1.66           (MenuItem
    1.67              label: 'Inspect Controller'
    1.68              itemValue: doInspect:
    1.69              translateLabel: true
    1.70              isVisible: hasController
    1.71 -            argument: controller
    1.72 +            argument: #controller
    1.73            )
    1.74           (MenuItem
    1.75              label: '-'
    1.76 @@ -2122,7 +2122,8 @@
    1.77      ifFalse:[what == #application ifTrue:[ inst := view application ]
    1.78      ifFalse:[what == #controller  ifTrue:[ inst := view controller  ]
    1.79      ifFalse:[what == #process     ifTrue:[ inst := view windowGroup process  ]
    1.80 -    ifFalse:[what == #sensor      ifTrue:[ inst := view sensor  ]]]]]].
    1.81 +    ifFalse:[what == #sensor      ifTrue:[ inst := view sensor  ]
    1.82 +    ifFalse:[inst := view  ]]]]]].
    1.83  
    1.84      (inst isNil and:[what == #application]) ifTrue:[
    1.85          inst := view topView