993 7->Application Class |
993 7->Application Class |
994 " |
994 " |
995 |
995 |
996 |mode| |
996 |mode| |
997 mode := inspectorModeIndexHolder value. |
997 mode := inspectorModeIndexHolder value. |
998 ^ #( widget application group sensor model widgetClass applicationClass) at:mode ifAbsent:#widget |
998 ^ #( widget application group sensor model widgetClass applicationClass resources) at:mode ifAbsent:#widget |
999 |
999 |
1000 "Created: / 30-07-2013 / 07:44:59 / cg" |
1000 "Created: / 30-07-2013 / 07:44:59 / cg" |
|
1001 "Modified: / 17-07-2018 / 08:49:20 / Claus Gittinger" |
1001 ! |
1002 ! |
1002 |
1003 |
1003 inspectorModeIndexHolder |
1004 inspectorModeIndexHolder |
1004 "what is shown in the inspector: |
1005 "what is shown in the inspector: |
1005 1->Widget |
1006 1->Widget |
1007 3->WindowGroup |
1008 3->WindowGroup |
1008 4->Sensor |
1009 4->Sensor |
1009 5->Model |
1010 5->Model |
1010 6->Widget Class |
1011 6->Widget Class |
1011 7->Application Class |
1012 7->Application Class |
|
1013 8->Resources |
1012 " |
1014 " |
1013 |
1015 |
1014 ^ inspectorModeIndexHolder |
1016 ^ inspectorModeIndexHolder |
1015 |
1017 |
1016 "Created: / 30-07-2013 / 07:44:07 / cg" |
1018 "Created: / 30-07-2013 / 07:44:07 / cg" |
|
1019 "Modified (comment): / 17-07-2018 / 08:46:12 / Claus Gittinger" |
1017 ! |
1020 ! |
1018 |
1021 |
1019 inspectorModes |
1022 inspectorModes |
1020 "/ labels of tabs |
1023 "/ labels of tabs |
1021 ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model' 'Widget Class' 'App Class') |
1024 ^ #('Widget' 'Application' 'WindowGroup' 'Sensor' 'Model' 'Widget Class' 'App Class' 'Resources') |
1022 |
1025 |
1023 "Created: / 30-07-2013 / 09:42:16 / cg" |
1026 "Created: / 30-07-2013 / 09:42:16 / cg" |
|
1027 "Modified: / 17-07-2018 / 08:45:56 / Claus Gittinger" |
1024 ! |
1028 ! |
1025 |
1029 |
1026 inspectorVisibleHolder |
1030 inspectorVisibleHolder |
1027 "what is shown in the inspector: |
1031 "what is shown in the inspector: |
1028 1->Widget |
1032 1->Widget |
1222 |
1226 |
1223 view := self selectedView. |
1227 view := self selectedView. |
1224 mode := self inspectorMode. |
1228 mode := self inspectorMode. |
1225 |
1229 |
1226 ((mode == #widgetClass) or:[(mode == #applicationClass)]) ifTrue:[ |
1230 ((mode == #widgetClass) or:[(mode == #applicationClass)]) ifTrue:[ |
1227 "/ update the browser |
1231 "/ update the browser |
1228 view notNil ifTrue:[ |
1232 view notNil ifTrue:[ |
1229 self updateBrowser. |
1233 self updateBrowser. |
1230 ]. |
1234 ]. |
1231 ^ self. |
1235 ^ self. |
1232 ]. |
1236 ]. |
1233 |
1237 |
1234 (view isNil or:[mode == #widget]) ifTrue:[ |
1238 (view isNil or:[mode == #widget]) ifTrue:[ |
1235 obj := view. |
1239 obj := view. |
1236 ] ifFalse:[ (mode == #group) ifTrue:[ |
1240 ] ifFalse:[ (mode == #group) ifTrue:[ |
1237 obj := view windowGroup |
1241 obj := view windowGroup |
1238 ] ifFalse:[ (mode == #sensor) ifTrue:[ |
1242 ] ifFalse:[ (mode == #sensor) ifTrue:[ |
1239 obj := view sensor |
1243 obj := view sensor |
1240 ] ifFalse:[ (mode == #model) ifTrue:[ |
1244 ] ifFalse:[ (mode == #model) ifTrue:[ |
1241 obj := view model |
1245 obj := view model |
|
1246 ] ifFalse:[ (mode == #resources) ifTrue:[ |
|
1247 obj := view resources |
1242 ] ifFalse:[ |
1248 ] ifFalse:[ |
1243 obj := view application. |
1249 obj := view application. |
1244 ]]]]. |
1250 ]]]]]. |
1245 inspectorView inspect:obj. |
1251 inspectorView inspect:obj. |
1246 inspectorView headLineLabel:(obj class nameWithoutPrefix) |
1252 inspectorView headLineLabel:(obj class nameWithoutPrefix) |
1247 |
1253 |
1248 "Created: / 30-07-2013 / 09:21:16 / cg" |
1254 "Created: / 30-07-2013 / 09:21:16 / cg" |
|
1255 "Modified: / 17-07-2018 / 08:46:40 / Claus Gittinger" |
1249 ! ! |
1256 ! ! |
1250 |
1257 |
1251 !ViewTreeInspectorApplication methodsFor:'event processing'! |
1258 !ViewTreeInspectorApplication methodsFor:'event processing'! |
1252 |
1259 |
1253 processButtonMotionEvent:ev |
1260 processButtonMotionEvent:ev |