"

 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'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

Object subclass:#MenuDesc

	instanceVariableNames:'title value action'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ViewTreeInspectorApplication

!

HierarchicalItem subclass:#ViewTreeItem

	instanceVariableNames:'widget 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'

	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:'image specs'!

pickWindowIcon

    "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 pickWindowIcon inspect

     ImageEditor openOnClass:self andSelector:#pickWindowIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

        constantNamed:'Tools::ViewTreeInspectorApplication class pickWindowIcon'

        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

,;N3,;N3,;N3,;N3,;N3,;N3,;N3,3H<P38;M3P,H2@^GA(VEQHQCP0KA D<[&-%XU=WST%BN#D!!GQ$TD@(IBP\BQF)+Z6E_U4-FPCX+G1,WEA@JBP$HAT23

,;N3,;N3,;N3,;N$():Z&IRR&1!!^,;N3,;N3,;N3,;N$)JJ^&)"T$),0W[N3,;N3,;N3,;N3,:R"'')*X%IJWK523,;N3,;N3,0@@@KN3)JJ^&)"T$"5Z,;N3

,;N3@@B3-KL@@JJ^&)"T$)D*V[N3,;N3@KN3-KR4)JH@&)"T$)*MJE"3,;N3,0B3)JJ4&*R"@I*X%IJZ#RYV,;N3,0B3@JR"-JR"-I(@%IJV%H %U[N3,;L@

-@B4-KR4-KR4@IRR%IJEIER3,;N3@KL@)JJ4():4&@BO#9RR!!RIS,;N3,;L@,:R"-JJ^& BT#8>O#8H"T+N3,;N3@KN$@@@@'')(@%H>O#(>AH%F3,;N3,;L@

@JR4'' @@%IJO#8>O RIO,;N3,;N3):P@@@BX%IJO#8>O#7<"S*63,;N$():Z&IRR&IRR#8>O#8=>H"&-,;N$():Z&IRR&)"T$(>O#8>O @<)R$!!GQTD?OS$8

MSL.I2H"H"H"H"HO,;N3,;N3,;N3,;N3,;N3,;N3,;N3,0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 50 164 0 50 171 0 137 0 0 206 0 1 50 177 2 56 178 3 64 241 3 67 246 3 73 255 4 74 255 5 63 191 7 66 194 10 71 196 10 79 255 12 59 167 12 82 255 14 77 199 18 83 201 19 88 255 21 91 255 23 89 204 27 95 206 28 97 255 29 72 179 30 100 255 32 101 209 36 106 255 36 107 211 39 109 255 41 113 214 45 115 255 45 119 216 48 118 255 50 87 176 50 125 219 51 88 176 51 88 177 52 89 178 52 90 178 53 90 178 53 127 212 54 91 179 54 123 255 54 131 221 55 92 180 55 95 181 56 93 180 56 94 181 57 127 255 57 149 229 58 99 184 58 137 224 61 104 187 63 132 255 63 143 226 64 108 190 66 113 193 66 135 255 67 149 229 68 157 232 69 117 196 71 155 231 72 122 199 72 141 255 75 126 202 75 144 255 75 160 234 77 163 236 78 131 206 80 149 255 81 136 209 84 140 212 84 153 255 87 145 215 88 157 255 91 168 235 93 161 255 94 154 222 96 157 223 96 165 255 97 159 225 98 160 225 98 162 226 99 163 227 100 165 228 101 166 229 101 170 255 102 167 230 103 169 231 104 170 232 104 173 255 105 172 233 105 174 234 106 175 235 109 178 255 112 180 255 117 186 255 119 187 255 122 154 245 125 160 253 125 193 255 126 161 253 126 194 255 127 162 254 130 165 254 132 200 255 132 201 255 133 60 36 135 170 255 139 207 255 140 175 255 144 179 255 149 184 255 153 188 255 157 192 255 162 196 255 166 200 255 170 204 255 174 208 255 174 218 230 177 212 255 181 215 255 185 219 255 188 222 255 191 225 255 212 211 224 218 217 230 219 219 230 220 220 231 222 221 232 223 223 233 225 224 234 225 225 234 226 226 237 227 226 235 227 227 236 227 227 238 228 228 237 229 229 239 231 230 238 231 231 238 231 231 240 232 232 241 233 232 239 233 233 240 234 234 242 235 234 241 236 236 243 237 236 242 237 237 244 238 237 243 238 238 244 239 238 243 239 239 245 240 239 244 241 240 245 241 241 246 241 241 247 242 242 246 242 242 247 243 243 247 243 243 248 244 244 248 244 244 249 245 244 247 246 246 249 246 246 250 247 246 249 247 247 250 248 248 251 249 249 250 249 249 251 250 250 251 250 250 252 251 251 252 251 251 253 253 253 254 254 254 255 255 255 255 0 0 0]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@C????????????????????????????????????????????????????????????????????????????????@@@C') ; 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."

    "

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'View Tree Inspector'

          min: (Point 10 10)

          max: (Point 1024 9999)

          bounds: (Rectangle 0 0 381 654)

          menu: menu

        )

        component: 

       (SpecCollection

          collection: (

           (MenuPanelSpec

              name: 'toolbarMenu'

              menu: toolbarMenu

              textDefault: true

            )

           (HierarchicalListViewSpec

              name: 'List'

              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:

            )

           )

        )

      )

