"

 COPYRIGHT (c) 2007 by eXept Software AG

              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

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool2' }"

"{ NameSpace: Tools }"

ToolApplicationModel subclass:#ViewTreeInspectorApplication

	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint

		motionAction process followFocusChannel showNamesHolder

		inspectorView inspectorModeIndexHolder path

		isCatchingEventsChannel browser'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

Object subclass:#MenuDesc

	instanceVariableNames:'title value action'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ViewTreeInspectorApplication

!

HierarchicalItem subclass:#ViewTreeItem

	instanceVariableNames:'widget menuItem isDrawnShown exists xOffsetAdditionalName'

	classVariableNames:'HandleExtent'

	poolDictionaries:''

	privateIn:ViewTreeInspectorApplication

!

ValueModel subclass:#ViewTreeModel

	instanceVariableNames:'lockSema selectedSuperItems selection hiddenLevel listOfItems

		inputEventAction mappedViewAction beforeSelectionChangedAction

		icons timedUpdateTask selectOnClickHolder testModeChannel

		hasTargetWidgetChannel catchEvents'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ViewTreeInspectorApplication

!

HierarchicalList subclass:#ItemList

	instanceVariableNames:'treeModel eventHook eventHookInitialized showWidgetNames'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ViewTreeInspectorApplication::ViewTreeModel

!

!ViewTreeInspectorApplication class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2007 by eXept Software AG

              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

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

     Small application showing a ViewTreeModel use.

     It displays a hierarchical list of a selected TopView and

     all its contained subViews.

     Useful to have a look at subcomponents - to see how views

     are structured.

    [Instance variables:]

        model           <ViewTreeModel>      the used ViewTreeModel

        clickedItem     <ViewTreeItem>       item under the clickedPoint (motion action)

        clickedPoint    <Point>              point where the motion action started from.

        motionAction    <Action>             (oneArg-) action called durring buttonMotion.

    [author:]

        Claus Atzkern

    [see also:]

        ViewTreeModel

        ViewTreeItem

"

! !

!ViewTreeInspectorApplication class methodsFor:'initialization'!

initialize

    "add myself to the launcher menu

    "

    self installInLauncher.

!

installInLauncher

    "add myself to the launcher menu"

    |menuItem icon|

    NewLauncher isNil ifTrue:[^ self].

    "/ 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.

"/

"/    menuItem startGroup:#right.

"/    NewLauncher addMenuItem:menuItem in:'toolbar'

"/                   position:#( #before #help)

"/                      space:false.

    "

     self installInLauncher

     self removeFromLauncher

    "

!

postAutoload

    "add myself to the launcher menu

    "

    self installInLauncher.

"

self installInLauncher

self removeFromLauncher

"

!

removeFromLauncher

    "remove myself from the launcher menu

    "

    NewLauncher isNil ifTrue:[^ self].

    NewLauncher removeUserTool:#viewInspect

"

self installInLauncher

self removeFromLauncher

"

!

unload

    "class is about to be unloaded - remove myself from the launcher menu

    "

    self removeFromLauncher.

    super unload.

! !

!ViewTreeInspectorApplication class methodsFor:'help specs'!

flyByHelpSpec

    <resource: #help>

    ^super flyByHelpSpec 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'!

crossHairIcon

    ^ ToolbarIconLibrary bigCrossHairIcon

!

lockViewIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self lockViewIcon inspect

     ImageEditor openOnClass:self andSelector:#lockViewIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'Tools::ViewTreeInspectorApplication lockViewIcon'

        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$)_

