class: Tools::ViewTreeInspectorApplication
authorClaus Gittinger <cg@exept.de>
Thu, 29 Aug 2013 00:52:54 +0200
changeset 3049292d06e8b7ae
parent 3048 9d9ab34773a6
child 3050 238571e2a33b
class: Tools::ViewTreeInspectorApplication
comment/format in: #inspectorModeIndexHolder
changed:6 methods
Tools__ViewTreeApplication.st
     1.1 --- a/Tools__ViewTreeApplication.st	Fri Aug 23 12:28:19 2013 +0200
     1.2 +++ b/Tools__ViewTreeApplication.st	Thu Aug 29 00:52:54 2013 +0200
     1.3 @@ -329,12 +329,6 @@
     1.4                     component: 
     1.5                    (SpecCollection
     1.6                       collection: (
     1.7 -                      (ViewSpec
     1.8 -                         name: 'Inspector'
     1.9 -                         layout: (LayoutFrame 0 0 26 0 0 1 0 1)
    1.10 -                         postBuildCallback: postBuildInspectorView:
    1.11 -                         viewClassName: 'InspectorView'
    1.12 -                       )
    1.13                        (TabViewSpec
    1.14                           name: 'TabHeader1'
    1.15                           layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)
    1.16 @@ -343,6 +337,12 @@
    1.17                           useIndex: true
    1.18                           translateLabel: true
    1.19                         )
    1.20 +                      (ViewSpec
    1.21 +                         name: 'Inspector'
    1.22 +                         layout: (LayoutFrame 0 0 26 0 0 1 0 1)
    1.23 +                         viewClassName: 'InspectorView'
    1.24 +                         postBuildCallback: postBuildInspectorView:
    1.25 +                       )
    1.26                        )
    1.27                      
    1.28                     )
    1.29 @@ -854,21 +854,32 @@
    1.30  !
    1.31  
    1.32  inspectorMode
    1.33 -    "what is shwn in the inspector:
    1.34 +    "what is shown in the inspector:
    1.35       1->widget
    1.36 -     2->application"
    1.37 -
    1.38 -    ^ (inspectorModeIndexHolder value == 1) 
    1.39 -        ifTrue:[#widget]
    1.40 -        ifFalse:[#application]
    1.41 +     2->application
    1.42 +     3->WindowGroup
    1.43 +     4->Sensor
    1.44 +     5->Model 
    1.45 +    "
    1.46 +
    1.47 +    (inspectorModeIndexHolder value == 1) ifTrue:[ ^#widget].
    1.48 +    (inspectorModeIndexHolder value == 2) ifTrue:[ ^#application].
    1.49 +    (inspectorModeIndexHolder value == 3) ifTrue:[ ^#group].
    1.50 +    (inspectorModeIndexHolder value == 4) ifTrue:[ ^#sensor].
    1.51 +    (inspectorModeIndexHolder value == 5) ifTrue:[ ^#model].
    1.52 +    ^ #application
    1.53  
    1.54      "Created: / 30-07-2013 / 07:44:59 / cg"
    1.55  !
    1.56  
    1.57  inspectorModeIndexHolder
    1.58 -    "what is shwn in the inspector:
    1.59 -     1->widget
    1.60 -     2->application"
    1.61 +    "what is shown in the inspector:
    1.62 +     1->Widget
    1.63 +     2->Application
    1.64 +     3->WindowGroup
    1.65 +     4->Sensor
    1.66 +     5->Model 
    1.67 +    "
    1.68  
    1.69      ^ inspectorModeIndexHolder
    1.70  
    1.71 @@ -876,7 +887,7 @@
    1.72  !
    1.73  
    1.74  inspectorModes
    1.75 -    ^ #('Widget' 'Application')
    1.76 +    ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model')
    1.77  
    1.78      "Created: / 30-07-2013 / 09:42:16 / cg"
    1.79  !
    1.80 @@ -978,9 +989,15 @@
    1.81      view := self selectedView.
    1.82      (view isNil or:[self inspectorMode == #widget]) ifTrue:[
    1.83          obj := view.
    1.84 +    ] ifFalse:[ (self inspectorMode == #group) ifTrue:[
    1.85 +        obj := view windowGroup
    1.86 +    ] ifFalse:[ (self inspectorMode == #sensor) ifTrue:[
    1.87 +        obj := view sensor
    1.88 +    ] ifFalse:[ (self inspectorMode == #model) ifTrue:[
    1.89 +        obj := view model
    1.90      ] ifFalse:[
    1.91          obj := view application.
    1.92 -    ].
    1.93 +    ]]]].
    1.94      inspectorView inspect:obj.
    1.95      inspectorView headLineLabel:(obj class nameWithoutPrefix)
    1.96  
    1.97 @@ -1792,13 +1809,17 @@
    1.98      ifFalse:[what == #model       ifTrue:[ inst := view model ]
    1.99      ifFalse:[what == #application ifTrue:[ inst := view application ]
   1.100      ifFalse:[what == #controller  ifTrue:[ inst := view controller ]
   1.101 +    ifFalse:[what == #sensor      ifTrue:[ inst := view sensor ]
   1.102 +    ifFalse:[what == #group       ifTrue:[ inst := view windowGroup ]
   1.103      ifFalse:[
   1.104          ^ self
   1.105 -    ]]]].
   1.106 +    ]]]]]].
   1.107  
   1.108      inst notNil ifTrue:[
   1.109          inst class browserClass openInClass:(inst class) selector:nil
   1.110      ].
   1.111 +
   1.112 +    "Modified: / 28-08-2013 / 23:57:42 / cg"
   1.113  !
   1.114  
   1.115  doDestroy
   1.116 @@ -1870,9 +1891,12 @@
   1.117      ifFalse:[what == #model       ifTrue:[ inst := inst model ]
   1.118      ifFalse:[what == #application ifTrue:[ inst := inst application ]
   1.119      ifFalse:[what == #controller  ifTrue:[ inst := inst controller  ]
   1.120 -    ifFalse:[what == #process     ifTrue:[ inst := inst windowGroup process  ]]]]].
   1.121 +    ifFalse:[what == #process     ifTrue:[ inst := inst windowGroup process  ]
   1.122 +    ifFalse:[what == #sensor      ifTrue:[ inst := inst sensor  ]]]]]].
   1.123  
   1.124      inst notNil ifTrue:[ inst inspect ].
   1.125 +
   1.126 +    "Modified: / 28-08-2013 / 23:58:27 / cg"
   1.127  !
   1.128  
   1.129  doOpenProcessMonitor