hg/stx-libtool2: comparison Tools__ViewTreeApplication.st

equal deleted inserted replaced

-:25fa267c550a
+:366f04fbfb23
 "
 COPYRIGHT (c) 2007 by eXept Software AG
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 !ViewTreeInspectorApplication class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 2007 by eXept Software AG
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 Useful to have a look at subcomponents - to see how views
 are structured.
 [Instance variables:]
-model           <ViewTreeModel>      the used ViewTreeModel
+	model           <ViewTreeModel>      the used ViewTreeModel
-clickedItem     <ViewTreeItem>       item under the clickedPoint (motion action)
+	clickedItem     <ViewTreeItem>       item under the clickedPoint (motion action)
-clickedPoint    <Point>              point where the motion action started from.
+	clickedPoint    <Point>              point where the motion action started from.
-motionAction    <Action>             (oneArg-) action called durring buttonMotion.
+	motionAction    <Action>             (oneArg-) action called durring buttonMotion.
 [author:]
-Claus Atzkern
+	Claus Atzkern
 [see also:]
-ViewTreeModel
+	ViewTreeModel
-ViewTreeItem
+	ViewTreeItem
 "
 ! !
 !ViewTreeInspectorApplication class methodsFor:'initialization'!
 "/ cg - disabled. the icon is too ugly.
 ^ self.
 "/    icon := ToolbarIconLibrary inspectLocals20x20Icon magnifiedTo:28@28.
 "/
 "/    menuItem := MenuItem new
 "/                    label: 'View Tree Inspector';
 "/                    value: [ ViewTreeInspectorApplication open];
 "/                    isButton: true;
 "/                    icon: icon;
 "/                    nameKey: #viewInspect.
 super unload.
 ! !
 !ViewTreeInspectorApplication class methodsFor:'help specs'!
-flyByHelpSpec
+helpSpec
 <resource: #help>
-^super flyByHelpSpec addPairsFrom:#(
+^super helpSpec addPairsFrom:#(
 #doRedraw
 'Force the application to redraw its windows'
 #doUncatchEvents
 'Release picked view and uncatch events\(currently locked for widget selection)'
 #doCatchEvents
 'Lock view and catch events for widget selection\(currently unlocked)'
 #doInspectApplication
 'Inspect the selected view''s application'
 #doBrowseApplication
 'Browse the selected view''s application'
 #doPickView
 'Pick a widget with the mouse and inspect its view hierarchy'
 )
 ! !
 !ViewTreeInspectorApplication class methodsFor:'image specs'!
 "
 <resource: #image>
 ^Icon
-constantNamed:'Tools::ViewTreeInspectorApplication lockViewIcon'
+	constantNamed:'Tools::ViewTreeInspectorApplication lockViewIcon'
-ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@A8^G!!7O3ACP5*P@@A8^G @@@@@@@@@@@A8^@@@OE0/!!P0S#0@@^G @@@@@@@@@@@B (@D''D#48"1.CX5H@(J@@@@@@@@@@@@B (B(>SAT"
 ''%!!/P7,@(J@@@@@@@@@@@@@%IB0#M"H%IRTQV5P@IRT@@@@@@@@@@@ANSX:U]PANS$8:T80@S$8@@@@@@@@@@@AN&UYWK(EYQ@\FUPQHXT8@@@@@@@@@@@AN
 HC2!!TVY:Y#-%I*IKMD8@@@@@@@@@@@A$\@83XBEG%).GGX _!!&P@@@@@@@@@@@AO[P5+ &(WPYN@["!!E\$<@@@@@@@@@@@B_F''FQPAXX_!!&TGH4HB9<@@@@@
 @@@@@@B_%3HCJ7=BKPU,Q)01B9<@@@@@@@@@@@@PBP8T_F!!''JPI)_Y"D&!!@@@@@@@@@@@@@$B)I9TGXO''WQIWQ93W0@@@@@@@@@@@@@$"U=JR$)JR$)JR$)_
 Icon flushCachedIcons
 "
 <resource: #image>
 ^Icon
-constantNamed:'Tools::ViewTreeInspectorApplication releaseViewIcon'
+	constantNamed:'Tools::ViewTreeInspectorApplication releaseViewIcon'
-ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @@@@@@@@@@@@@@A8^G!!7O3ACP5*P@@A8^G @@@@@@@@@@@A8^@@@OE0/!!P0S#0@@^G @@@@@@@@@@@B (@@''D#48"1.CX5H@(J@@@@@@@@@@@@B (@@@@@@"
 ''%!!/P7,@(J@@@@@@@@@@@@@%I@@@@BH%IRTQV5P@IRT@@@@@@@@@@@ANSP@@@@ANS$8:T80@S$8@@@@@@@@@@@AN&UYWK(EYQ@\FUPQHXT8@@@@@@@@@@@AN
 HC2!!TVY:Y#-%I*IKMD8@@@@@@@@@@@A$\@83XBEG%).GGX _!!&P@@@@@@@@@@@AO[P5+ &(WPYN@["!!E\$<@@@@@@@@@@@B_F''FQPAXX_!!&TGH4HB9<@@@@@
 @@@@@@B_%3HCJ7=BKPU,Q)01B9<@@@@@@@@@@@@PBP8T_F!!''JPI)_Y"D&!!@@@@@@@@@@@@@$B)I9TGXO''WQIWQ93W0@@@@@@@@@@@@@$"U=JR$)JR$)JR$)_
 Tools::ViewTreeInspectorApplication open
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpec
 window:
 (WindowSpec
-label: 'View Tree Inspector'
+	 label: 'View Tree Inspector'
-name: 'View Tree Inspector'
+	 name: 'View Tree Inspector'
-min: (Point 10 10)
+	 min: (Point 10 10)
-max: (Point 1024 9999)
+	 max: (Point 1024 9999)
-bounds: (Rectangle 0 0 693 643)
+	 bounds: (Rectangle 0 0 693 643)
-menu: menu
+	 menu: menu
 )
 component:
 (SpecCollection
-collection: (
+	 collection: (
-(MenuPanelSpec
+	  (MenuPanelSpec
-name: 'toolbarMenu'
+	     name: 'toolbarMenu'
-layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
+	     layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
-menu: toolbarMenu
+	     menu: toolbarMenu
-textDefault: true
+	     textDefault: true
-)
+	   )
-(VariableVerticalPanelSpec
+	  (VariableVerticalPanelSpec
-name: 'VariableVerticalPanel1'
+	     name: 'VariableVerticalPanel1'
-layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
+	     layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)
-component:
+	     component:
-(SpecCollection
+	    (SpecCollection
-collection: (
+	       collection: (
-(ViewSpec
+		(ViewSpec
-name: 'PathAndListPane'
+		   name: 'PathAndListPane'
-component:
+		   component:
-(SpecCollection
+		  (SpecCollection
-collection: (
+		     collection: (
-(ViewSpec
+		      (ViewSpec
-name: 'PathPane'
+			 name: 'PathPane'
-layout: (LayoutFrame 0 0 0 0 0 1 25 0)
+			 layout: (LayoutFrame 0 0 0 0 0 1 25 0)
-component:
+			 component:
-(SpecCollection
+			(SpecCollection
-collection: (
+			   collection: (
-(InputFieldSpec
+			    (InputFieldSpec
-name: 'Path'
+			       name: 'Path'
-layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+			       layout: (LayoutFrame 0 0 0 0 0 1 0 1)
-model: path
+			       model: path
-acceptOnReturn: true
+			       acceptOnReturn: true
-acceptOnTab: true
+			       acceptOnTab: true
-acceptOnPointerLeave: true
+			       acceptOnPointerLeave: true
-emptyFieldReplacementText: 'No View Selected'
+			       emptyFieldReplacementText: 'No View Selected'
-)
+			     )
-)
+			    )
-)
+			 )
-)
+		       )
-(HierarchicalListViewSpec
+		      (HierarchicalListViewSpec
-name: 'List'
+			 name: 'List'
-layout: (LayoutFrame 0 0 25 0 0 1 0 1)
+			 layout: (LayoutFrame 0 0 25 0 0 1 0 1)
-level: 1
+			 level: 1
-model: model
+			 model: model
-menu: middleButtonMenu
+			 menu: middleButtonMenu
-hasHorizontalScrollBar: true
+			 hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+			 hasVerticalScrollBar: true
-miniScrollerHorizontal: true
+			 miniScrollerHorizontal: true
-miniScrollerVertical: false
+			 miniScrollerVertical: false
-listModel: listOfItems
+			 listModel: listOfItems
-multipleSelectOk: true
+			 multipleSelectOk: true
-useIndex: false
+			 useIndex: false
-highlightMode: label
+			 highlightMode: label
-showLeftIndicators: false
+			 showLeftIndicators: false
-indicatorSelector: indicatorClicked:
+			 indicatorSelector: indicatorClicked:
-useDefaultIcons: false
+			 useDefaultIcons: false
-postBuildCallback: postBuildTree:
+			 postBuildCallback: postBuildTree:
-)
+		       )
-)
+		      )
-)
+		   )
-)
+		 )
-(ViewSpec
+		(ViewSpec
-name: 'Box2'
+		   name: 'Box2'
-component:
+		   component:
-(SpecCollection
+		  (SpecCollection
-collection: (
+		     collection: (
-(TabViewSpec
+		      (TabViewSpec
-name: 'TabHeader1'
+			 name: 'TabHeader1'
-layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)
+			 layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)
-model: inspectorModeIndexHolder
+			 model: inspectorModeIndexHolder
-menu: inspectorModes
+			 menu: inspectorModes
-useIndex: true
+			 useIndex: true
-translateLabel: true
+			 translateLabel: true
-)
+		       )
-(SubCanvasSpec
+		      (SubCanvasSpec
-name: 'Browser'
+			 name: 'Browser'
-layout: (LayoutFrame 0 0 26 0 0 1 0 1)
+			 layout: (LayoutFrame 0 0 26 0 0 1 0 1)
-visibilityChannel: browserVisibleHolder
+			 visibilityChannel: browserVisibleHolder
-hasHorizontalScrollBar: true
+			 hasHorizontalScrollBar: true
-hasVerticalScrollBar: true
+			 hasVerticalScrollBar: true
-majorKey: #'Tools::NewSystemBrowser'
+			 majorKey: #'Tools::NewSystemBrowser'
-minorKey: singleClassWithoutVariableListBrowserSpec
+			 minorKey: singleClassWithoutVariableListBrowserSpec
-createNewApplication: true
+			 createNewApplication: true
-createNewBuilder: true
+			 createNewBuilder: true
-postBuildCallback: postBuildBrowserCanvas:
+			 postBuildCallback: postBuildBrowserCanvas:
-)
+		       )
-(ViewSpec
+		      (ViewSpec
-name: 'Inspector'
+			 name: 'Inspector'
-layout: (LayoutFrame 0 0 26 0 0 1 0 1)
+			 layout: (LayoutFrame 0 0 26 0 0 1 0 1)
-visibilityChannel: inspectorVisibleHolder
+			 visibilityChannel: inspectorVisibleHolder
-postBuildCallback: postBuildInspectorView:
+			 postBuildCallback: postBuildInspectorView:
-viewClassName: 'InspectorView'
+			 viewClassName: 'InspectorView'
-)
+		       )
-)
+		      )
-)
+		   )
-)
+		 )
-)
+		)
-)
+	     )
-handles: (Any 0.5 1.0)
+	     handles: (Any 0.5 1.0)
-)
+	   )
-)
+	  )
 )
 )
 ! !
 !ViewTreeInspectorApplication class methodsFor:'menu specs'!
 menu
 "This resource specification was automatically generated
 by the MenuEditor of ST/X."
 "Do not manually edit this!! If it is corrupted,
 the MenuEditor may not be able to read the specification."
 "
 MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#menu
 (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication menu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'File'
+	    label: 'File'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Pick a View'
+		  label: 'Pick a View'
-itemValue: doPickView
+		  itemValue: doPickView
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: hasTargetWidgetChannel
+		  enabled: hasTargetWidgetChannel
-label: 'Release Picked View'
+		  label: 'Release Picked View'
-itemValue: doUnpick
+		  itemValue: doUnpick
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Settings'
+		  label: 'Settings'
-submenu:
+		  submenu:
-(Menu
+		 (Menu
-(
+		    (
-(MenuItem
+		     (MenuItem
-label: 'Test Mode'
+			label: 'Test Mode'
-hideMenuOnActivated: false
+			hideMenuOnActivated: false
-indication: testModeChannel
+			indication: testModeChannel
-)
+		      )
-(MenuItem
+		     (MenuItem
-enabled: testModeChannel
+			enabled: testModeChannel
-label: 'Follow Focus'
+			label: 'Follow Focus'
-hideMenuOnActivated: false
+			hideMenuOnActivated: false
-indication: followFocusChannel
+			indication: followFocusChannel
-)
+		      )
-(MenuItem
+		     (MenuItem
-label: '-'
+			label: '-'
-)
+		      )
-(MenuItem
+		     (MenuItem
-label: 'Select on Click'
+			label: 'Select on Click'
-hideMenuOnActivated: false
+			hideMenuOnActivated: false
-indication: selectOnClickHolder
+			indication: selectOnClickHolder
-)
+		      )
-(MenuItem
+		     (MenuItem
-label: '-'
+			label: '-'
-)
+		      )
-(MenuItem
+		     (MenuItem
-label: 'Show Name of Widgets'
+			label: 'Show Name of Widgets'
-hideMenuOnActivated: false
+			hideMenuOnActivated: false
-indication: showNamesHolder
+			indication: showNamesHolder
-)
+		      )
-)
+		     )
-nil
+		    nil
-nil
+		    nil
-)
+		  )
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Exit'
+		  label: 'Exit'
-itemValue: closeRequest
+		  itemValue: closeRequest
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasSingleSelectionHolder
+	    enabled: hasSingleSelectionHolder
-label: 'Selection'
+	    label: 'Selection'
-submenuChannel: middleButtonMenu
+	    submenuChannel: middleButtonMenu
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Widget'
+	    label: 'Widget'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-enabled: hasSingleSelectionHolder
+		  enabled: hasSingleSelectionHolder
-label: 'Browse'
+		  label: 'Browse'
-itemValue: doBrowse:
+		  itemValue: doBrowse:
-argument: view
+		  argument: view
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: hasSingleSelectionHolder
+		  enabled: hasSingleSelectionHolder
-label: 'Inspect'
+		  label: 'Inspect'
-itemValue: doInspect:
+		  itemValue: doInspect:
-argument: view
+		  argument: view
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: hasTargetWidgetChannel
+		  enabled: hasTargetWidgetChannel
-label: 'All Components'
+		  label: 'All Components'
-startGroup: right
+		  startGroup: right
-submenuChannel: submenuComponents:
+		  submenuChannel: submenuComponents:
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Application'
+	    label: 'Application'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Redraw'
+		  label: 'Redraw'
-itemValue: doRedraw
+		  itemValue: doRedraw
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: hasSingleSelectionHolder
+		  enabled: hasSingleSelectionHolder
-label: 'Browse'
+		  label: 'Browse'
-itemValue: doBrowse:
+		  itemValue: doBrowse:
-argument: application
+		  argument: application
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: hasSingleSelectionHolder
+		  enabled: hasSingleSelectionHolder
-label: 'Inspect'
+		  label: 'Inspect'
-itemValue: doInspect:
+		  itemValue: doInspect:
-argument: application
+		  argument: application
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: canBrowseWindowSpecMethod
+		  enabled: canBrowseWindowSpecMethod
-label: 'Browse Window Spec Method'
+		  label: 'Browse Window Spec Method'
-itemValue: doBrowseWindowSpecMethod
+		  itemValue: doBrowseWindowSpecMethod
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: canEditWindowSpec
+		  enabled: canEditWindowSpec
-label: 'Edit Window Spec'
+		  label: 'Edit Window Spec'
-itemValue: doEditWindowSpec
+		  itemValue: doEditWindowSpec
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: hasTargetWidgetChannel
+		  enabled: hasTargetWidgetChannel
-label: 'All Applications'
+		  label: 'All Applications'
-submenuChannel: submenuApplications:
+		  submenuChannel: submenuApplications:
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Process'
+	    label: 'Process'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-enabled: hasSingleSelectionHolder
+		  enabled: hasSingleSelectionHolder
-label: 'Debug'
+		  label: 'Debug'
-itemValue: doDebugProcess
+		  itemValue: doDebugProcess
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: hasSingleSelectionHolder
+		  enabled: hasSingleSelectionHolder
-label: 'Inspect'
+		  label: 'Inspect'
-itemValue: doInspect:
+		  itemValue: doInspect:
-argument: process
+		  argument: process
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Open Process Monitor'
+		  label: 'Open Process Monitor'
-itemValue: doOpenProcessMonitor
+		  itemValue: doOpenProcessMonitor
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Help'
+	    label: 'Help'
-startGroup: conditionalRight
+	    startGroup: conditionalRight
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Documentation'
+		  label: 'Documentation'
-itemValue: openDocumentation
+		  itemValue: openDocumentation
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'About this Application...'
+		  label: 'About this Application...'
-itemValue: openAboutThisApplication
+		  itemValue: openAboutThisApplication
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 middleButtonMenu
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Browse View Class'
+	    label: 'Browse View Class'
-itemValue: doBrowse:
+	    itemValue: doBrowse:
-argument: view
+	    argument: view
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Browse Model Class'
+	    label: 'Browse Model Class'
-itemValue: doBrowse:
+	    itemValue: doBrowse:
-isVisible: hasModel
+	    isVisible: hasModel
-argument: model
+	    argument: model
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Browse Application Class'
+	    label: 'Browse Application Class'
-itemValue: doBrowse:
+	    itemValue: doBrowse:
-isVisible: hasApplication
+	    isVisible: hasApplication
-argument: application
+	    argument: application
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Browse Controller Class'
+	    label: 'Browse Controller Class'
-itemValue: doBrowse:
+	    itemValue: doBrowse:
-isVisible: hasController
+	    isVisible: hasController
-argument: controller
+	    argument: controller
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Inspect View'
+	    label: 'Inspect View'
-itemValue: doInspect:
+	    itemValue: doInspect:
-argument: view
+	    argument: view
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Inspect Window Group'
+	    label: 'Inspect Window Group'
-itemValue: doInspect:
+	    itemValue: doInspect:
-argument: group
+	    argument: group
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Inspect Model'
+	    label: 'Inspect Model'
-itemValue: doInspect:
+	    itemValue: doInspect:
-isVisible: hasModel
+	    isVisible: hasModel
-argument: model
+	    argument: model
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Inspect Application'
+	    label: 'Inspect Application'
-itemValue: doInspect:
+	    itemValue: doInspect:
-isVisible: hasApplication
+	    isVisible: hasApplication
-argument: application
+	    argument: application
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Inspect Controller'
+	    label: 'Inspect Controller'
-itemValue: doInspect:
+	    itemValue: doInspect:
-isVisible: hasController
+	    isVisible: hasController
-argument: controller
+	    argument: controller
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Flash'
+	    label: 'Flash'
-itemValue: doFlash
+	    itemValue: doFlash
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Destroy'
+	    label: 'Destroy'
-itemValue: doDestroy
+	    itemValue: doDestroy
-labelImage: (ResourceRetriever ToolbarIconLibrary erase16x16Icon 'Destroy')
+	    labelImage: (ResourceRetriever ToolbarIconLibrary erase16x16Icon 'Destroy')
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Geometry'
+	    label: 'Geometry'
-submenuChannel: submenuGeometry:
+	    submenuChannel: submenuGeometry:
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Interface'
+	    label: 'Interface'
-submenuChannel: submenuInterface:
+	    submenuChannel: submenuInterface:
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Visibility'
+	    label: 'Visibility'
-submenuChannel: submenuVisibility:
+	    submenuChannel: submenuVisibility:
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Instance Variables'
+	    label: 'Instance Variables'
-submenuChannel: submenuInspector:
+	    submenuChannel: submenuInspector:
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '='
+	    label: '='
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: ''
+	    label: ''
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: selectedComponentHasChildren
+	    enabled: selectedComponentHasChildren
-label: 'Applications'
+	    label: 'Applications'
-nameKey: single
+	    nameKey: single
-submenuChannel: submenuApplications:
+	    submenuChannel: submenuApplications:
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: selectedComponentHasChildren
+	    enabled: selectedComponentHasChildren
-label: 'Components'
+	    label: 'Components'
-nameKey: single
+	    nameKey: single
-submenuChannel: submenuComponents:
+	    submenuChannel: submenuComponents:
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 middleButtonMenuForMenuItems
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Browse Menu Item''s Class'
+	    label: 'Browse Menu Item''s Class'
-itemValue: doBrowse:
+	    itemValue: doBrowse:
-argument: menuItem
+	    argument: menuItem
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Inspect Menu Item'
+	    label: 'Inspect Menu Item'
-itemValue: doInspect:
+	    itemValue: doInspect:
-argument: menuItem
+	    argument: menuItem
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Interface'
+	    label: 'Interface'
-submenuChannel: submenuMenuItemInterface:
+	    submenuChannel: submenuMenuItemInterface:
-keepLinkedMenu: true
+	    keepLinkedMenu: true
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 "Created: / 16-08-2017 / 13:48:49 / cg"
 !
 (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication toolbarMenu)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: hasTargetWidgetChannel
+	    enabled: hasTargetWidgetChannel
-label: 'Redraw'
+	    label: 'Redraw'
-itemValue: doRedraw
+	    itemValue: doRedraw
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Pick a View and Catch Events'
+	    label: 'Pick a View and Catch Events'
-itemValue: doPickView
+	    itemValue: doPickView
-translateLabel: false
+	    translateLabel: false
-isButton: true
+	    isButton: true
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-labelImage: (ResourceRetriever ToolbarIconLibrary pickWindowIcon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary pickWindowIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasTargetWidgetChannel
+	    enabled: hasTargetWidgetChannel
-isVisible: isNotCatchingEventsChannel
+	    isVisible: isNotCatchingEventsChannel
-label: 'Catch Events of Picked View'
+	    label: 'Catch Events of Picked View'
-activeHelpKey: doCatchEvents
+	    activeHelpKey: doCatchEvents
-itemValue: doCatchEvents
+	    itemValue: doCatchEvents
-nameKey: doCatchEvents
+	    nameKey: doCatchEvents
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever nil releaseViewIcon)
+	    labelImage: (ResourceRetriever nil releaseViewIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasTargetWidgetChannel
+	    enabled: hasTargetWidgetChannel
-isVisible: isCatchingEventsChannel
+	    isVisible: isCatchingEventsChannel
-label: 'Release Picked View and Uncatch Events'
+	    label: 'Release Picked View and Uncatch Events'
-activeHelpKey: doUncatchEvents
+	    activeHelpKey: doUncatchEvents
-itemValue: doUncatchEvents
+	    itemValue: doUncatchEvents
-nameKey: doUncatchEvents
+	    nameKey: doUncatchEvents
-isButton: true
+	    isButton: true
-labelImage: (ResourceRetriever nil lockViewIcon)
+	    labelImage: (ResourceRetriever nil lockViewIcon)
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: doBrowseApplication
+	    activeHelpKey: doBrowseApplication
-enabled: hasSingleSelectionHolder
+	    enabled: hasSingleSelectionHolder
-label: 'Browse Application'
+	    label: 'Browse Application'
-itemValue: doBrowse:
+	    itemValue: doBrowse:
-translateLabel: false
+	    translateLabel: false
-isButton: true
+	    isButton: true
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2)
-argument: application
+	    argument: application
-)
+	  )
-(MenuItem
+	 (MenuItem
-activeHelpKey: doInspectApplication
+	    activeHelpKey: doInspectApplication
-enabled: hasSingleSelectionHolder
+	    enabled: hasSingleSelectionHolder
-label: 'Inspect Application'
+	    label: 'Inspect Application'
-itemValue: doInspect:
+	    itemValue: doInspect:
-translateLabel: false
+	    translateLabel: false
-isButton: true
+	    isButton: true
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon)
+	    labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon)
-argument: application
+	    argument: application
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 ! !
 !ViewTreeInspectorApplication class methodsFor:'startup'!
 |item sensor|
 item := model listOfItems at:anIndex ifAbsent:nil.
 item notNil ifTrue:[
-(     (sensor := self window sensor) notNil
+	(     (sensor := self window sensor) notNil
-and:[(sensor ctrlDown or:[sensor shiftDown])]
+	 and:[(sensor ctrlDown or:[sensor shiftDown])]
-) ifTrue:[
+	) ifTrue:[
-item recursiveToggleExpand
+	    item recursiveToggleExpand
-] ifFalse:[
+	] ifFalse:[
-item toggleExpand
+	    item toggleExpand
-]
+	]
 ].
 ! !
 !ViewTreeInspectorApplication methodsFor:'aspects'!
 "what is shown in the inspector:
 1->Widget
 2->Application
 3->WindowGroup
 4->Sensor
 5->Model
 6->Widget Class
 7->Application Class
 "
 ^ BlockValue
