"{ Package: 'stx:libtool2' }"

"{ NameSpace: Tools }"

ApplicationModel subclass:#ViewTreeApplication

	instanceVariableNames:'model treeView hasSingleSelectionHolder clickedItem clickedPoint

		motionAction process followFocusChannel showNamesHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'A-Views-Support'

!

Object subclass:#MenuDesc

	instanceVariableNames:'title value action'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ViewTreeApplication

!

!ViewTreeApplication class methodsFor:'documentation'!

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

"

! !

!ViewTreeApplication 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].

    icon := ToolbarIconLibrary inspectLocals20x20Icon magnifiedTo:28@28.

    menuItem := MenuItem new 

                    label: 'View Inspector';

                    value: [ ViewTreeApplication 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.

! !

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

     Tools::ViewTreeApplication new openInterface:#windowSpec

     Tools::ViewTreeApplication open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'ViewTreeInspector'

          name: 'ViewTreeInspector'

          min: (Point 10 10)

          max: (Point 1024 9999)

          bounds: (Rectangle 0 0 381 654)

          menu: menu

        )

        component: 

       (SpecCollection

          collection: (

           (MenuPanelSpec

              name: 'toolbarMenu'

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

              menu: toolbarMenu

              textDefault: true

            )

           (HierarchicalListViewSpec

              name: 'List'

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

              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:

            )

           )

        )

      )

! !

!ViewTreeApplication 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: 'Exit'

                  itemValue: closeRequest

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         (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

            enabled: hasSingleSelectionHolder

            label: 'Menu'

            translateLabel: true

            submenuChannel: middleButtonMenu

          )

         (MenuItem

            enabled: hasTargetWidgetChannel

            label: 'Components'

            translateLabel: true

            startGroup: right

            submenuChannel: submenuComponents:

          )

         (MenuItem

            enabled: hasTargetWidgetChannel

            label: 'Applications'

            translateLabel: true

            submenuChannel: submenuApplications:

          )

         )

        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

            isVisible: hasApplication

            argument: application

          )

         (MenuItem

            label: 'Browse Controller Class'

            itemValue: doBrowse:

            translateLabel: true

            isVisible: hasController

            argument: controller

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Inspect View'

            itemValue: doInspect:

            translateLabel: true

            argument: view

          )

         (MenuItem

            label: 'Inspect Window Group'

            itemValue: doInspect:

            translateLabel: true

            argument: group

          )

         (MenuItem

            label: 'Inspect Model'

            itemValue: doInspect:

            translateLabel: true

            isVisible: hasModel

            argument: model

          )

         (MenuItem

            label: 'Inspect Application'

            itemValue: doInspect:

            translateLabel: true

            isVisible: hasApplication

            argument: application

          )

         (MenuItem

            label: 'Inspect Controller'

            itemValue: doInspect:

            translateLabel: true

            isVisible: hasController

            argument: controller

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Flash'

            itemValue: doFlash

            translateLabel: true

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Destroy'

            itemValue: doDestroy

            translateLabel: true

          )

         (MenuItem

            label: '-'

          )

         (MenuItem

            label: 'Instance Variables'

            translateLabel: true

            submenuChannel: submenuInspector:

            keepLinkedMenu: true

          )

         (MenuItem

            label: '='

          )

         (MenuItem

            label: ''

          )

         (MenuItem

            enabled: selectedComponentHasChildren

            label: 'Applications'

            nameKey: single

            translateLabel: true

            submenuChannel: submenuApplications:

            keepLinkedMenu: true

          )

         (MenuItem

            enabled: selectedComponentHasChildren

            label: 'Components'

            nameKey: single

            translateLabel: true

            submenuChannel: submenuComponents:

            keepLinkedMenu: true

          )

         )

        nil

        nil

      )

!

toolbarMenu

    "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:#toolbarMenu

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

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            enabled: hasSingleSelectionHolder

            label: 'Application'

            itemValue: doBrowse:

            translateLabel: false

            labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2)

            argument: application

          )

         (MenuItem

            enabled: hasSingleSelectionHolder

            label: 'Application'

            itemValue: doInspect:

            translateLabel: false

            labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon 'Application')

            argument: application

          )

         (MenuItem

            label: ''

          )

         (MenuItem

            enabled: hasSingleSelectionHolder

            label: 'Widget'

            itemValue: doBrowse:

            translateLabel: false

            labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2)

            argument: view

          )

         (MenuItem

            enabled: hasSingleSelectionHolder

            label: 'Widget'

            itemValue: doInspect:

            translateLabel: true

            labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon 'Widget')

            argument: view

          )

         )

        nil

        nil

      )

! !

!ViewTreeApplication methodsFor:'actions'!

indicatorClicked:anIndex

    |item sensor|

    item := model listOfItems at:anIndex ifAbsent:nil.

    item notNil ifTrue:[

        (     (sensor := self window sensor) notNil

         and:[(sensor ctrlDown or:[sensor shiftDown])]

        ) ifTrue:[

            item recursiveToggleExpand

        ] ifFalse:[

            item toggleExpand

        ]

    ].