"

 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:#OrganizerCanvas

	instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode

		classInheritanceListSlaveMode classListSlaveMode

		classHierarchyListSlaveMode organizerMode metaToggle

		notMetaToggle meta classList classCategoryDoubleClickChannel

		classDoubleClickChannel classGeneratorHolder

		classGeneratorHolderFromClassCategory

		classGeneratorHolderFromClassHierarchy

		classGeneratorHolderFromProject classGeneratorHolderFromNamespace

		classCategoryListMenuHolder categoryListShown

		classCategoryListUpdateTrigger classListUpdateTrigger

		classListMenuHolder classHierarchyListMenuHolder

		projectListMenuHolder variablesMenuHolder filterClassVars

		variableFilter packageFilter nameSpaceFilter hidePrivateClasses

		hideUnloadedClasses showClassPackages immediateUpdate

		metaToggleLabelHolder selectedCategories selectedClasses

		selectedNamespaces selectedProjects selectionChangeCondition

		nameSpaceFilterSelection markApplicationsHolder

		sortVariablesByName showAllClassesInNameSpaceView

		showMethodInheritance showMethodComplexity showMethodTypeIcon

		methodVisibilityHolder showCoverageInformation

		sortByNameAndInheritance'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

!OrganizerCanvas 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.

"

!

documentation

"

    I implement the top part containing the list views in the new system browser

"

! !

!OrganizerCanvas class methodsFor:'constants'!

organizerModeCategory

    ^ #category

!

organizerModeClassHierarchy

    ^ #classHierarchy

!

organizerModeClassInheritance

    ^ #classInheritance

!

organizerModeHierarchy

    ^ #hierarchy

!

organizerModeNamespace

    ^ #namespace

!

organizerModePackageDiagram

    ^ #packageDiagram

!

organizerModeProject

    ^ #project

! !

!OrganizerCanvas class methodsFor:'interface specs'!

embeddedNameSpaceListSpec

    "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:OrganizerCanvas andSelector:#embeddedNameSpaceListSpec

     OrganizerCanvas new openInterface:#embeddedNameSpaceListSpec

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

	#name: #embeddedNameSpaceListSpec

	#window: 

       #(#WindowSpec

	  #label: 'Organizer'

	  #name: 'Organizer'

	  #min: #(#Point 0 0)

	  #max: #(#Point 1024 721)

	  #bounds: #(#Rectangle 218 175 518 475)

	)

	#component: 

       #(#SpecCollection

	  #collection: #(

	   #(#SubCanvasSpec

	      #name: 'NamespaceList2'

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

	      #level: 1

	      #majorKey: #'NamespaceList'

	      #subAspectHolders: 

	     #(#Array

	       #(#SubChannelInfoSpec

		  #subAspect: #doubleClickChannel

		  #aspect: #nameSpaceFilterDoubleClickChannel

		) 

	       #(#SubChannelInfoSpec

		  #subAspect: #forceGeneratorTrigger

		  #aspect: #forceNamespaceGeneratorTrigger

		)

	       #(#SubChannelInfoSpec

		  #subAspect: #hideUnloadedClasses

		  #aspect: #hideUnloadedClasses

		) 

	       #(#SubChannelInfoSpec

		  #subAspect: #immediateUpdate

		  #aspect: #immediateUpdate

		)

	       #(#SubChannelInfoSpec

		  #subAspect: #menuHolder

		  #aspect: #nameSpaceListMenuHolder

		) 

	       #(#SubChannelInfoSpec

		  #subAspect: #organizerMode

		  #aspect: #organizerMode

		)

	       #(#SubChannelInfoSpec

		  #subAspect: #outGeneratorHolder

		  #aspect: #classGeneratorHolder

		) 

	       #(#SubChannelInfoSpec

		  #subAspect: #selectedNamespaces

		  #aspect: #nameSpaceFilterSelection

		)

	       #(#SubChannelInfoSpec

		  #subAspect: #selectionChangeCondition

		  #aspect: #selectionChangeCondition

		) 

	       #(#SubChannelInfoSpec

		  #subAspect: #slaveMode

		  #aspect: #popUpNameSpaceListSlaveMode

		)

	       #(#SubChannelInfoSpec

		  #subAspect: #updateTrigger

		  #aspect: #nameSpaceListUpdateTrigger

		)

	      )

	      #createNewApplication: true

	      #createNewBuilder: true

	      #postBuildCallback: #nameSpaceListWidgetWasBuilt:

	    )

	   )

	)

      )

