Tools_OrganizerCanvas.st
changeset 9422 a2a5a83f4a37
parent 8755 061ebdd98078
child 9441 1affc379ddaa
--- a/Tools_OrganizerCanvas.st	Sun Apr 25 14:34:59 2010 +0200
+++ b/Tools_OrganizerCanvas.st	Mon Apr 26 10:44:52 2010 +0200
@@ -1516,6 +1516,299 @@
         component: 
        (SpecCollection
           collection: (
+           (ViewSpec
+              name: 'PackageDiagramClassChooser'
+              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              level: 0
+              initiallyInvisible: true
+              visibilityChannel: packageDiagramShown
+              component: 
+             (SpecCollection
+                collection: (
+                 (ComboListSpec
+                    name: 'ComboList1'
+                    layout: (LayoutFrame 0 0 0 0 0 1 25 0)
+                    model: selectedDiagramProject
+                    comboList: packageList
+                    useIndex: false
+                  )
+                 (SubCanvasSpec
+                    name: 'SubCanvas1'
+                    layout: (LayoutFrame 0 0 25 0 0 1 -25 1)
+                    level: 0
+                    hasHorizontalScrollBar: false
+                    hasVerticalScrollBar: false
+                    minorKey: windowSpecForClassChooser
+                    clientHolder: diagramApplicationModelHolder
+                    createNewBuilder: false
+                  )
+                 (SubCanvasSpec
+                    name: 'MetaToggles2'
+                    layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
+                    hasHorizontalScrollBar: false
+                    hasVerticalScrollBar: false
+                    minorKey: metaSpec
+                    createNewBuilder: false
+                  )
+                 )
+               
+              )
+            )
+           (ViewSpec
+              name: 'ClassHierarchyOrInheritanceBox'
+              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              initiallyInvisible: true
+              visibilityChannel: classHierarchyOrInheritanceShown
+              component: 
+             (SpecCollection
+                collection: (
+                 (VariableVerticalPanelSpec
+                    name: 'VariableVerticalPanel2'
+                    layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
+                    showHandle: false
+                    snapMode: both
+                    handlePosition: left
+                    component: 
+                   (SpecCollection
+                      collection: (
+                       (ViewSpec
+                          name: 'HierarchyOrInheritanceBox'
+                          component: 
+                         (SpecCollection
+                            collection: (
+                             (SubCanvasSpec
+                                name: 'ClassHierarchyList'
+                                layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+                                visibilityChannel: classHierarchyShown
+                                majorKey: HierarchicalClassList
+                                subAspectHolders: 
+                               (Array
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: doubleClickChannel
+                                    aspect: classDoubleClickChannel
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: forceGeneratorTrigger
+                                    aspect: forceClassInheritanceGeneratorTrigger
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: hideUnloadedClasses
+                                    aspect: hideUnloadedClasses
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: markApplicationsHolder
+                                    aspect: markApplicationsHolder
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: showClassPackages
+                                    aspect: showClassPackages
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: immediateUpdate
+                                    aspect: immediateUpdate
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: menuHolder
+                                    aspect: classInheritanceListMenuHolder
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: meta
+                                    aspect: meta
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: organizerMode
+                                    aspect: organizerMode
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: outGeneratorHolder
+                                    aspect: outGeneratorHolder
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: packageFilter
+                                    aspect: packageFilter
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: nameSpaceFilter
+                                    aspect: nameSpaceFilter
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: selectedClasses
+                                    aspect: selectedClasses
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: selectionChangeCondition
+                                    aspect: selectionChangeCondition
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: slaveMode
+                                    aspect: classHierarchyListSlaveMode
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: topClassHolder
+                                    aspect: classHierarchyTopClass
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: updateTrigger
+                                    aspect: classHierarchyUpdateTrigger
+                                  )
+                                )
+                                createNewApplication: true
+                                createNewBuilder: true
+                              )
+                             (SubCanvasSpec
+                                name: 'ClassInheritanceList'
+                                layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+                                visibilityChannel: classInheritanceShown
+                                majorKey: InheritanceClassList
+                                subAspectHolders: 
+                               (Array
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: doubleClickChannel
+                                    aspect: classDoubleClickChannel
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: forceGeneratorTrigger
+                                    aspect: forceClassInheritanceGeneratorTrigger
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: hideUnloadedClasses
+                                    aspect: hideUnloadedClasses
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: markApplicationsHolder
+                                    aspect: markApplicationsHolder
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: showClassPackages
+                                    aspect: showClassPackages
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: immediateUpdate
+                                    aspect: immediateUpdate
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: menuHolder
+                                    aspect: classInheritanceListMenuHolder
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: meta
+                                    aspect: meta
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: organizerMode
+                                    aspect: organizerMode
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: outGeneratorHolder
+                                    aspect: outGeneratorHolder
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: packageFilter
+                                    aspect: packageFilter
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: nameSpaceFilter
+                                    aspect: nameSpaceFilter
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: selectedClasses
+                                    aspect: selectedClasses
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: selectionChangeCondition
+                                    aspect: selectionChangeCondition
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: slaveMode
+                                    aspect: classInheritanceListSlaveMode
+                                  ) 
+                                 (SubChannelInfoSpec
+                                    subAspect: topClassHolder
+                                    aspect: classHierarchyTopClass
+                                  )
+                                  
+                                 (SubChannelInfoSpec
+                                    subAspect: updateTrigger
+                                    aspect: classHierarchyUpdateTrigger
+                                  )
+                                )
+                                createNewApplication: true
+                                createNewBuilder: true
+                              )
+                             )
+                           
+                          )
+                        )
+                       (SubCanvasSpec
+                          name: 'VariableList2'
+                          majorKey: VariableList
+                          subAspectHolders: 
+                         (Array
+                            
+                           (SubChannelInfoSpec
+                              subAspect: doubleClickChannel
+                              aspect: variableDoubleClickChannel
+                            ) 
+                           (SubChannelInfoSpec
+                              subAspect: classHolder
+                              aspect: selectedClasses
+                            )
+                            
+                           (SubChannelInfoSpec
+                              subAspect: menuHolder
+                              aspect: variablesMenuHolder
+                            ) 
+                           (SubChannelInfoSpec
+                              subAspect: slaveMode
+                              aspect: classHierarchyListSlaveMode
+                            )
+                            
+                           (SubChannelInfoSpec
+                              subAspect: selectedVariables
+                              aspect: variableFilter
+                            ) 
+                           (SubChannelInfoSpec
+                              subAspect: showClassVarsInVariableList
+                              aspect: filterClassVars
+                            )
+                          )
+                          createNewApplication: true
+                          createNewBuilder: true
+                        )
+                       )
+                     
+                    )
+                    handles: (Any 0.5 1.0)
+                  )
+                 (SubCanvasSpec
+                    name: 'MetaToggles1'
+                    layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
+                    hasHorizontalScrollBar: false
+                    hasVerticalScrollBar: false
+                    minorKey: metaSpec
+                    createNewBuilder: false
+                  )
+                 )
+               
+              )
+            )
            (VariableHorizontalPanelSpec
               name: 'CategoryNameSpaceAndProjectPanel'
               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
@@ -1889,299 +2182,6 @@
               )
               handles: (Any 0.5 1.0)
             )
