diff -r 9d9ab34773a6 -r 292d06e8b7ae Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Fri Aug 23 12:28:19 2013 +0200
+++ b/Tools__ViewTreeApplication.st	Thu Aug 29 00:52:54 2013 +0200
@@ -329,12 +329,6 @@
                    component: 
                   (SpecCollection
                      collection: (
-                      (ViewSpec
-                         name: 'Inspector'
-                         layout: (LayoutFrame 0 0 26 0 0 1 0 1)
-                         postBuildCallback: postBuildInspectorView:
-                         viewClassName: 'InspectorView'
-                       )
                       (TabViewSpec
                          name: 'TabHeader1'
                          layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)
@@ -343,6 +337,12 @@
                          useIndex: true
                          translateLabel: true
                        )
+                      (ViewSpec
+                         name: 'Inspector'
+                         layout: (LayoutFrame 0 0 26 0 0 1 0 1)
+                         viewClassName: 'InspectorView'
+                         postBuildCallback: postBuildInspectorView:
+                       )
                       )
                     
                    )
@@ -854,21 +854,32 @@
 !
 
 inspectorMode
-    "what is shwn in the inspector:
+    "what is shown in the inspector:
      1->widget
-     2->application"
-
-    ^ (inspectorModeIndexHolder value == 1) 
-        ifTrue:[#widget]
-        ifFalse:[#application]
+     2->application
+     3->WindowGroup
+     4->Sensor
+     5->Model 
+    "
+
+    (inspectorModeIndexHolder value == 1) ifTrue:[ ^#widget].
+    (inspectorModeIndexHolder value == 2) ifTrue:[ ^#application].
+    (inspectorModeIndexHolder value == 3) ifTrue:[ ^#group].
+    (inspectorModeIndexHolder value == 4) ifTrue:[ ^#sensor].
+    (inspectorModeIndexHolder value == 5) ifTrue:[ ^#model].
+    ^ #application
 
     "Created: / 30-07-2013 / 07:44:59 / cg"
 !
 
 inspectorModeIndexHolder
-    "what is shwn in the inspector:
-     1->widget
-     2->application"
+    "what is shown in the inspector:
+     1->Widget
+     2->Application
+     3->WindowGroup
+     4->Sensor
+     5->Model 
+    "
 
     ^ inspectorModeIndexHolder
 
@@ -876,7 +887,7 @@
 !
 
 inspectorModes
-    ^ #('Widget' 'Application')
+    ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model')
 
     "Created: / 30-07-2013 / 09:42:16 / cg"
 !
@@ -978,9 +989,15 @@
     view := self selectedView.
     (view isNil or:[self inspectorMode == #widget]) ifTrue:[
         obj := view.
+    ] ifFalse:[ (self inspectorMode == #group) ifTrue:[
+        obj := view windowGroup
+    ] ifFalse:[ (self inspectorMode == #sensor) ifTrue:[
+        obj := view sensor
+    ] ifFalse:[ (self inspectorMode == #model) ifTrue:[
+        obj := view model
     ] ifFalse:[
         obj := view application.
-    ].
+    ]]]].
     inspectorView inspect:obj.
     inspectorView headLineLabel:(obj class nameWithoutPrefix)
 
@@ -1792,13 +1809,17 @@
     ifFalse:[what == #model       ifTrue:[ inst := view model ]
     ifFalse:[what == #application ifTrue:[ inst := view application ]
     ifFalse:[what == #controller  ifTrue:[ inst := view controller ]
+    ifFalse:[what == #sensor      ifTrue:[ inst := view sensor ]
+    ifFalse:[what == #group       ifTrue:[ inst := view windowGroup ]
     ifFalse:[
         ^ self
-    ]]]].
+    ]]]]]].
 
     inst notNil ifTrue:[
         inst class browserClass openInClass:(inst class) selector:nil
     ].
+
+    "Modified: / 28-08-2013 / 23:57:42 / cg"
 !
 
 doDestroy
@@ -1870,9 +1891,12 @@
     ifFalse:[what == #model       ifTrue:[ inst := inst model ]
     ifFalse:[what == #application ifTrue:[ inst := inst application ]
     ifFalse:[what == #controller  ifTrue:[ inst := inst controller  ]
-    ifFalse:[what == #process     ifTrue:[ inst := inst windowGroup process  ]]]]].
+    ifFalse:[what == #process     ifTrue:[ inst := inst windowGroup process  ]
+    ifFalse:[what == #sensor      ifTrue:[ inst := inst sensor  ]]]]]].
 
     inst notNil ifTrue:[ inst inspect ].
+
+    "Modified: / 28-08-2013 / 23:58:27 / cg"
 !
 
 doOpenProcessMonitor