"

 COPYRIGHT (c) 2000 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:libtool' }"

"{ NameSpace: Tools }"

NavigatorModel subclass:#NavigatorCanvas

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

!NavigatorCanvas class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2000 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.

"

! !

!NavigatorCanvas class methodsFor:'interface specs'!

categoryAndClassOnlySpec

    "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:NavigatorCanvas andSelector:#categoryAndClassOnlySpec

     NavigatorCanvas new openInterface:#categoryAndClassOnlySpec

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #fullClassSourceBrowserSpec

        #window: 

       #(#WindowSpec

          #label: 'Full Class Browser'

          #name: 'Full Class Browser'

          #min: #(#Point 0 0)

          #bounds: #(#Rectangle 18 51 480 351)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#SubCanvasSpec

              #name: 'Organizer'

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

              #majorKey: #'OrganizerCanvas'

              #minorKey: #windowSpecWithoutMetaToggles

              #subAspectHolders: 

             #(#Array

               #(#SubChannelInfoSpec

                  #subAspect: #classCategoryListMenuHolder

                  #aspect: #categoryPopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #classCategoryDoubleClickChannel

                  #callBack: #classCategoryDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #classDoubleClickChannel

                  #callBack: #classDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #nameSpaceDoubleClickChannel

                  #callBack: #nameSpaceDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #projectDoubleClickChannel

                  #callBack: #projectDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #variableDoubleClickChannel

                  #callBack: #variableDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #classHierarchyListMenuHolder

                  #aspect: #hierarchyPopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #classHierarchyTopClass

                  #aspect: #classHierarchyTopClass

                )

               #(#SubChannelInfoSpec

                  #subAspect: #classListMenuHolder

                  #aspect: #classPopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #hidePrivateClasses

                  #aspect: #hidePrivateClasses

                )

               #(#SubChannelInfoSpec

                  #subAspect: #hideUnloadedClasses

                  #aspect: #hideUnloadedClasses

                )

               #(#SubChannelInfoSpec

                  #subAspect: #sortByNameAndInheritance

                  #aspect: #sortByNameAndInheritance

                )

               #(#SubChannelInfoSpec

                  #subAspect: #markApplicationsHolder

                  #aspect: #markApplicationsHolder

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #showClassPackages

                  #aspect: #showClassPackages

                )

                     #(#SubChannelInfoSpec

                        #subAspect: #showMethodInheritance

                        #aspect: #showMethodInheritance

                      )

"/                     #(#SubChannelInfoSpec

"/                        #subAspect: #showMethodComplexity

"/                        #aspect: #showMethodComplexity

"/                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #showCoverageInformation

                        #aspect: #showCoverageInformation

                      ) 

                     #(#SubChannelInfoSpec

                        #subAspect: #showMethodTypeIcon

                        #aspect: #showMethodTypeIcon

                      )

                     #(SubChannelInfoSpec

                        subAspect: showSyntheticMethods

                        aspect: showSyntheticMethods

                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #methodVisibilityHolder

                        #aspect: #methodVisibilityHolder

                      )

               #(#SubChannelInfoSpec

                  #subAspect: #immediateUpdate

                  #aspect: #immediateUpdate

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #meta

                  #aspect: #meta

                )

               #(#SubChannelInfoSpec

                  #subAspect: #metaToggleLabelHolder

                  #aspect: #metaToggleLabelHolder

                )

               #(#SubChannelInfoSpec

                  #subAspect: #nameSpaceListMenuHolder

                  #aspect: #nameSpacePopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #organizerMode

                  #aspect: #organizerMode

                )

               #(#SubChannelInfoSpec

                  #subAspect: #outGeneratorHolder

                  #aspect: #protocolListGenerator

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #packageFilter

                  #aspect: #packageFilter

                )

               #(#SubChannelInfoSpec

                  #subAspect: #projectListMenuHolder

                  #aspect: #projectPopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #selectedCategories

                  #aspect: #selectedCategories

                  #callBack: #categorySelectionChanged

                )

               #(#SubChannelInfoSpec

                  #subAspect: #selectedClasses

                  #aspect: #selectedClasses

                  #callBack: #classSelectionChanged

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #selectedNamespaces

                  #aspect: #selectedNamespaces

                )

               #(#SubChannelInfoSpec

                  #subAspect: #selectedProjects

                  #aspect: #selectedProjects

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #selectionChangeCondition

                  #aspect: #selectionChangeConditionHolder

                )

              )

              #createNewApplication: true

              #createNewBuilder: true

            )

           )

        )

      )

    "Modified: / 20-07-2011 / 14:19:31 / cg"

    "Modified: / 13-04-2012 / 16:14:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