-           (ViewSpec
-              name: 'ClassHierarchyOrInheritanceBox'
-              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-              initiallyInvisible: true
-              visibilityChannel: classHierarchyOrInheritanceShown
-              component: 
-             (SpecCollection
-                collection: (
-                 (VariableVerticalPanelSpec
-                    name: 'VariableVerticalPanel2'
-                    layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
-                    showHandle: false
-                    snapMode: both
-                    handlePosition: left
-                    component: 
-                   (SpecCollection
-                      collection: (
-                       (ViewSpec
-                          name: 'HierarchyOrInheritanceBox'
-                          component: 
-                         (SpecCollection
-                            collection: (
-                             (SubCanvasSpec
-                                name: 'ClassHierarchyList'
-                                layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-                                visibilityChannel: classHierarchyShown
-                                majorKey: HierarchicalClassList
-                                subAspectHolders: 
-                               (Array
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: doubleClickChannel
-                                    aspect: classDoubleClickChannel
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: forceGeneratorTrigger
-                                    aspect: forceClassInheritanceGeneratorTrigger
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: hideUnloadedClasses
-                                    aspect: hideUnloadedClasses
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: markApplicationsHolder
-                                    aspect: markApplicationsHolder
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: showClassPackages
-                                    aspect: showClassPackages
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: immediateUpdate
-                                    aspect: immediateUpdate
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: menuHolder
-                                    aspect: classInheritanceListMenuHolder
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: meta
-                                    aspect: meta
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: organizerMode
-                                    aspect: organizerMode
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: outGeneratorHolder
-                                    aspect: outGeneratorHolder
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: packageFilter
-                                    aspect: packageFilter
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: nameSpaceFilter
-                                    aspect: nameSpaceFilter
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: selectedClasses
-                                    aspect: selectedClasses
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: selectionChangeCondition
-                                    aspect: selectionChangeCondition
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: slaveMode
-                                    aspect: classHierarchyListSlaveMode
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: topClassHolder
-                                    aspect: classHierarchyTopClass
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: updateTrigger
-                                    aspect: classHierarchyUpdateTrigger
-                                  )
-                                )
-                                createNewApplication: true
-                                createNewBuilder: true
-                              )
-                             (SubCanvasSpec
-                                name: 'ClassInheritanceList'
-                                layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-                                visibilityChannel: classInheritanceShown
-                                majorKey: InheritanceClassList
-                                subAspectHolders: 
-                               (Array
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: doubleClickChannel
-                                    aspect: classDoubleClickChannel
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: forceGeneratorTrigger
-                                    aspect: forceClassInheritanceGeneratorTrigger
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: hideUnloadedClasses
-                                    aspect: hideUnloadedClasses
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: markApplicationsHolder
-                                    aspect: markApplicationsHolder
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: showClassPackages
-                                    aspect: showClassPackages
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: immediateUpdate
-                                    aspect: immediateUpdate
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: menuHolder
-                                    aspect: classInheritanceListMenuHolder
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: meta
-                                    aspect: meta
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: organizerMode
-                                    aspect: organizerMode
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: outGeneratorHolder
-                                    aspect: outGeneratorHolder
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: packageFilter
-                                    aspect: packageFilter
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: nameSpaceFilter
-                                    aspect: nameSpaceFilter
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: selectedClasses
-                                    aspect: selectedClasses
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: selectionChangeCondition
-                                    aspect: selectionChangeCondition
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: slaveMode
-                                    aspect: classInheritanceListSlaveMode
-                                  ) 
-                                 (SubChannelInfoSpec
-                                    subAspect: topClassHolder
-                                    aspect: classHierarchyTopClass
-                                  )
-                                  
-                                 (SubChannelInfoSpec
-                                    subAspect: updateTrigger
-                                    aspect: classHierarchyUpdateTrigger
-                                  )
-                                )
-                                createNewApplication: true
-                                createNewBuilder: true
-                              )
-                             )
-                           
-                          )
-                        )
-                       (SubCanvasSpec
-                          name: 'VariableList2'
-                          majorKey: VariableList
-                          subAspectHolders: 
-                         (Array
-                            
-                           (SubChannelInfoSpec
-                              subAspect: doubleClickChannel
-                              aspect: variableDoubleClickChannel
-                            ) 
-                           (SubChannelInfoSpec
-                              subAspect: classHolder
-                              aspect: selectedClasses
-                            )
-                            
-                           (SubChannelInfoSpec
-                              subAspect: menuHolder
-                              aspect: variablesMenuHolder
-                            ) 
-                           (SubChannelInfoSpec
-                              subAspect: slaveMode
-                              aspect: classHierarchyListSlaveMode
-                            )
-                            
-                           (SubChannelInfoSpec
-                              subAspect: selectedVariables
-                              aspect: variableFilter
-                            ) 
-                           (SubChannelInfoSpec
-                              subAspect: showClassVarsInVariableList
-                              aspect: filterClassVars
-                            )
-                          )
-                          createNewApplication: true
-                          createNewBuilder: true
-                        )
-                       )
-                     
-                    )
-                    handles: (Any 0.5 1.0)
-                  )
-                 (SubCanvasSpec
-                    name: 'MetaToggles1'
-                    layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
-                    hasHorizontalScrollBar: false
-                    hasVerticalScrollBar: false
-                    minorKey: metaSpec
-                    createNewBuilder: false
-                  )
-                 )
-               
-              )
-            )
-           (ViewSpec
-              name: 'PackageDiagramClassChooser'
-              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-              level: 0
-              initiallyInvisible: true
-              visibilityChannel: packageDiagramShown
-              component: 
-             (SpecCollection
-                collection: (
-                 (ComboListSpec
-                    name: 'ComboList1'
-                    layout: (LayoutFrame 0 0 0 0 0 1 25 0)
-                    model: selectedDiagramProject
-                    comboList: packageList
-                    useIndex: false
-                  )
-                 (SubCanvasSpec
-                    name: 'SubCanvas1'
-                    layout: (LayoutFrame 0 0 25 0 0 1 -25 1)
-                    level: 0
-                    hasHorizontalScrollBar: false
-                    hasVerticalScrollBar: false
-                    minorKey: windowSpecForClassChooser
-                    clientHolder: diagramApplicationModelHolder
-                    createNewBuilder: false
-                  )
-                 (SubCanvasSpec
-                    name: 'MetaToggles2'
-                    layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
-                    hasHorizontalScrollBar: false
-                    hasVerticalScrollBar: false
-                    minorKey: metaSpec
-                    createNewBuilder: false
-                  )
-                 )
-               
-              )
-            )
            )
          
         )
@@ -4903,5 +4903,9 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.38 2009-09-22 11:25:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.39 2010-04-26 08:44:52 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.39 2010-04-26 08:44:52 cg Exp $'
 ! !