-with:[:v | self inspectorMode == #widgetClass or:[self inspectorMode == #applicationClass] ]
+	with:[:v | self inspectorMode == #widgetClass or:[self inspectorMode == #applicationClass] ]
-argument:self inspectorModeIndexHolder
+	argument:self inspectorModeIndexHolder
 !
 canBrowseWindowSpecMethod
 ^ self hasSingleSelectionHolder value and:[ self windowSpecMethodOfSelection notNil ]
 !
 "what is shown in the inspector:
 1->widget
 2->application
 3->WindowGroup
 4->Sensor
 5->Model
 6->Widget Class
 7->Application Class
 "
 |mode|
 mode := inspectorModeIndexHolder value.
 ^ #( widget application group sensor model widgetClass applicationClass) at:mode ifAbsent:#widget
 "what is shown in the inspector:
 1->Widget
 2->Application
 3->WindowGroup
 4->Sensor
 5->Model
 6->Widget Class
 7->Application Class
 "
 ^ inspectorModeIndexHolder
 "Created: / 30-07-2013 / 07:44:07 / cg"
 "what is shown in the inspector:
 1->Widget
 2->Application
 3->WindowGroup
 4->Sensor
 5->Model
 6->Widget Class
 7->Application Class
 "
 ^ BlockValue
-with:[:v | v not ]
+	with:[:v | v not ]
-argument:self browserVisibleHolder
+	argument:self browserVisibleHolder
 !
 isCatchingEventsChannel
 ^ isCatchingEventsChannel
 !
 path
 <resource: #uiAspect>
 path isNil ifTrue:[
-path := PluggableAdaptor
+	path := PluggableAdaptor
-on: self model
+		    on: self model
-getter:[ :model | model path ]
+		    getter:[ :model | model path ]
-setter:[ :model :newValue |  ]
+		    setter:[ :model :newValue |  ]
 ].
 ^ path.
 "Modified: / 19-05-2014 / 18:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 windowSpecMethodOfSelection
 |item view app nonMeta meta masterApp
 spec builder specSelector implementors|
 item := model selectedItem.
 item isNil ifTrue:[^ nil].
 view := item widget.
 view isNil ifTrue:[^ nil].
 app := view application.
 app isNil ifTrue:[^ nil].
 builder := app builder.
 builder isNil ifTrue:[^ nil].
 spec := builder spec.
 spec isNil ifTrue:[^ nil].
 specSelector := spec name.
 specSelector isNil ifTrue:[^ nil].
 ((nonMeta := app class theNonMetaclass) canUnderstand:specSelector) ifTrue:[
-^ nonMeta lookupMethodFor:specSelector.
+	^ nonMeta lookupMethodFor:specSelector.
 ].
 ((meta := app class theMetaclass) canUnderstand:specSelector) ifTrue:[
-^ meta lookupMethodFor:specSelector.
+	^ meta lookupMethodFor:specSelector.
 ].
 "/ maybe a simple dialog given a spec
 (masterApp := app masterApplication) notNil ifTrue:[
-((nonMeta := masterApp class theNonMetaclass) canUnderstand:specSelector) ifTrue:[
+	((nonMeta := masterApp class theNonMetaclass) canUnderstand:specSelector) ifTrue:[
-^ nonMeta lookupMethodFor:specSelector.
+	    ^ nonMeta lookupMethodFor:specSelector.
-].
+	].
-((meta := masterApp class theMetaclass) canUnderstand:specSelector) ifTrue:[
+	((meta := masterApp class theMetaclass) canUnderstand:specSelector) ifTrue:[
-^ meta lookupMethodFor:specSelector.
+	    ^ meta lookupMethodFor:specSelector.
-].
+	].
 ].
 implementors := Smalltalk allImplementorsOf: specSelector.
 implementors size == 1 ifTrue:[
-^ implementors first compiledMethodAt:specSelector.
+	^ implementors first compiledMethodAt:specSelector.
 ].
 ^ nil
 ! !
 selectionChanged
 |info view item|
 item := model selectedItem.
 item notNil ifTrue:[
-|state|
+	|state|
-view := item widget.
+	view := item widget.
-view isNil ifTrue:[
+	view isNil ifTrue:[
-info := '%1 [%2]' bindWith:(item menuItem label asString)
+	    info := '%1 [%2]' bindWith:(item menuItem label asString)
-with:(item menuItem value asString).
+				  with:(item menuItem value asString).
-] ifFalse:[
+	] ifFalse:[
-view id isNil ifTrue:[
+	    view id isNil ifTrue:[
-state := 'no ID'.
+		state := 'no ID'.
-] ifFalse:[
+	    ] ifFalse:[
-view shown ifTrue:[
+		view shown ifTrue:[
-state := 'visible'.
+		    state := 'visible'.
-] ifFalse:[
+		] ifFalse:[
-state := 'invisible'
+		    state := 'invisible'
-].
+		].
-].
+	    ].
-info := '%1 [%2] - %3' bindWith:(view class name)
+	    info := '%1 [%2] - %3' bindWith:(view class name)
-with:(view name ? '') with:state allBold.
+				       with:(view name ? '') with:state allBold.
-]
+	]
 ] ifFalse:[
-info := ''
+	info := ''
 ].
 hasSingleSelectionHolder value:(view notNil).
 self updateInspector
 "Modified: / 16-08-2017 / 13:44:59 / cg"
 update:something with:someArgument from:aModel
 |oldSelection|
 aModel == showNamesHolder ifTrue:[
-oldSelection := model selectedItem.
+	oldSelection := model selectedItem.
-model selectedItem:nil.
+	model selectedItem:nil.
-self listOfItems showWidgetNames:(aModel value).
+	self listOfItems showWidgetNames:(aModel value).
-model selectedItem:oldSelection.
+	model selectedItem:oldSelection.
-^ self
+	^ self
 ].
 aModel == model ifTrue:[
-self selectionChanged.
+	self selectionChanged.
-^ self
+	^ self
 ].
 super update:something with:someArgument from:aModel.
 !
 updateBrowser
 |cls widget|
 widget := self selectedView.
 "/ update the browser
 self inspectorMode == #widgetClass ifTrue:[
-cls := widget class.
+	cls := widget class.
 ] ifFalse:[
-cls := widget application class
+	cls := widget application class
 ].
 browser switchToClass:cls selector:nil.
 !
 updateInspector
 |view mode obj|
 view := self selectedView.
 mode := self inspectorMode.
 ((mode == #widgetClass) or:[(mode == #applicationClass)]) ifTrue:[
-"/ update the browser
+	"/ update the browser
-view notNil ifTrue:[
+	view notNil ifTrue:[
-self updateBrowser.
+	    self updateBrowser.
-].
+	].
-^ self.
+	^ self.
 ].
 (view isNil or:[mode == #widget]) ifTrue:[
-obj := view.
+	obj := view.
 ] ifFalse:[ (mode == #group) ifTrue:[
-obj := view windowGroup
+	obj := view windowGroup
 ] ifFalse:[ (mode == #sensor) ifTrue:[
-obj := view sensor
+	obj := view sensor
 ] ifFalse:[ (mode == #model) ifTrue:[
-obj := view model
+	obj := view model
 ] ifFalse:[
-obj := view application.
+	obj := view application.
 ]]]].
 inspectorView inspect:obj.
 inspectorView headLineLabel:(obj class nameWithoutPrefix)
 "Created: / 30-07-2013 / 09:21:16 / cg"
 |click rootView|
 motionAction isNil ifTrue:[^ self].
 (rootView := model rootView) isNil ifTrue:[
-clickedItem := motionAction := nil.
+	clickedItem := motionAction := nil.
-^ self
+	^ self
 ].
 click := rootView device
-translatePoint:((ev x)@ (ev y))
+	    translatePoint:((ev x)@ (ev y))
-fromView:(ev view)
+	    fromView:(ev view)
-toView:rootView.
+	    toView:rootView.
 click = clickedPoint ifFalse:[
-(clickedItem isNil or:[(click dist:clickedPoint) > 5.0]) ifTrue:[
+	(clickedItem isNil or:[(click dist:clickedPoint) > 5.0]) ifTrue:[
-motionAction value:click
+	    motionAction value:click
-]
+	]
 ].
 !
 processButtonPressEvent:ev
 |rootView sensor lastRectangle|
 rootView    := model rootView.
 sensor      := model rootView sensor.
 clickedItem := model listOfItems detectItemRespondsToView:(ev view).
 (sensor ctrlDown or:[sensor shiftDown]) ifTrue:[
-clickedItem notNil ifTrue:[
+	clickedItem notNil ifTrue:[
-self selectOnClickHolder value ifTrue:[
+	    self selectOnClickHolder value ifTrue:[
-model toggleSelectItem:clickedItem
+		model toggleSelectItem:clickedItem
-].
+	    ].
-].
+	].
-clickedItem := motionAction := nil.
+	clickedItem := motionAction := nil.
-^ self
+	^ self
 ].
 clickedPoint := rootView device translatePoint:((ev x)@ (ev y))  fromView:(ev view) toView:rootView.
 lastRectangle := nil.
 motionAction :=[:p|
-rootView    := model rootView device rootView.
+	rootView    := model rootView device rootView.
-rootView    := model rootView.
+	rootView    := model rootView.
-clickedItem := nil.
+	clickedItem := nil.
-rootView xoring:[
+	rootView xoring:[
-lastRectangle notNil ifTrue:[ rootView displayRectangle:lastRectangle ]
+	    lastRectangle notNil ifTrue:[ rootView displayRectangle:lastRectangle ]
-ifFalse:[ rootView clippedByChildren:false ].
+				ifFalse:[ rootView clippedByChildren:false ].
-p isNil ifTrue:[
+	    p isNil ifTrue:[
-rootView clippedByChildren:true.
+		rootView clippedByChildren:true.
-motionAction := nil.
+		motionAction := nil.
-] ifFalse:[
+	    ] ifFalse:[
-lastRectangle := Rectangle origin:(clickedPoint min:p) corner:(clickedPoint max:p).
+		lastRectangle := Rectangle origin:(clickedPoint min:p) corner:(clickedPoint max:p).
-rootView displayRectangle:lastRectangle.
+		rootView displayRectangle:lastRectangle.
-].
+	    ].
-rootView flush.
+	    rootView flush.
-].
+	].
-lastRectangle
+	lastRectangle
 ].
 !
 processButtonReleaseEvent:anEvent
 |rootView rectangle newItems widget origin|
 (rootView := model rootView) isNil ifTrue:[
-clickedItem := motionAction := nil.
+	clickedItem := motionAction := nil.
-^ self
+	^ self
 ].
 motionAction isNil ifTrue:[ ^ self ].
 clickedItem notNil ifTrue:[ ^ model selectItem:clickedItem ].
 rectangle := motionAction value:nil.
 rectangle isNil ifTrue:[^ self].
 newItems := OrderedCollection new.
 model rootItem recursiveDo:[:anItem|
-widget := anItem widget.
+	widget := anItem widget.
-widget notNil ifTrue:[
+	widget notNil ifTrue:[
-origin := widget originRelativeTo:rootView.
+	    origin := widget originRelativeTo:rootView.
-(rectangle containsRect:(Rectangle origin:origin extent:(widget extent))) ifTrue:[
+	    (rectangle containsRect:(Rectangle origin:origin extent:(widget extent))) ifTrue:[
-newItems add:anItem.
+		newItems add:anItem.
-]
+	    ]
-].
+	].
 ].
 model value:newItems.
 "Modified: / 11-11-2017 / 17:24:59 / cg"
 !
 anEvent isButtonEvent  ifFalse:[ ^ self ].
 button := anEvent button.
 (button == 2 or:[button == #menu]) ifTrue:[
-motionAction isNil ifTrue:[
+	motionAction isNil ifTrue:[
-anEvent isButtonPressEvent ifTrue:[
+	    anEvent isButtonPressEvent ifTrue:[
-self selectOnClickHolder value ifTrue:[
+		self selectOnClickHolder value ifTrue:[
-menu := self middleButtonMenu value.
+		    menu := self middleButtonMenu value.
-menu notNil ifTrue:[
+		    menu notNil ifTrue:[
-menu := MenuPanel
+			menu := MenuPanel
-menu:(Menu new fromLiteralArrayEncoding:menu)
+				    menu:(Menu new fromLiteralArrayEncoding:menu)
-receiver:self.
+				    receiver:self.
-menu startUp.
+			menu startUp.
-]
+		    ]
-].
+		].
-].
+	    ].
-clickedItem := nil.
+	    clickedItem := nil.
-].
+	].
-^ self
+	^ self
 ].
 anEvent isButtonPressEvent  ifTrue:[ self processButtonPressEvent:anEvent. ^ self ].
 anEvent isButtonMotionEvent ifTrue:[ self processButtonMotionEvent:anEvent. ^ self ].
 anEvent isButtonReleaseEvent ifTrue:[
-self selectOnClickHolder value ifTrue:[
+	self selectOnClickHolder value ifTrue:[
-self processButtonReleaseEvent:anEvent
+	    self processButtonReleaseEvent:anEvent
-].
+	].
 ].
 clickedItem := motionAction := nil.
 anEvent type == #'buttonMultiPress:x:y:' ifTrue:[
-self selectOnClickHolder value ifTrue:[
+	self selectOnClickHolder value ifTrue:[
-self doInspect:#view.
+	    self doInspect:#view.
-].
+	].
 ].
 !
 processKeyPressEvent:anEvent
 |item prnt idx key max next|
 (   key == #CursorUp
 or:[key == #CursorDown
 or:[key == #CursorLeft
 or:[key == #CursorRight]]]
 ) ifFalse:[
-^ self
+	^ self
 ].
 item := model selectedItem.
 item isNil ifTrue:[
-^ model selectedItem:(model first ? model rootItem)
+	^ model selectedItem:(model first ? model rootItem)
 ].
 prnt := item parent.
 prnt isNil ifTrue:[
-"/ is the root item
+	"/ is the root item
-(key == #CursorUp or:[key == #CursorLeft]) ifTrue:[item := model listOfItems last]
+	(key == #CursorUp or:[key == #CursorLeft]) ifTrue:[item := model listOfItems last]
-ifFalse:[item := item at:1 ifAbsent:item].
+						  ifFalse:[item := item at:1 ifAbsent:item].
-^ model selectedItem:item
+	^ model selectedItem:item
 ].
 key == #CursorLeft ifTrue:[ ^ model selectedItem:prnt ].
 key == #CursorRight ifTrue:[
-next := item at:1 ifAbsent:nil.
+	next := item at:1 ifAbsent:nil.
-next notNil ifTrue:[ model selectedItem:next ].
+	next notNil ifTrue:[ model selectedItem:next ].
-^ self
+	^ self
 ].
 max := prnt size.
 key == #CursorUp ifTrue:[
-idx := prnt identityIndexOf:item.
+	idx := prnt identityIndexOf:item.
-idx == 1 ifTrue:[idx := max + 1].
+	idx == 1 ifTrue:[idx := max + 1].
-model selectedItem:(prnt at:idx - 1).
+	model selectedItem:(prnt at:idx - 1).
-^ self.
+	^ self.
 ].
 key == #CursorDown ifTrue:[
-idx := prnt identityIndexOf:item.
+	idx := prnt identityIndexOf:item.
-idx == max ifTrue:[idx := 0].
+	idx == max ifTrue:[idx := 0].
-model selectedItem:(prnt at:idx + 1).
+	model selectedItem:(prnt at:idx + 1).
-^ self.
+	^ self.
 ].
 !
 processMappedView:aView
 |parent anchor|
 parent := self listOfItems detectItemRespondsToView:aView.
 parent isNil ifTrue:[ ^ self ].
 NotFoundSignal handle:[:ex|
-"contained subvies used by spec are not yet created;
+	"contained subvies used by spec are not yet created;
-thus we have to wait until last used subview is build
+	 thus we have to wait until last used subview is build
-"
+	"
-anchor := nil.
+	anchor := nil.
 ] do:[
-anchor := parent class buildViewsFrom:(parent widget).
+	anchor := parent class buildViewsFrom:(parent widget).
 ].
 anchor notNil ifTrue:[
-parent updateFromChildren:anchor children.
+	parent updateFromChildren:anchor children.
 ].
 ! !
 !ViewTreeInspectorApplication methodsFor:'initialization & release'!
 |view controller|
 view := self selectedView.
 view notNil ifTrue:[
-controller := view controller.
+	controller := view controller.
 ^ (controller notNil and:[controller ~~ view])
 ].
 ^ false
 !
 !ViewTreeInspectorApplication methodsFor:'menu specs'!
 middleButtonMenu
 "returns the middleButton menu for the single selected item or nil"
 ^ [
-model selectedItem notNil ifTrue:[
+	model selectedItem notNil ifTrue:[
-model selectedItem isView ifTrue:[
+	    model selectedItem isView ifTrue:[
-self class middleButtonMenu
+		self class middleButtonMenu
-] ifFalse:[
+	    ] ifFalse:[
-self class middleButtonMenuForMenuItems
+		self class middleButtonMenuForMenuItems
-].
+	    ].
-] ifFalse:[
+	] ifFalse:[
-nil
+	    nil
-]
+	]
 ]
 "Modified: / 16-08-2017 / 13:48:31 / cg"
 !
 submenuApplications:aMenu
 |applications menu item list addBlock|
 item := aMenu selection nameKey == #single ifTrue:[model selectedItem]
-ifFalse:[model rootItem].
+					      ifFalse:[model rootItem].
 item isNil ifTrue:[^ nil].
 applications := IdentityDictionary new.
 addBlock := [:el| |cls ctr|
-cls := self resolveApplicationClassFor:el.
+	cls := self resolveApplicationClassFor:el.
-cls notNil ifTrue:[
+	cls notNil ifTrue:[
-ctr := applications at:cls ifAbsent:0.
+	    ctr := applications at:cls ifAbsent:0.
-applications at:cls put:(ctr + 1).
+	    applications at:cls put:(ctr + 1).
-].
+	].
 ].
 item recursiveDo:addBlock.
 addBlock value:item.
 applications isEmpty ifTrue:[^ nil ].
 list := SortedCollection sortBlock:[:a :b| a title < b title ].
 applications keysAndValuesDo:[:cls :ctr|
 list add:(MenuDesc title:(cls name)
-value:(ctr printString)
+			  value:(ctr printString)
-action:[self doSelectNextOfApplicationClass:cls startingIn:item]
+			 action:[self doSelectNextOfApplicationClass:cls startingIn:item]
-).
+		 ).
 ].
 menu := MenuDesc buildFromList:list onGC:aMenu.
 menu do:[:el|
-el hideMenuOnActivated:false
+	el hideMenuOnActivated:false
 ].
 ^ menu
 !
 submenuComponents:aMenu
 |widgets list total menu item|
 item := aMenu selection nameKey == #single ifTrue:[model selectedItem]
-ifFalse:[model rootItem].
+					      ifFalse:[model rootItem].
 item isNil ifTrue:[^ nil].
 widgets := IdentityDictionary new.
 total   := 0.
 item recursiveDo:[:el| |cls ctr|
-cls := el widget.
+	cls := el widget.
-cls notNil ifTrue:[
+	cls notNil ifTrue:[
-cls := cls class.
+	    cls := cls class.
-ctr := widgets at:cls ifAbsent:0.
+	    ctr := widgets at:cls ifAbsent:0.
-widgets at:cls put:(ctr + 1).
+	    widgets at:cls put:(ctr + 1).
-total := total + 1.
+	    total := total + 1.
-].
+	].
 ].
 total == 0 ifTrue:[^ nil].
 list := SortedCollection sortBlock:[:a :b| a title < b title ].
 widgets keysAndValuesDo:[:cls :ctr|
-list add:(MenuDesc title:(cls name)
+	list add:(MenuDesc title:(cls name)
-value:(ctr printString)
+			   value:(ctr printString)
-action:[self doSelectNextOfClass:cls startingIn:item]
+			  action:[self doSelectNextOfClass:cls startingIn:item]
-).
+		 ).
 ].
 list := list asOrderedCollection.
 list add:(MenuDesc separator).
 list add:(MenuDesc title:'Total' value:(total printString)).
 menu := MenuDesc buildFromList:list onGC:aMenu.
 menu do:[:el|
-el hideMenuOnActivated:false
+	el hideMenuOnActivated:false
 ].
 ^ menu
 !
 submenuGeometry:aMenu
 x := view left.
 y := view top.
 (x == point x and:[y == point y]) ifTrue:[ inst := point ]
-ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
+				     ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
 list add:(MenuDesc title:'origin' value:inst).
 "/ corner
 point := view relativeCorner.
 x := view right.
 y := view bottom.
 (x == point x and:[y == point y]) ifTrue:[ inst := point ]
-ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
+				     ifFalse:[ inst := '%1 --> (%2@%3)' bindWith:point with:x with:y ].
 list add:(MenuDesc title:'corner' value:inst).
 "/ extent
 (point := view relativeExtent) isNil ifTrue:[point := view extent].
 list add:(MenuDesc title:'pref. extent' value:(view preferredExtent)).
 list add:(MenuDesc separator).
 "/ view insets
 inst := 'l:%1  r:%2  t:%3  b:%4' bindWith:(view leftInset)
-with:(view rightInset)
+					 with:(view rightInset)
-with:(view topInset)
+					 with:(view topInset)
-with:(view bottomInset).
+					 with:(view bottomInset).
 list add:(MenuDesc title:'insets'      value:inst).
 list add:(MenuDesc title:'borderWidth' value:(view borderWidth)).
 list add:(MenuDesc title:'level'       value:(view level)).
 list add:(MenuDesc separator).
 (inst := view transformation) notNil ifTrue:[ inst := inst displayString ].
 list add:(MenuDesc title:'transformation' value:inst).
 (view isKindOf:Label) ifTrue:[
-list add:(MenuDesc separator).
+	list add:(MenuDesc separator).
-(inst := view adjust) notNil ifTrue:[ inst := inst displayString ].
+	(inst := view adjust) notNil ifTrue:[ inst := inst displayString ].
-list add:(MenuDesc title:'adjust' value:inst).
+	list add:(MenuDesc title:'adjust' value:inst).
 ].
 (view isKindOf:PanelView) ifTrue:[
-list add:(MenuDesc separator).
+	list add:(MenuDesc separator).
-(inst := view horizontalLayout ) notNil ifTrue:[ inst := inst displayString ].
+	(inst := view horizontalLayout ) notNil ifTrue:[ inst := inst displayString ].
-list add:(MenuDesc title:'horizontalLayout' value:inst).
+	list add:(MenuDesc title:'horizontalLayout' value:inst).
-(inst := view verticalLayout ) notNil ifTrue:[ inst := inst displayString ].
+	(inst := view verticalLayout ) notNil ifTrue:[ inst := inst displayString ].
-list add:(MenuDesc title:'verticalLayout' value:inst).
+	list add:(MenuDesc title:'verticalLayout' value:inst).
 ].
 ^ MenuDesc buildFromList:list onGC:aMenu
 !
 names := view class allInstVarNames.
 indices := (1 to:names size) asArray.
 names sortWith:indices.
 1 to:n do:[:i| |action|
-label := (names at:i) printString.
+	label := (names at:i) printString.
-value := view instVarAt:(indices at:i).
+	value := view instVarAt:(indices at:i).
-value isNil ifTrue:[
+	value isNil ifTrue:[
-value  := '------'.
+	    value  := '------'.
-action := nil.
+	    action := nil.
-] ifFalse:[
+	] ifFalse:[
-value  := value displayString contractAtEndTo:40.
+	    value  := value displayString contractAtEndTo:40.
-action := [(view instVarAt:i) inspect].
+	    action := [(view instVarAt:i) inspect].
-].
+	].
-list add:(MenuDesc title:label value:value action:action).
+	list add:(MenuDesc title:label value:value action:action).
 ].
 ^ MenuDesc buildFromList:list onGC:aMenu
 "Modified: / 31-07-2013 / 13:12:52 / cg"
 inst  := view controller.
 value := nil.
 inst isNil ifTrue:[
-label := nil
+	label := nil
 ] ifFalse:[
-inst == view ifTrue:[
+	inst == view ifTrue:[
-label := '== view itself'
+	    label := '== view itself'
-] ifFalse:[
+	] ifFalse:[
-label := inst displayString.
+	    label := inst displayString.
-value := [view controller inspect].
+	    value := [view controller inspect].
-].
+	].
 ].
 list add:(MenuDesc title:'controller' value:label action:value).
 inst := view delegate.
 inst notNil ifTrue:[
-list add:(MenuDesc title:'delegate' value:(inst displayString) action:[ view delegate inspect ]).
+	list add:(MenuDesc title:'delegate' value:(inst displayString) action:[ view delegate inspect ]).
 ].
 inst := view application.
 inst notNil ifTrue:[
-|topAppl|
+	|topAppl|
-list add:(MenuDesc title:'application' value:inst action:[ view application inspect ]).
+	list add:(MenuDesc title:'application' value:inst action:[ view application inspect ]).
-topAppl := inst topApplication.
+	topAppl := inst topApplication.
-(topAppl notNil and:[topAppl ~~ inst]) ifTrue:[
+	(topAppl notNil and:[topAppl ~~ inst]) ifTrue:[
-list add:(MenuDesc title:'topApplication' value:topAppl action:[ inst topApplication inspect ]).
+	    list add:(MenuDesc title:'topApplication' value:topAppl action:[ inst topApplication inspect ]).
-].
+	].
 ].
 list add:(MenuDesc separator).
 (view respondsTo:#'model') ifTrue:[
-inst := view model.
+	inst := view model.
-inst isNil
+	inst isNil
-ifTrue:[ label := value := nil ]
+	    ifTrue:[ label := value := nil ]
-ifFalse:[ label := inst displayString.
+	    ifFalse:[ label := inst displayString.
-label := label,(self aspectLabelFor:inst inApplicationOf:view).
+		      label := label,(self aspectLabelFor:inst inApplicationOf:view).
-value := [ view model inspect ].
+		      value := [ view model inspect ].
-].
+		    ].
-list add:(MenuDesc title:'model' value:label action:value).
+	list add:(MenuDesc title:'model' value:label action:value).
-(inst notNil and:[view respondsTo:#modelInterface]) ifTrue:[
+	(inst notNil and:[view respondsTo:#modelInterface]) ifTrue:[
-view modelInterface keysAndValuesDo:[:key : val|
+	    view modelInterface keysAndValuesDo:[:key : val|
-val isNil ifTrue:[ label := nil ]
+		val isNil ifTrue:[ label := nil ]
-ifFalse:[ label := val displayString ].
+			 ifFalse:[ label := val displayString ].
-list add:(MenuDesc title:('      - ', key) value:label ).
+		list add:(MenuDesc title:('      - ', key) value:label ).
-]
+	    ]
-].
+	].
 ].
 (view respondsTo:#enableChannel) ifTrue:[
-inst := view enableChannel.
+	inst := view enableChannel.
-inst isNil ifTrue:[ label := value := nil ]
+	inst isNil ifTrue:[ label := value := nil ]
-ifFalse:[ label := inst displayString.
+		  ifFalse:[ label := inst displayString.
-label := label,(self aspectLabelFor:inst inApplicationOf:view).
+			    label := label,(self aspectLabelFor:inst inApplicationOf:view).
-value := [ view enableChannel inspect ].
+			    value := [ view enableChannel inspect ].
-].
+			  ].
-list add:(MenuDesc title:'enableChannel' value:label action:value).
+	list add:(MenuDesc title:'enableChannel' value:label action:value).
 ].
 #( #action #pressAction #releaseAction ) do:[:actionSelector |
-(view respondsTo:actionSelector) ifTrue:[
+	(view respondsTo:actionSelector) ifTrue:[
-inst := view perform:actionSelector.
+	    inst := view perform:actionSelector.
-inst isNil
+	    inst isNil
-ifTrue:[ label := value := nil ]
+		ifTrue:[ label := value := nil ]
-ifFalse:[ label := inst displayString.
+		ifFalse:[ label := inst displayString.
-value := [ (view perform:actionSelector) inspect ].
+			    value := [ (view perform:actionSelector) inspect ].
-].
+			].
-list add:(MenuDesc title:actionSelector"'action'" value:label action:value).
+	    list add:(MenuDesc title:actionSelector"'action'" value:label action:value).
-].
+	].
 ].
 list last isSeparator ifFalse:[ list add:(MenuDesc separator) ].
 (view respondsTo:#listHolder) ifTrue:[
-inst := view listHolder.
+	inst := view listHolder.
-inst isNil ifTrue:[ label := value := nil ]
+	inst isNil ifTrue:[ label := value := nil ]
-ifFalse:[ label := inst class printString.
+		  ifFalse:[ label := inst class printString.
-label := label,(self aspectLabelFor:inst inApplicationOf:view).
+			    label := label,(self aspectLabelFor:inst inApplicationOf:view).
-value := [ view listHolder inspect ].
+			    value := [ view listHolder inspect ].
-].
+			  ].
-list add:(MenuDesc title:'listHolder' value:label action:value).
+	list add:(MenuDesc title:'listHolder' value:label action:value).
 ].
 (view respondsTo:#list) ifTrue:[
-inst := view list.
+	inst := view list.
-inst isNil ifTrue:[ label := value := nil ]
+	inst isNil ifTrue:[ label := value := nil ]
-ifFalse:[ label := '%1 [%2]' bindWith:(inst class printString) with:(inst size).
+		  ifFalse:[ label := '%1 [%2]' bindWith:(inst class printString) with:(inst size).
-label := label,(self aspectLabelFor:inst inApplicationOf:view).
+			    label := label,(self aspectLabelFor:inst inApplicationOf:view).
-value := [ view list inspect ].
+			    value := [ view list inspect ].
-].
+			  ].
-list add:(MenuDesc title:'list' value:label action:value).
+	list add:(MenuDesc title:'list' value:label action:value).
 ].
 list last isSeparator ifTrue:[ list removeLast ].
 ^ MenuDesc buildFromList:list onGC:aMenu
 item := self selectedMenuItem.
 item isNil ifTrue:[^ nil].
 list := OrderedCollection new.
 list add:(MenuDesc
-title:'itemValue'
+		title:'itemValue'
-value:(item itemValue)
+		value:(item itemValue)
-action:[
+		action:[
-UserPreferences systemBrowserClass
+		    UserPreferences systemBrowserClass
-browseImplementorsOf:item itemValue
+			browseImplementorsOf:item itemValue
-]).
+		]).
 ^ MenuDesc buildFromList:list onGC:aMenu
 "Created: / 16-08-2017 / 13:51:05 / cg"
 !
 list add:(MenuDesc separator).
 list add:(MenuDesc title:'hiddenOnRealize' value:(view isHiddenOnRealize)).
 (value := view visibilityChannel) isNil ifTrue:[
-list add:(MenuDesc title:'visibilityChannel' value:'------').
+	list add:(MenuDesc title:'visibilityChannel' value:'------').
 ] ifFalse:[
-list add:(MenuDesc title:'visibilityChannel'
+	list add:(MenuDesc title:'visibilityChannel'
-value:(value displayString)
+			   value:(value displayString)
-action:[view visibilityChannel inspect]).
+			  action:[view visibilityChannel inspect]).
 ].
 ^ MenuDesc buildFromList:list onGC:aMenu
 ! !
 aModel isNil ifTrue:[^ ''].
 aView isNil ifTrue:[^ ''].
 (app := aView application) isNil ifTrue:[^ ''].
 app builder bindings keysAndValuesDo:[:aspect :value |
-value == aModel ifTrue:[^ ' [aspect: ',aspect,']'].
+	value == aModel ifTrue:[^ ' [aspect: ',aspect,']'].
 ].
 app class allInstVarNames do:[:nm |
-(app instVarNamed:nm) == aModel ifTrue:[^ ' [instvar: ',nm,']']
+	(app instVarNamed:nm) == aModel ifTrue:[^ ' [instvar: ',nm,']']
 ].
 ^ ''
 "Created: / 27-04-2012 / 14:22:09 / cg"
 |rootView focusView|
 rootView := model rootView.
 (rootView notNil and:[rootView shown]) ifTrue:[
-focusView := rootView windowGroup focusView.
+	focusView := rootView windowGroup focusView.
 ].
 focusView isNil ifTrue:[^ self ].
 self selectView:focusView
 !
 |currentItem viewItem|
 currentItem := model selectedItem.
 (currentItem notNil and:[currentItem widget == aView]) ifTrue:[
-^ self
+	^ self
 ].
 viewItem := model listOfItems recursiveDetect:[:el| el widget == aView ].
 viewItem notNil ifTrue:[
-model selectItem:viewItem.
+	model selectItem:viewItem.
 ].
 !
 setRootItem:aRootItemOrNil
 |theProcess|
 aRootItemOrNil isNil ifTrue:[
-process := nil.
+	process := nil.
 ] ifFalse:[
-"/ expand tree to level 3
+	"/ expand tree to level 3
-aRootItemOrNil do:[:aRootChild|
+	aRootItemOrNil do:[:aRootChild|
-aRootChild do:[:aSubChild| aSubChild expand ].
+	    aRootChild do:[:aSubChild| aSubChild expand ].
-aRootChild expand.
+	    aRootChild expand.
-].
+	].
-aRootItemOrNil expand.
+	aRootItemOrNil expand.
-process isNil ifTrue:[
+	process isNil ifTrue:[
-theProcess := process :=
+	    theProcess := process :=
-Process
+		Process
-for:[
+		    for:[
-|update testModeChannel|
+			|update testModeChannel|
-update := false.
+			update := false.
-testModeChannel := model testModeChannel.
+			testModeChannel := model testModeChannel.
-[process == theProcess] whileTrue:[
+			[process == theProcess] whileTrue:[
-Delay waitForSeconds:0.5.
+			    Delay waitForSeconds:0.5.
-(treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[
+			    (treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[
-(testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[
+				(testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[
-self selectFocusView.
+				    self selectFocusView.
-].
+				].
-update ifTrue:[
+				update ifTrue:[
-self updateShownStatus.
+				    self updateShownStatus.
-].
+				].
-update := update not.
+				update := update not.
-].
+			    ].
-].
+			].
-]
+		    ]
-priority:(Processor userSchedulingPriority).
+		    priority:(Processor userSchedulingPriority).
-theProcess name:'ViewTreeInspector - Focus Follower'.
+	    theProcess name:'ViewTreeInspector - Focus Follower'.
-theProcess resume.
+	    theProcess resume.
-].
+	].
 ].
 model rootItem:aRootItemOrNil.
 "Modified: / 25-07-2013 / 12:03:44 / cg"
 !
 max := 0.
 min := 9999999.
 rootItem recursiveEachVisibleItemDo:[:anItem|
-anItem widget notNil ifTrue:[
+	anItem widget notNil ifTrue:[
-visState := (anItem widget shown).
+	    visState := (anItem widget shown).
-visState ~~ anItem isDrawnShown ifTrue:[
+	    visState ~~ anItem isDrawnShown ifTrue:[
-anItem isDrawnShown:visState.
+		anItem isDrawnShown:visState.
-listIdx := treeView identityIndexOf:anItem.
+		listIdx := treeView identityIndexOf:anItem.
-listIdx > 0 ifTrue:[
+		listIdx > 0 ifTrue:[
-max := max max:listIdx.
+		    max := max max:listIdx.
-min := min min:listIdx.
+		    min := min min:listIdx.
-].
+		].
-].
+	    ].
-].
+	].
 ].
 max < min ifTrue:[^ self].
 max := max + 1.
 visY0  := (treeView yVisibleOfLine:min) max:0.
 visY1  := (treeView yVisibleOfLine:max) min:(treeView height).
 height := visY1 - visY0.
 height > 2 ifTrue:[
-treeView shown ifTrue:[
+	treeView shown ifTrue:[
-damage := Rectangle left:0 top:visY0 width:(treeView width) height:height.
+	    damage := Rectangle left:0 top:visY0 width:(treeView width) height:height.
-treeView invalidateDeviceRectangle:damage repairNow:false.
+	    treeView invalidateDeviceRectangle:damage repairNow:false.
-].
+	].
 ].
 "Modified: / 16-08-2017 / 12:29:15 / cg"
 ! !
 !ViewTreeInspectorApplication methodsFor:'user operations'!
 doBrowse:what
 "open browser on:
-#view           browse class
+	#view           browse class
-#model          browse model class
+	#model          browse model class
-#application    browse application class
+	#application    browse application class
-#controller     browse controller class
+	#controller     browse controller class
 "
 |inst|
 (inst := self objectToInspectOrBrowse:what) isNil ifTrue:[^ self].
 inst class browserClass openInClass:(inst class) selector:nil
 !
 doCatchEvents
 model catchEvents:true.
 isCatchingEventsChannel value:true.
 "/    ((builder componentAt:'toolbarMenu') itemAt:#doUncatchEvents)
 "/        enabled:true;
 "/        label:(self class releaseViewIcon);
 "/        activeHelpKey:#doUncatchEvents.
 !
 item isNil ifTrue:[ ^ self].
 parent := item parent.
 parent isNil ifTrue:[
-"/ the root
+	"/ the root
-model withSelectionHiddenDo:[item deleteAll].
+	model withSelectionHiddenDo:[item deleteAll].
 ^ self
 ].
 model withSelectionHiddenDo:[
-|idx nsel|
+	|idx nsel|
-idx := parent identityIndexOf:item.
+	idx := parent identityIndexOf:item.
-idx == parent size ifTrue:[
+	idx == parent size ifTrue:[
-nsel := parent at:(idx - 1) ifAbsent:parent
+	    nsel := parent at:(idx - 1) ifAbsent:parent
-] ifFalse:[
+	] ifFalse:[
-nsel := parent at:(idx + 1)
+	    nsel := parent at:(idx + 1)
-].
+	].
-model setValue:nil.
+	model setValue:nil.
-item delete.
+	item delete.
-parent isLayoutContainer ifTrue:[
+	parent isLayoutContainer ifTrue:[
-parent widget sizeChanged:nil
+	    parent widget sizeChanged:nil
-].
+	].
-model value:nsel.
+	model value:nsel.
 ].
 !
 doEditWindowSpec
 |mthd|
 view := self selectedView.
 view isNil ifTrue:[ ^ self].
 view shown ifTrue:[
-model withSelectionHiddenDo:[
+	model withSelectionHiddenDo:[
-view perform:#flash ifNotUnderstood:nil.
+	    view perform:#flash ifNotUnderstood:nil.
-].
+	].
 ].
 !
 doInspect:what
 "open inspector on:
-#view           inspect class
+	#view           inspect class
-#group          inspect windowGroup
+	#group          inspect windowGroup
-#model          inspect model
+	#model          inspect model
-#application    inspect application
+	#application    inspect application
-#controller     inspect controller
+	#controller     inspect controller
-#process        inspect application's process
+	#process        inspect application's process
 "
 |inst|
 (inst := self objectToInspectOrBrowse:what) isNil ifTrue:[^ self].
 topWindow := clickedView topView.
 (    topWindow == Screen current rootView
 or:[topWindow == self window topView]
 ) ifTrue:[
-^ self
+	^ self
 ].
 self showWindow:clickedView.
 !
 doRedraw
 "redraw the app"
 |rootView|
 (rootView := model rootView) notNil ifTrue:[
-rootView withAllSubViewsDo:[:v | v "redraw; "invalidate].
+	rootView withAllSubViewsDo:[:v | v "redraw; "invalidate].
 ]
 "Modified: / 16-08-2017 / 12:02:11 / cg"
 !
 doSelectNextElementStartingIn:anItem forWhich:aBlock
 |startItem firstFound searchNext|
 startItem  := model last.
 searchNext := startItem notNil.
 firstFound := nil.
 anItem recursiveDo:[:el|
-el == startItem ifTrue:[
+	el == startItem ifTrue:[
-searchNext := false
+	    searchNext := false
-] ifFalse:[
+	] ifFalse:[
-(aBlock value:el) ifTrue:[
+	    (aBlock value:el) ifTrue:[
-searchNext ifFalse:[^ model selectItem:el].
+		searchNext ifFalse:[^ model selectItem:el].
-firstFound isNil ifTrue:[
+		firstFound isNil ifTrue:[
-firstFound := el
+		    firstFound := el
-]
+		]
-]
+	    ]
-]
+	]
 ].
 firstFound notNil ifTrue:[
-self window beep.
+	self window beep.
-model selectItem:firstFound
+	model selectItem:firstFound
 ].
 !
 doSelectNextOfApplicationClass:aClass startingIn:anItem
 self doSelectNextElementStartingIn:anItem forWhich:[:el | (self resolveApplicationClassFor:el) == aClass].
 doUncatchEvents
 "release the inspected window (no longer catch its events)"
 model catchEvents:false.
 isCatchingEventsChannel value:false.
 "/    ((builder componentAt:'toolbarMenu') itemAt:#doUncatchEvents)
 "/        label:(self class releaseViewIcon);
 "/        enabled:false;
 "/        activeHelpKey:#doCatchEvents.
 self doRedraw
 !
 self setRootItem:nil.
 !
 objectToInspectOrBrowse:what
 "return one of:
-#view           for inspect/browse view/widget
+	#view           for inspect/browse view/widget
-#group          for inspect/browse windowGroup
+	#group          for inspect/browse windowGroup
-#model          for inspect/browse model
+	#model          for inspect/browse model
-#application    for inspect/browse application
+	#application    for inspect/browse application
-#controller     for inspect/browse controller
+	#controller     for inspect/browse controller
-#process        for inspect/browse application's process
+	#process        for inspect/browse application's process
-#widgetClass    for inspect/browse widget's class
+	#widgetClass    for inspect/browse widget's class
-#menuItem       for inspect/browse menuItem
+	#menuItem       for inspect/browse menuItem
 "
 |view|
 what == #menuItem       ifTrue:[
-^ model selectedItem menuItem
+	^ model selectedItem menuItem
 ].
 view := self selectedView.
 view isNil ifTrue:[^ nil].
 tabSpec positions:(Array with:0 with:w).
 menu := Menu new.
 aList do:[:el|
-menu addItem:(el asMenuItemWithTabulatorSpecification:tabSpec).
+	menu addItem:(el asMenuItemWithTabulatorSpecification:tabSpec).
 ].
 menuPanel := MenuPanel menu:menu.
 ^ menuPanel
 ! !
 title isNil ifTrue:[ ^ MenuItem label:value ].     "/ separator
 array := Array with:(title, ':') with:'------'.
 value notNil ifTrue:[
-array at:2 put:(value printString, ' ')
+	array at:2 put:(value printString, ' ')
 ].
 ^ MenuItem
-label:(MultiColListEntry fromStrings:array tabulatorSpecification:aTabSpec)
+	label:(MultiColListEntry fromStrings:array tabulatorSpecification:aTabSpec)
-value:action
+	value:action
 ! !
 !ViewTreeInspectorApplication::MenuDesc methodsFor:'instance creation'!
 title:aTitle value:aValue action:anAction
 "
 title  := aTitle withoutSeparators.
 action := anAction.
 aValue notNil ifTrue:[
-value := aValue printString.
+	value := aValue printString.
-value size > 70 ifTrue:[
+	value size > 70 ifTrue:[
-value := value copyFrom:1 to:70.
+	    value := value copyFrom:1 to:70.
-value := value, '...'
+	    value := value, '...'
-]
+	]
 ].
 ! !
 !ViewTreeInspectorApplication::MenuDesc methodsFor:'queries'!
 aMenuItem isNil ifTrue:[^ nil].
 item     := self forMenuItem:aMenuItem.
 subItems := OrderedCollection new.
 (subMenu := aMenuItem submenuOrNil) notNil ifTrue:[
-subMenu items do:[:eachMenuItem |
+	subMenu items do:[:eachMenuItem |
-subItems add:(self buildMenuItemsFrom:eachMenuItem)
+	    subItems add:(self buildMenuItemsFrom:eachMenuItem)
-].
+	].
 ].
 item children:subItems.
 ^ item
 "Created: / 16-08-2017 / 12:23:02 / cg"
 item     := self forView:aView.
 subViews := aView subViews.
 subItems := OrderedCollection new.
 subViews notEmptyOrNil ifTrue:[
-subViews do:[:aSubView|
+	subViews do:[:aSubView|
-subItems add:(self buildViewsFrom:aSubView).
+	    subItems add:(self buildViewsFrom:aSubView).
-].
+	].
 ].
 (aView isKindOf:MenuPanel) ifTrue:[
-(aView items ? #()) do:[:eachMenuItem |
+	(aView items ? #()) do:[:eachMenuItem |
-subItems add:(self buildMenuItemsFrom:eachMenuItem)
+	    subItems add:(self buildMenuItemsFrom:eachMenuItem)
-].
+	].
 ].
 item children:subItems.
 ^ item
 "Modified: / 16-08-2017 / 12:43:35 / cg"
 ! !
 "
 ViewTreeItems represants a pickable object within a ViewTreeModel.
 The class is used to build up the hierarchical tree.
 [Instance variables:]
-widget        <View>            the widget represented by the item
+	widget        <View>            the widget represented by the item
-spec          <UISpecification> the UISpecification or nil
+	spec          <UISpecification> the UISpecification or nil
 [Class variables:]
-HandleExtent  <Point>           keeps the extent of a handle
+	HandleExtent  <Point>           keeps the extent of a handle
 [author:]
-Claus Atzkern
+	Claus Atzkern
 [see also:]
-HierarchicalItem
+	HierarchicalItem
-ViewTreeModel
+	ViewTreeModel
 "
 !
 version
 ^ '$Header$'
 applicationClass
 |appl|
 widget notNil ifTrue:[
-appl := widget application.
+	appl := widget application.
-appl notNil ifTrue:[^ appl class ].
+	appl notNil ifTrue:[^ appl class ].
 ].
 ^ nil
 !
 isDrawnShown
 specClass
 "returns the spec-class assigned to the item
 "
 widget isNil ifTrue:[
-^ MenuPanelSpec
+	^ MenuPanelSpec
 ].
 ^ widget specClass
 "Modified (format): / 16-08-2017 / 12:31:36 / cg"
 !
 superView cannot resize its sub widgets
 "
 |layout specClass superView|
 (superView := widget superView) isNil ifTrue:[
-^ #Extent
+	^ #Extent
 ].
 specClass := superView specClass.
 (specClass notNil and:[specClass isLayoutContainer]) ifTrue:[
-^ specClass canResizeSubComponents ifTrue:[#Extent] ifFalse:[nil]
+	^ specClass canResizeSubComponents ifTrue:[#Extent] ifFalse:[nil]
 ].
 (layout := widget geometryLayout) isNil ifTrue:[
-^ #Extent
+	^ #Extent
 ].
 layout isLayout ifTrue:[
-layout isLayoutFrame        ifTrue:[ ^ #LayoutFrame ].
+	layout isLayoutFrame        ifTrue:[ ^ #LayoutFrame ].
-layout isAlignmentOrigin    ifTrue:[ ^ #AlignmentOrigin ].
+	layout isAlignmentOrigin    ifTrue:[ ^ #AlignmentOrigin ].
-layout isLayoutOrigin       ifTrue:[ ^ #LayoutOrigin ].
+	layout isLayoutOrigin       ifTrue:[ ^ #LayoutOrigin ].
 ] ifFalse:[
-layout isRectangle          ifTrue:[ ^ #Rectangle ].
+	layout isRectangle          ifTrue:[ ^ #Rectangle ].
-layout isPoint              ifTrue:[ ^ #Point ].
+	layout isPoint              ifTrue:[ ^ #Point ].
 ].
 Transcript showCR:'UNSUPPORTRD LAYOUT: ', layout printString.
 ^ nil
 !
 "not only a query; also builds"
 |subViews list item subMenu|
 children isNil ifTrue:[
-isExpanded := false.
+	isExpanded := false.
-list := OrderedCollection new.
+	list := OrderedCollection new.
-"/ it's either a widget or a menuItem
+	"/ it's either a widget or a menuItem
-widget notNil ifTrue:[
+	widget notNil ifTrue:[
-subViews := widget subViews.
+	    subViews := widget subViews.
-subViews notEmptyOrNil ifTrue:[
+	    subViews notEmptyOrNil ifTrue:[
-subViews do:[:aSubView|
+		subViews do:[:aSubView|
-item := self class buildViewsFrom:aSubView.
+		    item := self class buildViewsFrom:aSubView.
-item parent:self.
+		    item parent:self.
-list add:item.
+		    list add:item.
-].
+		].
-].
+	    ].
-].
+	].
-menuItem notNil ifTrue:[
+	menuItem notNil ifTrue:[
-(subMenu := menuItem submenuOrNil) notNil ifTrue:[
+	    (subMenu := menuItem submenuOrNil) notNil ifTrue:[
-subMenu items do:[:aSubItem|
+		subMenu items do:[:aSubItem|
-item := self class buildMenuItemsFrom:aSubItem.
+		    item := self class buildMenuItemsFrom:aSubItem.
-item parent:self.
+		    item parent:self.
-list add:item.
+		    list add:item.
-].
+		].
-].
+	    ].
-].
+	].
-children := list.
+	children := list.
 ].
 ^ children notEmpty
 "Modified: / 16-08-2017 / 12:27:23 / cg"
 !
 additionalLabelForItem:anItem
 "answer an additional label for an Item"
 parent notNil ifTrue:[
-^ parent additionalLabelForItem:anItem
+	^ parent additionalLabelForItem:anItem
 ].
 ^ nil
 !
 displayIcon:anIcon atX:x y:y on:aGC
 |x0 y0 y1 w|
 super displayIcon:anIcon atX:x y:y on:aGC.
 self exists ifFalse:[
-aGC paint:(Color red).
+	aGC paint:(Color red).
-y0 := y + 1.
+	y0 := y + 1.
-y1 := y + anIcon height - 2.
+	y1 := y + anIcon height - 2.
-x0 := x - 1.
+	x0 := x - 1.
-w  := anIcon width.
+	w  := anIcon width.
-2 timesRepeat:[
+	2 timesRepeat:[
-aGC displayLineFromX:x0 y:y0 toX:(x0 + w) y:y1.
+	    aGC displayLineFromX:x0 y:y0 toX:(x0 + w) y:y1.
-aGC displayLineFromX:x0 y:y1 toX:(x0 + w) y:y0.
+	    aGC displayLineFromX:x0 y:y1 toX:(x0 + w) y:y0.
-x0 := x0 + 1.
+	    x0 := x0 + 1.
-].
+	].
 ].
 !
 displayOn:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
 |labelHeight additionalName label isValidAndShown|
 label := self label.
 label isEmptyOrNil ifTrue:[^ self].
 widget isNil ifTrue:[
-isValidAndShown := true.
+	isValidAndShown := true.
 ] ifFalse:[
-widget id isNil ifTrue:[
+	widget id isNil ifTrue:[
-isDrawnShown := false.
+	    isDrawnShown := false.
-self exists ifFalse:[
+	    self exists ifFalse:[
-xOffsetAdditionalName := nil.
+		xOffsetAdditionalName := nil.
-].
+	    ].
-isValidAndShown := false.
+	    isValidAndShown := false.
-] ifFalse:[
+	] ifFalse:[
-isValidAndShown := widget shown.
+	    isValidAndShown := widget shown.
-].
+	].
 ].
 isValidAndShown ifFalse:[
-label := Text string:label emphasis:#italic.
+	label := Text string:label emphasis:#italic.
-label colorizeAllWith:Color gray.
+	label colorizeAllWith:Color gray.
 ].
 labelHeight := self heightOn:aGC.
 self displayLabel:label h:labelHeight on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected.
 xOffsetAdditionalName notNil ifTrue:[
-additionalName := self additionalLabelForItem:self.
+	additionalName := self additionalLabelForItem:self.
-additionalName notNil ifTrue:[
+	additionalName notNil ifTrue:[
-self displayLabel:additionalName
+	    self displayLabel:additionalName
-h:labelHeight on:aGC
+			    h:labelHeight on:aGC
-x:(x + xOffsetAdditionalName) y:y
+			    x:(x + xOffsetAdditionalName) y:y
-h:h.
+			    h:h.
-] ifFalse:[
+	] ifFalse:[
-xOffsetAdditionalName := nil.
+	    xOffsetAdditionalName := nil.
-].
+	].
 ].
 "Modified (format): / 16-08-2017 / 12:57:39 / cg"
 !
 recursiveAdditionalNameBehaviourChanged
 width := xOffsetAdditionalName := nil.
 children notNil ifTrue:[
-children do:[:each| each recursiveAdditionalNameBehaviourChanged ]
+	children do:[:each| each recursiveAdditionalNameBehaviourChanged ]
 ].
 !
 widthOn:aGC
 "return the width of the receiver, if it is to be displayed on aGC
 "
 |additionalName|
 width isNil ifTrue:[
-width := self widthOf:(self label) on:aGC.
+	width := self widthOf:(self label) on:aGC.
-width := width + 2.
+	width := width + 2.
-additionalName := self additionalLabelForItem:self.
+	additionalName := self additionalLabelForItem:self.
-additionalName notNil ifTrue:[
+	additionalName notNil ifTrue:[
-xOffsetAdditionalName := width + 10.
+	    xOffsetAdditionalName := width + 10.
-width := xOffsetAdditionalName + (self widthOf:additionalName on:aGC).
+	    width := xOffsetAdditionalName + (self widthOf:additionalName on:aGC).
-width := width + 2.
+	    width := width + 2.
-] ifFalse:[
+	] ifFalse:[
-xOffsetAdditionalName := nil.
+	    xOffsetAdditionalName := nil.
-].
+	].
 ].
 ^ width
 ! !
 !ViewTreeInspectorApplication::ViewTreeItem methodsFor:'enumerating'!
 "evaluate the two arg block on each handle; the arguments to the block is
 the rectangle relative to the rootView and the handle type which is
 set to nil if not resizeable.
 TYPES:     type    position( X - Y )
--------------------------
+		-------------------------
-#LT     Left   - Top
+		#LT     Left   - Top
-#LC     Left   - Center
+		#LC     Left   - Center
-#LB     Left   - Bottom
+		#LB     Left   - Bottom
-#CT     Center - Top
+		#CT     Center - Top
-#CB     Center - Bottom
+		#CB     Center - Bottom
-#RT     Right  - Top
+		#RT     Right  - Top
-#RC     Right  - Center
+		#RC     Right  - Center
-#RB     Right  - Bottom
+		#RB     Right  - Bottom
-nil     ** handle not pickable **
+		nil     ** handle not pickable **
 "
 |type relOrg relCrn maxExt rootView w h
 xL    "{ Class:SmallInteger }"
 xC    "{ Class:SmallInteger }"
 xR    "{ Class:SmallInteger }"
 type := self layoutType.
 w   := HandleExtent x.
 h   := HandleExtent y.
 (type == #LayoutFrame or:[type == #Rectangle]) ifTrue:[
-aTwoArgAction value:(Rectangle left:xL top:yT width:w height:h) value:#LT.
+	aTwoArgAction value:(Rectangle left:xL top:yT width:w height:h) value:#LT.
-aTwoArgAction value:(Rectangle left:xL top:yC width:w height:h) value:#LC.
+	aTwoArgAction value:(Rectangle left:xL top:yC width:w height:h) value:#LC.
-aTwoArgAction value:(Rectangle left:xL top:yB width:w height:h) value:#LB.
+	aTwoArgAction value:(Rectangle left:xL top:yB width:w height:h) value:#LB.
-aTwoArgAction value:(Rectangle left:xC top:yT width:w height:h) value:#CT.
+	aTwoArgAction value:(Rectangle left:xC top:yT width:w height:h) value:#CT.
-aTwoArgAction value:(Rectangle left:xC top:yB width:w height:h) value:#CB.
+	aTwoArgAction value:(Rectangle left:xC top:yB width:w height:h) value:#CB.
-aTwoArgAction value:(Rectangle left:xR top:yT width:w height:h) value:#RT.
+	aTwoArgAction value:(Rectangle left:xR top:yT width:w height:h) value:#RT.
-aTwoArgAction value:(Rectangle left:xR top:yC width:w height:h) value:#RC.
+	aTwoArgAction value:(Rectangle left:xR top:yC width:w height:h) value:#RC.
-aTwoArgAction value:(Rectangle left:xR top:yB width:w height:h) value:#RB.
+	aTwoArgAction value:(Rectangle left:xR top:yB width:w height:h) value:#RB.
 ^ self
 ].
 aTwoArgAction value:(Rectangle left:xL top:yT width:w height:h) value:nil.
 aTwoArgAction value:(Rectangle left:xL top:yB width:w height:h) value:nil.
 aTwoArgAction value:(Rectangle left:xR top:yT width:w height:h) value:nil.
 type == #Extent ifTrue:[
-aTwoArgAction value:(Rectangle left:xC top:yB width:w height:h) value:#CB.
+	aTwoArgAction value:(Rectangle left:xC top:yB width:w height:h) value:#CB.
-aTwoArgAction value:(Rectangle left:xR top:yC width:w height:h) value:#RC.
+	aTwoArgAction value:(Rectangle left:xR top:yC width:w height:h) value:#RC.
-aTwoArgAction value:(Rectangle left:xR top:yB width:w height:h) value:#RB.
+	aTwoArgAction value:(Rectangle left:xR top:yB width:w height:h) value:#RB.
 ^ self
 ].
 aTwoArgAction value:(Rectangle left:xR top:yB width:w height:h) value:nil.
 "Modified: / 16-08-2017 / 13:04:27 / cg"
 recursiveEachVisibleItemDo:anOneArgBlock
 "recursive evaluate the block on each child which is visible
 "
 (isExpanded and:[children size > 0]) ifTrue:[
-children do:[:aChild|
+	children do:[:aChild|
-anOneArgBlock value:aChild.
+	    anOneArgBlock value:aChild.
-aChild recursiveEachVisibleItemDo:anOneArgBlock.
+	    aChild recursiveEachVisibleItemDo:anOneArgBlock.
-]
+	]
 ].
 !
 subViewsDo:aOneArgBlock
 "evaluate aBlock for all subviews other than InputView's
 "
 |subViews|
 subViews := widget subViews.
 subViews notNil ifTrue:[
-subViews do:aOneArgBlock
+	subViews do:aOneArgBlock
 ].
 ! !
 !ViewTreeInspectorApplication::ViewTreeItem methodsFor:'initialization'!
 delete
 "delete self and all contained items; the assigned views are destroyed
 in case of rootView, only the children are deleted
 "
 parent isHierarchicalItem ifTrue:[
-self criticalDo:[
+	self criticalDo:[
-parent remove:self.
+	    parent remove:self.
-widget destroy.
+	    widget destroy.
-]
+	]
 ] ifFalse:[
-self deleteAll
+	self deleteAll
 ].
 !
 deleteAll
 "delete all contained items; the assigned views are destroyed
 "
 children size == 0 ifTrue:[^ self].
 self criticalDo:[
-self nonCriticalDo:[:el| el widget destroy ].
+	self nonCriticalDo:[:el| el widget destroy ].
-self removeAll
+	self removeAll
 ].
 ! !
 !ViewTreeInspectorApplication::ViewTreeItem methodsFor:'operations layout'!
 |extent layout newLyt lftFrc lftOff topFrc topOff|
 layout := widget geometryLayout.
 layout isNil ifTrue:[
-^ widget bounds asLayout
+	^ widget bounds asLayout
 ].
 layout isLayout ifFalse:[
-layout isRectangle ifTrue:[
+	layout isRectangle ifTrue:[
-^ LayoutFrame leftOffset:(layout left) rightOffset:(layout right)
+	    ^ LayoutFrame leftOffset:(layout left) rightOffset:(layout right)
-topOffset:(layout top) bottomOffset:(layout bottom)
+			   topOffset:(layout top) bottomOffset:(layout bottom)
-].
+	].
-layout isPoint ifTrue:[
+	layout isPoint ifTrue:[
-extent := widget extent.
+	    extent := widget extent.
-^ LayoutFrame leftOffset:(layout x)  rightOffset:(layout x + extent x)
+	  ^ LayoutFrame leftOffset:(layout x)  rightOffset:(layout x + extent x)
-topOffset:(layout y) bottomOffset:(layout y + extent y)
+			 topOffset:(layout y) bottomOffset:(layout y + extent y)
-].
+	].
-Transcript showCR:'UNSUPPORTRD LAYOUT: ', layout printString.
+	Transcript showCR:'UNSUPPORTRD LAYOUT: ', layout printString.
 ^ nil
 ].
 layout isLayoutFrame ifTrue:[ ^ layout copy ].
 lftFrc := layout leftFraction.
 lftOff := layout leftOffset.
 topFrc := layout topFraction.
 topOff := layout topOffset.
 extent := widget extent.
 newLyt := LayoutFrame leftFraction:lftFrc offset:lftOff
-rightFraction:lftFrc offset:(lftOff + extent x)
+			 rightFraction:lftFrc offset:(lftOff + extent x)
-topFraction:topFrc offset:topOff
+			   topFraction:topFrc offset:topOff
-bottomFraction:topFrc offset:(topOff + extent y).
+			bottomFraction:topFrc offset:(topOff + extent y).
 (      layout isAlignmentOrigin
 and:[(layout leftAlignmentFraction ~= 0 or:[layout topAlignmentFraction ~= 0])]
 ) ifTrue:[
-|svRc prBd dlta|
+	|svRc prBd dlta|
-svRc := widget superView viewRectangle.
+	svRc := widget superView viewRectangle.
-prBd := widget preferredBounds.
+	prBd := widget preferredBounds.
-dlta := (  ((layout rectangleRelativeTo:svRc preferred:prBd) corner)
+	dlta := (  ((layout rectangleRelativeTo:svRc preferred:prBd) corner)
-- ((newLyt rectangleRelativeTo:svRc preferred:prBd) corner)
+		 - ((newLyt rectangleRelativeTo:svRc preferred:prBd) corner)
-) rounded.
+		) rounded.
-newLyt   leftOffset:(lftOff + dlta x).
+	newLyt   leftOffset:(lftOff + dlta x).
-newLyt  rightOffset:(lftOff + extent x + dlta x).
+	newLyt  rightOffset:(lftOff + extent x + dlta x).
-newLyt    topOffset:(topOff + dlta y).
+	newLyt    topOffset:(topOff + dlta y).
-newLyt bottomOffset:(topOff + extent y + dlta y).
+	newLyt bottomOffset:(topOff + extent y + dlta y).
 ].
 ^ newLyt
 !
 moveLeft:l top:t
 |layout|
 self isMoveable ifFalse:[ ^ self ].
 (layout := widget geometryLayout) isNil ifTrue:[
-"Extent"
+	"Extent"
-widget origin:(widget origin + (l@t)).
+	widget origin:(widget origin + (l@t)).
 ^ self
 ].
 layout := layout copy.
 layout isLayout ifTrue:[
-layout leftOffset:(layout leftOffset + l)
+	layout leftOffset:(layout leftOffset + l)
-topOffset:(layout topOffset  + t).
+		topOffset:(layout topOffset  + t).
-layout isLayoutFrame ifTrue:[
+	layout isLayoutFrame ifTrue:[
-layout  rightOffset:(layout rightOffset  + l).
+	    layout  rightOffset:(layout rightOffset  + l).
-layout bottomOffset:(layout bottomOffset + t).
+	    layout bottomOffset:(layout bottomOffset + t).
-]
+	]
 ] ifFalse:[
-layout isRectangle ifTrue:[
+	layout isRectangle ifTrue:[
-layout setLeft:(layout left + l).
+	    layout setLeft:(layout left + l).
-layout  setTop:(layout top  + t).
+	    layout  setTop:(layout top  + t).
-] ifFalse:[
+	] ifFalse:[
-layout isPoint ifFalse:[^ self].
+	    layout isPoint ifFalse:[^ self].
-layout x:(layout x + l) y:(layout y + t).
+	    layout x:(layout x + l) y:(layout y + t).
-]
+	]
 ].
 widget geometryLayout:layout.
 !
 resizeLeft:l top:t right:r bottom:b
 "resize the widget measured in pixels
 "
 |layout|
 self isResizeable ifFalse:[
-^ self
+	^ self
 ].
 (layout := widget geometryLayout) isNil ifTrue:[
-"Extent"
+	"Extent"
-(r == l and:[b == t]) ifFalse:[
+	(r == l and:[b == t]) ifFalse:[
-widget extent:(widget computeExtent + ((r-l) @ (b-t))).
+	    widget extent:(widget computeExtent + ((r-l) @ (b-t))).
-].
+	].
-^ self
+	^ self
 ].
 layout isLayout ifTrue:[
-layout := layout copy.
+	layout := layout copy.
-layout leftOffset:(layout leftOffset + l)
+	layout leftOffset:(layout leftOffset + l)
-topOffset:(layout topOffset  + t).
+		topOffset:(layout topOffset  + t).
-layout isLayoutFrame ifTrue:[
+	layout isLayoutFrame ifTrue:[
-layout bottomOffset:(layout bottomOffset + b).
+	    layout bottomOffset:(layout bottomOffset + b).
-layout  rightOffset:(layout rightOffset  + r).
+	    layout  rightOffset:(layout rightOffset  + r).
-]
+	]
 ] ifFalse:[
-layout isRectangle ifFalse:[^ self].
+	layout isRectangle ifFalse:[^ self].
-layout := layout copy.
+	layout := layout copy.
-layout left:(layout left   + l)
+	layout left:(layout left   + l)
-right:(layout right  + r)
+	      right:(layout right  + r)
-top:(layout top    + t)
+		top:(layout top    + t)
-bottom:(layout bottom + b).
+	     bottom:(layout bottom + b).
 ].
 widget geometryLayout:layout.
 ! !
 !ViewTreeInspectorApplication::ViewTreeItem methodsFor:'operations update'!
 queue := OrderedCollection new.
 queue add:self.
 self criticalDo:[
-[queue notEmpty] whileTrue:[
+	[queue notEmpty] whileTrue:[
-|toRemove  elProcessed|
+	    |toRemove  elProcessed|
-elProcessed := queue removeFirst.
+	    elProcessed := queue removeFirst.
-toRemove := nil.
+	    toRemove := nil.
-elProcessed nonCriticalDo:[:el|
+	    elProcessed nonCriticalDo:[:el|
-el exists ifTrue:[
+		el exists ifTrue:[
-queue add:el.
+		    queue add:el.
-] ifFalse:[
+		] ifFalse:[
-toRemove isNil ifTrue:[toRemove := OrderedCollection new].
+		    toRemove isNil ifTrue:[toRemove := OrderedCollection new].
-toRemove add:el.
+		    toRemove add:el.
-]
+		]
-].
+	    ].
-toRemove notNil ifTrue:[
+	    toRemove notNil ifTrue:[
-toRemove do:[:el| elProcessed remove:el ].
+		toRemove do:[:el| elProcessed remove:el ].
-].
+	    ].
-].
+	].
 ].
 !
 updateFromChildren:mergedList
 "update my children against the list of items derived from
 mergedList size == 0 ifTrue:[ ^ self removeAll ].
 children   size == 0 ifTrue:[ ^ self addAll:mergedList ].
 self criticalDo:[
-self nonCriticalDo:[:el| |wdg|
+	self nonCriticalDo:[:el| |wdg|
-wdg := el widget.
+	    wdg := el widget.
-mergedList detect:[:e2| e2 widget == wdg ] ifNone:[ self remove:el ].
+	    mergedList detect:[:e2| e2 widget == wdg ] ifNone:[ self remove:el ].
-].
+	].
-mergedList keysAndValuesDo:[:i :el| |wdg e2|
+	mergedList keysAndValuesDo:[:i :el| |wdg e2|
-wdg := el widget.
+	    wdg := el widget.
-e2  := self at:i ifAbsent:nil.
+	    e2  := self at:i ifAbsent:nil.
-(e2 isNil or:[e2 widget ~~ wdg]) ifTrue:[
+	    (e2 isNil or:[e2 widget ~~ wdg]) ifTrue:[
-self add:el beforeIndex:i
+		self add:el beforeIndex:i
-]
+	    ]
-]
+	]
 ].
 ! !
 !ViewTreeInspectorApplication::ViewTreeItem methodsFor:'printing & storing'!
 "get the icon used for presentation"
 |specClass model|
 menuItem notNil ifTrue:[
-menuItem label isImage ifTrue:[
+	menuItem label isImage ifTrue:[
-^ menuItem label magnifiedTo:20@20.
+	    ^ menuItem label magnifiedTo:20@20.
-].
+	].
 ].
 specClass := self specClass.
 specClass isNil ifTrue:[^ nil].
 model := self treeModel.
 model notNil ifTrue:[
-^ model iconAt:specClass ifNonePut:[specClass icon]
+	^ model iconAt:specClass ifNonePut:[specClass icon]
 ].
 ^ specClass icon
 "Modified: / 16-08-2017 / 13:00:35 / cg"
 !
 string
 "get the string
 "
 widget isNil ifTrue:[
-^ menuItem class name
+	^ menuItem class name
 ].
 ^ widget class name.
 "Modified: / 16-08-2017 / 13:45:39 / cg"
 ! !
 |specClass|
 specClass := self specClass.
 specClass notNil ifTrue:[
-^ specClass canResizeSubComponents
+	^ specClass canResizeSubComponents
 ].
 ^ false
 !
 exists
 widget isNil ifTrue:[^ menuItem notNil].
 widget id notNil ifTrue:[^ true ].
 exists ~~ false ifTrue:[
-exists := false.
+	exists := false.
-widget superView notNil ifTrue:[
+	widget superView notNil ifTrue:[
-(parent isHierarchicalItem and:[parent exists]) ifTrue:[
+	    (parent isHierarchicalItem and:[parent exists]) ifTrue:[
-exists := (parent widget subViews includesIdentical:widget).
+		exists := (parent widget subViews includesIdentical:widget).
-].
+	    ].
-].
+	].
 ].
 ^ exists
 "Modified: / 16-08-2017 / 12:47:50 / cg"
 !
 |cls|
 cls := widget class.
 ^ (    cls == ApplicationSubView
-or:[cls == ApplicationWindow
+	or:[cls == ApplicationWindow
-or:[cls == SubCanvas]]
+	or:[cls == SubCanvas]]
 )
 !
 isSelected
 |model|
 "returns true if the widget supports sub components
 "
 |specClass|
 widget isScrollWrapper ifTrue:[
-^ false
+	^ false
 ].
 specClass := self specClass.
 specClass notNil ifTrue:[
-^ specClass supportsSubComponents
+	^ specClass supportsSubComponents
 ].
 ^ false
 ! !
 !ViewTreeInspectorApplication::ViewTreeItem methodsFor:'testing'!
 |sv specClass|
 sv := widget superView.
 sv notNil ifTrue:[
-specClass := sv specClass.
+	specClass := sv specClass.
-specClass notNil ifTrue:[
+	specClass notNil ifTrue:[
-^ specClass isLayoutContainer
+	    ^ specClass isLayoutContainer
-].
+	].
 ].
 ^ false
 !
 isLayoutContainer
 |specClass|
 specClass := self specClass.
 specClass notNil ifTrue:[
-^ specClass isLayoutContainer
+	^ specClass isLayoutContainer
 ].
 ^ false
 !
 isMoveable
 "returns true if the widget is not in a layout container
 "
 self isInLayoutContainer ifFalse:[
-^ widget superView notNil
+	^ widget superView notNil
 ].
 ^ false
 !
 isResizeable
 |sv specClass|
 sv := widget superView.
 sv notNil ifTrue:[
-specClass := sv specClass.
+	specClass := sv specClass.
-specClass notNil ifTrue:[
+	specClass notNil ifTrue:[
-^ specClass canResizeSubComponents
+	    ^ specClass canResizeSubComponents
-].
+	].
 ].
 ^ false
 ! !
 !ViewTreeInspectorApplication::ViewTreeModel class methodsFor:'documentation'!
 and subviews (ViewTreeItems) and the selection, a list of selected ViewTreeItems's.
 It shows the selected items highlighted.
 [Instance variables:]
-lockSema            <Semaphore>         lock selection notifications and redraws
+	lockSema            <Semaphore>         lock selection notifications and redraws
-testModeChannel     <ValueHolder>       true, than running in test mode.
+	testModeChannel     <ValueHolder>       true, than running in test mode.
-hasTargetWidgetChannel <ValueHolder>    true, than any target view is grapped
+	hasTargetWidgetChannel <ValueHolder>    true, than any target view is grapped
-selection           <Sequence or nil>   selected items or nil
+	selection           <Sequence or nil>   selected items or nil
-hiddenLevel         <Integer>           internal use; redrawing the selection
+	hiddenLevel         <Integer>           internal use; redrawing the selection
-only is done if the counter is 0.
+						only is done if the counter is 0.
-listOfItems         <HierarchicalList>  hiearchical list build from existing items.
+	listOfItems         <HierarchicalList>  hiearchical list build from existing items.
-selectedSuperItems  <Sequence>          list of selected super items; items selected
+	selectedSuperItems  <Sequence>          list of selected super items; items selected
-but not contained in another selected item.
+						but not contained in another selected item.
-inputEventAction    <Action>            called for each InputEvent
+	inputEventAction    <Action>            called for each InputEvent
-mappedViewAction    <Action>            called for a new mapped view which
+	mappedViewAction    <Action>            called for a new mapped view which
-can not be found in the current item list.
+						can not be found in the current item list.
-beforeSelectionChangedAction <Action>   called before the selection changed
+	beforeSelectionChangedAction <Action>   called before the selection changed
 [author:]
-Claus Atzkern
+	Claus Atzkern
 [see also:]
-ViewTreeItem
+	ViewTreeItem
 "
 !
 examples
 "
 example 1: pick any window and show views and contained views
-[exBegin]
+										[exBegin]
 |top sel model panel|
 model := ViewTreeModel new.
 top   := StandardSystemView new; extent:440@400.
 sel   := ScrollableView for:HierarchicalListView miniScroller:true origin:0.0@0.0 corner:1.0@1.0 in:top.
 panel topInset:-24.
 panel horizontalLayout:#fitSpace.
 Button label:'Exit'       action:[model rootItem:nil. top destroy] in:panel.
 Button label:'Pick Views' action:[  |win|
-(     (win := Screen current viewFromUser) notNil
+					(     (win := Screen current viewFromUser) notNil
-and:[(win := win topView) ~~ Screen current rootView
+					 and:[(win := win topView) ~~ Screen current rootView
-and:[win ~~ top]]
+					 and:[win ~~ top]]
-) ifTrue:[
+					) ifTrue:[
-model rootItem:(ViewTreeItem buildViewsFrom:win)
+					    model rootItem:(ViewTreeItem buildViewsFrom:win)
-] ifFalse:[
+					] ifFalse:[
-model rootItem:nil
+					    model rootItem:nil
-]
+					]
-] in:panel.
+				     ] in:panel.
 sel  multipleSelectOk:true.
 sel              list:model listOfItems.
 sel             model:model.
 sel          useIndex:false.
 sel doubleClickAction:[:i| |el|
-el := model listOfItems at:i.
+	el := model listOfItems at:i.
-el spec notNil ifTrue:[ el spec   inspect ] ifFalse:[ el widget inspect ]
+	el spec notNil ifTrue:[ el spec   inspect ] ifFalse:[ el widget inspect ]
 ].
 sel indicatorAction:[:i| (model listOfItems at:i) toggleExpand ].
 model inputEventAction:[:anEvent| |item|
-anEvent isButtonEvent ifTrue:[
+	anEvent isButtonEvent ifTrue:[
-anEvent isButtonPressEvent ifTrue:[
+	    anEvent isButtonPressEvent ifTrue:[
-model selectedItem:(model listOfItems detectItemRespondsToView:(anEvent view)).
+		model selectedItem:(model listOfItems detectItemRespondsToView:(anEvent view)).
-] ifFalse:[
+	    ] ifFalse:[
-anEvent type == #'buttonMultiPress:x:y:' ifTrue:[
+		anEvent type == #'buttonMultiPress:x:y:' ifTrue:[
-(item := model selectedItem) notNil ifTrue:[item widget inspect]
+		    (item := model selectedItem) notNil ifTrue:[item widget inspect]
-]
+		]
-]
+	    ]
-]
+	]
 ].
 top openAndWait.
 [[top shown] whileTrue:[Delay waitForSeconds:0.5]. model rootItem:nil] forkAt:8
-[exEnd]
+										[exEnd]
 "
 ! !
 !ViewTreeInspectorApplication::ViewTreeModel methodsFor:'accessing'!
 !
 catchEvents:aBoolean
 catchEvents := aBoolean.
 aBoolean ifFalse:[
-self redrawUnselected:selection andLock:false checkTestMode:false.
+	self redrawUnselected:selection andLock:false checkTestMode:false.
 ].
 !
 path
 "Return a XPath like path to this item"
 | view views|
 selection isNil ifTrue:[ ^ nil ].
 selection isCollection ifTrue:[
-selection size ~~ 1 ifTrue:[ ^ nil ].
+	selection size ~~ 1 ifTrue:[ ^ nil ].
-view := selection anElement widget.
+	view := selection anElement widget.
 ] ifFalse:[
-view := selection widget.
+	view := selection widget.
 ].
 view isNil ifTrue:[^ nil].
 views := OrderedCollection new.
 [ view notNil ] whileTrue:[
-views add: view.
+	views add: view.
-view := view superView.
+	view := view superView.
 ].
 views removeLast.
 ^ String streamContents:[ :s|
-views reverseDo:[:each |
+	views reverseDo:[:each |
-s nextPutAll:'/'.
+	    s nextPutAll:'/'.
-s nextPutAll: each name asString "storeString".
+	    s nextPutAll: each name asString "storeString".
-].
+	].
 ]
 "Created: / 19-05-2014 / 18:15:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 16-08-2017 / 13:03:47 / cg"
 !
 timedUpdateTask := nil.
 self deselect.
 lockSema critical:[
-anItem notNil ifTrue:[ expanded := anItem isExpanded ]
+	anItem notNil ifTrue:[ expanded := anItem isExpanded ]
-ifFalse:[ expanded := false ].
+		     ifFalse:[ expanded := false ].
-self value:nil.
+	self value:nil.
-listOfItems root:anItem.
+	listOfItems root:anItem.
-anItem notNil ifTrue:[
+	anItem notNil ifTrue:[
-timedUpdateTask := Process for:[ self timedUpdateTaskCycle ] priority:8.
+	    timedUpdateTask := Process for:[ self timedUpdateTaskCycle ] priority:8.
-timedUpdateTask name:'Update'.
+	    timedUpdateTask name:'Update'.
-timedUpdateTask resume.
+	    timedUpdateTask resume.
-].
+	].
 ].
 (expanded and:[anItem notNil]) ifTrue:[
-anItem expand
+	anItem expand
 ].
 ^ anItem
 !
 rootView
 view := self rootView.
 view isNil ifTrue:[^ icon].
 icon := icon copy onDevice:(view device).
 icon isImage ifTrue:[
-icon clearMaskedPixels.
+	icon clearMaskedPixels.
 ].
 icons at:aKey put:icon.
 ^ icon
 ! !
 signalHiddenLevel
 "show the selection if signaled; increments hiddenLevel
 see: #waitHiddenLevel
 "
 (hiddenLevel := hiddenLevel - 1) < 1 ifTrue:[
-hiddenLevel := 0.
+	hiddenLevel := 0.
-self invalidateSelection.
+	self invalidateSelection.
 ].
 !
 waitHiddenLevel
 "hide the selection until signaled; increments hiddenLevel
 withSelectionHiddenDo:aZeroArgumentBlock
 "apply block with selection hidden
 "
 [
-self waitHiddenLevel.
+	self waitHiddenLevel.
-aZeroArgumentBlock value
+	aZeroArgumentBlock value
 ] ensure:[
-self signalHiddenLevel.
+	self signalHiddenLevel.
 ].
 "Modified (format): / 17-07-2017 / 10:44:01 / cg"
 ! !
 |view myTaskId|
 myTaskId := timedUpdateTask.
 listOfItems root notNil ifTrue:[
-view := listOfItems root widget.
+	view := listOfItems root widget.
 ].
 [ view notNil ] whileTrue:[
-Delay waitForSeconds:0.5.
+	Delay waitForSeconds:0.5.
-(myTaskId == timedUpdateTask and:[view id notNil]) ifFalse:[
+	(myTaskId == timedUpdateTask and:[view id notNil]) ifFalse:[
-view := nil.
+	    view := nil.
-] ifTrue:[
+	] ifTrue:[
-(view sensor hasUserEvent:#updateChildren for:self) ifFalse:[
+	    (view sensor hasUserEvent:#updateChildren for:self) ifFalse:[
-view sensor pushUserEvent:#updateChildren for:self.
+		view sensor pushUserEvent:#updateChildren for:self.
-].
+	    ].
-].
+	].
 ].
 timedUpdateTask == myTaskId ifTrue:[
-timedUpdateTask := nil.
+	timedUpdateTask := nil.
-listOfItems root:nil.
+	listOfItems root:nil.
 ].
 !
 update:something with:someArgument from:aModel
 aModel == testModeChannel ifTrue:[
-(hiddenLevel == 0 and:[selection size > 0]) ifTrue:[
+	(hiddenLevel == 0 and:[selection size > 0]) ifTrue:[
-testModeChannel value ifTrue:[
+	    testModeChannel value ifTrue:[
-self redrawUnselected:selection andLock:false checkTestMode:false.
+		self redrawUnselected:selection andLock:false checkTestMode:false.
-] ifFalse:[
+	    ] ifFalse:[
-self invalidateSelection.
+		self invalidateSelection.
-].
+	    ].
-].
+	].
-^ self
+	^ self
 ].
 super update:something with:someArgument from:aModel.
 !
 updateChildren
 rootItem := listOfItems root.
 rootItem isNil ifTrue:[^ self].
 rootItem exists ifFalse:[
-listOfItems root:nil.
+	listOfItems root:nil.
 ] ifTrue:[
-rootItem updateChildren.
+	rootItem updateChildren.
 ].
 ! !
 !ViewTreeInspectorApplication::ViewTreeModel methodsFor:'event processing'!
 catchEvents ifFalse:[^ false].
 evView := anEvent view.
 evView isNil ifTrue:[
-(anEvent isMessageSendEvent not or:[anEvent receiver ~~ self]) ifTrue:[
+	(anEvent isMessageSendEvent not or:[anEvent receiver ~~ self]) ifTrue:[
-^ false
+	    ^ false
-].
+	].
-anEvent value.
+	anEvent value.
-^ true.
+	^ true.
 ].
 rootView := listOfItems rootView.
 rootView isNil ifTrue:[ ^ false ].
 anEvent isConfigureEvent ifTrue:[
-hiddenLevel == 0 ifTrue:[
+	hiddenLevel == 0 ifTrue:[
-self redrawUnselected:selection andLock:false.
+	    self redrawUnselected:selection andLock:false.
-].
+	].
-^ false
+	^ false
 ].
 "/ check whether view is contained within the rootView
 (evView == rootView or:[evView isComponentOf:rootView]) ifFalse:[
-^ false
+	^ false
 ].
 anEvent isInputEvent ifFalse:[
-anEvent isDamage ifTrue:[
+	anEvent isDamage ifTrue:[
-hiddenLevel == 0 ifTrue:[self invalidateSelection].
+	    hiddenLevel == 0 ifTrue:[self invalidateSelection].
-^ false
+	    ^ false
-].
+	].
-anEvent isMapEvent ifTrue:[
+	anEvent isMapEvent ifTrue:[
-mappedViewAction notNil ifTrue:[
+	    mappedViewAction notNil ifTrue:[
-item := listOfItems recursiveDetect:[:el| el widget == evView].
+		item := listOfItems recursiveDetect:[:el| el widget == evView].
-item isNil ifTrue:[ mappedViewAction value:evView ]
+		item isNil ifTrue:[ mappedViewAction value:evView ]
-].
+	    ].
-^ false
+	    ^ false
-].
+	].
-anEvent type == #terminate ifTrue:[
+	anEvent type == #terminate ifTrue:[
-item := listOfItems recursiveDetect:[:el| el widget == evView].
+	    item := listOfItems recursiveDetect:[:el| el widget == evView].
-item notNil ifTrue:[ self processTerminateForItem:item ].
+	    item notNil ifTrue:[ self processTerminateForItem:item ].
-^ false
+	    ^ false
-].
+	].
-^ false
+	^ false
 ].
 testMode := testModeChannel value.
 anEvent isFocusEvent ifTrue:[
-evView == rootView ifTrue:[
+	evView == rootView ifTrue:[
-self invalidateSelection
+	    self invalidateSelection
-].
+	].
-^ testMode not.
+	^ testMode not.
 ].
 anEvent isPointerEnterLeaveEvent ifTrue:[ ^ testMode not ].
 testMode ifFalse:[
-inputEventAction notNil ifTrue:[ inputEventAction value:anEvent ].
+	inputEventAction notNil ifTrue:[ inputEventAction value:anEvent ].
 ] ifTrue:[
-anEvent isButtonPressEvent ifTrue:[
+	anEvent isButtonPressEvent ifTrue:[
-selectOnClickHolder value ifTrue:[
+	    selectOnClickHolder value ifTrue:[
-self selectItem:(listOfItems detectItemRespondsToView:evView).
+		self selectItem:(listOfItems detectItemRespondsToView:evView).
-].
+	    ].
-]
+	]
 ].
 (hiddenLevel ~~ 0 and:[anEvent isButtonReleaseEvent]) ifTrue:[
-hiddenLevel := 1.
+	hiddenLevel := 1.
-self signalHiddenLevel.
+	self signalHiddenLevel.
 ].
 ^ testMode not
 !
 (     hiddenLevel == 0
 and:[selection notNil
 and:[(topView := listOfItems rootView) notNil
 and:[topView shown]]]
 ) ifTrue:[
-topView sensor pushUserEvent:#redrawSelection for:self withArguments:#()
+	topView sensor pushUserEvent:#redrawSelection for:self withArguments:#()
 ]
 !
 recursiveRepair:theDamages startIn:aView relativeTo:aRootView
 "repair all views and contained views, which intersects the damage.
 (aView shown and:[theDamages notEmpty]) ifFalse:[ ^ self ].
 subViews := aView subViews.
 subViews size ~~ 0 ifTrue:[
-subViews reverseDo:[:v| self recursiveRepair:theDamages startIn:v relativeTo:aRootView ].
+	subViews reverseDo:[:v| self recursiveRepair:theDamages startIn:v relativeTo:aRootView ].
-theDamages isEmpty ifTrue:[ ^ self ].
+	theDamages isEmpty ifTrue:[ ^ self ].
 ].
 relOrg  := aView originRelativeTo:aRootView.
 bwWidth := aView borderWidth.
 size    := theDamages size.
 relOrgY := relOrg y - bwWidth.
 width   := aView width  + bwWidth + bwWidth.
 height  := aView height + bwWidth + bwWidth.
 size to:1 by:-1 do:[:anIndex|
-repaired := damage := theDamages at:anIndex.
+	repaired := damage := theDamages at:anIndex.
-"/ compute the rectangle into the view
+	"/ compute the rectangle into the view
-y := damage top  - relOrgY.
+	y := damage top  - relOrgY.
-x := damage left - relOrgX.
+	x := damage left - relOrgX.
-w := damage width.
+	w := damage width.
-h := damage height.
+	h := damage height.
-x     < 0      ifTrue:[ w := w + x. x := 0. repaired := nil ].
+	x     < 0      ifTrue:[ w := w + x. x := 0. repaired := nil ].
-y     < 0      ifTrue:[ h := h + y. y := 0. repaired := nil ].
+	y     < 0      ifTrue:[ h := h + y. y := 0. repaired := nil ].
-x + w > width  ifTrue:[ w := width  - x.    repaired := nil ].
+	x + w > width  ifTrue:[ w := width  - x.    repaired := nil ].
-y + h > height ifTrue:[ h := height - y.    repaired := nil ].
+	y + h > height ifTrue:[ h := height - y.    repaired := nil ].
-(w > 0 and:[h > 0]) ifTrue:[
+	(w > 0 and:[h > 0]) ifTrue:[
-bwWidth ~~ 0 ifTrue:[
+	    bwWidth ~~ 0 ifTrue:[
-color isNil ifTrue:[
+		color isNil ifTrue:[
-"/ must force redraw of border
+		    "/ must force redraw of border
-color := aView borderColor.
+		    color := aView borderColor.
-aView borderColor:(Color colorId:1).
+		    aView borderColor:(Color colorId:1).
-aView borderColor:color.
+		    aView borderColor:color.
-].
+		].
-w := w - bwWidth.
+		w := w - bwWidth.
-h := h - bwWidth.
+		h := h - bwWidth.
-(x := x - bwWidth) < 0 ifTrue:[w := w + x. x := 0].
+		(x := x - bwWidth) < 0 ifTrue:[w := w + x. x := 0].
-(y := y - bwWidth) < 0 ifTrue:[h := h + y. y := 0].
+		(y := y - bwWidth) < 0 ifTrue:[h := h + y. y := 0].
-h > 0 ifFalse:[w := 0].         "/ later testing on width only
+		h > 0 ifFalse:[w := 0].         "/ later testing on width only
-].
+	    ].
-w > 0 ifTrue:[
+	    w > 0 ifTrue:[
-aView clearRectangleX:x y:y width:w height:h.
+		aView clearRectangleX:x y:y width:w height:h.
-aView exposeX:x y:y width:w height:h
+		aView exposeX:x y:y width:w height:h
-].
+	    ].
-repaired notNil ifTrue:[ theDamages removeFromIndex:anIndex toIndex:anIndex ].
+	    repaired notNil ifTrue:[ theDamages removeFromIndex:anIndex toIndex:anIndex ].
-]
+	]
 ].
 !
 redrawSelection
 "redraw all items selected
 and:[(size := selection size) > 0
 and:[(topView := listOfItems rootView) notNil
 and:[topView shown
 and:[(topView sensor hasEvent:#redrawSelection for:self) not]]]]
 ) ifFalse:[
-^ self
+	^ self
 ].
 lockSema critical:[
-|list|
+	|list|
-list := selection.
+	list := selection.
-list size > 0 ifTrue:[
+	list size > 0 ifTrue:[
-topView paint:(Color black).
+	    topView paint:(Color black).
-topView clippedByChildren:false.
+	    topView clippedByChildren:false.
-list keysAndValuesReverseDo:[:anIndex :anItem|
+	    list keysAndValuesReverseDo:[:anIndex :anItem|
-(anIndex == 1 and:[size > 1]) ifTrue:[ topView paint:(Color red) ].
+		(anIndex == 1 and:[size > 1]) ifTrue:[ topView paint:(Color red) ].
-anItem handlesDo:[:aRect :what|
+		anItem handlesDo:[:aRect :what|
-what isNil ifTrue:[topView displayRectangle:aRect]
+		    what isNil ifTrue:[topView displayRectangle:aRect]
-ifFalse:[topView fillRectangle:aRect]
+			      ifFalse:[topView fillRectangle:aRect]
-]
+		]
-].
+	    ].
-topView clippedByChildren:true.
+	    topView clippedByChildren:true.
-].
+	].
 ].
 !
 redrawUnselected:aList andLock:doLock
 "redraw all items unselected; if doLock is true, the hiddenLevel
 is incremented and thus the select mechanism is locked.
 "
 |rootView damages subViews x y w h|
 doLock ifTrue:[
-hiddenLevel := hiddenLevel + 1.
+	hiddenLevel := hiddenLevel + 1.
-hiddenLevel ~~ 1 ifTrue:[^ self].
+	hiddenLevel ~~ 1 ifTrue:[^ self].
 ] ifFalse:[
-hiddenLevel ~~ 0 ifTrue:[^ self].
+	hiddenLevel ~~ 0 ifTrue:[^ self].
 ].
 checkTestMode ifTrue:[
-testModeChannel value ifTrue:[ ^ self ]. "/ test whether running testMode
+	testModeChannel value ifTrue:[ ^ self ]. "/ test whether running testMode
 ].
 (     aList size ~~ 0
 and:[(rootView := listOfItems rootView) notNil
 and:[rootView shown]]
 ) ifFalse:[
-^ self
+	^ self
 ].
 lockSema critical:[
-damages := OrderedCollection new:(8 * aList size).
+	damages := OrderedCollection new:(8 * aList size).
-aList do:[:item|
+	aList do:[:item|
-item handlesDo:[:handle :what|
+	    item handlesDo:[:handle :what|
-damages reverseDo:[:el|
+		damages reverseDo:[:el|
-(el intersects:handle) ifTrue:[
+		    (el intersects:handle) ifTrue:[
-damages removeIdentical:el.
+			damages removeIdentical:el.
-handle left:(handle left   min:el left)
+			handle left:(handle left   min:el left)
-right:(handle right  max:el right)
+			      right:(handle right  max:el right)
-top:(handle top    min:el top)
+				top:(handle top    min:el top)
-bottom:(handle bottom max:el bottom)
+			     bottom:(handle bottom max:el bottom)
-]
+		    ]
-].
+		].
-damages add:handle
+		damages add:handle
-]
+	    ]
-].
+	].
-damages do:[:el|
+	damages do:[:el|
-x := el left.
+	    x := el left.
-y := el top.
+	    y := el top.
-w := el width.
+	    w := el width.
-h := el height.
+	    h := el height.
-rootView clearRectangleX:x y:y width:w height:h.
+	    rootView clearRectangleX:x y:y width:w height:h.
-rootView         exposeX:x y:y width:w height:h.
+	    rootView         exposeX:x y:y width:w height:h.
-].
+	].
-(subViews := rootView subViews) notNil ifTrue:[
+	(subViews := rootView subViews) notNil ifTrue:[
-subViews reverseDo:[:v| self recursiveRepair:damages startIn:v relativeTo:rootView ].
+	    subViews reverseDo:[:v| self recursiveRepair:damages startIn:v relativeTo:rootView ].
-].
+	].
 ].
 ! !
 !ViewTreeInspectorApplication::ViewTreeModel methodsFor:'queries'!
 at:anIndex
 "returns the selected item at an index or nil
 "
 selection notNil ifTrue:[
-^ selection at:anIndex ifAbsent:nil
+	^ selection at:anIndex ifAbsent:nil
 ].
 ^ nil
 !
 at:anIndex ifAbsent:aBlock
 "returns the selected item at an index or the result of the block
 "
 selection notNil ifTrue:[
-^ selection at:anIndex ifAbsent:aBlock
+	^ selection at:anIndex ifAbsent:aBlock
 ].
 ^ aBlock value
 !
 first
 |newSelect|
 item isNil ifTrue:[^ item].
 lockSema critical:[
-selection isNil ifTrue:[
+	selection isNil ifTrue:[
-newSelect := Array with:item.
+	    newSelect := Array with:item.
-] ifFalse:[
+	] ifFalse:[
-(self includes:item) ifFalse:[
+	    (self includes:item) ifFalse:[
-newSelect := selection copyWith:item
+		newSelect := selection copyWith:item
-]
+	    ]
-].
+	].
-newSelect size ~~ selection size ifTrue:[
+	newSelect size ~~ selection size ifTrue:[
-item makeVisible.
+	    item makeVisible.
-self value:newSelect
+	    self value:newSelect
-]
+	]
 ].
 ^ item
 !
 addAll:aCollectionOfItems
 |newSelect|
 aCollectionOfItems size == 0 ifTrue:[ ^ aCollectionOfItems ].
 lockSema critical:[
-selection isNil ifTrue:[
+	selection isNil ifTrue:[
-newSelect := Array withAll:aCollectionOfItems.
+	    newSelect := Array withAll:aCollectionOfItems.
-] ifFalse:[
+	] ifFalse:[
-newSelect := OrderedCollection withAll:selection.
+	    newSelect := OrderedCollection withAll:selection.
-aCollectionOfItems do:[:el|
+	    aCollectionOfItems do:[:el|
-(selection includesIdentical:el) ifFalse:[newSelect add:el]
+		(selection includesIdentical:el) ifFalse:[newSelect add:el]
-].
+	    ].
-].
+	].
-self value:newSelect.
+	self value:newSelect.
 ].
 ^ aCollectionOfItems
 !
 deselect
 |newSelect|
 item isNil ifTrue:[^ nil].
 lockSema critical:[
-(selection notNil and:[selection includesIdentical:item]) ifTrue:[
+	(selection notNil and:[selection includesIdentical:item]) ifTrue:[
-selection size == 1 ifTrue:[ newSelect := nil ]
+	    selection size == 1 ifTrue:[ newSelect := nil ]
-ifFalse:[ newSelect := selection copyWithout:item ].
+			       ifFalse:[ newSelect := selection copyWithout:item ].
-self value:newSelect
+	    self value:newSelect
-].
+	].
 ].
 ^ item
 !
 removeAll
 selection   isNil ifTrue:[ ^ loItems ].
 loItems size == 0 ifTrue:[ ^ loItems ].
 lockSema critical:[
-selection notNil ifTrue:[
+	selection notNil ifTrue:[
-newSelect := selection select:[:el| (loItems includesIdentical:el) not ].
+	    newSelect := selection select:[:el| (loItems includesIdentical:el) not ].
-self value:newSelect.
+	    self value:newSelect.
-]
+	]
 ].
 ^ loItems
 !
 selectAll
 |root newSelection|
 root := listOfItems root.
 root isNil ifTrue:[
-newSelection := nil
+	newSelection := nil
 ] ifFalse:[
-newSelection := OrderedCollection new.
+	newSelection := OrderedCollection new.
-root recursiveDo:[:el| newSelection add:el ].
+	root recursiveDo:[:el| newSelection add:el ].
 ].
 self value:newSelection.
 !
 selectItem:anItem
 toggleSelectItem:anItem
 "toggle selection-state of the item; add or remove the item from the
 current selection.
 "
 anItem notNil ifTrue:[
-(self includes:anItem) ifTrue:[self remove:anItem]
+	(self includes:anItem) ifTrue:[self remove:anItem]
-ifFalse:[self add:anItem]
+			      ifFalse:[self add:anItem]
 ].
 ^ anItem
 ! !
 !ViewTreeInspectorApplication::ViewTreeModel methodsFor:'selection enumerating'!
 |unselected rootView rootItem selSize|
 selSize := selection size.
 selSize == 0 ifTrue:[
-selectedSuperItems := #().
+	selectedSuperItems := #().
 ] ifFalse:[
-selSize == 1 ifTrue:[
+	selSize == 1 ifTrue:[
-selectedSuperItems := Array with:(selection at:1).
+	    selectedSuperItems := Array with:(selection at:1).
-] ifFalse:[
+	] ifFalse:[
-rootItem := listOfItems root.
+	    rootItem := listOfItems root.
-(selection includesIdentical:rootItem) ifTrue:[
+	    (selection includesIdentical:rootItem) ifTrue:[
-selectedSuperItems := Array with:rootItem.
+		selectedSuperItems := Array with:rootItem.
-] ifFalse:[
+	    ] ifFalse:[
-selectedSuperItems := OrderedCollection new:selSize.
+		selectedSuperItems := OrderedCollection new:selSize.
-selection do:[:anItem|
+		selection do:[:anItem|
-anItem parentsDetect:[:el| selection includesIdentical:el ]
+		    anItem parentsDetect:[:el| selection includesIdentical:el ]
-ifNone:[ selectedSuperItems add:anItem ].
+				  ifNone:[ selectedSuperItems add:anItem ].
-].
+		].
-]
+	    ]
-]
+	]
 ].
 (     hiddenLevel == 0
 and:[(rootView := listOfItems rootView) notNil
 and:[rootView shown]]
 ) ifTrue:[
-selSize == 0 ifTrue:[
+	selSize == 0 ifTrue:[
-"/ must redraw the old selection unselected
+	    "/ must redraw the old selection unselected
-self redrawUnselected:oldSelection andLock:false
+	    self redrawUnselected:oldSelection andLock:false
-] ifFalse:[
+	] ifFalse:[
-self invalidateSelection.
+	    self invalidateSelection.
-oldSelection size ~~ 0 ifTrue:[
+	    oldSelection size ~~ 0 ifTrue:[
-"/ must redraw all elements no longer in the selection
+		"/ must redraw all elements no longer in the selection
-unselected := oldSelection select:[:el| (selection includesIdentical:el) not ].
+		unselected := oldSelection select:[:el| (selection includesIdentical:el) not ].
-self redrawUnselected:unselected andLock:false.
+		self redrawUnselected:unselected andLock:false.
-]
+	    ]
-]
+	]
 ].
 super changed:aParameter with:oldSelection.
 !
 setValue:aNewSelection
 "set the selection without notifying
 "
 |newSelect idx|
 newSelect := nil.
 aNewSelection notNil ifTrue:[
-lockSema critical:[
+	lockSema critical:[
-aNewSelection isCollection ifFalse:[
+	    aNewSelection isCollection ifFalse:[
-(selection size == 1 and:[selection first == aNewSelection]) ifTrue:[
+		(selection size == 1 and:[selection first == aNewSelection]) ifTrue:[
-newSelect := selection
+		    newSelect := selection
-] ifFalse:[
+		] ifFalse:[
-newSelect := Array with:aNewSelection.
+		    newSelect := Array with:aNewSelection.
-]
+		]
-] ifTrue:[
+	    ] ifTrue:[
-aNewSelection notEmpty ifTrue:[
+		aNewSelection notEmpty ifTrue:[
-aNewSelection size ~~ selection size ifTrue:[
+		    aNewSelection size ~~ selection size ifTrue:[
-newSelect := aNewSelection copy.
+			newSelect := aNewSelection copy.
-] ifFalse:[
+		    ] ifFalse:[
-idx := selection findFirst:[:el| (aNewSelection includesIdentical:el) not ].
+			idx := selection findFirst:[:el| (aNewSelection includesIdentical:el) not ].
-idx ~~ 0 ifTrue:[newSelect := aNewSelection copy]
+			idx ~~ 0 ifTrue:[newSelect := aNewSelection copy]
-ifFalse:[newSelect := selection ].
+				ifFalse:[newSelect := selection ].
-]
+		    ]
-]
+		]
-]
+	    ]
-].
+	].
 ].
 newSelect ~~ selection ifTrue:[
-beforeSelectionChangedAction value.
+	beforeSelectionChangedAction value.
-selection := newSelect.
+	selection := newSelect.
-selection notNil ifTrue:[selection do:[:el| el makeVisible]]
+	selection notNil ifTrue:[selection do:[:el| el makeVisible]]
 ].
 !
 triggerValue:aValue
 "set my value & send change notifications to my dependents.
 Send the change message even if the value didn't change.
 "
 |oldSelection|
 lockSema critical:[
-oldSelection := selection.
+	oldSelection := selection.
-self setValue:aValue.
+	self setValue:aValue.
-self changed:#value with:oldSelection
+	self changed:#value with:oldSelection
 ]
 !
 value
 "returns the current selection
 dependents if it changed.
 "
 |oldSelection|
 lockSema critical:[
-oldSelection := selection.
+	oldSelection := selection.
-self setValue:aValue.
+	self setValue:aValue.
-oldSelection == selection ifFalse:[
+	oldSelection == selection ifFalse:[
-self changed:#value with:oldSelection
+	    self changed:#value with:oldSelection
-]
+	]
 ].
 ! !
 !ViewTreeInspectorApplication::ViewTreeModel methodsFor:'selection searching'!
 "return true, if all items of the collection are included in the current selection
 "
 |keptSelection|
 aCollection size ~~ 0 ifTrue:[
-"/ the selection may change at any time (may it?)
+	"/ the selection may change at any time (may it?)
-(keptSelection := selection) isNil ifTrue:[ ^ false ].
+	(keptSelection := selection) isNil ifTrue:[ ^ false ].
-^ aCollection contains:[:el| (keptSelection includesIdentical:el)]
+	^ aCollection contains:[:el| (keptSelection includesIdentical:el)]
 ].
 ^ true
 "Modified (format): / 12-02-2017 / 11:51:14 / cg"
 !
 "return true, if any item of the collection is in the current selection
 "
 |keptSelection|
 aCollection notNil ifTrue:[
-"/ the selection may change at any time (may it?)
+	"/ the selection may change at any time (may it?)
-(keptSelection := selection) notNil ifTrue:[
+	(keptSelection := selection) notNil ifTrue:[
-^ aCollection contains:[:el| (keptSelection includesIdentical:el)]
+	    ^ aCollection contains:[:el| (keptSelection includesIdentical:el)]
-]
+	]
 ].
 ^ false
 "Modified (format): / 12-02-2017 / 11:50:26 / cg"
 !
 "
 Kind of HierarchicalList class which contains all the visible
 ViewTreeItem's and the root, the anchor of the hierarchical list.
 [Instance variables:]
-treeModel       <ViewTreeModel>         all events are delegated to
+	treeModel       <ViewTreeModel>         all events are delegated to
-eventHook       <BlockValue>            save and resore the pre/post -EventHook
+	eventHook       <BlockValue>            save and resore the pre/post -EventHook
 [author:]
-Claus Atzkern
+	Claus Atzkern
 [see also:]
-HierarchicalList
+	HierarchicalList
-ViewTreeModel
+	ViewTreeModel
-ViewTreeItem
+	ViewTreeItem
 "
 ! !
 !ViewTreeInspectorApplication::ViewTreeModel::ItemList methodsFor:'accessing'!
 rootView := self rootView.
 super root:theRoot.
 rootView notNil ifTrue:[ |wgrp|
-wgrp := rootView windowGroup.
+	wgrp := rootView windowGroup.
-wgrp notNil ifTrue:[
+	wgrp notNil ifTrue:[
-wgrp removePreEventHook:treeModel.
+	   wgrp removePreEventHook:treeModel.
-wgrp removePostEventHook:self.
+	   wgrp removePostEventHook:self.
-].
+	].
 ].
 super root:theRoot.
 rootView := self rootView.
 rootView notNil ifTrue:[
-"must setup a task because there might not exist a windowGroup at the moment
+	"must setup a task because there might not exist a windowGroup at the moment
-"
+	"
-[   |wgrp|
+	[   |wgrp|
-[rootView == self rootView] whileTrue:[
+	    [rootView == self rootView] whileTrue:[
-wgrp := rootView windowGroup.
+		wgrp := rootView windowGroup.
-wgrp notNil ifTrue:[
+		wgrp notNil ifTrue:[
-rootView := nil.
+		    rootView := nil.
-wgrp addPreEventHook:treeModel.
+		    wgrp addPreEventHook:treeModel.
-wgrp addPostEventHook:self.
+		    wgrp addPostEventHook:self.
-] ifFalse:[
+		] ifFalse:[
-Delay waitForMilliseconds:100.
+		    Delay waitForMilliseconds:100.
-].
+		].
-].
+	    ].
-] forkAt:(Processor userSchedulingPriority + 2).
+	] forkAt:(Processor userSchedulingPriority + 2).
 ].
 treeModel notNil ifTrue:[
-treeModel targetWidgetChanged.
+	treeModel targetWidgetChanged.
 ].
 ^ root.
 !
 rootView
 "returns the widget assigned to the root or nil
 |widget l applClass applClassName key|
 l := nil.
 showWidgetNames == true ifTrue:[
-(widget := anItem widget) notNil ifTrue:[
+	(widget := anItem widget) notNil ifTrue:[
-l := '"', widget name, '"'
+	    l := '"', widget name, '"'
-] ifFalse:[
+	] ifFalse:[
-l := '"', anItem menuItem label asString, '"'
+	    l := '"', anItem menuItem label asString, '"'
-].
+	].
 ].
 anItem isApplicationClass ifTrue:[
-applClass := anItem applicationClass.
+	applClass := anItem applicationClass.
-applClass notNil ifTrue:[
+	applClass notNil ifTrue:[
-applClassName := '[', applClass name allBold, ']'.
+	    applClassName := '[', applClass name allBold, ']'.
-l := (l isNil ifTrue:[''] ifFalse:[l , ' ']) , applClassName
+	    l := (l isNil ifTrue:[''] ifFalse:[l , ' ']) , applClassName
-].
+	].
 ].
 application notNil ifTrue:[
-key := application builder namedComponents keyAtValue:widget ifAbsent:nil.
+	key := application builder namedComponents keyAtValue:widget ifAbsent:nil.
-key notNil ifTrue:[
+	key notNil ifTrue:[
-l := l , ' #',key
+	    l := l , ' #',key
-].
+	].
 ].
 ^ l
 "Modified: / 16-08-2017 / 12:47:12 / cg"
 showWidgetNames:aBoolean
 "set true if the additional text is the widget name
 otherwise the name of the application"
 self showWidgetNames == aBoolean ifFalse:[
-showWidgetNames := aBoolean.
+	showWidgetNames := aBoolean.
-root notNil ifTrue:[
+	root notNil ifTrue:[
-root recursiveAdditionalNameBehaviourChanged.
+	    root recursiveAdditionalNameBehaviourChanged.
-self changed.
+	    self changed.
-].
+	].
 ].
 ! !
 !ViewTreeInspectorApplication::ViewTreeModel::ItemList methodsFor:'event processing'!
 "returns the bottom-most item which contains the view
 "
 |view item topView|
 root notNil ifTrue:[
-view    := aView.
+	view    := aView.
-topView := root widget.
+	topView := root widget.
-[ view notNil ] whileTrue:[
+	[ view notNil ] whileTrue:[
-topView == view ifTrue:[^ root].
+	    topView == view ifTrue:[^ root].
-item := root recursiveDetect:[:el| el widget == view ].
+	    item := root recursiveDetect:[:el| el widget == view ].
-item notNil ifTrue:[^ item].
+	    item notNil ifTrue:[^ item].
-view := view superView
+	    view := view superView
-]
+	]
 ].
 ^ nil
 !
 recursiveDetect:aOneOrgBlock
 "recursive find the first child, for which evaluation
 of the block returns true; if none nil is returned
 "
 root notNil ifTrue:[
-(aOneOrgBlock value:root) ifTrue:[ ^ root ].
+	(aOneOrgBlock value:root) ifTrue:[ ^ root ].
 ^ root recursiveDetect:aOneOrgBlock
 ].
 ^ nil
 ! !

changeset 3524	366f04fbfb23
parent 3500	51cbdcf5b2cb
child 3525	5df4da794cd2