categoryAndSingleClassOnlySpec

    "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:NavigatorCanvas andSelector:#categoryAndSingleClassOnlySpec

     NavigatorCanvas new openInterface:#categoryAndSingleClassOnlySpec

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #categoryAndSingleClassOnlySpec

        #window: 

       #(#WindowSpec

          #label: 'Full Class Browser'

          #name: 'Full Class Browser'

          #min: #(#Point 0 0)

          #bounds: #(#Rectangle 12 22 474 322)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#SubCanvasSpec

              #name: 'Organizer'

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

              #majorKey: #'OrganizerCanvas'

              #minorKey: #windowSpecWithoutMetaToggles

              #subAspectHolders: 

             #(#Array

               #(#SubChannelInfoSpec

                  #subAspect: #classCategoryListMenuHolder

                  #aspect: #categoryPopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #classCategoryDoubleClickChannel

                  #callBack: #classCategoryDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #classDoubleClickChannel

                  #callBack: #classDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #nameSpaceDoubleClickChannel

                  #callBack: #nameSpaceDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #projectDoubleClickChannel

                  #callBack: #projectDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #variableDoubleClickChannel

                  #callBack: #variableDoubleClicked

                )

               #(#SubChannelInfoSpec

                  #subAspect: #classHierarchyListMenuHolder

                  #aspect: #hierarchyPopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #classHierarchyTopClass

                  #aspect: #classHierarchyTopClass

                )

               #(#SubChannelInfoSpec

                  #subAspect: #classListMenuHolder

                  #aspect: #classPopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #hidePrivateClasses

                  #aspect: #hidePrivateClasses

                )

               #(#SubChannelInfoSpec

                  #subAspect: #hideUnloadedClasses

                  #aspect: #hideUnloadedClasses

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #sortByNameAndInheritance

                  #aspect: #sortByNameAndInheritance

                )

               #(#SubChannelInfoSpec

                  #subAspect: #markApplicationsHolder

                  #aspect: #markApplicationsHolder

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #showClassPackages

                  #aspect: #showClassPackages

                )

                     #(#SubChannelInfoSpec

                        #subAspect: #showMethodInheritance

                        #aspect: #showMethodInheritance

                      )

"/                     #(#SubChannelInfoSpec

"/                        #subAspect: #showMethodComplexity

"/                        #aspect: #showMethodComplexity