!

windowSpec

    ^ self windowSpecNonHierarchicalWithClassDiagram

    "/ ^ self windowSpecNonHierarchical

    "/ ^ self windowSpecHierarchical

    "

     self openInterface:#windowSpec

     self openInterface:#windowSpecWithoutMetaToggles

     self openInterface:#windowSpecNonHierarchicalWithClassDiagram

    "

    "Modified: / 03-09-2006 / 10:47:15 / cg"

!

windowSpecHierarchical

    "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:OrganizerCanvas andSelector:#windowSpec

     OrganizerCanvas new openInterface:#windowSpec

     OrganizerCanvas open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'Organizer'

          #name: 'Organizer'

          #min: #(#Point 0 0)

          #max: #(#Point 1024 721)

          #bounds: #(#Rectangle 16 46 316 346)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#VariableHorizontalPanelSpec

              #name: 'CategoryNameSpaceAndProjectPanel'

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

              #visibilityChannel: #categoryNameSpaceAndProjectPanelShown

              #barWidth: 2

              #showHandle: false

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#ViewSpec

                    #name: 'LeftBox'

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#ViewSpec

                          #name: 'ClassCategoryAndNamespaceFilterBox'

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

                          #visibilityChannel: #categoryListShown

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#SubCanvasSpec

                                #name: 'ClassCategoryList'

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

"/                                #majorKey: #'ClassCategoryList'

                                #majorKey: #'HierarchicalClassCategoryList'

                                #subAspectHolders: 

                               #(#Array

                                 #(#SubChannelInfoSpec

                                    #subAspect: #doubleClickChannel

                                    #aspect: #classCategoryDoubleClickChannel

                                  ) 

                                 #(#SubChannelInfoSpec

                                    #subAspect: #forceGeneratorTrigger

                                    #aspect: #forceClassCategoryGeneratorTrigger

                                  )

                                 #(#SubChannelInfoSpec

                                    #subAspect: #hideUnloadedClasses

                                    #aspect: #hideUnloadedClasses

                                  ) 

                                 #(#SubChannelInfoSpec

                                    #subAspect: #immediateUpdate

                                    #aspect: #immediateUpdate

                                  )

                                 #(#SubChannelInfoSpec

                                    #subAspect: #menuHolder

                                    #aspect: #classCategoryListMenuHolder

                                  ) 

                                 #(#SubChannelInfoSpec

                                    #subAspect: #organizerMode

                                    #aspect: #organizerMode

                                  )

                                 #(#SubChannelInfoSpec

                                    #subAspect: #outGeneratorHolder

                                    #aspect: #classGeneratorHolder

                                  ) 

                                 #(#SubChannelInfoSpec

                                    #subAspect: #selectedCategories

                                    #aspect: #selectedCategories

                                  )

                                 #(#SubChannelInfoSpec

                                    #subAspect: #selectionChangeCondition

                                    #aspect: #selectionChangeCondition

                                  ) 

                                 #(#SubChannelInfoSpec

                                    #subAspect: #slaveMode

                                    #aspect: #categoryListSlaveMode

                                  )

                                 #(#SubChannelInfoSpec

                                    #subAspect: #updateTrigger

                                    #aspect: #classCategoryListUpdateTrigger

                                  ) 

                                 #(#SubChannelInfoSpec

                                    #subAspect: #nameSpaceFilter

                                    #aspect: #nameSpaceFilterSelection

                                  )

                                )

                                #createNewApplication: true

                                #createNewBuilder: true

                              )

                             #(#ExtendedComboBoxSpec

                                #name: 'NameSpaceFilterComboBox'

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

                                #tabable: true

                                #model: #nameSpaceFilterSelectedNameSpace

                                #menuWidgetHolder: #nameSpaceListWidgetHolder

                                #miniScrollerHorizontal: true

                                #menuSelector: #nameSpaceFilterPopUpMenu

                              )

                             )

                          )

                        )

                       #(#SubCanvasSpec

                          #name: 'NamespaceList'

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

                          #initiallyInvisible: true

                          #visibilityChannel: #nameSpaceListShown

                          #majorKey: #'NamespaceList'

                          #subAspectHolders: 

                         #(#Array

                           #(#SubChannelInfoSpec

                              #subAspect: #doubleClickChannel

                              #aspect: #nameSpaceDoubleClickChannel

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #forceGeneratorTrigger

                              #aspect: #forceNamespaceGeneratorTrigger

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #hideUnloadedClasses

                              #aspect: #hideUnloadedClasses

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #immediateUpdate

                              #aspect: #immediateUpdate

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #menuHolder

                              #aspect: #nameSpaceListMenuHolder

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #organizerMode

                              #aspect: #organizerMode

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #outGeneratorHolder

                              #aspect: #classGeneratorHolder

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #selectedNamespaces

                              #aspect: #selectedNamespaces

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #selectionChangeCondition

                              #aspect: #selectionChangeCondition

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #slaveMode

                              #aspect: #nameSpaceListSlaveMode

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #updateTrigger

                              #aspect: #nameSpaceListUpdateTrigger

                            )

                          )

                          #createNewApplication: true

                          #createNewBuilder: true

                        )

                       #(#SubCanvasSpec

                          #name: 'ProjectList'

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

                          #initiallyInvisible: true

                          #visibilityChannel: #projectListShown

