Tools__ViewTreeApplication.st
changeset 3573 fc569c283368
parent 3568 5004640f2a10
child 3574 ea4dce86360d
     1.1 --- a/Tools__ViewTreeApplication.st	Mon Jul 09 03:31:19 2018 +0000
     1.2 +++ b/Tools__ViewTreeApplication.st	Tue Jul 17 09:26:56 2018 +0200
     1.3 @@ -995,9 +995,10 @@
     1.4  
     1.5      |mode|
     1.6      mode := inspectorModeIndexHolder value.
     1.7 -    ^ #( widget application group sensor model widgetClass applicationClass) at:mode ifAbsent:#widget
     1.8 +    ^ #( widget application group sensor model widgetClass applicationClass resources) at:mode ifAbsent:#widget
     1.9  
    1.10      "Created: / 30-07-2013 / 07:44:59 / cg"
    1.11 +    "Modified: / 17-07-2018 / 08:49:20 / Claus Gittinger"
    1.12  !
    1.13  
    1.14  inspectorModeIndexHolder
    1.15 @@ -1009,18 +1010,21 @@
    1.16       5->Model
    1.17       6->Widget Class
    1.18       7->Application Class
    1.19 +     8->Resources
    1.20      "
    1.21  
    1.22      ^ inspectorModeIndexHolder
    1.23  
    1.24      "Created: / 30-07-2013 / 07:44:07 / cg"
    1.25 +    "Modified (comment): / 17-07-2018 / 08:46:12 / Claus Gittinger"
    1.26  !
    1.27  
    1.28  inspectorModes
    1.29      "/ labels of tabs
    1.30 -    ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model' 'Widget Class' 'App Class')
    1.31 +    ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model' 'Widget Class' 'App Class' 'Resources')
    1.32  
    1.33      "Created: / 30-07-2013 / 09:42:16 / cg"
    1.34 +    "Modified: / 17-07-2018 / 08:45:56 / Claus Gittinger"
    1.35  !
    1.36  
    1.37  inspectorVisibleHolder
    1.38 @@ -1224,28 +1228,31 @@
    1.39      mode := self inspectorMode.
    1.40  
    1.41      ((mode == #widgetClass) or:[(mode == #applicationClass)]) ifTrue:[
    1.42 -	"/ update the browser
    1.43 -	view notNil ifTrue:[
    1.44 -	    self updateBrowser.
    1.45 -	].
    1.46 -	^ self.
    1.47 +        "/ update the browser
    1.48 +        view notNil ifTrue:[
    1.49 +            self updateBrowser.
    1.50 +        ].
    1.51 +        ^ self.
    1.52      ].
    1.53  
    1.54      (view isNil or:[mode == #widget]) ifTrue:[
    1.55 -	obj := view.
    1.56 +        obj := view.
    1.57      ] ifFalse:[ (mode == #group) ifTrue:[
    1.58 -	obj := view windowGroup
    1.59 +        obj := view windowGroup
    1.60      ] ifFalse:[ (mode == #sensor) ifTrue:[
    1.61 -	obj := view sensor
    1.62 +        obj := view sensor
    1.63      ] ifFalse:[ (mode == #model) ifTrue:[
    1.64 -	obj := view model
    1.65 +        obj := view model
    1.66 +    ] ifFalse:[ (mode == #resources) ifTrue:[
    1.67 +        obj := view resources
    1.68      ] ifFalse:[
    1.69 -	obj := view application.
    1.70 -    ]]]].
    1.71 +        obj := view application.
    1.72 +    ]]]]].
    1.73      inspectorView inspect:obj.
    1.74      inspectorView headLineLabel:(obj class nameWithoutPrefix)
    1.75  
    1.76      "Created: / 30-07-2013 / 09:21:16 / cg"
    1.77 +    "Modified: / 17-07-2018 / 08:46:40 / Claus Gittinger"
    1.78  ! !
    1.79  
    1.80  !ViewTreeInspectorApplication methodsFor:'event processing'!