"/                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #showCoverageInformation

                        #aspect: #showCoverageInformation

                      ) 

                     #(#SubChannelInfoSpec

                        #subAspect: #showMethodTypeIcon

                        #aspect: #showMethodTypeIcon

                      )

                     #(SubChannelInfoSpec

                        subAspect: showSyntheticMethods

                        aspect: showSyntheticMethods

                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #methodVisibilityHolder

                        #aspect: #methodVisibilityHolder

                      )

               #(#SubChannelInfoSpec

                  #subAspect: #immediateUpdate

                  #aspect: #immediateUpdate

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #meta

                  #aspect: #meta

                )

               #(#SubChannelInfoSpec

                  #subAspect: #nameSpaceListMenuHolder

                  #aspect: #nameSpacePopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #organizerMode

                  #aspect: #organizerMode

                )

               #(#SubChannelInfoSpec

                  #subAspect: #outGeneratorHolder

                  #aspect: #protocolListGenerator

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #packageFilter

                  #aspect: #packageFilter

                )

               #(#SubChannelInfoSpec

                  #subAspect: #projectListMenuHolder

                  #aspect: #projectPopUpMenu

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #selectedCategories

                  #aspect: #selectedCategories

                  #callBack: #categorySelectionChanged

                )

               #(#SubChannelInfoSpec

                  #subAspect: #selectedClasses

                  #aspect: #selectedClasses

                  #callBack: #classSelectionChanged

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #selectedNamespaces

                  #aspect: #selectedNamespaces

                )

               #(#SubChannelInfoSpec

                  #subAspect: #selectedProjects

                  #aspect: #selectedProjects

                ) 

               #(#SubChannelInfoSpec

                  #subAspect: #selectionChangeCondition

                  #aspect: #selectionChangeConditionHolder

                )

              )

              #createNewApplication: true

              #createNewBuilder: true

            )

           )

        )

      )

    "Modified: / 20-07-2011 / 14:19:38 / cg"

    "Modified: / 13-04-2012 / 16:14:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

fullBrowserSpec

    ^UserPreferences current showEmbeddedTestRunnerInBrowser

        ifTrue: [self fullBrowserSpecWithEmbeddedTestRunner]

        ifFalse:[self fullBrowserSpecPlain]

    "Modified: / 11-03-2010 / 10:15:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

fullBrowserSpecPlain

    "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:NavigatorCanvas andSelector:#fullBrowserSpec

     NavigatorCanvas new openInterface:#fullBrowserSpec

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #fullBrowserSpec

        #window: 

       #(#WindowSpec

          #label: 'SystemBrowser'

          #name: 'SystemBrowser'

          #min: #(#Point 0 0)

          #bounds: #(#Rectangle 18 51 480 351)

          #icon: #defaultIcon

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#VariableHorizontalPanelSpec

              #name: 'VariableHorizontalPanel1'

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

              #barWidth: 2

              #showHandle: false

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#SubCanvasSpec

                    #name: 'Organizer'

                    #majorKey: #'OrganizerCanvas'

                    #subAspectHolders: 

                   #(#Array

                     #(#SubChannelInfoSpec

                        #subAspect: #showCoverageInformation

                        #aspect: #showCoverageInformation

                      ) 

                     #(#SubChannelInfoSpec

                        #subAspect: #classCategoryListMenuHolder

                        #aspect: #categoryPopUpMenu

                      ) 

                     #(#SubChannelInfoSpec

                        #subAspect: #classCategoryDoubleClickChannel

                        #callBack: #classCategoryDoubleClicked

                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #classDoubleClickChannel

                        #callBack: #classDoubleClicked

                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #nameSpaceDoubleClickChannel

                        #callBack: #nameSpaceDoubleClicked

                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #projectDoubleClickChannel

                        #callBack: #projectDoubleClicked

                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #variableDoubleClickChannel

                        #callBack: #variableDoubleClicked

                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #classHierarchyListMenuHolder

                        #aspect: #hierarchyPopUpMenu

                      ) 

                     #(#SubChannelInfoSpec

                        #subAspect: #classHierarchyTopClass

                        #aspect: #classHierarchyTopClass

                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #classListMenuHolder

                        #aspect: #classPopUpMenu

                      ) 

                     #(#SubChannelInfoSpec

                        #subAspect: #hideUnloadedClasses

                        #aspect: #hideUnloadedClasses

                      )

               #(#SubChannelInfoSpec

                  #subAspect: #sortByNameAndInheritance

                  #aspect: #sortByNameAndInheritance

                )

               #(#SubChannelInfoSpec

                  #subAspect: #markApplicationsHolder

                  #aspect: #markApplicationsHolder

                ) 

                     #(#SubChannelInfoSpec