! !

!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::ViewTreeApplication andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeApplication menu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'File'

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Pick a View'

                  itemValue: doPickViews

                  translateLabel: true

                )

               (MenuItem

                  enabled: hasTargetWidgetChannel

                  label: 'Release Picked View'

                  itemValue: doUnpick

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Settings'

                  translateLabel: true

                  submenu: 

                 (Menu

                    (

                     (MenuItem

                        label: 'Test Mode'

                        translateLabel: true

                        hideMenuOnActivated: false

                        indication: testModeChannel

                      )

                     (MenuItem

                        enabled: testModeChannel

                        label: 'Follow Focus'

                        translateLabel: true

                        hideMenuOnActivated: false

                        indication: followFocusChannel

                      )

                     (MenuItem

                        label: '-'

                      )

                     (MenuItem

                        label: 'Select on Click'

                        translateLabel: true

                        hideMenuOnActivated: false

                        indication: selectOnClickHolder

                      )

                     (MenuItem

                        label: '-'

                      )

                     (MenuItem

                        label: 'Show Name of Widgets'

                        translateLabel: true

                        hideMenuOnActivated: false

                        indication: showNamesHolder

                      )

                     )

                    nil

                    nil

                  )

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'Exit'

                  itemValue: closeRequest

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            enabled: hasSingleSelectionHolder

            label: 'Selection'

            translateLabel: true

            submenuChannel: middleButtonMenu

          )

         (MenuItem

            label: 'Application'

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  enabled: hasSingleSelectionHolder

                  label: 'Browse'

                  itemValue: doBrowse:

                  translateLabel: true

                  argument: application

                )

               (MenuItem

                  enabled: hasSingleSelectionHolder

                  label: 'Inspect'

                  itemValue: doInspect:

                  translateLabel: true

                  argument: application

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  enabled: hasTargetWidgetChannel

                  label: 'All Applications'

                  translateLabel: true

                  submenuChannel: submenuApplications:

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Widget'

            translateLabel: true

            submenu: 

           (Menu

              (

               (MenuItem

                  enabled: hasSingleSelectionHolder

                  label: 'Browse'

                  itemValue: doBrowse:

                  translateLabel: true

                  argument: view

                )

               (MenuItem

                  enabled: hasSingleSelectionHolder

                  label: 'Inspect'

                  itemValue: doInspect:

                  translateLabel: true

                  argument: view

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  enabled: hasTargetWidgetChannel

                  label: 'All Components'

                  translateLabel: true

                  startGroup: right

                  submenuChannel: submenuComponents:

                )

               )

              nil

              nil

            )

          )

         (MenuItem

            label: 'Help'

            translateLabel: true

            startGroup: conditionalRight

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Documentation'

                  itemValue: openDocumentation

                  translateLabel: true

                )

               (MenuItem

                  label: '-'

                )

               (MenuItem

                  label: 'About this Application...'

                  itemValue: openAboutThisApplication

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

!

middleButtonMenu

    "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:ViewTreeApplication andSelector:#middleButtonMenu

     (Menu new fromLiteralArrayEncoding:(ViewTreeApplication middleButtonMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Geometry'

            translateLabel: true

            submenuChannel: submenuGeometry:

            keepLinkedMenu: true

          )

         (MenuItem

            label: 'Interface'

            translateLabel: true

            submenuChannel: submenuInterface:

            keepLinkedMenu: true

          )

         (MenuItem

            label: 'Visibility'

            translateLabel: true

            submenuChannel: submenuVisibility:

            keepLinkedMenu: true

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Browse View Class'

            itemValue: doBrowse:

            translateLabel: true

            argument: view

          )

         (MenuItem

            label: 'Browse Model Class'

            itemValue: doBrowse:

            translateLabel: true

            isVisible: hasModel

            argument: model

          )

         (MenuItem

            label: 'Browse Application Class'

            itemValue: doBrowse:

            translateLabel: true