"P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[132 141 152 147 150 154 250 223 1 246 214 0 205 172 133 238 195 0 213 180 146 217 186 150 188 136 0 206 151 0 183 125 9 208 208 202 196 204 214 255 255 210 255 255 219 210 178 65 242 242 235 106 112 117 96 107 126 250 255 255 255 241 0 154 154 151 255 227 0 67 35 0 52 17 0 253 211 0 208 159 0 167 178 193 222 168 0 248 231 45 208 174 26 199 152 26 225 184 36 255 249 75 220 220 215 77 88 108 241 241 235 245 245 239 255 250 109 242 249 255 255 255 142 255 237 1 142 148 162 242 212 1 143 154 176 174 133 0 222 189 144 169 179 192 177 184 193 184 129 0 255 255 194 253 241 60 210 210 205 214 214 209 77 83 92 230 230 225 98 106 114 243 243 238 117 117 114 255 252 115 255 255 255 115 123 147 130 140 156 152 156 159 241 210 0 53 18 0 151 116 0 162 170 184 218 187 150 193 143 4 220 165 0 206 188 46 181 130 21 204 173 44 206 206 201 208 167 44 72 84 108 240 240 234 244 244 238 243 243 237 212 182 79 255 255 126 131 135 141 119 133 159 132 141 163 195 162 126 219 188 133 218 185 135 180 180 176 221 190 150 175 181 191 176 183 196 181 189 201 202 170 38 209 209 204 207 207 202 251 241 74 229 229 224 238 238 233 226 234 245 244 244 237 255 251 113 255 255 124 255 241 2 255 234 3 249 219 0 255 249 29 252 243 30 227 181 0 212 165 5 222 170 0 173 179 194 216 171 19 255 255 198 208 208 203 156 90 7 206 175 50 91 91 95 211 180 71 242 242 237 246 246 241 212 182 80 255 255 123 129 137 152 255 239 8 251 223 0 59 25 0 251 215 0 228 183 0 222 191 149 249 238 43 177 186 197 187 129 0 186 194 206 209 209 203 249 238 67 255 255 211 226 226 221 235 235 229 100 103 111 76 93 127 255 255 112 88 104 139 130 135 148 149 155 158 247 218 0 224 194 126 255 217 0 228 184 0 13 30 68 161 138 32 204 152 0 255 255 53 206 155 18 207 207 201 255 250 72 255 255 82 209 176 59 232 232 227 243 243 236 245 245 240 255 255 115 255 255 251]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@G8@@O<@@_>@@^^@@\N@@\N@@?? @?? @?? @?? @?? @?? @?? @?? @_?@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]

!

releaseViewIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self releaseViewIcon inspect

     ImageEditor openOnClass:self andSelector:#releaseViewIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'Tools::ViewTreeInspectorApplication releaseViewIcon'

        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$)_

"P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[132 141 152 147 150 154 250 223 1 246 214 0 205 172 133 238 195 0 213 180 146 217 186 150 188 136 0 206 151 0 183 125 9 208 208 202 196 204 214 255 255 210 255 255 219 210 178 65 242 242 235 106 112 117 96 107 126 250 255 255 255 241 0 154 154 151 255 227 0 67 35 0 52 17 0 253 211 0 208 159 0 167 178 193 222 168 0 248 231 45 208 174 26 199 152 26 225 184 36 255 249 75 220 220 215 77 88 108 241 241 235 245 245 239 255 250 109 242 249 255 255 255 142 255 237 1 142 148 162 242 212 1 143 154 176 174 133 0 222 189 144 169 179 192 177 184 193 184 129 0 255 255 194 253 241 60 210 210 205 214 214 209 77 83 92 230 230 225 98 106 114 243 243 238 117 117 114 255 252 115 255 255 255 115 123 147 130 140 156 152 156 159 241 210 0 53 18 0 151 116 0 162 170 184 218 187 150 193 143 4 220 165 0 206 188 46 181 130 21 204 173 44 206 206 201 208 167 44 72 84 108 240 240 234 244 244 238 243 243 237 212 182 79 255 255 126 131 135 141 119 133 159 132 141 163 195 162 126 219 188 133 218 185 135 180 180 176 221 190 150 175 181 191 176 183 196 181 189 201 202 170 38 209 209 204 207 207 202 251 241 74 229 229 224 238 238 233 226 234 245 244 244 237 255 251 113 255 255 124 255 241 2 255 234 3 249 219 0 255 249 29 252 243 30 227 181 0 212 165 5 222 170 0 173 179 194 216 171 19 255 255 198 208 208 203 156 90 7 206 175 50 91 91 95 211 180 71 242 242 237 246 246 241 212 182 80 255 255 123 129 137 152 255 239 8 251 223 0 59 25 0 251 215 0 228 183 0 222 191 149 249 238 43 177 186 197 187 129 0 186 194 206 209 209 203 249 238 67 255 255 211 226 226 221 235 235 229 100 103 111 76 93 127 255 255 112 88 104 139 130 135 148 149 155 158 247 218 0 224 194 126 255 217 0 228 184 0 13 30 68 161 138 32 204 152 0 255 255 53 206 155 18 207 207 201 255 250 72 255 255 82 209 176 59 232 232 227 243 243 236 245 245 240 255 255 115 255 255 251]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@G8@@O<@@O>@@@^@@@N@@@N@@?? @?? @?? @?? @?? @?? @?? @?? @_?@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]

! !

