Tools_OrganizerCanvas.st
author Claus Gittinger <cg@exept.de>
Wed, 05 Jun 2019 14:16:59 +0200
changeset 18805 f6df57c6dbfb
parent 14080 964c3463edb7
permissions -rw-r--r--
#BUGFIX by cg class: AbstractFileBrowser changed: #currentFileNameHolder endless loop if file not present.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2000 by eXept Software AG
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
	      All Rights Reserved
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ NameSpace: Tools }"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
NavigatorModel subclass:#OrganizerCanvas
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
		classInheritanceListSlaveMode classListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
		classHierarchyListSlaveMode organizerMode metaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
		notMetaToggle meta classList classCategoryDoubleClickChannel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
		classDoubleClickChannel classGeneratorHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
		classGeneratorHolderFromClassCategory
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
		classGeneratorHolderFromClassHierarchy
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
		classGeneratorHolderFromProject classGeneratorHolderFromNamespace
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
		classCategoryListMenuHolder categoryListShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
		classCategoryListUpdateTrigger classListUpdateTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
		classListMenuHolder classHierarchyListMenuHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
		projectListMenuHolder variablesMenuHolder filterClassVars
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
		variableFilter packageFilter nameSpaceFilter hidePrivateClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
		hideUnloadedClasses showClassPackages immediateUpdate
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
		metaToggleLabelHolder selectedCategories selectedClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
		selectedNamespaces selectedProjects selectionChangeCondition
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
    33
		nameSpaceFilterSelection markApplicationsHolder
7886
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
    34
		sortVariablesByName showAllClassesInNameSpaceView
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
    35
		showMethodInheritance showMethodComplexity showMethodTypeIcon
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
    36
		methodVisibilityHolder showCoverageInformation
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
    37
		sortByNameAndInheritance'
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
	classVariableNames:''
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
	poolDictionaries:''
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
	category:'Interface-Browsers-New'
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
!OrganizerCanvas class methodsFor:'documentation'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
copyright
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
 COPYRIGHT (c) 2000 by eXept Software AG
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
	      All Rights Reserved
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
 This software is furnished under a license and may be used
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
 only in accordance with the terms of that license and with the
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
 inclusion of the above copyright notice.   This software may not
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
 be provided or otherwise made available to, or used by, any
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
 other person.  No title to or ownership of the software is
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
 hereby transferred.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
"
11879
91f5ebcb155f added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11868
diff changeset
    57
!
91f5ebcb155f added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11868
diff changeset
    58
91f5ebcb155f added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11868
diff changeset
    59
documentation
91f5ebcb155f added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11868
diff changeset
    60
"
91f5ebcb155f added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11868
diff changeset
    61
    I implement the top part containing the list views in the new system browser
91f5ebcb155f added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11868
diff changeset
    62
"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    65
!OrganizerCanvas class methodsFor:'constants'!
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    66
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    67
organizerModeCategory
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    68
    ^ #category
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    69
!
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    70
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    71
organizerModeClassHierarchy
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    72
    ^ #classHierarchy
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    73
!
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    74
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    75
organizerModeClassInheritance
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    76
    ^ #classInheritance
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    77
!
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    78
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    79
organizerModeHierarchy
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    80
    ^ #hierarchy
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    81
!
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    82
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    83
organizerModeNamespace
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    84
    ^ #namespace
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    85
!
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    86
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
    87
organizerModePackageDiagram
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
    88
    ^ #packageDiagram
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
    89