"/                          #majorKey: #'HierarchicalProjectList'

                          #majorKey: #'ProjectList'

                          #subAspectHolders: 

                         #(#Array

                           #(#SubChannelInfoSpec

                              #subAspect: #doubleClickChannel

                              #aspect: #projectDoubleClickChannel

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #forceGeneratorTrigger

                              #aspect: #forceProjectGeneratorTrigger

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #hideUnloadedClasses

                              #aspect: #hideUnloadedClasses

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #immediateUpdate

                              #aspect: #immediateUpdate

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #menuHolder

                              #aspect: #projectListMenuHolder

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #organizerMode

                              #aspect: #organizerMode

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #outGeneratorHolder

                              #aspect: #classGeneratorHolder

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #selectedProjects

                              #aspect: #selectedProjects

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #selectionChangeCondition

                              #aspect: #selectionChangeCondition

                            ) 

                           #(#SubChannelInfoSpec

                              #subAspect: #slaveMode

                              #aspect: #projectListSlaveMode

                            )

                           #(#SubChannelInfoSpec

                              #subAspect: #updateTrigger

                              #aspect: #projectListUpdateTrigger

                            )

                          )

                          #createNewApplication: true

                          #createNewBuilder: true

                        )

                       )

                    )

                  )

                 #(#ViewSpec

                    #name: 'RightBox'

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#VariableVerticalPanelSpec

                          #name: 'ClassAndVariablesPanel'

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

                          #showHandle: false

                          #snapMode: #both

                          #handlePosition: #left

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#SubCanvasSpec

                                #name: 'ClassList'

                                #majorKey: #'ClassList'

                                #minorKey: #windowSpec

                                #subAspectHolders: 

                               #(#Array

                     #(#SubChannelInfoSpec

                        #subAspect: #showCoverageInformation

                        #aspect: #showCoverageInformation

                      ) 

                     #(#SubChannelInfoSpec

                        #subAspect: #hidePrivateClasses

                        #aspect: #hidePrivateClasses

                      )

                     #(#SubChannelInfoSpec

                        #subAspect: #hideUnloadedClasses

                        #aspect: #hideUnloadedClasses

                      ) 

               #(#SubChannelInfoSpec