!ViewTreeInspectorApplication class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#windowSpec

     Tools::ViewTreeInspectorApplication new openInterface:#windowSpec

     Tools::ViewTreeInspectorApplication open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'View Tree Inspector'

         name: 'View Tree Inspector'

         min: (Point 10 10)

         max: (Point 1024 9999)

         bounds: (Rectangle 0 0 693 643)

         menu: menu

       )

       component: 

      (SpecCollection

         collection: (

          (MenuPanelSpec

             name: 'toolbarMenu'

             layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)

             menu: toolbarMenu

             textDefault: true

           )

          (VariableVerticalPanelSpec

             name: 'VariableVerticalPanel1'

             layout: (LayoutFrame 0 0.0 40 0.0 0 1.0 0 1.0)

             component: 

            (SpecCollection

               collection: (

                (ViewSpec

                   name: 'PathAndListPane'

                   component: 

                  (SpecCollection

                     collection: (

                      (ViewSpec

                         name: 'PathPane'

                         layout: (LayoutFrame 0 0 0 0 0 1 25 0)

                         component: 

                        (SpecCollection

                           collection: (

                            (InputFieldSpec

                               name: 'Path'

                               layout: (LayoutFrame 0 0 0 0 0 1 0 1)

                               model: path

                               acceptOnReturn: true

                               acceptOnTab: true

                               acceptOnPointerLeave: true

                               emptyFieldReplacementText: 'No View Selected'

                             )

                            )

                         )

                       )

                      (HierarchicalListViewSpec

                         name: 'List'

                         layout: (LayoutFrame 0 0 25 0 0 1 0 1)

                         level: 1

                         model: model

                         menu: middleButtonMenu

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         miniScrollerHorizontal: true

                         miniScrollerVertical: false

                         listModel: listOfItems

                         multipleSelectOk: true

                         useIndex: false

                         highlightMode: label

                         showLeftIndicators: false

                         indicatorSelector: indicatorClicked:

                         useDefaultIcons: false

                         postBuildCallback: postBuildTree:

                       )

                      )

                   )

                 )

                (ViewSpec

                   name: 'Box2'

                   component: 

                  (SpecCollection

                     collection: (

                      (TabViewSpec

                         name: 'TabHeader1'

                         layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)

                         model: inspectorModeIndexHolder

                         menu: inspectorModes

                         useIndex: true

                         translateLabel: true

                       )

                      (SubCanvasSpec

                         name: 'Browser'

                         layout: (LayoutFrame 0 0 26 0 0 1 0 1)

                         visibilityChannel: browserVisibleHolder

                         hasHorizontalScrollBar: true

                         hasVerticalScrollBar: true

                         majorKey: #'Tools::NewSystemBrowser'

                         minorKey: singleClassWithoutVariableListBrowserSpec

                         createNewApplication: true

                         createNewBuilder: true

                         postBuildCallback: postBuildBrowserCanvas:

                       )

                      (ViewSpec

                         name: 'Inspector'

                         layout: (LayoutFrame 0 0 26 0 0 1 0 1)

                         visibilityChannel: inspectorVisibleHolder

                         postBuildCallback: postBuildInspectorView:

                         viewClassName: 'InspectorView'

                       )

                      )

                   )

                 )

                )

             )

             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

            label: 'File'

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Pick a View'

                  itemValue: doPickView

                )

               (MenuItem

                  enabled: hasTargetWidgetChannel

                  label: 'Release Picked View'

                  itemValue: doUnpick

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Settings'

                  submenu: 

                 (Menu

                    (

                     (MenuItem

                        label: 'Test Mode'

                        hideMenuOnActivated: false

                        indication: testModeChannel

                      )

                     (MenuItem

                        enabled: testModeChannel

                        label: 'Follow Focus'

                        hideMenuOnActivated: false

                        indication: followFocusChannel

                      )

                     (MenuItem

                        label: '-'

                      )

                     (MenuItem

                        label: 'Select on Click'

                        hideMenuOnActivated: false

                        indication: selectOnClickHolder

                      )

                     (MenuItem

                        label: '-'

                      )

                     (MenuItem

                        label: 'Show Name of Widgets'

                        hideMenuOnActivated: false

                        indication: showNamesHolder

                      )

                     )

                    nil

                    nil

                  )

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Exit'

                  itemValue: closeRequest

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            enabled: hasSingleSelectionHolder

            label: 'Selection'

            submenuChannel: middleButtonMenu

          )

         (MenuItem

            label: 'Widget'

            submenu: 

           (Menu

              (

               (MenuItem

                  enabled: hasSingleSelectionHolder

                  label: 'Browse'

                  itemValue: doBrowse:

                  argument: view

                )

               (MenuItem

                  enabled: hasSingleSelectionHolder

                  label: 'Inspect'

                  itemValue: doInspect:

                  argument: view

                )

               (MenuItem

                  label: '-'