!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
    90
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    91
organizerModeProject
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    92
    ^ #project
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    93
! !
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
    94
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
!OrganizerCanvas class methodsFor:'interface specs'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
embeddedNameSpaceListSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
    "This resource specification was automatically generated
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
     by the UIPainter of ST/X."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
    "Do not manually edit this!! If it is corrupted,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
     the UIPainter may not be able to read the specification."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
    "
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   105
     UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#embeddedNameSpaceListSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   106
     Tools::OrganizerCanvas new openInterface:#embeddedNameSpaceListSpec
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
    <resource: #canvas>
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   111
    ^ 
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   112
    #(FullSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   113
       name: embeddedNameSpaceListSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   114
       window: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   115
      (WindowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   116
         label: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   117
         name: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   118
         min: (Point 0 0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   119
         max: (Point 1024 721)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   120
         bounds: (Rectangle 0 0 300 300)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   121
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   122
       component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   123
      (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   124
         collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   125
          (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   126
             name: 'NamespaceList2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   127
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   128
             level: 1
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   129
             majorKey: NamespaceList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   130
             subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   131
            (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   132
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   133
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   134
                 subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   135
                 aspect: nameSpaceFilterDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   136
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   137
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   138
                 subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   139
                 aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   140
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   141
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   142
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   143
                 subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   144
                 aspect: forceNamespaceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   145
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   146
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   147
                 subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   148
                 aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   149
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   150
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   151
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   152
                 subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   153
                 aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   154
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   155
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   156
                 subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   157
                 aspect: nameSpaceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   158
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   159
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   160
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   161
                 subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   162
                 aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   163
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   164
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   165
                 subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   166
                 aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   167
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   168
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   169
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   170
                 subAspect: selectedNamespaces
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   171
                 aspect: nameSpaceFilterSelection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   172
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   173
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   174
                 subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   175
                 aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   176
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   177
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   178
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   179
                 subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   180
                 aspect: popUpNameSpaceListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   181
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   182
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   183
                 subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   184
                 aspect: nameSpaceListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   185
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   186
             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   187
             createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   188
             createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   189
             postBuildCallback: nameSpaceListWidgetWasBuilt:
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   190
           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   191
          )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   192
        
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   193
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   194
     )
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   195
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   196
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   197
windowSpec
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
   198
    ^ self windowSpecNonHierarchicalWithClassDiagram
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
   199
    "/ ^ self windowSpecNonHierarchical
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   200
    "/ ^ self windowSpecHierarchical
6908
28d1f5f21f55 use the linear project list (for now)
Claus Gittinger <cg@exept.de>
parents: 6905
diff changeset
   201
7077
2fdff8e7fd9d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6922
diff changeset
   202
    "
2fdff8e7fd9d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6922
diff changeset
   203
     self openInterface:#windowSpec
2fdff8e7fd9d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6922
diff changeset
   204
     self openInterface:#windowSpecWithoutMetaToggles
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
   205
     self openInterface:#windowSpecNonHierarchicalWithClassDiagram
7077
2fdff8e7fd9d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6922
diff changeset
   206
    "
2fdff8e7fd9d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6922
diff changeset
   207
2fdff8e7fd9d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6922
diff changeset
   208
    "Modified: / 03-09-2006 / 10:47:15 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   209
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   210
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   211
windowSpecHierarchical
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   212
    "This resource specification was automatically generated
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   213
     by the UIPainter of ST/X."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   214
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   215
    "Do not manually edit this!! If it is corrupted,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   216
     the UIPainter may not be able to read the specification."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   217
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   218
    "
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   219
     UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#windowSpecHierarchical
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   220
     Tools::OrganizerCanvas new openInterface:#windowSpecHierarchical
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   221
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   222
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   223
    <resource: #canvas>
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
    ^ 
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   226
    #(FullSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   227
       name: windowSpecHierarchical
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   228
       window: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   229
      (WindowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   230
         label: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   231
         name: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   232
         min: (Point 0 0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   233
         max: (Point 1024 721)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   234
         bounds: (Rectangle 0 0 300 300)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   235
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   236
       component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   237
      (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   238
         collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   239
          (VariableHorizontalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   240
             name: 'CategoryNameSpaceAndProjectPanel'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   241
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   242
             visibilityChannel: categoryNameSpaceAndProjectPanelShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   243
             barWidth: 2
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   244
             showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   245
             component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   246
            (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   247
               collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   248
                (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   249
                   name: 'LeftBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   250
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   251
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   252
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   253
                      (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   254
                         name: 'ClassCategoryAndNamespaceFilterBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   255
                         layout: (LayoutFrame 0 0 0 0 0 1 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   256
                         visibilityChannel: categoryListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   257
                         component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   258
                        (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   259
                           collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   260
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   261
                               name: 'ClassCategoryList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   262
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   263
                               majorKey: HierarchicalClassCategoryList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   264
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   265
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   266
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   267
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   268
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   269
                                   aspect: classCategoryDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   270
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   271
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   272
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   273
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   274
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   275
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   276
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   277
                                   subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   278
                                   aspect: forceClassCategoryGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   279
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   280
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   281
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   282
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   283
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   284
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   285
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   286
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   287
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   288
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   289
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   290
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   291
                                   aspect: classCategoryListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   292
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   293
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   294
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   295
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   296
                                   aspect: nameSpaceFilterSelection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   297
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   298
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   299
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   300
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   301
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   302
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   303
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   304
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   305
                                   aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   306
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   307
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   308
                                   subAspect: selectedCategories
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   309
                                   aspect: selectedCategories
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   310
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   311
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   312
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   313
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   314
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   315
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   316
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   317
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   318
                                   aspect: categoryListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   319
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   320
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   321
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   322
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   323
                                   aspect: classCategoryListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   324
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   325
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   326
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   327
                               createNewBuilder: true
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
   328
                             )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   329
                            (ExtendedComboBoxSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   330
                               name: 'NameSpaceFilterComboBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   331
                               layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   332
                               tabable: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   333
                               model: nameSpaceFilterSelectedNameSpace
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   334
                               menuWidgetHolder: nameSpaceListWidgetHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   335
                               miniScrollerHorizontal: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   336
                               menuSelector: nameSpaceFilterPopUpMenu
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   337
                             )
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
   338
                            )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   339
                          
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   340
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   341
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   342
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   343
                         name: 'NamespaceList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   344
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   345
                         initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   346
                         visibilityChannel: nameSpaceListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   347
                         majorKey: NamespaceList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   348
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   349
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   350
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   351
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   352
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   353
                             aspect: nameSpaceDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   354
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   355
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   356
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   357
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   358
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   359
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   360
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   361
                             subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   362
                             aspect: forceNamespaceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   363
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   364
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   365
                             subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   366
                             aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   367
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   368
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   369
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   370
                             subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   371
                             aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   372
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   373
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   374
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   375
                             aspect: nameSpaceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   376
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   377
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   378
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   379
                             subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   380
                             aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   381
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   382
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   383
                             subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   384
                             aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   385
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   386
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   387
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   388
                             subAspect: selectedNamespaces
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   389
                             aspect: selectedNamespaces
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   390
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   391
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   392
                             subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   393
                             aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   394
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   395
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   396
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   397
                             subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   398
                             aspect: nameSpaceListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   399
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   400
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   401
                             subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   402
                             aspect: nameSpaceListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   403
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   404
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   405
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   406
                         createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   407
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   408
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   409
                         name: 'ProjectList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   410
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   411
                         initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   412
                         visibilityChannel: projectListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   413
                         majorKey: ProjectList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   414
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   415
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   416
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   417
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   418
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   419
                             aspect: projectDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   420
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   421
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   422
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   423
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   424
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   425
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   426
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   427
                             subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   428
                             aspect: forceProjectGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   429
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   430
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   431
                             subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   432
                             aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   433
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   434
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   435
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   436
                             subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   437
                             aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   438
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   439
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   440
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   441
                             aspect: projectListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   442
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   443
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   444
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   445
                             subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   446
                             aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   447
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   448
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   449
                             subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   450
                             aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   451
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   452
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   453
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   454
                             subAspect: selectedProjects
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   455
                             aspect: selectedProjects
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   456
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   457
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   458
                             subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   459
                             aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   460
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   461
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   462
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   463
                             subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   464
                             aspect: projectListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   465
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   466
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   467
                             subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   468
                             aspect: projectListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   469
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   470
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   471
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   472
                         createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   473
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   474
                      )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   475
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   476
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   477
                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   478
                (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   479
                   name: 'RightBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   480
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   481
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   482
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   483
                      (VariableVerticalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   484
                         name: 'ClassAndVariablesPanel'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   485
                         layout: (LayoutFrame 0 0 0 0 0 1 -25 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   486
                         showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   487
                         snapMode: both
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   488
                         handlePosition: left
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   489
                         component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   490
                        (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   491
                           collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   492
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   493
                               name: 'ClassList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   494
                               majorKey: ClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   495
                               minorKey: windowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   496
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   497
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   498
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   499
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   500
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   501
                                   aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   502
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   503
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   504
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   505
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   506
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   507
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   508
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   509
                                   subAspect: hidePrivateClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   510
                                   aspect: hidePrivateClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   511
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   512
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   513
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   514
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   515
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   516
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   517
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   518
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   519
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   520
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   521
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   522
                                   subAspect: inGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   523
                                   aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   524
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   525
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   526
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   527
                                   subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   528
                                   aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   529
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   530
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   531
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   532
                                   aspect: classListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   533
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   534
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   535
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   536
                                   subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   537
                                   aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   538
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   539
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   540
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   541
                                   aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   542
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   543
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   544
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   545
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   546
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   547
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   548
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   549
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   550
                                   aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   551
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   552
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   553
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   554
                                   subAspect: outGeneratorHolderForMethods
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   555
                                   aspect: selectorListGenerator5
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   556
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   557
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   558
                                   subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   559
                                   aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   560
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   561
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   562
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   563
                                   subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   564
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   565
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   566
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   567
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   568
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   569
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   570
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   571
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   572
                                   subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   573
                                   aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   574
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   575
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   576
                                   subAspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   577
                                   aspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   578
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   579
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   580
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   581
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   582
                                   aspect: classListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   583
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   584
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   585
                                   subAspect: sortByNameAndInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   586
                                   aspect: sortByNameAndInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   587
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   588
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   589
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   590
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   591
                                   aspect: classListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   592
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   593
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   594
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   595
                               createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   596
                             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   597
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   598
                               name: 'VariableList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   599
                               majorKey: VariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   600
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   601
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   602
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   603
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   604
                                   subAspect: classHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   605
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   606
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   607
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   608
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   609
                                   aspect: variableDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   610
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   611
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   612
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   613
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   614
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   615
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   616
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   617
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   618
                                   aspect: variablesMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   619
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   620
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   621
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   622
                                   subAspect: selectedVariables
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   623
                                   aspect: variableFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   624
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   625
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   626
                                   subAspect: showClassVarsInVariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   627
                                   aspect: filterClassVars
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   628
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   629
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   630
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   631
                                   subAspect: sortVariablesByName
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   632
                                   aspect: sortVariablesByName
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   633
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   634
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   635
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   636
                               createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   637
                             )
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
   638
                            )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   639
                          
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   640
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   641
                         handles: (Any 0.5 1.0)
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
   642
                       )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   643
                      (UISubSpecification
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   644
                         name: 'MetaToggleSpec2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   645
                         layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   646
                         minorKey: metaSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   647
                       )
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
   648
                      )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   649
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   650
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   651
                 )
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
   652
                )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   653
              
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   654
             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   655
             handles: (Any 0.5 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   656
           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   657
          (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   658
             name: 'ClassHierarchyOrInheritanceBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   659
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   660
             initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   661
             visibilityChannel: classHierarchyOrInheritanceShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   662
             component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   663
            (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   664
               collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   665
                (VariableVerticalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   666
                   name: 'VariableVerticalPanel2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   667
                   layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   668
                   showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   669
                   snapMode: both
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   670
                   handlePosition: left
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   671
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   672
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   673
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   674
                      (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   675
                         name: 'HierarchyOrInheritanceBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   676
                         component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   677
                        (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   678
                           collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   679
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   680
                               name: 'ClassHierarchyList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   681
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   682
                               visibilityChannel: classHierarchyShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   683
                               majorKey: HierarchicalClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   684
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   685
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   686
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   687
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   688
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   689
                                   aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   690
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   691
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   692
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   693
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   694
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   695
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   696
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   697
                                   subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   698
                                   aspect: forceClassInheritanceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   699
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   700
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   701
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   702
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   703
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   704
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   705
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   706
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   707
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   708
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   709
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   710
                                   subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   711
                                   aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   712
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   713
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   714
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   715
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   716
                                   aspect: classInheritanceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   717
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   718
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   719
                                   subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   720
                                   aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   721
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   722
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   723
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   724
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   725
                                   aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   726
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   727
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   728
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   729
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   730
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   731
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   732
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   733
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   734
                                   aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   735
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   736
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   737
                                   subAspect: outGeneratorHolderForMethods
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   738
                                   aspect: selectorListGenerator5
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   739
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   740
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   741
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   742
                                   subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   743
                                   aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   744
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   745
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   746
                                   subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   747
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   748
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   749
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   750
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   751
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   752
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   753
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   754
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   755
                                   subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   756
                                   aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   757
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   758
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   759
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   760
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   761
                                   aspect: classHierarchyListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   762
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   763
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   764
                                   subAspect: topClassHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   765
                                   aspect: classHierarchyTopClass
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   766
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   767
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   768
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   769
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   770
                                   aspect: classHierarchyUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   771
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   772
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   773
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   774
                               createNewBuilder: true
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
   775
                             )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   776
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   777
                               name: 'ClassInheritanceList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   778
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   779
                               visibilityChannel: classInheritanceShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   780
                               majorKey: InheritanceClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   781
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   782
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   783
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   784
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   785
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   786
                                   aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   787
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   788
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   789
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   790
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   791
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   792
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   793
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   794
                                   subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   795
                                   aspect: forceClassInheritanceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   796
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   797
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   798
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   799
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   800
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   801
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   802
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   803
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   804
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   805
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   806
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   807
                                   subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   808
                                   aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   809
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   810
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   811
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   812
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   813
                                   aspect: classInheritanceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   814
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   815
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   816
                                   subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   817
                                   aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   818
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   819
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   820
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   821
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   822
                                   aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   823
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   824
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   825
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   826
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   827
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   828
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   829
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   830
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   831
                                   aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   832
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   833
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   834
                                   subAspect: outGeneratorHolderForMethods
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   835
                                   aspect: selectorListGenerator5
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   836
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   837
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   838
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   839
                                   subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   840
                                   aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   841
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   842
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   843
                                   subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   844
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   845
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   846
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   847
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   848
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   849
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   850
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   851
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   852
                                   subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   853
                                   aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   854
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   855
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   856
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   857
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   858
                                   aspect: classInheritanceListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   859
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   860
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   861
                                   subAspect: topClassHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   862
                                   aspect: classHierarchyTopClass
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   863
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   864
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   865
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   866
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   867
                                   aspect: classHierarchyUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   868
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   869
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   870
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   871
                               createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   872
                             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   873
                            )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   874
                          
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   875
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   876
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   877
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   878
                         name: 'VariableList2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   879
                         majorKey: VariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   880
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   881
                        (Array
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
                           
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   883
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   884
                             subAspect: classHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   885
                             aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   886
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   887
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   888
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   889
                             aspect: variableDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   890
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   891
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   892
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   893
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   894
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   895
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   896
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   897
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   898
                             aspect: variablesMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   899
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   900
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   901
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   902
                             subAspect: selectedVariables
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   903
                             aspect: variableFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   904
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   905
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   906
                             subAspect: showClassVarsInVariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   907
                             aspect: filterClassVars
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   908
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   909
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   910
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   911
                             subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   912
                             aspect: classHierarchyListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   913
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   914
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   915
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   916
                         createNewBuilder: true
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
   917
                       )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   918
                      )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   919
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   920
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   921
                   handles: (Any 0.5 1.0)
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
   922
                 )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   923
                (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   924
                   name: 'MetaToggles1'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   925
                   layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   926
                   hasHorizontalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   927
                   hasVerticalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   928
                   minorKey: metaSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   929
                   createNewBuilder: false
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
   930
                 )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   931
                )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   932
              
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   933
             )
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
   934
           )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   935
          )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   936
        
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   937
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   938
     )
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   939
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   941
windowSpecNonHierarchical
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   942
    "This resource specification was automatically generated
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   943
     by the UIPainter of ST/X."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   944
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   945
    "Do not manually edit this!! If it is corrupted,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
     the UIPainter may not be able to read the specification."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   947
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   948
    "
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   949
     UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#windowSpecNonHierarchical
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   950
     Tools::OrganizerCanvas new openInterface:#windowSpecNonHierarchical
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   951
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   952
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   953
    <resource: #canvas>
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   954
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   955
    ^ 
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   956
    #(FullSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   957
       name: windowSpecNonHierarchical
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   958
       window: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   959
      (WindowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   960
         label: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   961
         name: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   962
         min: (Point 0 0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   963
         max: (Point 1024 721)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   964
         bounds: (Rectangle 0 0 300 300)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   965
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   966
       component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   967
      (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   968
         collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   969
          (VariableHorizontalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   970
             name: 'CategoryNameSpaceAndProjectPanel'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   971
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   972
             visibilityChannel: categoryNameSpaceAndProjectPanelShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   973
             barWidth: 2
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   974
             showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   975
             component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   976
            (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   977
               collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   978
                (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   979
                   name: 'LeftBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   980
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   981
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   982
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   983
                      (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   984
                         name: 'ClassCategoryAndNamespaceFilterBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   985
                         layout: (LayoutFrame 0 0 0 0 0 1 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   986
                         visibilityChannel: categoryListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   987
                         component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   988
                        (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   989
                           collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   990
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   991
                               name: 'ClassCategoryList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   992
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   993
                               majorKey: ClassCategoryList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   994
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   995
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   996
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   997
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   998
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
   999
                                   aspect: classCategoryDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1000
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1001
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1002
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1003
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1004
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1005
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1006
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1007
                                   subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1008
                                   aspect: forceClassCategoryGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1009
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1010
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1011
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1012
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1013
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1014
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1015
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1016
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1017
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1018
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1019
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1020
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1021
                                   aspect: classCategoryListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1022
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1023
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1024
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1025
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1026
                                   aspect: nameSpaceFilterSelection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1027
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1028
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1029
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1030
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1031
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1032
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1033
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1034
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1035
                                   aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1036
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1037
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1038
                                   subAspect: selectedCategories
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1039
                                   aspect: selectedCategories
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1040
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1041
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1042
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1043
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1044
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1045
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1046
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1047
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1048
                                   aspect: categoryListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1049
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1050
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1051
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1052
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1053
                                   aspect: classCategoryListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1054
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1055
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1056
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1057
                               createNewBuilder: true
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  1058
                             )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1059
                            (ExtendedComboBoxSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1060
                               name: 'NameSpaceFilterComboBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1061
                               layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1062
                               tabable: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1063
                               model: nameSpaceFilterSelectedNameSpace
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1064
                               menuWidgetHolder: nameSpaceListWidgetHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1065
                               miniScrollerHorizontal: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1066
                               menuSelector: nameSpaceFilterPopUpMenu
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1067
                             )
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  1068
                            )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1069
                          
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1070
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1071
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1072
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1073
                         name: 'NamespaceList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1074
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1075
                         initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1076
                         visibilityChannel: nameSpaceListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1077
                         majorKey: NamespaceList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1078
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1079
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1080
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1081
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1082
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1083
                             aspect: nameSpaceDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1084
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1085
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1086
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1087
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1088
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1089
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1090
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1091
                             subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1092
                             aspect: forceNamespaceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1093
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1094
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1095
                             subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1096
                             aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1097
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1098
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1099
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1100
                             subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1101
                             aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1102
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1103
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1104
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1105
                             aspect: nameSpaceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1106
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1107
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1108
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1109
                             subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1110
                             aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1111
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1112
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1113
                             subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1114
                             aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1115
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1116
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1117
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1118
                             subAspect: selectedNamespaces
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1119
                             aspect: selectedNamespaces
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1120
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1121
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1122
                             subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1123
                             aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1124
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1125
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1126
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1127
                             subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1128
                             aspect: nameSpaceListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1129
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1130
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1131
                             subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1132
                             aspect: nameSpaceListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1133
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1134
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1135
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1136
                         createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1137
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1138
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1139
                         name: 'ProjectList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1140
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1141
                         initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1142
                         visibilityChannel: projectListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1143
                         majorKey: ProjectList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1144
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1145
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1146
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1147
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1148
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1149
                             aspect: projectDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1150
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1151
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1152
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1153
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1154
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1155
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1156
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1157
                             subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1158
                             aspect: forceProjectGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1159
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1160
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1161
                             subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1162
                             aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1163
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1164
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1165
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1166
                             subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1167
                             aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1168
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1169
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1170
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1171
                             aspect: projectListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1172
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1173
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1174
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1175
                             subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1176
                             aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1177
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1178
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1179
                             subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1180
                             aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1181
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1182
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1183
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1184
                             subAspect: selectedProjects
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1185
                             aspect: selectedProjects
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1186
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1187
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1188
                             subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1189
                             aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1190
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1191
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1192
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1193
                             subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1194
                             aspect: projectListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1195
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1196
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1197
                             subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1198
                             aspect: projectListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1199
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1200
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1201
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1202
                         createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1203
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1204
                      )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1205
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1206
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1207
                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1208
                (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1209
                   name: 'RightBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1210
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1211
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1212
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1213
                      (VariableVerticalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1214
                         name: 'ClassAndVariablesPanel'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1215
                         layout: (LayoutFrame 0 0 0 0 0 1 -25 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1216
                         showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1217
                         snapMode: both
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1218
                         handlePosition: left
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1219
                         component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1220
                        (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1221
                           collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1222
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1223
                               name: 'ClassList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1224
                               majorKey: ClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1225
                               minorKey: windowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1226
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1227
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1228
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1229
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1230
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1231
                                   aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1232
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1233
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1234
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1235
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1236
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1237
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1238
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1239
                                   subAspect: hidePrivateClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1240
                                   aspect: hidePrivateClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1241
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1242
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1243
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1244
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1245
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1246
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1247
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1248
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1249
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1250
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1251
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1252
                                   subAspect: inGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1253
                                   aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1254
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1255
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1256
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1257
                                   subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1258
                                   aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1259
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1260
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1261
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1262
                                   aspect: classListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1263
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1264
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1265
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1266
                                   subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1267
                                   aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1268
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1269
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1270
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1271
                                   aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1272
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1273
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1274
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1275
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1276
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1277
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1278
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1279
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1280
                                   aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1281
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1282
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1283
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1284
                                   subAspect: outGeneratorHolderForMethods
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1285
                                   aspect: selectorListGenerator5
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1286
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1287
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1288
                                   subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1289
                                   aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1290
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1291
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1292
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1293
                                   subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1294
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1295
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1296
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1297
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1298
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1299
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1300
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1301
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1302
                                   subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1303
                                   aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1304
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1305
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1306
                                   subAspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1307
                                   aspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1308
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1309
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1310
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1311
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1312
                                   aspect: classListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1313
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1314
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1315
                                   subAspect: sortByNameAndInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1316
                                   aspect: sortByNameAndInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1317
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1318
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1319
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1320
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1321
                                   aspect: classListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1322
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1323
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1324
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1325
                               createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1326
                             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1327
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1328
                               name: 'VariableList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1329
                               majorKey: VariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1330
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1331
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1332
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1333
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1334
                                   subAspect: classHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1335
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1336
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1337
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1338
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1339
                                   aspect: variableDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1340
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1341
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1342
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1343
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1344
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1345
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1346
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1347
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1348
                                   aspect: variablesMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1349
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1350
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1351
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1352
                                   subAspect: selectedVariables
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1353
                                   aspect: variableFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1354
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1355
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1356
                                   subAspect: showClassVarsInVariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1357
                                   aspect: filterClassVars
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1358
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1359
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1360
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1361
                                   subAspect: sortVariablesByName
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1362
                                   aspect: sortVariablesByName
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1363
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1364
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1365
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1366
                               createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1367
                             )
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  1368
                            )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1369
                          
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1370
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1371
                         handles: (Any 0.5 1.0)
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  1372
                       )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1373
                      (UISubSpecification
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1374
                         name: 'MetaToggleSpec2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1375
                         layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1376
                         minorKey: metaSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1377
                       )
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  1378
                      )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1379
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1380
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1381
                 )
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  1382
                )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1383
              
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1384
             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1385
             handles: (Any 0.5 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1386
           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1387
          (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1388
             name: 'ClassHierarchyOrInheritanceBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1389
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1390
             initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1391
             visibilityChannel: classHierarchyOrInheritanceShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1392
             component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1393
            (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1394
               collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1395
                (VariableVerticalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1396
                   name: 'VariableVerticalPanel2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1397
                   layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1398
                   showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1399
                   snapMode: both
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1400
                   handlePosition: left
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1401
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1402
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1403
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1404
                      (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1405
                         name: 'HierarchyOrInheritanceBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1406
                         component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1407
                        (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1408
                           collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1409
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1410
                               name: 'ClassHierarchyList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1411
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1412
                               visibilityChannel: classHierarchyShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1413
                               majorKey: HierarchicalClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1414
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1415
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1416
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1417
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1418
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1419
                                   aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1420
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1421
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1422
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1423
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1424
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1425
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1426
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1427
                                   subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1428
                                   aspect: forceClassInheritanceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1429
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1430
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1431
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1432
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1433
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1434
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1435
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1436
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1437
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1438
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1439
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1440
                                   subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1441
                                   aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1442
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1443
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1444
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1445
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1446
                                   aspect: classInheritanceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1447
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1448
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1449
                                   subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1450
                                   aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1451
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1452
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1453
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1454
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1455
                                   aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1456
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1457
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1458
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1459
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1460
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1461
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1462
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1463
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1464
                                   aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1465
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1466
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1467
                                   subAspect: outGeneratorHolderForMethods
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1468
                                   aspect: selectorListGenerator5
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1469
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1470
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1471
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1472
                                   subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1473
                                   aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1474
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1475
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1476
                                   subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1477
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1478
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1479
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1480
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1481
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1482
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1483
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1484
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1485
                                   subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1486
                                   aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1487
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1488
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1489
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1490
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1491
                                   aspect: classHierarchyListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1492
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1493
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1494
                                   subAspect: topClassHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1495
                                   aspect: classHierarchyTopClass
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1496
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1497
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1498
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1499
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1500
                                   aspect: classHierarchyUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1501
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1502
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1503
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1504
                               createNewBuilder: true
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  1505
                             )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1506
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1507
                               name: 'ClassInheritanceList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1508
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1509
                               visibilityChannel: classInheritanceShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1510
                               majorKey: InheritanceClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1511
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1512
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1513
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1514
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1515
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1516
                                   aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1517
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1518
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1519
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1520
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1521
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1522
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1523
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1524
                                   subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1525
                                   aspect: forceClassInheritanceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1526
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1527
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1528
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1529
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1530
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1531
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1532
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1533
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1534
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1535
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1536
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1537
                                   subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1538
                                   aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1539
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1540
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1541
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1542
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1543
                                   aspect: classInheritanceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1544
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1545
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1546
                                   subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1547
                                   aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1548
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1549
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1550
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1551
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1552
                                   aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1553
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1554
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1555
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1556
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1557
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1558
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1559
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1560
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1561
                                   aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1562
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1563
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1564
                                   subAspect: outGeneratorHolderForMethods
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1565
                                   aspect: selectorListGenerator5
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1566
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1567
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1568
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1569
                                   subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1570
                                   aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1571
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1572
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1573
                                   subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1574
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1575
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1576
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1577
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1578
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1579
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1580
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1581
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1582
                                   subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1583
                                   aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1584
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1585
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1586
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1587
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1588
                                   aspect: classInheritanceListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1589
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1590
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1591
                                   subAspect: topClassHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1592
                                   aspect: classHierarchyTopClass
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1593
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1594
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1595
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1596
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1597
                                   aspect: classHierarchyUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1598
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1599
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1600
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1601
                               createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1602
                             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1603
                            )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1604
                          
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1605
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1606
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1607
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1608
                         name: 'VariableList2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1609
                         majorKey: VariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1610
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1611
                        (Array
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1612
                           
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1613
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1614
                             subAspect: classHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1615
                             aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1616
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1617
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1618
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1619
                             aspect: variableDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1620
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1621
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1622
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1623
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1624
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1625
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1626
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1627
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1628
                             aspect: variablesMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1629
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1630
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1631
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1632
                             subAspect: selectedVariables
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1633
                             aspect: variableFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1634
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1635
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1636
                             subAspect: showClassVarsInVariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1637
                             aspect: filterClassVars
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1638
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1639
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1640
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1641
                             subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1642
                             aspect: classHierarchyListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1643
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1644
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1645
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1646
                         createNewBuilder: true
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  1647
                       )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1648
                      )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1649
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1650
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1651
                   handles: (Any 0.5 1.0)
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  1652
                 )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1653
                (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1654
                   name: 'MetaToggles1'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1655
                   layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1656
                   hasHorizontalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1657
                   hasVerticalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1658
                   minorKey: metaSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1659
                   createNewBuilder: false
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  1660
                 )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1661
                )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1662
              
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1663
             )
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  1664
           )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1665
          )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1666
        
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1667
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1668
     )
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1669
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1670
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1671
windowSpecNonHierarchicalWithClassDiagram
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1672
    "This resource specification was automatically generated
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1673
     by the UIPainter of ST/X."
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1674
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1675
    "Do not manually edit this!! If it is corrupted,
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1676
     the UIPainter may not be able to read the specification."
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1677
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1678
    "
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1679
     UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#windowSpecNonHierarchicalWithClassDiagram
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1680
     Tools::OrganizerCanvas new openInterface:#windowSpecNonHierarchicalWithClassDiagram
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1681
    "
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1682
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1683
    <resource: #canvas>
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1684
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  1685
    ^ 
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1686
    #(FullSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1687
       name: windowSpecNonHierarchicalWithClassDiagram
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1688
       window: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1689
      (WindowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1690
         label: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1691
         name: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1692
         min: (Point 0 0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1693
         max: (Point 1024 721)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1694
         bounds: (Rectangle 0 0 300 300)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1695
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1696
       component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1697
      (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1698
         collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1699
          (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1700
             name: 'PackageDiagramClassChooser'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1701
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1702
             level: 0
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1703
             initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1704
             visibilityChannel: packageDiagramShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1705
             component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1706
            (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1707
               collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1708
                (ComboListSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1709
                   name: 'ComboList1'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1710
                   layout: (LayoutFrame 0 0 0 0 0 1 25 0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1711
                   model: selectedDiagramProject
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1712
                   comboList: packageList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1713
                   useIndex: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1714
                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1715
                (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1716
                   name: 'SubCanvas1'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1717
                   layout: (LayoutFrame 0 0 25 0 0 1 -25 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1718
                   level: 0
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1719
                   hasHorizontalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1720
                   hasVerticalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1721
                   minorKey: windowSpecForClassChooser
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1722
                   clientHolder: diagramApplicationModelHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1723
                   createNewBuilder: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1724
                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1725
                (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1726
                   name: 'MetaToggles2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1727
                   layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1728
                   hasHorizontalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1729
                   hasVerticalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1730
                   minorKey: metaSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1731
                   createNewBuilder: false
9422
a2a5a83f4a37 changed: #windowSpecNonHierarchicalWithClassDiagram
Claus Gittinger <cg@exept.de>
parents: 8755
diff changeset
  1732
                 )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1733
                )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1734
              
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1735
             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1736
           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1737
          (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1738
             name: 'ClassHierarchyOrInheritanceBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1739
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1740
             initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1741
             visibilityChannel: classHierarchyOrInheritanceShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1742
             component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1743
            (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1744
               collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1745
                (VariableVerticalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1746
                   name: 'VariableVerticalPanel2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1747
                   layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1748
                   showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1749
                   snapMode: both
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1750
                   handlePosition: left
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1751
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1752
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1753
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1754
                      (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1755
                         name: 'HierarchyOrInheritanceBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1756
                         component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1757
                        (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1758
                           collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1759
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1760
                               name: 'ClassHierarchyList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1761
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1762
                               visibilityChannel: classHierarchyShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1763
                               majorKey: HierarchicalClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1764
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1765
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1766
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1767
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1768
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1769
                                   aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1770
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1771
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1772
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1773
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1774
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1775
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1776
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1777
                                   subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1778
                                   aspect: forceClassInheritanceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1779
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1780
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1781
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1782
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1783
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1784
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1785
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1786
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1787
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1788
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1789
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1790
                                   subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1791
                                   aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1792
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1793
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1794
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1795
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1796
                                   aspect: classInheritanceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1797
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1798
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1799
                                   subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1800
                                   aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1801
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1802
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1803
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1804
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1805
                                   aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1806
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1807
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1808
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1809
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1810
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1811
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1812
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1813
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1814
                                   aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1815
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1816
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1817
                                   subAspect: outGeneratorHolderForMethods
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1818
                                   aspect: selectorListGenerator5
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1819
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1820
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1821
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1822
                                   subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1823
                                   aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1824
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1825
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1826
                                   subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1827
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1828
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1829
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1830
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1831
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1832
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1833
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1834
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1835
                                   subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1836
                                   aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1837
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1838
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1839
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1840
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1841
                                   aspect: classHierarchyListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1842
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1843
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1844
                                   subAspect: topClassHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1845
                                   aspect: classHierarchyTopClass
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1846
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1847
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1848
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1849
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1850
                                   aspect: classHierarchyUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1851
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1852
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1853
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1854
                               createNewBuilder: true
9422
a2a5a83f4a37 changed: #windowSpecNonHierarchicalWithClassDiagram
Claus Gittinger <cg@exept.de>
parents: 8755
diff changeset
  1855
                             )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1856
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1857
                               name: 'ClassInheritanceList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1858
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1859
                               visibilityChannel: classInheritanceShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1860
                               majorKey: InheritanceClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1861
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1862
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1863
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1864
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1865
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1866
                                   aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1867
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1868
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1869
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1870
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1871
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1872
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1873
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1874
                                   subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1875
                                   aspect: forceClassInheritanceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1876
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1877
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1878
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1879
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1880
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1881
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1882
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1883
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1884
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1885
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1886
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1887
                                   subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1888
                                   aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1889
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1890
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1891
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1892
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1893
                                   aspect: classInheritanceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1894
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1895
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1896
                                   subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1897
                                   aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1898
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1899
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1900
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1901
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1902
                                   aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1903
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1904
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1905
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1906
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1907
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1908
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1909
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1910
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1911
                                   aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1912
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1913
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1914
                                   subAspect: outGeneratorHolderForMethods
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1915
                                   aspect: selectorListGenerator5
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1916
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1917
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1918
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1919
                                   subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1920
                                   aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1921
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1922
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1923
                                   subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1924
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1925
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1926
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1927
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1928
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1929
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1930
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1931
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1932
                                   subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1933
                                   aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1934
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1935
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1936
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1937
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1938
                                   aspect: classInheritanceListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1939
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1940
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1941
                                   subAspect: topClassHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1942
                                   aspect: classHierarchyTopClass
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1943
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1944
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1945
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1946
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1947
                                   aspect: classHierarchyUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1948
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1949
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1950
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1951
                               createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1952
                             )
9422
a2a5a83f4a37 changed: #windowSpecNonHierarchicalWithClassDiagram
Claus Gittinger <cg@exept.de>
parents: 8755
diff changeset
  1953
                            )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1954
                          
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1955
                         )
9422
a2a5a83f4a37 changed: #windowSpecNonHierarchicalWithClassDiagram
Claus Gittinger <cg@exept.de>
parents: 8755
diff changeset
  1956
                       )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1957
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1958
                         name: 'VariableList2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1959
                         majorKey: VariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1960
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1961
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1962
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1963
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1964
                             subAspect: classHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1965
                             aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1966
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1967
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1968
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1969
                             aspect: variableDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1970
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1971
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1972
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1973
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1974
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1975
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1976
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1977
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1978
                             aspect: variablesMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1979
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1980
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1981
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1982
                             subAspect: selectedVariables
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1983
                             aspect: variableFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1984
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1985
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1986
                             subAspect: showClassVarsInVariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1987
                             aspect: filterClassVars
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1988
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1989
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1990
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1991
                             subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1992
                             aspect: classHierarchyListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1993
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1994
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1995
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1996
                         createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1997
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1998
                      )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  1999
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2000
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2001
                   handles: (Any 0.5 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2002
                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2003
                (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2004
                   name: 'MetaToggles1'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2005
                   layout: (LayoutFrame 0 0.0 -25 1 0 1.0 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2006
                   hasHorizontalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2007
                   hasVerticalScrollBar: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2008
                   minorKey: metaSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2009
                   createNewBuilder: false
9422
a2a5a83f4a37 changed: #windowSpecNonHierarchicalWithClassDiagram
Claus Gittinger <cg@exept.de>
parents: 8755
diff changeset
  2010
                 )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2011
                )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2012
              
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2013
             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2014
           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2015
          (VariableHorizontalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2016
             name: 'CategoryNameSpaceAndProjectPanel'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2017
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2018
             visibilityChannel: categoryNameSpaceAndProjectPanelShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2019
             barWidth: 2
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2020
             showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2021
             component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2022
            (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2023
               collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2024
                (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2025
                   name: 'LeftBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2026
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2027
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2028
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2029
                      (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2030
                         name: 'ClassCategoryAndNamespaceFilterBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2031
                         layout: (LayoutFrame 0 0 0 0 0 1 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2032
                         visibilityChannel: categoryListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2033
                         component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2034
                        (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2035
                           collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2036
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2037
                               name: 'ClassCategoryList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2038
                               layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -25 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2039
                               majorKey: ClassCategoryList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2040
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2041
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2042
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2043
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2044
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2045
                                   aspect: classCategoryDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2046
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2047
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2048
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2049
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2050
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2051
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2052
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2053
                                   subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2054
                                   aspect: forceClassCategoryGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2055
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2056
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2057
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2058
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2059
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2060
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2061
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2062
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2063
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2064
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2065
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2066
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2067
                                   aspect: classCategoryListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2068
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2069
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2070
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2071
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2072
                                   aspect: nameSpaceFilterSelection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2073
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2074
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2075
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2076
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2077
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2078
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2079
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2080
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2081
                                   aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2082
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2083
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2084
                                   subAspect: selectedCategories
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2085
                                   aspect: selectedCategories
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2086
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2087
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2088
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2089
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2090
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2091
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2092
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2093
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2094
                                   aspect: categoryListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2095
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2096
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2097
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2098
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2099
                                   aspect: classCategoryListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2100
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2101
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2102
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2103
                               createNewBuilder: true
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  2104
                             )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2105
                            (ExtendedComboBoxSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2106
                               name: 'NameSpaceFilterComboBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2107
                               layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2108
                               tabable: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2109
                               model: nameSpaceFilterSelectedNameSpace
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2110
                               menuWidgetHolder: nameSpaceListWidgetHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2111
                               miniScrollerHorizontal: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2112
                               menuSelector: nameSpaceFilterPopUpMenu
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2113
                             )
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  2114
                            )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2115
                          
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2116
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2117
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2118
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2119
                         name: 'NamespaceList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2120
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2121
                         initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2122
                         visibilityChannel: nameSpaceListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2123
                         majorKey: NamespaceList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2124
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2125
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2126
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2127
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2128
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2129
                             aspect: nameSpaceDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2130
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2131
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2132
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2133
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2134
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2135
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2136
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2137
                             subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2138
                             aspect: forceNamespaceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2139
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2140
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2141
                             subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2142
                             aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2143
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2144
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2145
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2146
                             subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2147
                             aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2148
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2149
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2150
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2151
                             aspect: nameSpaceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2152
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2153
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2154
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2155
                             subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2156
                             aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2157
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2158
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2159
                             subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2160
                             aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2161
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2162
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2163
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2164
                             subAspect: selectedNamespaces
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2165
                             aspect: selectedNamespaces
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2166
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2167
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2168
                             subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2169
                             aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2170
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2171
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2172
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2173
                             subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2174
                             aspect: nameSpaceListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2175
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2176
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2177
                             subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2178
                             aspect: nameSpaceListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2179
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2180
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2181
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2182
                         createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2183
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2184
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2185
                         name: 'ProjectList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2186
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2187
                         initiallyInvisible: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2188
                         visibilityChannel: projectListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2189
                         majorKey: ProjectList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2190
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2191
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2192
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2193
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2194
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2195
                             aspect: projectDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2196
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2197
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2198
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2199
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2200
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2201
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2202
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2203
                             subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2204
                             aspect: forceProjectGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2205
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2206
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2207
                             subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2208
                             aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2209
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2210
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2211
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2212
                             subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2213
                             aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2214
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2215
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2216
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2217
                             aspect: projectListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2218
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2219
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2220
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2221
                             subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2222
                             aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2223
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2224
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2225
                             subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2226
                             aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2227
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2228
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2229
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2230
                             subAspect: selectedProjects
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2231
                             aspect: selectedProjects
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2232
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2233
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2234
                             subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2235
                             aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2236
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2237
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2238
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2239
                             subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2240
                             aspect: projectListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2241
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2242
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2243
                             subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2244
                             aspect: projectListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2245
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2246
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2247
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2248
                         createNewBuilder: true
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  2249
                       )
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  2250
                      )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2251
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2252
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2253
                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2254
                (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2255
                   name: 'RightBox'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2256
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2257
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2258
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2259
                      (VariableVerticalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2260
                         name: 'ClassAndVariablesPanel'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2261
                         layout: (LayoutFrame 0 0 0 0 0 1 -25 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2262
                         showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2263
                         snapMode: both
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2264
                         handlePosition: left
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2265
                         component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2266
                        (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2267
                           collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2268
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2269
                               name: 'ClassList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2270
                               majorKey: ClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2271
                               minorKey: windowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2272
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2273
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2274
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2275
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2276
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2277
                                   aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2278
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2279
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2280
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2281
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2282
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2283
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2284
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2285
                                   subAspect: hidePrivateClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2286
                                   aspect: hidePrivateClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2287
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2288
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2289
                                   subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2290
                                   aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2291
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2292
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2293
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2294
                                   subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2295
                                   aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2296
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2297
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2298
                                   subAspect: inGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2299
                                   aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2300
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2301
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2302
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2303
                                   subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2304
                                   aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2305
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2306
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2307
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2308
                                   aspect: classListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2309
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2310
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2311
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2312
                                   subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2313
                                   aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2314
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2315
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2316
                                   subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2317
                                   aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2318
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2319
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2320
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2321
                                   subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2322
                                   aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2323
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2324
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2325
                                   subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2326
                                   aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2327
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2328
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2329
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2330
                                   subAspect: outGeneratorHolderForMethods
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2331
                                   aspect: selectorListGenerator5
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2332
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2333
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2334
                                   subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2335
                                   aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2336
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2337
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2338
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2339
                                   subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2340
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2341
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2342
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2343
                                   subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2344
                                   aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2345
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2346
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2347
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2348
                                   subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2349
                                   aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2350
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2351
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2352
                                   subAspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2353
                                   aspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2354
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2355
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2356
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2357
                                   subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2358
                                   aspect: classListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2359
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2360
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2361
                                   subAspect: sortByNameAndInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2362
                                   aspect: sortByNameAndInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2363
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2364
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2365
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2366
                                   subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2367
                                   aspect: classListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2368
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2369
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2370
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2371
                               createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2372
                             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2373
                            (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2374
                               name: 'VariableList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2375
                               majorKey: VariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2376
                               subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2377
                              (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2378
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2379
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2380
                                   subAspect: classHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2381
                                   aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2382
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2383
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2384
                                   subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2385
                                   aspect: variableDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2386
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2387
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2388
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2389
                                   subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2390
                                   aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2391
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2392
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2393
                                   subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2394
                                   aspect: variablesMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2395
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2396
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2397
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2398
                                   subAspect: selectedVariables
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2399
                                   aspect: variableFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2400
                                 ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2401
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2402
                                   subAspect: showClassVarsInVariableList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2403
                                   aspect: filterClassVars
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2404
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2405
                                 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2406
                                (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2407
                                   subAspect: sortVariablesByName
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2408
                                   aspect: sortVariablesByName
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2409
                                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2410
                               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2411
                               createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2412
                               createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2413
                             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2414
                            )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2415
                          
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2416
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2417
                         handles: (Any 0.5 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2418
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2419
                      (UISubSpecification
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2420
                         name: 'MetaToggleSpec2'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2421
                         layout: (LayoutFrame 0 0 -25 1 0 1 0 1)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2422
                         minorKey: metaSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2423
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2424
                      )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2425
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2426
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2427
                 )
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  2428
                )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2429
              
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2430
             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2431
             handles: (Any 0.5 1.0)
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  2432
           )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2433
          )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2434
        
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2435
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2436
     )
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  2437
!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  2438
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2439
windowSpecWithoutMetaToggles
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2440
    "This resource specification was automatically generated
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2441
     by the UIPainter of ST/X."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2442
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2443
    "Do not manually edit this!! If it is corrupted,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2444
     the UIPainter may not be able to read the specification."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2445
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2446
    "
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2447
     UIPainter new openOnClass:Tools::OrganizerCanvas andSelector:#windowSpecWithoutMetaToggles
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2448
     Tools::OrganizerCanvas new openInterface:#windowSpecWithoutMetaToggles
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2449
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2450
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2451
    <resource: #canvas>
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2452
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2453
    ^ 
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2454
    #(FullSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2455
       name: windowSpecWithoutMetaToggles
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2456
       window: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2457
      (WindowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2458
         label: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2459
         name: 'Organizer'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2460
         min: (Point 0 0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2461
         max: (Point 1024 721)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2462
         bounds: (Rectangle 0 0 300 300)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2463
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2464
       component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2465
      (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2466
         collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2467
          (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2468
             name: 'ClassHierarchyList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2469
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2470
             visibilityChannel: classHierarchyShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2471
             majorKey: HierarchicalClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2472
             minorKey: windowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2473
             subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2474
            (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2475
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2476
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2477
                 subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2478
                 aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2479
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2480
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2481
                 subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2482
                 aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2483
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2484
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2485
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2486
                 subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2487
                 aspect: forceClassInheritanceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2488
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2489
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2490
                 subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2491
                 aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2492
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2493
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2494
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2495
                 subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2496
                 aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2497
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2498
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2499
                 subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2500
                 aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2501
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2502
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2503
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2504
                 subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2505
                 aspect: classInheritanceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2506
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2507
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2508
                 subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2509
                 aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2510
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2511
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2512
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2513
                 subAspect: methodVisibilityHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2514
                 aspect: methodVisibilityHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2515
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2516
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2517
                 subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2518
                 aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2519
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2520
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2521
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2522
                 subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2523
                 aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2524
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2525
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2526
                 subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2527
                 aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2528
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2529
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2530
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2531
                 subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2532
                 aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2533
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2534
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2535
                 subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2536
                 aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2537
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2538
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2539
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2540
                 subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2541
                 aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2542
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2543
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2544
                 subAspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2545
                 aspect: showClassPackages
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2546
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2547
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2548
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2549
                 subAspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2550
                 aspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2551
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2552
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2553
                 subAspect: showMethodComplexity
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2554
                 aspect: showMethodComplexity
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2555
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2556
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2557
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2558
                 subAspect: showMethodInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2559
                 aspect: showMethodInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2560
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2561
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2562
                 subAspect: showMethodTypeIcon
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2563
                 aspect: showMethodTypeIcon
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2564
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2565
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2566
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2567
                 subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2568
                 aspect: classInheritanceListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2569
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2570
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2571
                 subAspect: topClassHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2572
                 aspect: classHierarchyTopClass
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2573
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2574
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2575
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2576
                 subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2577
                 aspect: classHierarchyUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2578
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2579
             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2580
             createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2581
             createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2582
           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2583
          (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2584
             name: 'ClassInheritanceList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2585
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2586
             visibilityChannel: classInheritanceShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2587
             majorKey: InheritanceClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2588
             minorKey: windowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2589
             subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2590
            (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2591
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2592
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2593
                 subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2594
                 aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2595
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2596
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2597
                 subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2598
                 aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2599
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2600
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2601
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2602
                 subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2603
                 aspect: forceClassInheritanceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2604
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2605
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2606
                 subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2607
                 aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2608
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2609
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2610
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2611
                 subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2612
                 aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2613
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2614
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2615
                 subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2616
                 aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2617
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2618
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2619
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2620
                 subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2621
                 aspect: classInheritanceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2622
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2623
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2624
                 subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2625
                 aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2626
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2627
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2628
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2629
                 subAspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2630
                 aspect: nameSpaceFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2631
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2632
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2633
                 subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2634
                 aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2635
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2636
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2637
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2638
                 subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2639
                 aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2640
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2641
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2642
                 subAspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2643
                 aspect: packageFilter
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2644
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2645
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2646
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2647
                 subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2648
                 aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2649
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2650
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2651
                 subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2652
                 aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2653
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2654
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2655
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2656
                 subAspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2657
                 aspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2658
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2659
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2660
                 subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2661
                 aspect: classInheritanceListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2662
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2663
               
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2664
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2665
                 subAspect: topClassHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2666
                 aspect: classHierarchyTopClass
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2667
               ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2668
              (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2669
                 subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2670
                 aspect: classHierarchyUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2671
               )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2672
             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2673
             createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2674
             createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2675
           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2676
          (VariableHorizontalPanelSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2677
             name: 'VariableHorizontalPanel1'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2678
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2679
             visibilityChannel: classHierarchyNotShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2680
             barWidth: 2
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2681
             showHandle: false
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2682
             component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2683
            (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2684
               collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2685
                (ViewSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2686
                   name: 'Box1'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2687
                   component: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2688
                  (SpecCollection
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2689
                     collection: (
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2690
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2691
                         name: 'ClassCategoryList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2692
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2693
                         visibilityChannel: categoryListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2694
                         majorKey: ClassCategoryList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2695
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2696
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2697
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2698
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2699
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2700
                             aspect: classCategoryDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2701
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2702
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2703
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2704
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2705
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2706
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2707
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2708
                             subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2709
                             aspect: forceClassCategoryGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2710
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2711
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2712
                             subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2713
                             aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2714
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2715
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2716
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2717
                             subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2718
                             aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2719
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2720
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2721
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2722
                             aspect: classCategoryListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2723
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2724
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2725
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2726
                             subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2727
                             aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2728
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2729
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2730
                             subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2731
                             aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2732
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2733
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2734
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2735
                             subAspect: selectedCategories
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2736
                             aspect: selectedCategories
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2737
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2738
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2739
                             subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2740
                             aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2741
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2742
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2743
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2744
                             subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2745
                             aspect: classCategoryListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2746
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2747
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2748
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2749
                         createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2750
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2751
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2752
                         name: 'NamespaceList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2753
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2754
                         visibilityChannel: nameSpaceListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2755
                         majorKey: NamespaceList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2756
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2757
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2758
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2759
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2760
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2761
                             aspect: nameSpaceDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2762
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2763
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2764
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2765
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2766
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2767
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2768
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2769
                             subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2770
                             aspect: forceNamespaceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2771
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2772
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2773
                             subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2774
                             aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2775
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2776
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2777
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2778
                             subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2779
                             aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2780
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2781
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2782
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2783
                             aspect: nameSpaceListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2784
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2785
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2786
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2787
                             subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2788
                             aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2789
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2790
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2791
                             subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2792
                             aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2793
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2794
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2795
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2796
                             subAspect: selectedNamespaces
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2797
                             aspect: selectedNamespaces
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2798
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2799
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2800
                             subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2801
                             aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2802
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2803
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2804
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2805
                             subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2806
                             aspect: nameSpaceListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2807
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2808
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2809
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2810
                         createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2811
                       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2812
                      (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2813
                         name: 'ProjectList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2814
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2815
                         visibilityChannel: projectListShown
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2816
                         majorKey: ProjectList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2817
                         subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2818
                        (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2819
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2820
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2821
                             subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2822
                             aspect: projectDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2823
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2824
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2825
                             subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2826
                             aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2827
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2828
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2829
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2830
                             subAspect: forceGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2831
                             aspect: forceProjectGeneratorTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2832
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2833
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2834
                             subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2835
                             aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2836
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2837
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2838
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2839
                             subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2840
                             aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2841
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2842
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2843
                             subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2844
                             aspect: projectListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2845
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2846
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2847
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2848
                             subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2849
                             aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2850
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2851
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2852
                             subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2853
                             aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2854
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2855
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2856
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2857
                             subAspect: selectedProjects
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2858
                             aspect: selectedProjects
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2859
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2860
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2861
                             subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2862
                             aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2863
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2864
                           
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2865
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2866
                             subAspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2867
                             aspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2868
                           ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2869
                          (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2870
                             subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2871
                             aspect: projectListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2872
                           )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2873
                         )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2874
                         createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2875
                         createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2876
                       )
6259
e440c14b02aa experimental display of method complexity
Claus Gittinger <cg@exept.de>
parents: 5909
diff changeset
  2877
                      )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2878
                    
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2879
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2880
                 )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2881
                (SubCanvasSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2882
                   name: 'ClassList'
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2883
                   majorKey: ClassList
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2884
                   minorKey: windowSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2885
                   subAspectHolders: 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2886
                  (Array
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2887
                     
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2888
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2889
                       subAspect: doubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2890
                       aspect: classDoubleClickChannel
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2891
                     ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2892
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2893
                       subAspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2894
                       aspect: environmentHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2895
                     )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2896
                     
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2897
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2898
                       subAspect: hidePrivateClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2899
                       aspect: hidePrivateClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2900
                     ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2901
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2902
                       subAspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2903
                       aspect: hideUnloadedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2904
                     )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2905
                     
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2906
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2907
                       subAspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2908
                       aspect: immediateUpdate
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2909
                     ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2910
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2911
                       subAspect: inGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2912
                       aspect: classGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2913
                     )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2914
                     
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2915
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2916
                       subAspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2917
                       aspect: markApplicationsHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2918
                     ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2919
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2920
                       subAspect: menuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2921
                       aspect: classListMenuHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2922
                     )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2923
                     
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2924
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2925
                       subAspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2926
                       aspect: meta
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2927
                     ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2928
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2929
                       subAspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2930
                       aspect: organizerMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2931
                     )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2932
                     
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2933
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2934
                       subAspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2935
                       aspect: outGeneratorHolder
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2936
                     ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2937
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2938
                       subAspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2939
                       aspect: selectedClasses
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2940
                     )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2941
                     
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2942
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2943
                       subAspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2944
                       aspect: selectionChangeCondition
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2945
                     ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2946
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2947
                       subAspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2948
                       aspect: showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2949
                     )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2950
                     
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2951
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2952
                       subAspect: slaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2953
                       aspect: classListSlaveMode
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2954
                     ) 
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2955
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2956
                       subAspect: sortByNameAndInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2957
                       aspect: sortByNameAndInheritance
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2958
                     )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2959
                     
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2960
                    (SubChannelInfoSpec
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2961
                       subAspect: updateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2962
                       aspect: classListUpdateTrigger
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2963
                     )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2964
                   )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2965
                   createNewApplication: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2966
                   createNewBuilder: true
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2967
                 )
6259
e440c14b02aa experimental display of method complexity
Claus Gittinger <cg@exept.de>
parents: 5909
diff changeset
  2968
                )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2969
              
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2970
             )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2971
             handles: (Any 0.5 1.0)
6259
e440c14b02aa experimental display of method complexity
Claus Gittinger <cg@exept.de>
parents: 5909
diff changeset
  2972
           )
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2973
          )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2974
        
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2975
       )
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2976
     )
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2977
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2978
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2979
!OrganizerCanvas class methodsFor:'plugIn spec'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2980
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2981
aspectSelectors
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2982
    "This resource specification was automatically generated
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2983
     by the UIPainter of ST/X."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2984
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2985
    "Do not manually edit this. If it is corrupted,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2986
     the UIPainter may not be able to read the specification."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2987
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2988
    "Return a description of exported aspects;
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2989
     these can be connected to aspects of an embedding application
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2990
     (if this app is embedded in a subCanvas)."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2991
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  2992
    ^ #(
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  2993
        #(classCategoryDoubleClickChannel action)
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  2994
        #classCategoryListMenuHolder
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  2995
        #(classDoubleClickChannel action)
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  2996
        #classHierarchyListMenuHolder
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  2997
        #classHierarchyTopClass
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  2998
        #classListMenuHolder
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  2999
        #environmentHolder
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3000
        #filterClassVars
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3001
        #hidePrivateClasses
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3002
        #hideUnloadedClasses
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3003
        #immediateUpdate
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3004
        #markApplicationsHolder
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3005
        #meta
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3006
        #metaToggleLabelHolder
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3007
        #(nameSpaceDoubleClickChannel action)
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3008
        #nameSpaceFilter
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3009
        #nameSpaceListMenuHolder
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3010
        #organizerMode
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3011
        #outGeneratorHolder
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3012
        #packageFilter
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3013
        #(projectDoubleClickChannel action)
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3014
        #projectListMenuHolder
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3015
        #selectedCategories
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3016
        #selectedClasses
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3017
        #selectedNamespaces
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3018
        #selectedProjects
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3019
        #selectedProtocols
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3020
        #selectionChangeCondition
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3021
        #showClassPackages
14015
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  3022
        #showCoverageInformation
45c779041a1e Refactoring of NavigatorModel's environment.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13850
diff changeset
  3023
        #sortByNameAndInheritance
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3024
        #sortVariablesBy
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3025
        #(variableDoubleClickChannel action)
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3026
        #variableFilter
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3027
        #variablesMenuHolder
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3028
      ).
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3029
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3030
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3031
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3032
!OrganizerCanvas methodsFor:'aspects'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3033
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3034
classCategoryDoubleClickChannel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3035
    classCategoryDoubleClickChannel isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3036
        classCategoryDoubleClickChannel := TriggerValue new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3037
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3038
    ^ classCategoryDoubleClickChannel.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3039
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3040
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3041
classCategoryListMenuHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3042
    classCategoryListMenuHolder isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3043
        classCategoryListMenuHolder := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3044
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3045
    ^ classCategoryListMenuHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3046
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3047
    "Created: / 18.2.2000 / 11:52:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3048
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3049
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3050
classDoubleClickChannel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3051
    classDoubleClickChannel isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3052
        classDoubleClickChannel := TriggerValue new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3053
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3054
    ^ classDoubleClickChannel.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3055
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3056
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3057
classGeneratorHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3058
    classGeneratorHolder isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3059
        classGeneratorHolder := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3060
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3061
    ^ classGeneratorHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3062
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3063
    "Created: / 18.2.2000 / 00:56:50 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3064
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3065
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3066
classGeneratorHolderFromClassCategory
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3067
    classGeneratorHolderFromClassCategory isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3068
        classGeneratorHolderFromClassCategory := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3069
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3070
    ^ classGeneratorHolderFromClassCategory.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3071
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3072
    "Created: / 18.2.2000 / 02:21:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3073
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3074
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3075
classGeneratorHolderFromClassHierarchy
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3076
    classGeneratorHolderFromClassHierarchy isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3077
        classGeneratorHolderFromClassHierarchy := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3078
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3079
    ^ classGeneratorHolderFromClassHierarchy.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3080
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3081
    "Created: / 18.2.2000 / 02:21:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3082
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3083
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3084
classGeneratorHolderFromNamespace
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3085
    classGeneratorHolderFromNamespace isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3086
        classGeneratorHolderFromNamespace := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3087
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3088
    ^ classGeneratorHolderFromNamespace.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3089
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3090
    "Created: / 18.2.2000 / 02:21:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3091
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3092
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3093
classGeneratorHolderFromProject
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3094
    classGeneratorHolderFromProject isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3095
        classGeneratorHolderFromProject := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3096
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3097
    ^ classGeneratorHolderFromProject.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3098
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3099
    "Created: / 18.2.2000 / 02:21:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3100
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3101
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3102
classHierarchyListMenuHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3103
    classHierarchyListMenuHolder isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3104
        classHierarchyListMenuHolder := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3105
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3106
    ^ classHierarchyListMenuHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3107
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3108
    "Created: / 18.2.2000 / 11:52:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3109
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3110
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3111
classHierarchyTopClass
8006
cdc85821cae2 aspect holder setup code cleanup
Claus Gittinger <cg@exept.de>
parents: 7886
diff changeset
  3112
    ^ builder valueAspectFor:#classHierarchyTopClass initialValue:Object
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3113
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3114
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3115
classInheritanceListMenuHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3116
    ^ self classHierarchyListMenuHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3117
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3118
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3119
classList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3120
    classList isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3121
        classList := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3122
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3123
    ^ classList.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3124
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3125
    "Created: / 18.2.2000 / 00:23:43 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3126
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3127
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3128
classListMenuHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3129
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3130
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3131
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3132
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3133
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3134
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3135
    classListMenuHolder isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3136
	classListMenuHolder := ValueHolder new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3137
"/        classListMenuHolder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3138
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3139
    ^ classListMenuHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3140
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3141
    "Created: / 18.2.2000 / 11:57:22 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3142
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3143
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3144
defaultOrganizerMode
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3145
    ^ OrganizerCanvas organizerModePackageDiagram.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3146
    ^ OrganizerCanvas organizerModeCategory
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3147
!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3148
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3149
diagramPackageSelection
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3150
    |holder|
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3151
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3152
    (holder := builder bindingAt:#diagramPackageSelection) isNil ifTrue:[
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3153
        holder := nil asValue.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3154
        builder aspectAt:#diagramPackageSelection put:holder.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3155
        holder onChangeSend:#diagramPackageSelectionChanged to:self.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3156
    ].
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3157
    ^ holder.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3158
!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3159
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3160
filterClassVars
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3161
    filterClassVars isNil ifTrue:[
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3162
        filterClassVars := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3163
"/        filterClassVars addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3164
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3165
    ^ filterClassVars.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3166
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3167
    "Created: / 24-02-2000 / 23:29:52 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3168
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3169
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3170
hidePrivateClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3171
    hidePrivateClasses isNil ifTrue:[
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3172
        hidePrivateClasses := false asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3173
"/        hidePrivateClasses addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3174
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3175
    ^ hidePrivateClasses.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3176
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3177
    "Created: / 24-02-2000 / 16:18:45 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3178
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3179
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3180
hideUnloadedClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3181
    hideUnloadedClasses isNil ifTrue:[
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3182
        hideUnloadedClasses := false asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3183
"/        hideUnloadedClasses addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3184
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3185
    ^ hideUnloadedClasses.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3186
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3187
    "Created: / 18-02-2000 / 17:54:57 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3188
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3189
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3190
immediateUpdate
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3191
    immediateUpdate isNil ifTrue:[
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3192
        immediateUpdate := false asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3193
"/        immediateUpdate addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3194
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3195
    ^ immediateUpdate.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3196
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3197
    "Created: / 18-02-2000 / 00:23:43 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3198
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3199
6398
e44eeb14731e leftover halts.
Claus Gittinger <cg@exept.de>
parents: 6269
diff changeset
  3200
initialOrganizerMode
e44eeb14731e leftover halts.
Claus Gittinger <cg@exept.de>
parents: 6269
diff changeset
  3201
    ^ nil  "/ dummy
e44eeb14731e leftover halts.
Claus Gittinger <cg@exept.de>
parents: 6269
diff changeset
  3202
!
e44eeb14731e leftover halts.
Claus Gittinger <cg@exept.de>
parents: 6269
diff changeset
  3203
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3204
markApplicationsHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3205
    markApplicationsHolder isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3206
	markApplicationsHolder := false asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3207
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3208
    ^ markApplicationsHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3209
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3210
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3211
meta
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3212
    meta isNil ifTrue:[
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3213
        meta := false asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3214
"/        meta addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3215
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3216
    ^ meta.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3217
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3218
    "Created: / 18-02-2000 / 00:23:43 / cg"
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3219
    "Modified (comment): / 04-07-2011 / 18:52:49 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3220
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3221
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3222
metaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3223
    metaToggle isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3224
	metaToggle := PluggableAdaptor on:(self meta).
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3225
	metaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3226
	    getBlock:[:m | m value == true]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3227
	    putBlock:[:m :newValue | m value:(newValue ? false)]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3228
	    updateBlock:[:m :aspect :param | true].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3229
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3230
    ^ metaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3231
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3232
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3233
metaToggleLabelHolder
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3234
    "this is changed from 'Instance/Class' to 'Instance/Static' for Java"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3235
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3236
    metaToggleLabelHolder isNil ifTrue:[
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3237
        metaToggleLabelHolder := (resources string:'Class') asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3238
"/        metaToggleLabelHolder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3239
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3240
    ^ metaToggleLabelHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3241
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3242
    "Created: / 18-02-2000 / 11:52:55 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3243
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3244
7886
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3245
methodVisibilityHolder
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3246
    masterApplication notNil ifTrue:[
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3247
        ^ masterApplication methodVisibilityHolder
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3248
    ].
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3249
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3250
    methodVisibilityHolder isNil ifTrue:[
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3251
        methodVisibilityHolder := false asValue.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3252
    ].
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3253
    ^ methodVisibilityHolder.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3254
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3255
    "Created: / 05-11-2007 / 16:57:58 / cg"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3256
!
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3257
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3258
nameSpaceDoubleClickChannel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3259
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3260
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3261
    (holder := builder bindingAt:#nameSpaceDoubleClickChannel) isNil ifTrue:[
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3262
        holder := TriggerValue new.
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3263
        builder aspectAt:#nameSpaceDoubleClickChannel put:holder.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3264
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3265
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3266
    ^ holder.
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3267
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3268
    "Modified (comment): / 04-07-2011 / 18:53:36 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3269
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3270
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3271
nameSpaceFilter
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3272
    nameSpaceFilter isNil ifTrue:[
6398
e44eeb14731e leftover halts.
Claus Gittinger <cg@exept.de>
parents: 6269
diff changeset
  3273
        nameSpaceFilter := ValueHolder new.
e44eeb14731e leftover halts.
Claus Gittinger <cg@exept.de>
parents: 6269
diff changeset
  3274
        nameSpaceFilter onChangeEvaluate:[
e44eeb14731e leftover halts.
Claus Gittinger <cg@exept.de>
parents: 6269
diff changeset
  3275
            nameSpaceFilter value ~= nameSpaceFilterSelection value ifTrue:[
8359
Claus Gittinger <cg@exept.de>
parents: 8012
diff changeset
  3276
                self halt:'should not happen'
6398
e44eeb14731e leftover halts.
Claus Gittinger <cg@exept.de>
parents: 6269
diff changeset
  3277
            ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3278
"/            self nameSpaceFilter value: nameSpaceFilterSelection value.
6398
e44eeb14731e leftover halts.
Claus Gittinger <cg@exept.de>
parents: 6269
diff changeset
  3279
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3280
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3281
    ^ nameSpaceFilter.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3282
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3283
    "Created: / 24.2.2000 / 23:29:52 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3284
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3285
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3286
nameSpaceFilterDoubleClickChannel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3287
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3288
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3289
    (holder := builder bindingAt:#nameSpaceFilterDoubleClickChannel) isNil ifTrue:[
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3290
        holder := TriggerValue new.
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3291
        builder aspectAt:#nameSpaceFilterDoubleClickChannel put:holder.
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3292
        holder onChangeEvaluate:[
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3293
                    (builder componentAt:#NameSpaceFilterComboBox) closeMenu.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3294
"/                    self nameSpaceDoubleClickChannel value:true.
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3295
               ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3296
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3297
    ^ holder.
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3298
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3299
    "Modified (comment): / 04-07-2011 / 18:53:39 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3300
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3301
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3302
nameSpaceFilterPopUpMenu
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3303
    ^ self nameSpaceListMenuHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3304
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3305
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3306
nameSpaceFilterSelectedNameSpace
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3307
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3308
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3309
    (holder := builder bindingAt:#nameSpaceFilterSelectedNameSpace) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3310
	holder := self class nameListEntryForALL "'* all *'" asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3311
	builder aspectAt:#nameSpaceFilterSelectedNameSpace put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3312
	holder onChangeEvaluate:[ self updateNameSpaceLabel. ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3313
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3314
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3315
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3316
    "Created: / 18.2.2000 / 11:52:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3317
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3318
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3319
nameSpaceFilterSelection
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3320
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3321
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3322
    nameSpaceFilterSelection isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3323
	nameSpaceFilterSelection := (OrderedCollection with:self class nameListEntryForALL) asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3324
	nameSpaceFilterSelection addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3325
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3326
    ^ nameSpaceFilterSelection.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3327
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3328
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3329
nameSpaceListMenuHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3330
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3331
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3332
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3333
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3334
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3335
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3336
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3337
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3338
    (holder := builder bindingAt:#nameSpaceListMenuHolder) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3339
	holder := ValueHolder new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3340
	builder aspectAt:#nameSpaceListMenuHolder put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3341
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3342
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3343
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3344
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3345
    "Created: / 18.2.2000 / 11:52:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3346
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3347
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3348
nameSpaceListWidget
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3349
    |view|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3350
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3351
    view := SubCanvas new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3352
    view client:self spec:#embeddedNameSpaceListSpec builder:nil. "/ (self builder).
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3353
    (view builder findComponentAt:#List) autoHideHorizontalScrollBar:true.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3354
    ^ view.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3355
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3356
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3357
nameSpaceListWidgetHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3358
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3359
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3360
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3361
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3362
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3363
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3364
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3365
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3366
    (holder := builder bindingAt:#nameSpaceListWidgetHolder) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3367
	holder := ValueHolder new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3368
	builder aspectAt:#nameSpaceListWidgetHolder put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3369
	holder value:(self nameSpaceListWidget).
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3370
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3371
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3372
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3373
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3374
notMetaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3375
    notMetaToggle isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3376
	notMetaToggle := PluggableAdaptor on:(self meta).
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3377
	notMetaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3378
	    getBlock:[:m | m value == false]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3379
	    putBlock:[:m :newValue | m value:(newValue ? false) not]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3380
	    updateBlock:[:m :aspect :param | true].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3381
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3382
    ^ notMetaToggle
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3383
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3384
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3385
organizerMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3386
    organizerMode isNil ifTrue:[
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3387
        organizerMode := self defaultOrganizerMode asValue.
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  3388
        organizerMode addDependent:self.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3389
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3390
    ^ organizerMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3391
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3392
    "Created: / 18.2.2000 / 00:30:44 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3393
    "Modified: / 18.2.2000 / 02:56:21 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3394
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3395
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3396
outGeneratorHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3397
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3398
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3399
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3400
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3401
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3402
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3403
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3404
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3405
    (holder := builder bindingAt:#outGeneratorHolder) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3406
	holder := ValueHolder new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3407
	builder aspectAt:#outGeneratorHolder put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3408
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3409
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3410
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3411
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3412
    "Created: / 18.2.2000 / 00:23:43 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3413
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3414
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3415
packageFilter
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3416
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3417
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3418
    packageFilter isNil ifTrue:[
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3419
        packageFilter := ValueHolder new.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3420
        "/ packageFilter addDependent:self.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3421
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3422
    ^ packageFilter.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3423
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3424
    "Created: / 24.2.2000 / 23:29:52 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3425
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3426
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3427
packageList
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3428
    |holder|
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3429
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3430
    (holder := builder bindingAt:#packageList) isNil ifTrue:[
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3431
        holder := ValueHolder with:(ProjectList new listOfProjects).
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3432
        builder aspectAt:#packageList put:holder.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3433
    ].
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3434
    ^ holder.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3435
!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  3436
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3437
popUpNameSpaceListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3438
    ^ false
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3439
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3440
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3441
projectDoubleClickChannel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3442
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3443
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3444
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3445
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3446
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3447
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3448
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3449
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3450
    (holder := builder bindingAt:#projectDoubleClickChannel) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3451
	holder := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3452
	builder aspectAt:#projectDoubleClickChannel put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3453
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3454
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3455
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3456
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3457
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3458
projectListMenuHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3459
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3460
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3461
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3462
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3463
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3464
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3465
    projectListMenuHolder isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3466
	projectListMenuHolder := ValueHolder new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3467
"/        projectListMenuHolder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3468
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3469
    ^ projectListMenuHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3470
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3471
    "Created: / 18.2.2000 / 11:52:55 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3472
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3473
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3474
selectedCategories
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3475
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3476
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3477
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3478
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3479
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3480
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3481
    selectedCategories isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3482
	selectedCategories := ValueHolder new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3483
"/        selectedCategories addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3484
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3485
    ^ selectedCategories.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3486
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3487
    "Created: / 18.2.2000 / 12:27:58 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3488
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3489
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3490
selectedClasses
12002
35e641782568 comment/format in: #selectedClasses
Claus Gittinger <cg@exept.de>
parents: 11879
diff changeset
  3491
    "bad name- it's a holder, baby"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3492
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3493
    selectedClasses isNil ifTrue:[
12002
35e641782568 comment/format in: #selectedClasses
Claus Gittinger <cg@exept.de>
parents: 11879
diff changeset
  3494
        selectedClasses := ValueHolder new.
35e641782568 comment/format in: #selectedClasses
Claus Gittinger <cg@exept.de>
parents: 11879
diff changeset
  3495
        selectedClasses addDependent:self.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3496
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3497
    ^ selectedClasses.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3498
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3499
    "Created: / 18.2.2000 / 00:23:43 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3500
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3501
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3502
selectedDiagramProject
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3503
    |holder|
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3504
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3505
    (holder := builder bindingAt:#selectedDiagramProject) isNil ifTrue:[
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3506
        holder := nil asValue.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3507
        builder aspectAt:#selectedDiagramProject put:holder.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3508
        holder addDependent:self.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3509
    ].
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3510
    ^ holder.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3511
!
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3512
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3513
selectedNamespaces
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3514
    selectedNamespaces isNil ifTrue:[
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3515
        selectedNamespaces := (OrderedCollection with:self class nameListEntryForALL) asValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3516
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3517
    ^ selectedNamespaces.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3518
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3519
    "Created: / 18.2.2000 / 12:27:58 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3520
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3521
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3522
selectedProjects
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3523
    selectedProjects isNil ifTrue:[
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3524
        selectedProjects := ValueHolder new.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3525
        selectedProjects addDependent:self.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3526
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3527
    ^ selectedProjects.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3528
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3529
    "Created: / 18.2.2000 / 12:16:01 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3530
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3531
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3532
selectionChangeCondition
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3533
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3534
    selectionChangeCondition isNil ifTrue:[
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  3535
        selectionChangeCondition := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3536
"/        selectionChangeCondition addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3537
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3538
    ^ selectionChangeCondition.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3539
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3540
    "Created: / 18.2.2000 / 00:23:43 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3541
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3542
7704
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3543
showAllClassesInNameSpaceOrganisation
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3544
    masterApplication notNil ifTrue:[
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3545
        ^ masterApplication showAllClassesInNameSpaceOrganisation
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3546
    ].
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3547
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3548
    showAllClassesInNameSpaceView isNil ifTrue:[
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3549
        showAllClassesInNameSpaceView := false asValue.
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3550
    ].
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3551
    ^ showAllClassesInNameSpaceView.
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3552
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3553
    "Created: / 05-03-2007 / 16:52:02 / cg"
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3554
    "Modified: / 06-03-2007 / 12:30:17 / cg"
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3555
!
eef2d6a873fd showAllInNSView
Claus Gittinger <cg@exept.de>
parents: 7668
diff changeset
  3556
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3557
showClassPackages
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3558
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3559
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3560
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3561
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3562
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3563
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3564
    showClassPackages isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3565
	showClassPackages := false asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3566
"/        showClassPackages addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3567
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3568
    ^ showClassPackages.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3569
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3570
    "Created: / 18.2.2000 / 17:54:57 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3571
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3572
9441
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3573
showCoverageInformation
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3574
    masterApplication notNil ifTrue:[
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3575
        ^ masterApplication showCoverageInformation
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3576
    ].
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3577
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3578
    showCoverageInformation isNil ifTrue:[
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3579
        showCoverageInformation := false asValue.
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3580
    ].
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3581
    ^ showCoverageInformation.
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3582
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3583
    "Created: / 27-04-2010 / 16:32:56 / cg"
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3584
!
1affc379ddaa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9422
diff changeset
  3585
7886
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3586
showMethodComplexity
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3587
    masterApplication notNil ifTrue:[
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3588
        ^ masterApplication showMethodComplexity
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3589
    ].
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3590
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3591
    showMethodComplexity isNil ifTrue:[
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3592
        showMethodComplexity := false asValue.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3593
    ].
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3594
    ^ showMethodComplexity.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3595
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3596
    "Created: / 05-11-2007 / 16:56:36 / cg"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3597
!
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3598
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3599
showMethodInheritance
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3600
    masterApplication notNil ifTrue:[
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3601
        ^ masterApplication showMethodInheritance
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3602
    ].
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3603
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3604
    showMethodInheritance isNil ifTrue:[
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3605
        showMethodInheritance := false asValue.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3606
    ].
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3607
    ^ showMethodInheritance.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3608
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3609
    "Created: / 05-11-2007 / 16:55:35 / cg"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3610
!
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3611
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3612
showMethodTypeIcon
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3613
    masterApplication notNil ifTrue:[
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3614
        ^ masterApplication showMethodTypeIcon
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3615
    ].
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3616
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3617
    showMethodTypeIcon isNil ifTrue:[
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3618
        showMethodTypeIcon := false asValue.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3619
    ].
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3620
    ^ showMethodTypeIcon.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3621
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3622
    "Created: / 05-11-2007 / 16:57:12 / cg"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3623
!
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  3624
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3625
sortByNameAndInheritance
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3626
    sortByNameAndInheritance isNil ifTrue:[
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3627
        sortByNameAndInheritance := false asValue.
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3628
"/        sortByNameAndInheritance addDependent:self.
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3629
    ].
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3630
    ^ sortByNameAndInheritance.
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3631
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3632
    "Created: / 04-07-2011 / 18:41:22 / cg"
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3633
!
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  3634
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3635
sortVariablesByName
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3636
    sortVariablesByName isNil ifTrue:[
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3637
        sortVariablesByName := false asValue.
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3638
    ].
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3639
    ^ sortVariablesByName.
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3640
!
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3641
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3642
updateNameSpaceLabel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3643
    |box|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3644
8743
49ab1a31fb79 cleanup
Claus Gittinger <cg@exept.de>
parents: 8736
diff changeset
  3645
    box := self componentAt:#NameSpaceFilterComboBox.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3646
    box notNil ifTrue:[
8743
49ab1a31fb79 cleanup
Claus Gittinger <cg@exept.de>
parents: 8736
diff changeset
  3647
        "/ new code: ExtComboBox uses always an EditField
49ab1a31fb79 cleanup
Claus Gittinger <cg@exept.de>
parents: 8736
diff changeset
  3648
        box editor contents:nameSpaceFilterSelection value first.        
49ab1a31fb79 cleanup
Claus Gittinger <cg@exept.de>
parents: 8736
diff changeset
  3649
49ab1a31fb79 cleanup
Claus Gittinger <cg@exept.de>
parents: 8736
diff changeset
  3650
        "/ old code: readOnly ExtComboBox used a Label
49ab1a31fb79 cleanup
Claus Gittinger <cg@exept.de>
parents: 8736
diff changeset
  3651
        "/ box menuField label:nameSpaceFilterSelection value first
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3652
    ]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3653
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3654
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3655
variableDoubleClickChannel
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3656
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3657
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3658
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3659
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3660
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3661
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3662
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3663
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3664
    (holder := builder bindingAt:#variableDoubleClickChannel) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3665
	holder := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3666
	builder aspectAt:#variableDoubleClickChannel put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3667
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3668
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3669
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3670
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3671
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3672
variableFilter
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3673
    variableFilter isNil ifTrue:[
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  3674
        variableFilter := ValueHolder new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3675
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3676
    ^ variableFilter.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3677
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3678
    "Created: / 24.2.2000 / 23:29:52 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3679
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3680
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3681
variablesMenuHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3682
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3683
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3684
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3685
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3686
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3687
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3688
    variablesMenuHolder isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3689
	variablesMenuHolder := ValueHolder new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3690
"/        variablesMenuHolder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3691
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3692
    ^ variablesMenuHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3693
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3694
    "Created: / 24.2.2000 / 23:29:52 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3695
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3696
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3697
!OrganizerCanvas methodsFor:'aspects-exported'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3698
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3699
classCategoryDoubleClickChannel:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3700
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3701
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3702
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3703
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3704
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3705
    "/ classCategoryDoubleClickChannel removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3706
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3707
    classCategoryDoubleClickChannel := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3708
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3709
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3710
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3711
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3712
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3713
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3714
    "Created: / 18.8.2000 / 20:04:48 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3715
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3716
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3717
classCategoryListMenuHolder:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3718
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3719
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3720
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3721
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3722
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3723
    "/ classCategoryListMenuHolder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3724
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3725
    classCategoryListMenuHolder := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3726
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3727
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3728
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3729
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3730
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3731
    "Created: / 18.2.2000 / 11:53:31 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3732
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3733
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3734
classCategoryListUpdateTrigger:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3735
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3736
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3737
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3738
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3739
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3740
    "/ classCategoryListUpdateTrigger removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3741
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3742
    classCategoryListUpdateTrigger := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3743
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3744
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3745
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3746
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3747
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3748
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3749
    "Created: / 18.2.2000 / 02:08:01 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3750
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3751
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3752
classDoubleClickChannel:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3753
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3754
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3755
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3756
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3757
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3758
    "/ classDoubleClickChannel removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3759
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3760
    classDoubleClickChannel := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3761
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3762
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3763
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3764
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3765
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3766
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3767
classHierarchyListMenuHolder:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3768
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3769
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3770
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3771
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3772
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3773
    "/ classHierarchyListMenuHolder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3774
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3775
    classHierarchyListMenuHolder := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3776
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3777
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3778
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3779
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3780
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3781
    "Created: / 18.2.2000 / 11:53:31 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3782
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3783
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3784
classHierarchyShown:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3785
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3786
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3787
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3788
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3789
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3790
    "/ |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3791
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3792
    "/ (holder := builder bindingAt:#classHierarchyShown) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3793
    "/     holder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3794
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3795
    builder aspectAt:#classHierarchyShown put:something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3796
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3797
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3798
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3799
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3800
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3801
    "Created: / 18.2.2000 / 00:24:28 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3802
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3803
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3804
classHierarchyTopClass:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3805
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3806
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3807
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3808
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3809
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3810
    "/ |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3811
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3812
    "/ (holder := builder bindingAt:#classHierarchyTopClass) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3813
    "/     holder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3814
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3815
    builder aspectAt:#classHierarchyTopClass put:something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3816
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3817
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3818
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3819
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3820
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3821
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3822
classHierarchyUpdateTrigger:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3823
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3824
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3825
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3826
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3827
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3828
    "/ |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3829
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3830
    "/ (holder := builder bindingAt:#classHierarchyUpdateTrigger) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3831
    "/     holder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3832
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3833
    builder aspectAt:#classHierarchyUpdateTrigger put:something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3834
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3835
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3836
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3837
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3838
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3839
    "Created: / 18.2.2000 / 02:08:01 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3840
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3841
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3842
classList:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3843
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3844
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3845
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3846
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3847
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3848
    "/ classList notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3849
    "/     classList removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3850
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3851
    classList := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3852
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3853
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3854
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3855
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3856
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3857
    "Created: / 18.2.2000 / 00:24:28 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3858
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3859
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3860
classListMenuHolder:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3861
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3862
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3863
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3864
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3865
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3866
    "/ classListMenuHolder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3867
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3868
    classListMenuHolder := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3869
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3870
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3871
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3872
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3873
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3874
    "Created: / 18.2.2000 / 11:57:22 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3875
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3876
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3877
classListUpdateTrigger:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3878
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3879
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3880
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3881
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3882
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3883
    "/ classListUpdateTrigger removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3884
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3885
    classListUpdateTrigger := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3886
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3887
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3888
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3889
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3890
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3891
    "Created: / 18.2.2000 / 02:08:01 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3892
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3893
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3894
filterClassVars:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3895
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3896
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3897
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3898
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3899
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3900
    "/ filterClassVars removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3901
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3902
    filterClassVars := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3903
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3904
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3905
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3906
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3907
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3908
    "Created: / 24.2.2000 / 23:46:16 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3909
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3910
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3911
hidePrivateClasses:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3912
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3913
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3914
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3915
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3916
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3917
    "/ hidePrivateClasses removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3918
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3919
    hidePrivateClasses := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3920
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3921
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3922
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3923
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3924
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3925
    "Created: / 24.2.2000 / 16:18:32 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3926
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3927
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3928
hideUnloadedClasses:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3929
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3930
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3931
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3932
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3933
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3934
    "/ hideUnloadedClasses removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3935
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3936
    hideUnloadedClasses := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3937
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3938
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3939
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3940
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3941
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3942
    "Created: / 18.2.2000 / 17:54:57 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3943
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3944
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3945
immediateUpdate:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3946
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3947
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3948
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3949
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3950
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3951
    "/ immediateUpdate removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3952
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3953
    immediateUpdate := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3954
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3955
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3956
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3957
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3958
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3959
    "Created: / 18.2.2000 / 00:24:29 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3960
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3961
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3962
markApplicationsHolder:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3963
    markApplicationsHolder := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3964
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3965
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3966
meta:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3967
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3968
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3969
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3970
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3971
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3972
    "/ meta notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3973
    "/     meta removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3974
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3975
"/ (something == true or:[something == false]) ifTrue:[self halt].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3976
    meta := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3977
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3978
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3979
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3980
    metaToggle notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3981
	metaToggle model:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3982
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3983
    notMetaToggle notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3984
	notMetaToggle model:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3985
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3986
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3987
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3988
    "Created: / 18.2.2000 / 00:24:29 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3989
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3990
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3991
metaToggleLabelHolder:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3992
    |v|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3993
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3994
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3995
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3996
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3997
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3998
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  3999
    "/ metaToggleLabelHolder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4000
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4001
    metaToggleLabelHolder := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4002
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4003
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4004
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4005
    (v := builder componentAt:#ClassToggle) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4006
	v labelChannel:metaToggleLabelHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4007
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4008
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4009
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4010
    "Created: / 18.2.2000 / 11:53:31 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4011
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4012
7886
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4013
methodVisibilityHolder:aValueHolder
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4014
    "automatically generated by UIPainter ..."
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4015
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4016
    "This method is used when I am embedded as subApplication,"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4017
    "and the mainApp wants to connect its aspects to mine."
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4018
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4019
    methodVisibilityHolder := aValueHolder.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4020
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4021
    "Created: / 05-11-2007 / 16:57:34 / cg"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4022
!
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4023
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4024
nameSpaceFilter:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4025
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4026
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4027
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4028
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4029
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4030
    "/ packageFilter notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4031
    "/     packageFilter removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4032
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4033
    nameSpaceFilter := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4034
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4035
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4036
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4037
    self nameSpaceFilterSelection value:something value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4038
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4039
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4040
    "Created: / 24.2.2000 / 23:46:16 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4041
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4042
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4043
nameSpaceListMenuHolder:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4044
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4045
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4046
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4047
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4048
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4049
    "/ |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4050
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4051
    "/ (holder := builder bindingAt:#namespaceListMenuHolder) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4052
    "/     holder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4053
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4054
    builder aspectAt:#nameSpaceListMenuHolder put:something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4055
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4056
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4057
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4058
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4059
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4060
    "Created: / 18.2.2000 / 11:53:31 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4061
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4062
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4063
nameSpaceListUpdateTrigger:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4064
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4065
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4066
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4067
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4068
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4069
    "/ |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4070
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4071
    "/ (holder := builder bindingAt:#namespaceListUpdateTrigger) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4072
    "/     holder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4073
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4074
    builder aspectAt:#nameSpaceListUpdateTrigger put:something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4075
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4076
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4077
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4078
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4079
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4080
    "Created: / 18.2.2000 / 02:08:01 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4081
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4082
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4083
organizerMode:aValueHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4084
    organizerMode notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4085
	organizerMode removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4086
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4087
    organizerMode := aValueHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4088
    organizerMode notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4089
	organizerMode addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4090
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4091
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4092
    "Created: / 18.2.2000 / 10:21:41 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4093
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4094
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4095
outGeneratorHolder:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4096
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4097
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4098
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4099
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4100
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4101
    "/ |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4102
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4103
    "/ (holder := builder bindingAt:#outGeneratorHolder) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4104
    "/     holder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4105
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4106
    builder aspectAt:#outGeneratorHolder put:something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4107
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4108
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4109
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4110
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4111
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4112
    "Created: / 18.2.2000 / 00:24:29 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4113
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4114
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4115
packageFilter:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4116
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4117
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4118
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4119
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4120
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4121
    "/ packageFilter notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4122
    "/     packageFilter removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4123
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4124
    packageFilter := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4125
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4126
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4127
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4128
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4129
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4130
    "Created: / 24.2.2000 / 23:46:16 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4131
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4132
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4133
projectDoubleClickChannel:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4134
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4135
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4136
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4137
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4138
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4139
    "/ |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4140
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4141
    "/ (holder := builder bindingAt:#projectDoubleClickChannel) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4142
    "/     holder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4143
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4144
    builder aspectAt:#projectDoubleClickChannel put:something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4145
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4146
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4147
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4148
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4149
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4150
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4151
projectListMenuHolder:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4152
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4153
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4154
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4155
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4156
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4157
    projectListMenuHolder := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4158
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4159
    "Created: / 18.2.2000 / 11:53:31 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4160
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4161
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4162
projectListUpdateTrigger:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4163
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4164
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4165
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4166
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4167
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4168
    "/ |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4169
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4170
    "/ (holder := builder bindingAt:#projectListUpdateTrigger) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4171
    "/     holder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4172
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4173
    builder aspectAt:#projectListUpdateTrigger put:something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4174
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4175
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4176
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4177
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4178
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4179
    "Created: / 18.2.2000 / 02:08:01 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4180
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4181
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4182
selectedCategories:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4183
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4184
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4185
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4186
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4187
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4188
    selectedCategories := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4189
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4190
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4191
    "Created: / 18.2.2000 / 14:04:36 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4192
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4193
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4194
selectedClasses:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4195
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4196
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4197
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4198
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4199
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4200
    selectedClasses removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4201
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4202
    selectedClasses := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4203
    something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4204
	something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4205
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4206
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4207
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4208
    "Created: / 18.2.2000 / 00:24:29 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4209
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4210
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4211
selectedNamespaces:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4212
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4213
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4214
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4215
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4216
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4217
    selectedNamespaces := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4218
    selectedNamespaces onChangeEvaluate:[
7886
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4219
        nameSpaceFilterSelection notNil ifTrue:[
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4220
            nameSpaceFilterSelection value:selectedNamespaces value.     
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4221
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4222
    ].
7886
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4223
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4224
    "Modified: / 05-11-2007 / 17:16:56 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4225
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4226
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4227
selectedProjects:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4228
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4229
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4230
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4231
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4232
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4233
    selectedProjects := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4234
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4235
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4236
selectionChangeCondition:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4237
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4238
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4239
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4240
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4241
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4242
    selectionChangeCondition := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4243
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4244
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4245
showClassPackages:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4246
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4247
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4248
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4249
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4250
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4251
    showClassPackages := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4252
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4253
10230
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4254
showCoverageInformation:something
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4255
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4256
    "This method is used when I am embedded as subApplication,"
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4257
    "and the mainApp wants to connect its aspects to mine."
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4258
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4259
    showCoverageInformation := something.
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4260
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4261
    "Created: / 06-07-2011 / 19:48:20 / cg"
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4262
!
66e6b33b6849 coverageInfo aspect lifted
Claus Gittinger <cg@exept.de>
parents: 10132
diff changeset
  4263
7886
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4264
showMethodComplexity:aValueHolder
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4265
    "automatically generated by UIPainter ..."
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4266
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4267
    "This method is used when I am embedded as subApplication,"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4268
    "and the mainApp wants to connect its aspects to mine."
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4269
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4270
    showMethodComplexity := aValueHolder.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4271
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4272
    "Created: / 05-11-2007 / 16:56:18 / cg"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4273
!
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4274
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4275
showMethodInheritance:aValueHolder
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4276
    "automatically generated by UIPainter ..."
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4277
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4278
    "This method is used when I am embedded as subApplication,"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4279
    "and the mainApp wants to connect its aspects to mine."
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4280
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4281
    showMethodInheritance := aValueHolder.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4282
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4283
    "Created: / 05-11-2007 / 16:55:12 / cg"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4284
!
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4285
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4286
showMethodTypeIcon:aValueHolder
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4287
    "automatically generated by UIPainter ..."
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4288
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4289
    "This method is used when I am embedded as subApplication,"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4290
    "and the mainApp wants to connect its aspects to mine."
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4291
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4292
    showMethodTypeIcon := aValueHolder.
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4293
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4294
    "Created: / 05-11-2007 / 16:57:02 / cg"
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4295
!
0d121740ae9c dummy aspects (for class-doc-browser)
Claus Gittinger <cg@exept.de>
parents: 7724
diff changeset
  4296
10132
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4297
sortByNameAndInheritance:something
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4298
    "automatically generated by UIPainter ..."
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4299
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4300
    "This method is used when I am embedded as subApplication,"
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4301
    "and the mainApp wants to connect its aspects to mine."
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4302
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4303
    "/ sortByNameAndInheritance removeDependent:self.
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4304
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4305
    sortByNameAndInheritance := something.
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4306
    "/ something notNil ifTrue:[
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4307
    "/     something addDependent:self.
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4308
    "/ ].
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4309
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4310
    "Created: / 04-07-2011 / 18:42:01 / cg"
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4311
!
d5bb76470ae8 configurable \"Indent by inheritance\" behavior in classlist
Claus Gittinger <cg@exept.de>
parents: 9450
diff changeset
  4312
6722
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  4313
sortVariablesByName:something
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  4314
    "automatically generated by UIPainter ..."
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  4315
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  4316
    "This method is used when I am embedded as subApplication,"
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  4317
    "and the mainApp wants to connect its aspects to mine."
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  4318
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  4319
    sortVariablesByName := something.
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  4320
!
69ccb50d8e94 variableList (sort) fixed in hierarchy views
Claus Gittinger <cg@exept.de>
parents: 6398
diff changeset
  4321
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4322
variableDoubleClickChannel:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4323
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4324
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4325
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4326
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4327
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4328
    "/ |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4329
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4330
    "/ (holder := builder bindingAt:#variableDoubleClickChannel) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4331
    "/     holder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4332
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4333
    builder aspectAt:#variableDoubleClickChannel put:something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4334
    "/ something notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4335
    "/     something addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4336
    "/ ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4337
    ^ self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4338
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4339
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4340
variableFilter:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4341
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4342
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4343
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4344
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4345
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4346
    variableFilter := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4347
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4348
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4349
variablesMenuHolder:something
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4350
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4351
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4352
    "This method is used when I am embedded as subApplication,"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4353
    "and the mainApp wants to connect its aspects to mine."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4354
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4355
    variablesMenuHolder := something.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4356
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4357
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4358
!OrganizerCanvas methodsFor:'aspects-private'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4359
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4360
categoryListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4361
    categoryListSlaveMode isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4362
	categoryListSlaveMode := false asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4363
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4364
    ^ categoryListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4365
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4366
    "Created: / 18.2.2000 / 00:30:44 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4367
    "Modified: / 18.2.2000 / 02:56:21 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4368
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4369
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4370
classHierarchyListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4371
    classHierarchyListSlaveMode isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4372
	classHierarchyListSlaveMode := true asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4373
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4374
    ^ classHierarchyListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4375
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4376
    "Created: / 18.2.2000 / 00:30:44 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4377
    "Modified: / 18.2.2000 / 02:56:21 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4378
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4379
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4380
classInheritanceListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4381
    classInheritanceListSlaveMode isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4382
	classInheritanceListSlaveMode := true asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4383
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4384
    ^ classInheritanceListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4385
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4386
    "Modified: / 18.2.2000 / 02:56:21 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4387
    "Created: / 26.2.2000 / 00:09:18 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4388
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4389
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4390
classListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4391
    classListSlaveMode isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4392
	classListSlaveMode := false asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4393
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4394
    ^ classListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4395
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4396
    "Created: / 18.2.2000 / 00:30:44 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4397
    "Modified: / 18.2.2000 / 02:56:21 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4398
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4399
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4400
nameSpaceListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4401
    namespaceListSlaveMode isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4402
	namespaceListSlaveMode := true asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4403
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4404
    ^ namespaceListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4405
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4406
    "Created: / 18.2.2000 / 00:30:44 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4407
    "Modified: / 18.2.2000 / 02:56:21 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4408
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4409
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4410
projectListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4411
    projectListSlaveMode isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4412
	projectListSlaveMode := true asValue.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4413
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4414
    ^ projectListSlaveMode
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4415
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4416
    "Created: / 18.2.2000 / 00:30:44 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4417
    "Modified: / 18.2.2000 / 02:56:21 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4418
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4419
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4420
!OrganizerCanvas methodsFor:'aspects-trigger'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4421
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4422
classCategoryListUpdateTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4423
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4424
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4425
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4426
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4427
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4428
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4429
    classCategoryListUpdateTrigger isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4430
	classCategoryListUpdateTrigger := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4431
"/        classCategoryListUpdateTrigger addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4432
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4433
    ^ classCategoryListUpdateTrigger.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4434
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4435
    "Created: / 18.2.2000 / 02:05:14 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4436
    "Modified: / 18.2.2000 / 02:14:04 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4437
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4438
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4439
classHierarchyUpdateTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4440
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4441
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4442
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4443
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4444
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4445
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4446
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4447
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4448
    (holder := builder bindingAt:#classHierarchyUpdateTrigger) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4449
	holder := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4450
	builder aspectAt:#classHierarchyUpdateTrigger put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4451
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4452
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4453
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4454
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4455
    "Created: / 18.2.2000 / 02:05:14 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4456
    "Modified: / 18.2.2000 / 02:13:57 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4457
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4458
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4459
classListUpdateTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4460
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4461
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4462
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4463
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4464
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4465
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4466
    classListUpdateTrigger isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4467
	classListUpdateTrigger := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4468
"/        classListUpdateTrigger addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4469
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4470
    ^ classListUpdateTrigger.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4471
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4472
    "Created: / 18.2.2000 / 02:05:14 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4473
    "Modified: / 18.2.2000 / 02:14:08 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4474
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4475
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4476
forceClassCategoryGeneratorTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4477
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4478
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4479
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4480
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4481
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4482
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4483
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4484
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4485
    (holder := builder bindingAt:#forceClassCategoryGeneratorTrigger) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4486
	holder := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4487
	builder aspectAt:#forceClassCategoryGeneratorTrigger put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4488
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4489
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4490
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4491
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4492
    "Created: / 18.2.2000 / 02:49:43 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4493
    "Modified: / 18.2.2000 / 02:52:30 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4494
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4495
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4496
forceClassHierarchyGeneratorTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4497
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4498
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4499
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4500
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4501
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4502
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4503
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4504
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4505
    (holder := builder bindingAt:#forceClassHierarchyGeneratorTrigger) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4506
	holder := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4507
	builder aspectAt:#forceClassHierarchyGeneratorTrigger put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4508
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4509
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4510
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4511
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4512
    "Created: / 18.2.2000 / 02:49:43 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4513
    "Modified: / 18.2.2000 / 02:52:32 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4514
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4515
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4516
forceNamespaceGeneratorTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4517
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4518
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4519
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4520
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4521
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4522
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4523
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4524
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4525
    (holder := builder bindingAt:#forceNamespaceGeneratorTrigger) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4526
	holder := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4527
	builder aspectAt:#forceNamespaceGeneratorTrigger put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4528
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4529
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4530
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4531
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4532
    "Created: / 18.2.2000 / 02:49:43 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4533
    "Modified: / 18.2.2000 / 02:52:35 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4534
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4535
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4536
forceProjectGeneratorTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4537
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4538
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4539
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4540
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4541
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4542
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4543
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4544
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4545
    (holder := builder bindingAt:#forceProjectGeneratorTrigger) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4546
	holder := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4547
	builder aspectAt:#forceProjectGeneratorTrigger put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4548
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4549
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4550
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4551
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4552
    "Created: / 18.2.2000 / 02:49:43 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4553
    "Modified: / 18.2.2000 / 02:52:38 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4554
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4555
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4556
nameSpaceListUpdateTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4557
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4558
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4559
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4560
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4561
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4562
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4563
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4564
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4565
    (holder := builder bindingAt:#nameSpaceListUpdateTrigger) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4566
	holder := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4567
	builder aspectAt:#nameSpaceListUpdateTrigger put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4568
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4569
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4570
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4571
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4572
    "Created: / 18.2.2000 / 02:05:14 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4573
    "Modified: / 18.2.2000 / 02:14:12 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4574
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4575
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4576
projectListUpdateTrigger
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4577
    "automatically generated by UIPainter ..."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4578
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4579
    "*** the code below creates a default model when invoked."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4580
    "*** (which may not be the one you wanted)"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4581
    "*** Please change as required and accept it in the browser."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4582
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4583
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4584
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4585
    (holder := builder bindingAt:#projectListUpdateTrigger) isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4586
	holder := TriggerValue new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4587
	builder aspectAt:#projectListUpdateTrigger put:holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4588
"/        holder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4589
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4590
    ^ holder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4592
    "Created: / 18.2.2000 / 02:05:14 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4593
    "Modified: / 18.2.2000 / 02:14:15 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4594
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4595
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4596
!OrganizerCanvas methodsFor:'aspects-visibility'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4597
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4598
categoryListShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4599
    categoryListShown isNil ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4600
        categoryListShown := BlockValue 
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4601
                        with:[:v | v == OrganizerCanvas organizerModeCategory]
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4602
                        argument:(self organizerMode).
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4603
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4604
    ^ categoryListShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4605
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4606
    "Modified: / 08-03-2007 / 23:01:48 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4607
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4608
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4609
categoryNameSpaceAndProjectPanelShown
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4610
    |holder|
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4611
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4612
    (holder := builder bindingAt:#categoryNameSpaceAndProjectPanelShown) isNil ifTrue:[
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4613
        holder := BlockValue 
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4614
                        with:[:v1 :v2 :v3 | (v1 or:[v2 or:[v3]]) not]
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4615
                        argument:(self classHierarchyShown)
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4616
                        argument:(self classInheritanceShown)
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4617
                        argument:(self packageDiagramShown).
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4618
        builder aspectAt:#categoryNameSpaceAndProjectPanelShown put: holder
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4619
    ].
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4620
    ^ holder
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4621
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4622
    "Modified: / 08-03-2007 / 23:01:57 / cg"
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4623
!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4624
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4625
classHierarchyNotShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4626
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4627
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4628
    (holder := builder bindingAt:#classHierarchyNotShown) isNil ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4629
        holder := BlockValue 
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4630
                        with:[:v | |org|
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4631
                                   org := v.
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4632
                                   org ~~ OrganizerCanvas organizerModeHierarchy
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4633
                                   and:[org ~~ OrganizerCanvas organizerModeClassHierarchy
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4634
                                   and:[org ~~ OrganizerCanvas organizerModeClassInheritance]]]
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4635
                        argument:(self organizerMode).
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4636
        builder aspectAt:#classHierarchyNotShown put: holder
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4637
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4638
    ^ holder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4639
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4640
    "Created: / 18-02-2000 / 00:36:38 / cg"
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4641
    "Modified: / 08-03-2007 / 23:01:51 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4642
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4643
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4644
classHierarchyOrInheritanceNotShown
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4645
    <resource: #obsolete>
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4646
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4647
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4648
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4649
    (holder := builder bindingAt:#classHierarchyOrInheritanceNotShown) isNil ifTrue:[
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4650
        holder := BlockValue 
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4651
                        with:[:v1 :v2 | (v1 or:[v2]) not]
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4652
                        argument:(self classHierarchyShown)
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4653
                        argument:(self classInheritanceShown).
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4654
        builder aspectAt:#classHierarchyOrInheritanceNotShown put: holder
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4655
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4656
    ^ holder
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4657
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4658
    "Modified: / 08-03-2007 / 23:01:57 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4659
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4660
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4661
classHierarchyOrInheritanceShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4662
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4663
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4664
    (holder := builder bindingAt:#classHierarchyOrInheritanceShown) isNil ifTrue:[
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4665
        holder := BlockValue 
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4666
                        with:[:v1 :v2 | v1 or:[v2] ]
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4667
                        argument:(self classHierarchyShown)
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4668
                        argument:(self classInheritanceShown).
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4669
        builder aspectAt:#classHierarchyOrInheritanceShown put: holder
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4670
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4671
    ^ holder
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4672
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4673
    "Modified: / 08-03-2007 / 23:02:03 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4674
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4675
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4676
classHierarchyShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4677
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4678
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4679
    (holder := builder bindingAt:#classHierarchyShown) isNil ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4680
        holder := BlockValue 
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4681
                        with:[:v | |org|
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4682
                                   org := v.
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4683
                                   org == OrganizerCanvas organizerModeHierarchy
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4684
                                   or:[org == OrganizerCanvas organizerModeClassHierarchy]]
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4685
                        argument:(self organizerMode).
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4686
        builder aspectAt:#classHierarchyShown put: holder
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4687
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4688
    ^ holder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4689
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4690
    "Modified: / 08-03-2007 / 23:02:07 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4691
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4692
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4693
classInheritanceShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4694
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4695
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4696
    (holder := builder bindingAt:#classInheritanceShown) isNil ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4697
        holder := BlockValue 
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4698
                        with:[:v | v == OrganizerCanvas organizerModeClassInheritance]
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4699
                        argument:(self organizerMode).
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4700
        builder aspectAt:#classInheritanceShown put: holder
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4701
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4702
    ^ holder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4703
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4704
    "Created: / 24-02-2000 / 13:23:01 / cg"
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4705
    "Modified: / 08-03-2007 / 23:02:09 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4706
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4707
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4708
classListShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4709
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4710
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4711
    (holder := builder bindingAt:#classListShown) isNil ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4712
        holder := BlockValue 
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4713
                        with:[:v | v ~~ OrganizerCanvas organizerModeHierarchy]
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4714
                        argument:(self organizerMode).
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4715
        builder aspectAt:#classListShown put: holder
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4716
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4717
    ^ holder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4718
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4719
    "Modified: / 08-03-2007 / 23:02:12 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4720
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4721
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4722
nameSpaceListShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4723
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4724
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4725
    (holder := builder bindingAt:#nameSpaceListShown) isNil ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4726
        holder := BlockValue 
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4727
                        with:[:v | v == OrganizerCanvas organizerModeNamespace]
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4728
                        argument:(self organizerMode).
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4729
        builder aspectAt:#nameSpaceListShown put: holder
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4730
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4731
    ^ holder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4732
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4733
    "Created: / 18-02-2000 / 00:32:09 / cg"
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4734
    "Modified: / 08-03-2007 / 23:02:15 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4735
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4736
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4737
packageDiagramShown
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4738
    |holder|
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4739
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4740
    (holder := builder bindingAt:#packageDiagramShown) isNil ifTrue:[
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4741
        holder := BlockValue 
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4742
                        with:[:v | |org|
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4743
                                   org := v.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4744
                                   org == OrganizerCanvas organizerModePackageDiagram]
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4745
                        argument:(self organizerMode).
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4746
        builder aspectAt:#packageDiagramShown put: holder
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4747
    ].
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4748
    ^ holder
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4749
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4750
    "Modified: / 08-03-2007 / 23:02:07 / cg"
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4751
!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4752
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4753
projectListShown
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4754
    |holder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4755
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4756
    (holder := builder bindingAt:#projectListShown) isNil ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4757
        holder := BlockValue 
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4758
                        with:[:v | v == OrganizerCanvas organizerModeProject]
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4759
                        argument:(self organizerMode).
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4760
        builder aspectAt:#projectListShown put: holder
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4761
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4762
    ^ holder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4763
7724
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4764
    "Created: / 18-02-2000 / 00:32:09 / cg"
0dbdacddc217 BlockValue usage cleanup
Claus Gittinger <cg@exept.de>
parents: 7704
diff changeset
  4765
    "Modified: / 08-03-2007 / 23:02:18 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4766
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4767
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4768
!OrganizerCanvas methodsFor:'change & update'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4769
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4770
diagramClassSelectionChanged
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4771
    |graphApp classes|
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4772
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4773
    graphApp := self diagramApplicationModelHolder value.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4774
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4775
    classes := graphApp selectedClassesHolder value.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4776
    self classGeneratorHolder value:classes.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4777
    self classList value:classes.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4778
    self selectedClasses value:classes.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4779
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4780
"/    self outGeneratorHolder value:classes.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4781
!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4782
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4783
diagramPackageSelectionChanged
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4784
    |package|
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4785
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4786
    self packageDiagramShown value ifTrue:[
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4787
        package := self diagramPackageSelection value.
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4788
        self withWaitCursorDo:[
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4789
            self diagramApplicationModelHolder value
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4790
                packages:(Array with:package);
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4791
                generateDiagram
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4792
        ]
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4793
    ].
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4794
!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4795
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4796
packageFilterChanged
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4797
!
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4798
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4799
selectedProjectsChanged
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4800
    self updatePackageDiagramView
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4801
!
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4802
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4803
update:something with:aParameter from:changedObject
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4804
    |orgMode trigger classes selectedClassesHolder selectionValue|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4805
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4806
    orgMode := organizerMode value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4807
    selectedClassesHolder := self selectedClasses.
6914
fa172e660415 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6908
diff changeset
  4808
    classes := selectedClassesHolder value copy ? #().
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4809
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4810
    changedObject == packageFilter ifTrue:[
8582
Claus Gittinger <cg@exept.de>
parents: 8435
diff changeset
  4811
        self breakPoint:#cg
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4812
    ].
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  4813
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4814
    changedObject == organizerMode ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4815
        self classHierarchyListSlaveMode value:true.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4816
        self classInheritanceListSlaveMode value:true.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4817
        self classListSlaveMode value:true.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4818
        self categoryListSlaveMode value:true.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4819
        self nameSpaceListSlaveMode value:true.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4820
        self projectListSlaveMode value:true.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4821
7482
11f79a53e3e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7077
diff changeset
  4822
        self variableFilter value:nil.
11f79a53e3e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7077
diff changeset
  4823
        self packageFilter value:nil.
11f79a53e3e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7077
diff changeset
  4824
        self nameSpaceFilter value:nil.
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4825
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4826
        "/ must update the packageFilter
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4827
        orgMode == OrganizerCanvas organizerModeProject ifTrue:[
12615
39fac70f1d55 Refactoring:
Stefan Vogel <sv@exept.de>
parents: 12531
diff changeset
  4828
            self selectedProjects value:(classes collect:[:each | each package] as:Set).
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4829
            packageFilter setValue:(self selectedProjects value)
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4830
        ] ifFalse:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4831
            packageFilter value:nil
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4832
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4833
6876
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4834
        self updateOrganizationFromChangedClass.
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4835
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4836
        orgMode == OrganizerCanvas organizerModeCategory ifTrue:[
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4837
            trigger := self forceClassCategoryGeneratorTrigger.
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4838
        ] ifFalse:[ orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4839
            trigger := self forceClassHierarchyGeneratorTrigger.
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4840
        ] ifFalse:[ orgMode == OrganizerCanvas organizerModeNamespace ifTrue:[
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4841
            trigger := self forceNamespaceGeneratorTrigger
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4842
        ] ifFalse:[ orgMode == OrganizerCanvas organizerModeProject ifTrue:[
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4843
            trigger := self forceProjectGeneratorTrigger.
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4844
        ] ifFalse:[ ((orgMode == OrganizerCanvas organizerModeClassHierarchy) 
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4845
                  or:[orgMode == OrganizerCanvas organizerModeClassInheritance]) ifTrue:[
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4846
"/            trigger := self forceClassHierarchyGeneratorTrigger.
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4847
        ]]]]].
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  4848
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4849
        trigger notNil ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4850
            trigger value:true
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4851
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4852
        "/ selectedClassesHolder value:classes.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4853
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4854
        (orgMode == OrganizerCanvas organizerModeClassHierarchy or:[orgMode == OrganizerCanvas organizerModeHierarchy]) ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4855
            classHierarchyListSlaveMode value:false.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4856
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4857
        (orgMode == OrganizerCanvas organizerModeClassInheritance) ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4858
            classInheritanceListSlaveMode value:false.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4859
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4860
        (orgMode == OrganizerCanvas organizerModeClassInheritance 
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4861
        or:[orgMode == OrganizerCanvas organizerModeClassHierarchy 
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4862
        or:[orgMode == OrganizerCanvas organizerModeHierarchy]])
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4863
        ifFalse:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4864
            classListSlaveMode value:false.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4865
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4866
        (orgMode == OrganizerCanvas organizerModeCategory) ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4867
            categoryListSlaveMode value:false.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4868
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4869
        (orgMode == OrganizerCanvas organizerModeNamespace) ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4870
            namespaceListSlaveMode value:false.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4871
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4872
        (orgMode == OrganizerCanvas organizerModeProject) ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4873
            projectListSlaveMode value:false.
12395
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  4874
            self selectedProjects value isEmptyOrNil ifTrue:[
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  4875
                self updateProjectSelectionFromClasses.
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  4876
            ].
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4877
        ].
8433
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  4878
        (orgMode == OrganizerCanvas organizerModePackageDiagram) ifTrue:[
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  4879
            "/
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  4880
            self selectedProjects value isEmptyOrNil ifTrue:[
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  4881
                self updateProjectSelectionFromClasses.
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  4882
            ].
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  4883
        ].
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4884
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4885
        ^ self
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4886
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4887
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4888
    changedObject == selectedClasses ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4889
        selectedClasses value size ~~ 0 ifTrue:[
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4890
            (orgMode ~~ OrganizerCanvas organizerModeClassHierarchy
12531
8e8581d0c7b7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 12395
diff changeset
  4891
            and:[ orgMode ~~ OrganizerCanvas organizerModePackageDiagram ]) ifTrue:[
8e8581d0c7b7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 12395
diff changeset
  4892
                "/ if the organizerMode is project, avoid clobbering the project selection
8e8581d0c7b7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 12395
diff changeset
  4893
                (orgMode ~~ OrganizerCanvas organizerModeProject
8e8581d0c7b7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 12395
diff changeset
  4894
                or:[ (self selectedProjects value includesAll:( selectedClasses value collect:[:each | each package] )) not ])  ifTrue:[
8e8581d0c7b7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 12395
diff changeset
  4895
                    self updateOrganizationFromChangedClass.
8e8581d0c7b7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 12395
diff changeset
  4896
                ].
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4897
            ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4898
        ]
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4899
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4900
"/    changedObject == selectedNamespaces ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4901
"/ self halt.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4902
"/    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4903
    changedObject == nameSpaceFilterSelection ifTrue:[
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4904
        selectionValue := nameSpaceFilterSelection value.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4905
        selectionValue size > 1 ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4906
            nameSpaceFilterSelection value:(OrderedCollection with:selectionValue first).
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4907
            selectionValue := nameSpaceFilterSelection value.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4908
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4909
        self selectedNamespaces value:selectionValue.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4910
        selectionValue size > 0 ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4911
            self nameSpaceFilterSelectedNameSpace setValue:selectionValue first.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4912
            self updateNameSpaceLabel.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4913
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  4914
        self nameSpaceFilter value: selectionValue.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4915
    ].
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4916
    changedObject == self selectedProjects ifTrue:[
8582
Claus Gittinger <cg@exept.de>
parents: 8435
diff changeset
  4917
        self breakPoint:#cg.
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4918
        self selectedProjectsChanged.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4919
    ].
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4920
    changedObject == self selectedDiagramProject ifTrue:[
8582
Claus Gittinger <cg@exept.de>
parents: 8435
diff changeset
  4921
        self breakPoint:#cg.
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4922
        self selectedProjects value:(Array with:self selectedDiagramProject value).
9442
88dc776cf919 changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9441
diff changeset
  4923
        self selectedProjectsChanged.
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4924
        ^ self
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  4925
    ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4926
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4927
    super update:something with:aParameter from:changedObject
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4928
9442
88dc776cf919 changed: #update:with:from:
Claus Gittinger <cg@exept.de>
parents: 9441
diff changeset
  4929
    "Modified: / 27-04-2010 / 16:58:31 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4930
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4931
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4932
updateCategorySelectionFromClasses
8736
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4933
    |allEntry changedEntry oldSelectedCategories categories|
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4934
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4935
    allEntry := self class nameListEntryForALL.
8736
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4936
    changedEntry := self class nameListEntryForChanged.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4937
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4938
    categories := Set new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4939
    oldSelectedCategories := self selectedCategories value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4940
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4941
    "/ category-selection feedBack;
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4942
    "/ if '* all *' was in its selection, keep it (to avoid updating the classList)
8736
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4943
    oldSelectedCategories size > 0 ifTrue:[
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4944
        (oldSelectedCategories includes:allEntry) ifTrue:[
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4945
            categories add:allEntry
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4946
        ].
8755
061ebdd98078 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8743
diff changeset
  4947
        oldSelectedCategories do:[:entry | 
061ebdd98078 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8743
diff changeset
  4948
            (NavigatorModel isPseudoCategory:entry) ifTrue:[
061ebdd98078 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8743
diff changeset
  4949
                (oldSelectedCategories size == 1) ifTrue:[
061ebdd98078 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8743
diff changeset
  4950
                    "/ don't switch to category
061ebdd98078 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8743
diff changeset
  4951
                    ^ self
061ebdd98078 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8743
diff changeset
  4952
                ].
061ebdd98078 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8743
diff changeset
  4953
                categories add:entry
8736
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4954
            ].
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4955
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4956
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4957
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4958
    (self selectedClasses value ? #()) do:[:eachSelectedClass |
8736
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4959
        |cat cls|
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4960
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4961
        cls := eachSelectedClass theNonMetaclass.
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4962
        cls isPrivate ifTrue:[
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4963
            cls := cls topOwningClass.
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4964
        ].
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4965
        cat := cls category.   
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4966
        categories add:cat.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4967
    ].
8736
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4968
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4969
    (categories conform:[:each | (self selectedCategories value ? #()) includes:each]) ifFalse:[
8736
24b4731900f9 + pseudo entries
Claus Gittinger <cg@exept.de>
parents: 8691
diff changeset
  4970
        self selectedCategories value:categories.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4971
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4972
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4973
    "Modified: / 18.2.2000 / 13:17:36 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4974
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4975
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4976
updateNamespaceSelectionFromClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4977
    "invoked when switching to the namespace-organization;
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4978
     update selected namespaces from the set of selected classes"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4979
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4980
    |allEntry classes selectedNamespaces oldSelectedNamespaces|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4981
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4982
    allEntry := self class nameListEntryForALL.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4983
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4984
    classes := self selectedClasses value.
6878
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4985
    classes isEmptyOrNil ifTrue:[
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4986
        |categories includesAll|
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4987
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4988
        categories := self selectedCategories value.
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4989
        categories notEmptyOrNil ifTrue:[
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4990
            includesAll := categories includes:BrowserList nameListEntryForALL.
13498
b8d845e42988 Added `environment` instance variable to Tools__NewSystemBrowser and
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12722
diff changeset
  4991
            classes :=  environment allClassesForWhich:[:aClass |
6878
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4992
                (includesAll or:[categories includes:aClass category]).
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4993
            ].
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4994
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  4995
    ].
6878
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4996
    classes notEmptyOrNil ifTrue:[
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4997
        selectedNamespaces := self selectedNamespaces value.
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4998
        oldSelectedNamespaces := (selectedNamespaces ? #()) asSet.
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  4999
        selectedNamespaces := Set new.
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5000
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5001
        "/ namespace-selection feedBack;
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5002
        "/ if '* all *' was in its selection, keep it (to avoid updating the classList)
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5003
"/        (oldSelectedNamespaces includes:allEntry) ifTrue:[
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5004
"/            selectedNamespaces add:allEntry.
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5005
"/        ].
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5006
        selectedNamespaces addAll:(classes collect:[:eachClass | eachClass theNonMetaclass topNameSpace name.]).
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5007
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5008
        classes := classes copy.
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5009
        "/ selectedNamespaces ~= oldSelectedNamespaces ifTrue:[
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5010
            self selectedNamespaces value:selectedNamespaces.
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5011
        "/ ].
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5012
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5013
"/        (classes ~= self selectedClasses) value ifTrue:[self halt:'oops'].
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5014
    ].
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5015
bed17af9b5e8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6876
diff changeset
  5016
    "Modified: / 10-08-2006 / 16:04:55 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5017
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5018
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5019
updateOrganizationFromChangedClass
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5020
    |orgMode selectedClassesHolder selectedClasses classHierarchyTopClassHolder commonSuperClass|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5021
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5022
    orgMode := organizerMode value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5023
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5024
    orgMode == OrganizerCanvas organizerModeCategory ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5025
        self updateCategorySelectionFromClasses.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5026
        ^ self.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5027
    ].
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5028
    orgMode == OrganizerCanvas organizerModeNamespace ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5029
        self updateNamespaceSelectionFromClasses.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5030
        ^ self.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5031
    ].
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5032
    orgMode == OrganizerCanvas organizerModeProject ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5033
        self updateProjectSelectionFromClasses.
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5034
        ^ self.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5035
    ].
12395
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5036
    orgMode == OrganizerCanvas organizerModePackageDiagram ifTrue:[
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5037
        self updatePackageDiagramView.
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5038
        ^ self.
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5039
    ].
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5040
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5041
    selectedClassesHolder := self selectedClasses.
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5042
    selectedClasses := selectedClassesHolder value.
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5043
    classHierarchyTopClassHolder := self classHierarchyTopClass.
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5044
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5045
    (orgMode == OrganizerCanvas organizerModeClassHierarchy) ifTrue:[
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5046
"/        (selectedClasses size == 1) ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5047
"/            self classHierarchyTopClass value:selectedClasses first
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5048
"/        ].
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5049
        "/ classHierarchyTopClassHolder value isNil ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5050
        selectedClasses size > 0 ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5051
            commonSuperClass := selectedClasses 
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5052
                                    inject:selectedClasses first 
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5053
                                    into:[:commonSuperClass :thisClass | commonSuperClass commonSuperclass:thisClass ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5054
            classHierarchyTopClassHolder value:commonSuperClass "selectedClasses first".
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5055
        ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5056
        "/ ].
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5057
        ^ self.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5058
    ].
14080
964c3463edb7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 14015
diff changeset
  5059
    orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[
964c3463edb7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 14015
diff changeset
  5060
        classHierarchyTopClassHolder value:nil.
964c3463edb7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 14015
diff changeset
  5061
        ^ self.
964c3463edb7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 14015
diff changeset
  5062
    ].
6734
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5063
    (orgMode == OrganizerCanvas organizerModeClassInheritance) ifTrue:[
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5064
        classHierarchyTopClassHolder value:
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5065
            ((selectedClasses size == 1) ifTrue:[selectedClasses first] ifFalse:nil).
bdc9d1ea8d6d magic constants (organizerMode) removed
Claus Gittinger <cg@exept.de>
parents: 6731
diff changeset
  5066
        ^ self.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5067
    ].
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5068
!
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5069
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5070
updatePackageDiagramView
8433
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  5071
    |diagramApp packages selectedClasses|
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5072
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5073
    self packageDiagramShown computeValue ifTrue:[
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5074
        diagramApp := self diagramApplicationModelHolder value.
9450
ceb357dd5ad1 changed: #updatePackageDiagramView
Claus Gittinger <cg@exept.de>
parents: 9442
diff changeset
  5075
        selectedClasses := self selectedClasses value ? #().
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5076
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5077
        packages := self selectedProjects value ? #().
8433
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  5078
        packages isEmpty ifTrue:[
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  5079
            selectedClasses notEmptyOrNil ifTrue:[
12615
39fac70f1d55 Refactoring:
Stefan Vogel <sv@exept.de>
parents: 12531
diff changeset
  5080
                packages := (selectedClasses collect:[:cls | cls package] as:Set) asOrderedCollection.
8433
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  5081
            ].
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  5082
        ].
b64400068024 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8419
diff changeset
  5083
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5084
        self selectedDiagramProject value:(packages firstIfEmpty:nil) withoutNotifying:self.
8691
bcf83b7543d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8582
diff changeset
  5085
        diagramApp notNil ifTrue:[
bcf83b7543d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8582
diff changeset
  5086
            self withWaitCursorDo:[
bcf83b7543d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8582
diff changeset
  5087
                diagramApp
bcf83b7543d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8582
diff changeset
  5088
                    packages:packages;
bcf83b7543d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8582
diff changeset
  5089
                    generateDiagram;
bcf83b7543d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8582
diff changeset
  5090
                    selectClasses:selectedClasses.
bcf83b7543d3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8582
diff changeset
  5091
            ]
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5092
        ]
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5093
    ].
9450
ceb357dd5ad1 changed: #updatePackageDiagramView
Claus Gittinger <cg@exept.de>
parents: 9442
diff changeset
  5094
ceb357dd5ad1 changed: #updatePackageDiagramView
Claus Gittinger <cg@exept.de>
parents: 9442
diff changeset
  5095
    "Modified: / 28-04-2010 / 08:16:55 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5096
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5097
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5098
updateProjectSelectionFromClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5099
    "invoked when switching to the projects-organization;
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5100
     update selected projects from the set of selected classes"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5101
7668
a972119547d3 bugfix: test for selected categories is unspecified
ca
parents: 7664
diff changeset
  5102
    |allEntry classes selectedProjects oldSelectedProjects categories|
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5103
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5104
    allEntry := self class nameListEntryForALL.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5105
7664
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5106
    selectedProjects := self selectedProjects value.
12615
39fac70f1d55 Refactoring:
Stefan Vogel <sv@exept.de>
parents: 12531
diff changeset
  5107
    oldSelectedProjects := ((selectedProjects ? #()) collect:[:pkg | pkg string] as:Set).
7664
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5108
6876
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5109
    variableFilter value:nil.
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5110
    packageFilter value:nil.
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5111
    nameSpaceFilter value:nil.
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5112
7664
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5113
    selectedProjects := Set new.
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5114
    "/ project-selection feedBack;
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5115
    "/ if '* all *' was in its selection, keep it (to avoid updating the classList)
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5116
    (oldSelectedProjects size > 0 
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5117
    and:[oldSelectedProjects includes:allEntry]) 
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5118
    ifTrue:[
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5119
        selectedProjects add:allEntry.
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5120
    ].
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5121
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5122
    classes := self selectedClasses value.
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5123
    classes isEmptyOrNil ifTrue:[
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5124
        classes := OrderedCollection new.
7668
a972119547d3 bugfix: test for selected categories is unspecified
ca
parents: 7664
diff changeset
  5125
        categories := self selectedCategories value.
a972119547d3 bugfix: test for selected categories is unspecified
ca
parents: 7664
diff changeset
  5126
        categories notEmptyOrNil ifTrue:[
a972119547d3 bugfix: test for selected categories is unspecified
ca
parents: 7664
diff changeset
  5127
            categories do:[:eachCategory |
13498
b8d845e42988 Added `environment` instance variable to Tools__NewSystemBrowser and
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 12722
diff changeset
  5128
                classes addAll:(environment allClassesInCategory:eachCategory)
7668
a972119547d3 bugfix: test for selected categories is unspecified
ca
parents: 7664
diff changeset
  5129
            ].
7664
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5130
        ].
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5131
    ].
6876
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5132
    classes notEmptyOrNil ifTrue:[
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5133
        classes do:[:eachClass |
6890
bb8cb4339367 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6878
diff changeset
  5134
            selectedProjects add:(eachClass package).
7518
ed3aadc635e5 changed #updateProjectSelectionFromClasses
Claus Gittinger <cg@exept.de>
parents: 7482
diff changeset
  5135
            eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
6876
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5136
                selectedProjects add:(mthd package).
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5137
            ]
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5138
        ].
7664
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5139
    ].
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5140
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5141
    selectedProjects ~= oldSelectedProjects ifTrue:[
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5142
        self selectedProjects value:selectedProjects.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5143
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5144
6876
9b95bca11178 update when switching view-mode
Claus Gittinger <cg@exept.de>
parents: 6734
diff changeset
  5145
    "Created: / 26-02-2000 / 01:09:13 / cg"
7664
a6ad7a99ddad auto-select project when switching from category to project view
Claus Gittinger <cg@exept.de>
parents: 7518
diff changeset
  5146
    "Modified: / 22-02-2007 / 13:52:21 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5147
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5148
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5149
!OrganizerCanvas methodsFor:'forwarder operations'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5150
8012
c17bd358835f Allow to copy methods with drag&drop (CTRL-key must be pressed)
Stefan Vogel <sv@exept.de>
parents: 8006
diff changeset
  5151
copyMethods:methods toClass:cls
c17bd358835f Allow to copy methods with drag&drop (CTRL-key must be pressed)
Stefan Vogel <sv@exept.de>
parents: 8006
diff changeset
  5152
    self masterApplication copyMethods:methods toClass:cls.
c17bd358835f Allow to copy methods with drag&drop (CTRL-key must be pressed)
Stefan Vogel <sv@exept.de>
parents: 8006
diff changeset
  5153
!
c17bd358835f Allow to copy methods with drag&drop (CTRL-key must be pressed)
Stefan Vogel <sv@exept.de>
parents: 8006
diff changeset
  5154
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5155
moveClasses:classes toCategory:cat
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5156
    self masterApplication moveClasses:classes toCategory:cat
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5157
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5158
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5159
moveClasses:classes toProject:cat
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5160
    self masterApplication moveClasses:classes toProject:cat
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5161
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5162
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5163
moveMethods:methods toClass:cls
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5164
    self masterApplication moveMethods:methods toClass:cls.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5165
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5166
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5167
moveMethods:methods toProject:package
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5168
    self masterApplication moveMethods:methods toProject:package.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5169
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5170
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  5171
!OrganizerCanvas methodsFor:'help specs'!
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  5172
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  5173
flyByHelpTextFor:aComponent
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  5174
    (aComponent isSameOrComponentOf:(builder componentAt:#NameSpaceFilterComboBox)) ifTrue:[
11868
32ee6725f6b0 changed: #flyByHelpTextFor:
Claus Gittinger <cg@exept.de>
parents: 11256
diff changeset
  5175
        ^ resources string:'Namespace filter'
8411
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  5176
    ].
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  5177
    ^ super flyByHelpTextFor:aComponent
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  5178
! !
c992abf0f065 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8359
diff changeset
  5179
11256
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5180
!OrganizerCanvas methodsFor:'initialize-release'!
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5181
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5182
release
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5183
    super release.
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5184
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5185
    nameSpaceFilterSelection removeDependent:self.
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5186
    organizerMode removeDependent:self.
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5187
    selectedClasses removeDependent:self.
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5188
! !
8427255f0072 category of: #release
Claus Gittinger <cg@exept.de>
parents: 10537
diff changeset
  5189
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5190
!OrganizerCanvas methodsFor:'private'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5191
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5192
nameSpaceListWidgetWasBuilt:widget
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5193
    |list|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5194
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5195
    "/ sigh - cannot do this in the nameSpaceListWidget method,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5196
    "/ because the GUI is build late (when the menu is popped up the first time)
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5197
    widget application immediateUpdate:true.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5198
    list := widget builder componentAt:#List.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5199
    list autoHideHorizontalScrollBar:true.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5200
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5201
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5202
!OrganizerCanvas methodsFor:'subapplications'!
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5203
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5204
diagramApplicationModelHolder
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5205
    |holder graphApp|
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5206
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5207
    (holder := builder bindingAt:#diagramApplicationModelHolder) isNil ifTrue:[
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5208
        OOM::MetricVisualizer notNil ifTrue:[
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5209
            graphApp := OOM::MetricVisualizer new.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5210
            graphApp masterApplication:self.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5211
            graphApp selectedClassesHolder onChangeSend:#diagramClassSelectionChanged to:self.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5212
            graphApp showShortClassInfo:true.
8435
8745520b23a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8433
diff changeset
  5213
            graphApp ignoreAutoloadedClasses:true.
8745520b23a0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8433
diff changeset
  5214
            graphApp askForAutoload:false.
8419
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5215
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5216
            holder := ValueHolder new.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5217
            holder value:graphApp.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5218
            builder aspectAt:#diagramApplicationModelHolder put: holder.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5219
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5220
            self packageFilter onChangeSend:#packageFilterChanged to:self.
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5221
        ].
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5222
    ].
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5223
    ^ holder
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5224
! !
a6766a069947 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8414
diff changeset
  5225
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5226
!OrganizerCanvas class methodsFor:'documentation'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5227
11879
91f5ebcb155f added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11868
diff changeset
  5228
version
14080
964c3463edb7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 14015
diff changeset
  5229
    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.58 2014-02-28 19:31:53 cg Exp $'
11879
91f5ebcb155f added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11868
diff changeset
  5230
!
91f5ebcb155f added: #documentation
Claus Gittinger <cg@exept.de>
parents: 11868
diff changeset
  5231
9422
a2a5a83f4a37 changed: #windowSpecNonHierarchicalWithClassDiagram
Claus Gittinger <cg@exept.de>
parents: 8755
diff changeset
  5232
version_CVS
14080
964c3463edb7 class: Tools::OrganizerCanvas
Claus Gittinger <cg@exept.de>
parents: 14015
diff changeset
  5233
    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.58 2014-02-28 19:31:53 cg Exp $'
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  5234
! !
12395
0d23b9fc0fa5 fixed selection update from changed class selection,
Claus Gittinger <cg@exept.de>
parents: 12002
diff changeset
  5235