Tools_ClassCategoryList.st
author Claus Gittinger <cg@exept.de>
Wed, 09 Feb 2011 14:03:29 +0100
changeset 9750 1b2ef761d2d0
parent 9463 c341b4dfa4bd
child 10351 fc931f04ae12
permissions -rw-r--r--
changed: #abortAllIsHandled AbortAllOperationQuery handling changed and fixed
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6179
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
     1
"
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
     2
 COPYRIGHT (c) 2004 by eXept Software AG
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
     3
              All Rights Reserved
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
     4
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
     5
 This software is furnished under a license and may be used
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
     6
 only in accordance with the terms of that license and with the
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
     8
 be provided or otherwise made available to, or used by, any
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
     9
 other person.  No title to or ownership of the software is
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    10
 hereby transferred.
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    11
"
5592
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    12
"{ Package: 'stx:libtool' }"
5591
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
BrowserList subclass:#ClassCategoryList
8700
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
    17
	instanceVariableNames:'categoryList classes allSelected showPseudoCategories'
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	classVariableNames:'AdditionalEmptyCategories'
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	poolDictionaries:''
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	category:'Interface-Browsers-New'
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!ClassCategoryList class methodsFor:'documentation'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
6179
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    25
copyright
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    26
"
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    27
 COPYRIGHT (c) 2004 by eXept Software AG
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    28
              All Rights Reserved
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    29
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    30
 This software is furnished under a license and may be used
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    31
 only in accordance with the terms of that license and with the
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    33
 be provided or otherwise made available to, or used by, any
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    34
 other person.  No title to or ownership of the software is
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    35
 hereby transferred.
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    36
"
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    37
!
182d948dcf05 copyright
Claus Gittinger <cg@exept.de>
parents: 6067
diff changeset
    38
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
documentation
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
    embeddable application displaying the class-categories.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
    Provides an outputGenerator, which enumerates the classes in
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
    the selected categories.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    [author:]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
	Claus Gittinger (cg@exept.de)
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
!ClassCategoryList class methodsFor:'interface specs'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
singleCategoryWindowSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    "This resource specification was automatically generated
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
     by the UIPainter of ST/X."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
    "Do not manually edit this!! If it is corrupted,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
     the UIPainter may not be able to read the specification."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
     UIPainter new openOnClass:ClassCategoryList andSelector:#singleCategoryWindowSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
     ClassCategoryList new openInterface:#singleCategoryWindowSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
    <resource: #canvas>
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
    ^ 
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
     #(#FullSpec
5592
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    68
	#name: #singleCategoryWindowSpec
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    69
	#window: 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
       #(#WindowSpec
5592
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    71
	  #label: 'ClassCategoryList'
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    72
	  #name: 'ClassCategoryList'
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    73
	  #min: #(#Point 0 0)
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    74
	  #max: #(#Point 1024 721)
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    75
	  #bounds: #(#Rectangle 218 175 518 475)
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    76
	)
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    77
	#component: 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
       #(#SpecCollection
5592
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    79
	  #collection: #(
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    80
	   #(#LabelSpec
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    81
	      #label: 'ClassCategoryName'
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    82
	      #name: 'ClassCategoryLabel'
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    83
	      #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    84
	      #translateLabel: true
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    85
	      #labelChannel: #classCategoryLabelHolder
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    86
	      #menu: #menuHolder
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    87
	    )
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    88
	   )
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    89
         
5592
d9730a8d7c52 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5591
diff changeset
    90
	)
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    91
      )
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    92
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    93
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
windowSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
    "This resource specification was automatically generated
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
     by the UIPainter of ST/X."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    97
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    98
    "Do not manually edit this!! If it is corrupted,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    99
     the UIPainter may not be able to read the specification."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   100
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   101
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   102
     UIPainter new openOnClass:ClassCategoryList andSelector:#windowSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   103
     ClassCategoryList new openInterface:#windowSpec
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   104
     ClassCategoryList open
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   105
    "
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   106
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   107
    <resource: #canvas>
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   108
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   109
    ^ 
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   110
     #(#FullSpec
6468
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   111
        #name: #windowSpec
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   112
        #window: 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   113
       #(#WindowSpec
6468
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   114
          #label: 'ClassCategoryList'
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   115
          #name: 'ClassCategoryList'
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   116
          #min: #(#Point 0 0)
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   117
          #bounds: #(#Rectangle 13 23 313 323)
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   118
        )
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   119
        #component: 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   120
       #(#SpecCollection
6468
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   121
          #collection: #(
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   122
           #(#SequenceViewSpec
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   123
              #name: 'List'
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   124
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   125
              #tabable: true
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   126
              #model: #selectedCategories
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   127
              #menu: #menuHolder
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   128
              #hasHorizontalScrollBar: true
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   129
              #hasVerticalScrollBar: true
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   130
              #miniScrollerHorizontal: true
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   131
              #isMultiSelect: true
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   132
              #valueChangeSelector: #selectionChangedByClick
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   133
              #useIndex: false
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   134
              #sequenceList: #categoryList
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   135
              #doubleClickChannel: #doubleClickChannel
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   136
              #properties: 
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   137
             #(#PropertyListDictionary
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   138
                #dragArgument: nil
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   139
                #dropArgument: nil
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   140
                #canDropSelector: #canDropContext:
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   141
                #dropSelector: #doDropContext:
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   142
              )
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   143
            )
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   144
           )
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   145
         
6468
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   146
        )
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   147
      )
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   148
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   149
    "Created: / 5.2.2000 / 13:42:11 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   150
    "Modified: / 18.8.2000 / 20:11:49 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   151
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   152
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   153
!ClassCategoryList class methodsFor:'plugIn spec'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   154
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   155
aspectSelectors
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   156
    "This resource specification was automatically generated
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   157
     by the UIPainter of ST/X."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   158
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   159
    "Do not manually edit this. If it is corrupted,
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   160
     the UIPainter may not be able to read the specification."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   161
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   162
    "Return a description of exported aspects;
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   163
     these can be connected to aspects of an embedding application
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   164
     (if this app is embedded in a subCanvas)."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   165
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   166
    ^ #(
8700
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   167
        #(#doubleClickChannel #action )
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   168
        #forceGeneratorTrigger
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   169
        #hideUnloadedClasses
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   170
        #immediateUpdate
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   171
        #inGeneratorHolder
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   172
        #menuHolder
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   173
        #nameSpaceFilter
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   174
        #organizerMode
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   175
        #outGeneratorHolder
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   176
        #packageFilter
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   177
        #selectedCategories
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   178
        #selectionChangeCondition
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   179
        #slaveMode
368b61ebdad3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8446
diff changeset
   180
        #updateTrigger
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   181
      ).
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   182
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   183
8373
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   184
!ClassCategoryList class methodsFor:'special'!
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   185
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   186
addAdditionalCategory:aCategory
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   187
    "/ those are simulated - in ST/X, empty categories do not
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   188
    "/ really exist; however, during browsing, it makes sense.
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   189
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   190
    AdditionalEmptyCategories isNil ifTrue:[
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   191
        AdditionalEmptyCategories := Set new.
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   192
    ].
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   193
    AdditionalEmptyCategories add:aCategory.
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   194
    Smalltalk changed:#organization with:(nil -> aCategory).  "/ not really ... to force update
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   195
!
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   196
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   197
removeAdditionalCategories:aListOfCategories
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   198
    "/ those are simulated - in ST/X, empty categories do not
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   199
    "/ really exist; however, during browsing, it makes sense.
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   200
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   201
    AdditionalEmptyCategories isNil ifTrue:[^ self].
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   202
    aListOfCategories do:[:eachCategory |
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   203
        AdditionalEmptyCategories remove:eachCategory ifAbsent:nil.
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   204
    ].
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   205
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   206
    Smalltalk changed:#organization   "/ not really ... to force update
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   207
!
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   208
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   209
removeAllAdditionalCategories
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   210
    "/ those are simulated - in ST/X, empty categories do not
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   211
    "/ really exist; however, during browsing, it makes sense.
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   212
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   213
    AdditionalEmptyCategories := nil
8446
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   214
!
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   215
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   216
renameAdditionalCategories:oldNames to:newName
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   217
    "/ those are simulated - in ST/X, empty categories do not
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   218
    "/ really exist; however, during browsing, it makes sense.
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   219
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   220
    self removeAdditionalCategories:oldNames.
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   221
    self addAdditionalCategory:newName.
8373
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   222
! !
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   223
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   224
!ClassCategoryList methodsFor:'aspects'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   225
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   226
categoryList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   227
    categoryList isNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   228
	categoryList := ValueHolder new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   229
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   230
    ^ categoryList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   231
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   232
    "Created: / 25.2.2000 / 02:23:08 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   233
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   234
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   235
categoryList:aValueHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   236
    categoryList notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   237
	categoryList removeDependent:self
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   238
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   239
    categoryList := aValueHolder.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   240
    categoryList notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   241
	categoryList addDependent:self
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   242
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   243
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   244
    "Created: / 18.8.2000 / 15:21:42 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   245
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   246
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   247
classCategoryLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   248
    ^ self pseudoListLabelHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   249
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   250
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   251
selectedCategories
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   252
    ^ self selectionHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   253
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   254
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   255
selectedCategories:aValueHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   256
    ^ self selectionHolder:aValueHolder
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   257
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   258
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   259
!ClassCategoryList methodsFor:'change & update'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   260
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   261
delayedUpdate:something with:aParameter from:changedObject
6702
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   262
    |selectedCategories allSelectedBefore 
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   263
     nameListEntryForALL categoryOfClass wg|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   264
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   265
    selectedCategories := self selectedCategoriesStrings.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   266
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   267
    changedObject == Smalltalk ifTrue:[
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   268
        ((something == #classVariables) 
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   269
        or:[something == #classDefinition]) ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   270
            listValid == true ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   271
                categoryOfClass := aParameter category.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   272
                (categoryList value includes:categoryOfClass) ifFalse:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   273
                    self invalidateList.                
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   274
                ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   275
                slaveMode value ~~ true ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   276
                    (selectedCategories includes:categoryOfClass) ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   277
                        "/ a selected class has changed
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   278
                        "/ in order to give others a chance to update their list before,
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   279
                        "/ this one is always enqueued for delayed update (even if immediateUpdate is true)
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   280
                        "/ self enqueueDelayedUpdateOutputGenerator
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   281
                        self enqueueMessage:#updateOutputGenerator for:self arguments:#()
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   282
                    ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   283
                ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   284
            ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   285
            ^ self
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   286
        ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   287
        something == #newClass ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   288
            categoryOfClass := aParameter category.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   289
            listValid == false ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   290
                ^ self
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   291
            ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   292
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   293
            (categoryList value includes:categoryOfClass) ifFalse:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   294
                self invalidateList.                
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   295
            ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   296
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   297
            slaveMode value ~~ true ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   298
                (selectedCategories includes:categoryOfClass) ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   299
                    self enqueueDelayedUpdateOutputGenerator
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   300
                ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   301
            ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   302
            ^ self
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   303
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   304
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   305
        self invalidateList.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   306
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   307
        (something == #classRemove 
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   308
        or:[something == #projectOrganization 
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   309
        or:[something == #organization]]) ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   310
            slaveMode value ~~ true ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   311
                "/ sorry: cannot filter on category (already changed to #removed)
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   312
                self enqueueDelayedUpdateOutputGenerator
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   313
            ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   314
        ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   315
        ^ self
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   316
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   317
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   318
    changedObject == ChangeSet ifTrue:[
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   319
        "/ remove all other change notifications from the eventQueue
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   320
        wg := self windowGroup.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   321
        wg isNil ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   322
            "/ oops - should no longer be dependent...
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   323
            changedObject removeDependent:self.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   324
        ] ifFalse:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   325
            wg sensor 
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   326
                flushEventsFor:self 
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   327
                where:[:ev | ev isMessageSendEvent 
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   328
                             and:[ev selector == #delayedUpdate:with:from:
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   329
                             and:[(ev arguments at:3) == ChangeSet]]].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   330
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   331
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   332
        something == #addChange: ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   333
            "/ only need to invalidate, if that change changes my emphasis 
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   334
            "/ (i.e. if its a new methodChange)
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   335
            self window topView shown ifFalse:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   336
                self invalidateList.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   337
                ^ self
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   338
            ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   339
        
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   340
"/            self invalidateList.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   341
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   342
            aParameter isMethodChange ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   343
                aParameter changeClass notNil ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   344
                    (ChangeSet current 
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   345
                        count:[:chg | chg notNil and:[chg isMethodChange
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   346
                                      and:[ chg className = aParameter className ]]])
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   347
                    == 1 ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   348
                        "/ that methodChange is the first for this method.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   349
                        self colorizeCategoryAsChanged:(aParameter changeClass category).
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   350
                    ]
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   351
                ]
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   352
            ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   353
            ^ self
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   354
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   355
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   356
        self invalidateList.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   357
        ^ self
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   358
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   359
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   360
    changedObject == nameSpaceFilter ifTrue:[
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   361
        "/ all might be more or less than before ...
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   362
        allSelected := false.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   363
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   364
    changedObject == packageFilter ifTrue:[
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   365
        "/ all might be more or less than before ...
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   366
        allSelected := false.    
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
6702
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   369
    changedObject == self selectedCategories ifTrue:[
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   370
        categoryList isNil ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   371
            "/ oops - hurry up
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   372
            self invalidateList.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   373
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   375
        nameListEntryForALL := self class nameListEntryForALL.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   376
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   377
        selectedCategories size > 1 ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   378
            (selectedCategories includes:nameListEntryForALL) ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   379
                self makeSelectionOtherThanAllVisible.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   380
            ]
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   381
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   383
        "/ if all selected before AND allSelected after, no need to update the output generator
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   384
        allSelectedBefore := allSelected ? false.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   385
        allSelected := selectedCategories includes:nameListEntryForALL.
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   386
        (allSelectedBefore and:[allSelected]) ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   387
            ^ self
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   388
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   389
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   390
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
    super delayedUpdate:something with:aParameter from:changedObject
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
    "Created: / 5.2.2000 / 13:42:12 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
    "Modified: / 12.11.2001 / 19:36:16 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   396
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   397
forceUpdateList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   398
    self categoryList setValue:#().
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   399
    self updateList.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   400
    self categoryList changed.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   401
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   402
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   403
selectionChangedByClick
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   404
    "we are not interested in that - get another notification
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   405
     via the changed valueHolder"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   406
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   407
    "Created: / 11.2.2000 / 11:39:48 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   408
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   409
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   410
update:something with:aParameter from:changedObject
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   411
    |categoryOfClass|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   412
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   413
    changedObject == Smalltalk ifTrue:[
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   414
        (something == #methodInClass 
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   415
        or:[ something == #classComment
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   416
        or:[ something == #methodDictionary
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   417
        or:[ something == #methodTrap
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   418
        or:[ something == #methodInClassRemoved ]]]]) ifTrue:[
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   419
            ^ self
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   420
        ].
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   421
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   422
        (something == #classVariables
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   423
        or:[something == #classDefinition]) ifTrue:[
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   424
            categoryOfClass := aParameter category.
6702
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   425
            (self selectedCategoriesStrings includes:categoryOfClass) ifTrue:[
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
"/ self halt.
6677
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   427
                self updateOutputGenerator.                
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   428
            ].
bae57592a094 ignore some updates - speedup
Claus Gittinger <cg@exept.de>
parents: 6492
diff changeset
   429
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   430
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   431
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   432
"/    changedObject == ChangeSet ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   433
"/        something == #addChange: ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   434
"/            ^ self
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   435
"/        ]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   436
"/    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   437
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
    super update:something with:aParameter from:changedObject
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   439
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   440
    "Modified: / 5.11.2001 / 14:31:18 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   441
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   442
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   443
!ClassCategoryList methodsFor:'drag & drop'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   444
6468
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   445
canDropContext:aDropContext
7425
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   446
    |cat objects droppedClasses|
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   447
7425
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   448
    objects := aDropContext dropObjects collect:[:obj | obj theObject].
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   449
    (self objectsAreClassFiles:objects) ifTrue:[^ true].
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   450
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   451
    (objects conform:[:aClass | aClass isClass]) ifFalse:[^ false].
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   452
    droppedClasses := objects.
6468
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   453
    (droppedClasses contains:[:aClass | aClass isPrivate not]) ifFalse:[^ false].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   454
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   455
    cat := self categoryAtTargetPointOf:aDropContext.
6492
9c446e709216 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6468
diff changeset
   456
    cat isNil ifTrue:[ ^ false ].
9c446e709216 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6468
diff changeset
   457
    cat = '* obsolete *' ifTrue:[ ^  false ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   458
6468
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   459
    (droppedClasses contains:[:aClass | aClass category ~= cat]) ifFalse:[^ false].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   460
    ^ true.
7119
ae1ad5c150c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6978
diff changeset
   461
7425
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   462
    "Modified: / 17-10-2006 / 18:28:04 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   463
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   464
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   465
categoryAtTargetPointOf:aDropContext
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   466
    |p categoryListView lineNr cat|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   467
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   468
    p := aDropContext targetPoint.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   469
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   470
    categoryListView := aDropContext targetWidget.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   471
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   472
    lineNr := categoryListView lineAtY:p y.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   473
    lineNr isNil ifTrue:[^ nil].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   474
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   475
    cat := categoryList value at:lineNr.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   476
    cat := cat string.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   477
    cat = self class nameListEntryForALL ifTrue:[^ nil].
6702
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   478
    (cat endsWith:(self stringForExtensions)) ifTrue:[
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   479
        cat := cat copyWithoutLast:(self stringForExtensions size)
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   480
    ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   481
    ^ cat
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   482
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   483
6468
8047fc185bd8 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 6179
diff changeset
   484
doDropContext:aDropContext
7425
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   485
    |cat objects|
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   486
7425
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   487
    objects := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   488
    (objects conform:[:something | something isClass]) ifTrue:[
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   489
        cat := self categoryAtTargetPointOf:aDropContext.
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   490
        cat notNil ifTrue:[
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   491
            self masterApplication moveClasses:objects toCategory:cat.
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   492
        ].
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   493
        ^ self
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   494
    ].
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   495
    (objects conform:[:something | something isFilename]) ifTrue:[
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   496
        self dropClassFiles:objects.
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   497
        ^ self
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   498
    ].
7119
ae1ad5c150c7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6978
diff changeset
   499
7425
9e029102ef55 drag&drop:allow dropping st-files from the windows explorer
Claus Gittinger <cg@exept.de>
parents: 7119
diff changeset
   500
    "Modified: / 17-10-2006 / 18:29:25 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   501
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   502
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   503
!ClassCategoryList methodsFor:'generators'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   504
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   505
makeGenerator
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
    "return a generator which enumerates the classes from the selected category."
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   507
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   508
    |cats hideUnloadedClasses allName nameSpaceFilter packageFilter 
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   509
     showChangedClasses showUnloaded showUndocumented inclusionTest changedClasses|
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   510
6702
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   511
    cats := self selectedCategoriesStrings.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   512
    cats size == 0 ifTrue:[
6066
dbc820318498 care for nil-category in classes
Claus Gittinger <cg@exept.de>
parents: 5950
diff changeset
   513
        ^ #()
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   514
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   515
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   516
    allName := self class nameListEntryForALL.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   517
8345
b2e8f543ec50 being a categoryList with a fixed given list
Claus Gittinger <cg@exept.de>
parents: 7504
diff changeset
   518
    (cats includes:allName) ifTrue:[
b2e8f543ec50 being a categoryList with a fixed given list
Claus Gittinger <cg@exept.de>
parents: 7504
diff changeset
   519
        inGeneratorHolder value isOrderedCollection ifTrue:[
b2e8f543ec50 being a categoryList with a fixed given list
Claus Gittinger <cg@exept.de>
parents: 7504
diff changeset
   520
            cats := categoryList value copyWithout:allName.
b2e8f543ec50 being a categoryList with a fixed given list
Claus Gittinger <cg@exept.de>
parents: 7504
diff changeset
   521
        ]
b2e8f543ec50 being a categoryList with a fixed given list
Claus Gittinger <cg@exept.de>
parents: 7504
diff changeset
   522
    ].
b2e8f543ec50 being a categoryList with a fixed given list
Claus Gittinger <cg@exept.de>
parents: 7504
diff changeset
   523
8734
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   524
    showChangedClasses := cats includes:(self class nameListEntryForChanged).
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   525
    showUnloaded := cats includes:(self class nameListEntryForUnloaded).
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   526
    showUndocumented := cats includes:(self class nameListEntryForUndocumented).
8734
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   527
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   528
    hideUnloadedClasses := self hideUnloadedClasses value ? false.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   529
    nameSpaceFilter := self nameSpaceFilter value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   530
    nameSpaceFilter notNil ifTrue:[
6066
dbc820318498 care for nil-category in classes
Claus Gittinger <cg@exept.de>
parents: 5950
diff changeset
   531
        (nameSpaceFilter includes:allName) ifTrue:[nameSpaceFilter := nil].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   532
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   533
    packageFilter := self packageFilter value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   534
    packageFilter notNil ifTrue:[
6066
dbc820318498 care for nil-category in classes
Claus Gittinger <cg@exept.de>
parents: 5950
diff changeset
   535
        (packageFilter includes:allName) ifTrue:[packageFilter := nil].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   536
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   537
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   538
    (cats includes:allName) ifTrue:[
6066
dbc820318498 care for nil-category in classes
Claus Gittinger <cg@exept.de>
parents: 5950
diff changeset
   539
        hideUnloadedClasses ifTrue:[
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   540
            inclusionTest := [:cls | cls isLoaded].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   541
        ] ifFalse:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   542
            inclusionTest := [:cls | true].
6066
dbc820318498 care for nil-category in classes
Claus Gittinger <cg@exept.de>
parents: 5950
diff changeset
   543
        ].
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   544
    ] ifFalse:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   545
        inclusionTest := 
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   546
            [:cls | 
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   547
                |cat isLoaded included|
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   548
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   549
                isLoaded := cls isLoaded.
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   550
                included := isLoaded not and:[ showUnloaded ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   551
                included ifFalse:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   552
                    (hideUnloadedClasses not or:[isLoaded]) ifTrue:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   553
                        cat := cls category ? '* no category *'.
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   554
                        included := cats includes:cat.
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   555
                        included ifFalse:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   556
                            included := showChangedClasses 
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   557
                                        and:[ (changedClasses includes:cls theNonMetaclass)
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   558
                                                or:[(changedClasses includes:cls theMetaclass)] ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   559
                            included ifFalse:[
9005
897d90c333e7 changed:
Claus Gittinger <cg@exept.de>
parents: 8751
diff changeset
   560
                                included := showUndocumented and:[ isLoaded and:[ (cls theMetaclass includesSelector:#documentation) not ]].
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   561
                            ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   562
                        ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   563
                    ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   564
                ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   565
                included
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   566
            ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   567
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   568
8748
5abc96ba76eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8741
diff changeset
   569
    ^ Iterator on:[:whatToDo |
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   570
            showChangedClasses ifTrue:[ changedClasses := ChangeSet current changedClasses ].
8734
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   571
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   572
            Smalltalk allClassesDo:[:cls |
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   573
                (cls isRealNameSpace) ifFalse:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   574
                    (inclusionTest value:cls) ifTrue:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   575
                        (nameSpaceFilter isNil
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   576
                        or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   577
                            (packageFilter isNil
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   578
                            or:[self isClass:cls shownWithPackageFilter:packageFilter]) ifTrue:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   579
                                whatToDo value:cls
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   580
                            ]
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   581
                        ]
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   582
                    ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   583
                ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   584
            ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   585
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   586
7504
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   587
    "Created: / 05-02-2000 / 13:42:12 / cg"
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   588
    "Modified: / 10-11-2006 / 17:13:26 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   589
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   590
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
!ClassCategoryList methodsFor:'private'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   592
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   593
colorizeCategoryAsChanged:category
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   594
    |colorizedCategoryItem categoryList idx|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   595
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   596
    colorizedCategoryItem := self colorizeForChangedCode:category copy asText.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   597
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   598
    categoryList := self categoryList value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   599
    idx := categoryList indexOf:category.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   600
    idx ~~ 0 ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   601
	((categoryList at:idx) sameStringAndEmphasisAs:colorizedCategoryItem) ifFalse:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   602
	    categoryList at:idx put:colorizedCategoryItem.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   603
	    self categoryList changed.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   604
	]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   605
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   606
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   607
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   608
listOfCategories
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   609
    |categories hideUnloadedClasses generator nameSpaceFilter packageFilter allName
7504
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   610
     categoriesWithExtensions categoriesWithChangedCode categoriesWithRemoteChangedCode
9127
02f8167944f8 changed: #listOfCategories
Claus Gittinger <cg@exept.de>
parents: 9005
diff changeset
   611
     classesInChangeSet classesInRemoteChangeSet 
02f8167944f8 changed: #listOfCategories
Claus Gittinger <cg@exept.de>
parents: 9005
diff changeset
   612
     numClassesInChangeSet numClasses numUnloaded numUndocumented pseudoEntryColor|
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   613
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   614
    allName := self class nameListEntryForALL.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   615
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   616
    hideUnloadedClasses := self hideUnloadedClasses value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
    nameSpaceFilter := self nameSpaceFilter value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   618
    nameSpaceFilter notNil ifTrue:[
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   619
        (nameSpaceFilter includes:allName) ifTrue:[nameSpaceFilter := nil].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   620
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   621
    packageFilter := self packageFilter value.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   622
    packageFilter notNil ifTrue:[
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   623
        (packageFilter includes:allName) ifTrue:[packageFilter := nil].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   624
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   625
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   626
    numClasses := numUndocumented := numUnloaded := numClassesInChangeSet := 0.
8734
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   627
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   628
    categories := Set new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
    categoriesWithExtensions := Set new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   630
    categoriesWithChangedCode := Set new.
7504
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   631
    categoriesWithRemoteChangedCode := Set new.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   632
6978
6d2a2365dde8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6962
diff changeset
   633
    classesInChangeSet := ChangeSet current changedClasses.
6d2a2365dde8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6962
diff changeset
   634
    classesInChangeSet := classesInChangeSet collect:[:eachClass | eachClass theNonMetaclass].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   635
7504
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   636
    classesInRemoteChangeSet := SmallTeam isNil ifTrue:[#()] ifFalse:[ SmallTeam changedClasses ].
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   637
    classesInRemoteChangeSet := classesInRemoteChangeSet collect:[:each | each theNonMetaclass].
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   638
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   639
    classes := IdentitySet new.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   640
    inGeneratorHolder isNil ifTrue:[
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   641
        Smalltalk allClassesDo:[:cls | 
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   642
            |cat isLoaded|
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   643
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   644
            (cls isRealNameSpace) ifFalse:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   645
                (nameSpaceFilter isNil
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   646
                or:[self isClass:cls shownWithNameSpaceFilter:nameSpaceFilter]) ifTrue:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   647
                    (packageFilter isNil
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   648
                    or:[self isClass:cls shownWithPackageFilter:packageFilter]) ifTrue:[
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   650
                        isLoaded := cls isLoaded.
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   651
                        isLoaded ifTrue:[ 
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   652
                            numUnloaded := numUnloaded + 1. 
9005
897d90c333e7 changed:
Claus Gittinger <cg@exept.de>
parents: 8751
diff changeset
   653
                            (cls theMetaclass includesSelector:#documentation) ifFalse:[
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   654
                                numUndocumented := numUndocumented + 1.
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   655
                            ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   656
                        ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   657
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   658
                        (hideUnloadedClasses not or:[isLoaded])
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   659
                        ifTrue:[
8734
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   660
                            numClasses := numClasses + 1.
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   661
6066
dbc820318498 care for nil-category in classes
Claus Gittinger <cg@exept.de>
parents: 5950
diff changeset
   662
                            cat := cls category ? '* no category *'.
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   663
                            cat isString ifFalse:[self halt:'oops - strange category'].
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   664
                            categories add:cat.
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   665
                            classes add:cls.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   666
6978
6d2a2365dde8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6962
diff changeset
   667
                            (classesInChangeSet includes:cls theNonMetaclass) ifTrue:[
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   668
                                categoriesWithChangedCode add:cat
7504
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   669
                            ].
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   670
                            (classesInRemoteChangeSet includes:cls theNonMetaclass) ifTrue:[
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   671
                                categoriesWithRemoteChangedCode add:cat
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   672
                            ].
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   673
                            cls hasExtensions ifTrue:[
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   674
                                categoriesWithExtensions add:cat
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   675
                            ].
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   676
                        ]
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   677
                    ]
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   678
                ]
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   679
            ]
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   680
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   681
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   682
        "/ those are simulated - in ST/X, empty categories do not
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   683
        "/ really exist; however, during browsing, it makes sense.
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   684
        AdditionalEmptyCategories size > 0 ifTrue:[
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   685
            "/ remove those that are present ...
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   686
            AdditionalEmptyCategories := AdditionalEmptyCategories select:[:cat | (categories includes:cat) not].
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   687
            categories addAll:AdditionalEmptyCategories.
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   688
        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   689
    ] ifFalse:[
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   690
        generator := inGeneratorHolder value.
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   691
        generator isNil ifTrue:[^ #() ].
8345
b2e8f543ec50 being a categoryList with a fixed given list
Claus Gittinger <cg@exept.de>
parents: 7504
diff changeset
   692
        generator do:[:cat | categories add:cat string].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   693
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   694
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   695
    categories := categories asOrderedCollection.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   696
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   697
    categories sort.
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   698
    categories := 
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   699
        categories collect:[:cat | 
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   700
            (categoriesWithChangedCode includes:cat) ifTrue:[
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   701
                 (self colorizeForChangedCode:cat copy asText).
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   702
            ] ifFalse:[
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   703
                (categoriesWithExtensions includes:cat) ifTrue:[
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   704
                     (self colorizeForDifferentPackage:cat copy asText)
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   705
                     "/ cannot add a + here - need separate list for presentation and filter
6702
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   706
                     "/ cat , (self colorizeForDifferentPackage:self stringForExtensions)
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   707
                ] ifFalse:[
7504
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   708
                    (categoriesWithRemoteChangedCode includes:cat) ifTrue:[
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   709
                         (self colorizeForChangedCodeInSmallTeam:cat copy asText).
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   710
                    ] ifFalse:[
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   711
                         cat
7504
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   712
                    ]
5950
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   713
                ]
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   714
            ]
6bcc39c4e1ea *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5914
diff changeset
   715
        ].
8734
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   716
9127
02f8167944f8 changed: #listOfCategories
Claus Gittinger <cg@exept.de>
parents: 9005
diff changeset
   717
    pseudoEntryColor := self class pseudoEntryForegroundColor.
02f8167944f8 changed: #listOfCategories
Claus Gittinger <cg@exept.de>
parents: 9005
diff changeset
   718
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   719
    numUnloaded > 0 ifTrue:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   720
        "/ dont include count - makeGenerator compares against the un-expanded nameListEntry (sigh - need two lists)
9127
02f8167944f8 changed: #listOfCategories
Claus Gittinger <cg@exept.de>
parents: 9005
diff changeset
   721
        categories addFirst:((self class nameListEntryForUnloaded "bindWith:numClassesInChangeSet") allItalic colorizeAllWith:pseudoEntryColor).
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   722
    ].
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   723
    numUndocumented > 0 ifTrue:[
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   724
        "/ dont include count - makeGenerator compares against the un-expanded nameListEntry (sigh - need two lists)
9127
02f8167944f8 changed: #listOfCategories
Claus Gittinger <cg@exept.de>
parents: 9005
diff changeset
   725
        categories addFirst:((self class nameListEntryForUndocumented "bindWith:numClassesInChangeSet") allItalic colorizeAllWith:pseudoEntryColor).
8751
2cd8c5f2536c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8748
diff changeset
   726
    ].
8734
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   727
    numClassesInChangeSet := ChangeSet current changedClasses size.
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   728
    numClassesInChangeSet > 0 ifTrue:[
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   729
        "/ dont include count - makeGenerator compares against the un-expanded nameListEntry (sigh - need two lists)
9127
02f8167944f8 changed: #listOfCategories
Claus Gittinger <cg@exept.de>
parents: 9005
diff changeset
   730
        categories addFirst:((self class nameListEntryForChanged "bindWith:numClassesInChangeSet") allItalic colorizeAllWith:pseudoEntryColor).
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   731
    ].
8734
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   732
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   733
    categories size > 0 ifTrue:[
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   734
        categories size == 1 ifTrue:[
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   735
            self classCategoryLabelHolder value:(categories first)
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   736
        ].
9127
02f8167944f8 changed: #listOfCategories
Claus Gittinger <cg@exept.de>
parents: 9005
diff changeset
   737
        categories addFirst:((self class nameListEntryForALL "WithCount bindWith:numClasses") allItalic colorizeAllWith:pseudoEntryColor).
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   738
    ].
8734
d34b06b82112 + pseudo changed entry
Claus Gittinger <cg@exept.de>
parents: 8700
diff changeset
   739
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   740
    ^ categories
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   741
6950
0d03f8c9a9ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6702
diff changeset
   742
    "Created: / 05-02-2000 / 13:42:12 / cg"
7504
34ab937df8de preps for SmallTeam
Claus Gittinger <cg@exept.de>
parents: 7425
diff changeset
   743
    "Modified: / 10-11-2006 / 17:43:19 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   744
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   745
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   746
listView 
8741
75ab2cc4dd56 cleanup
Claus Gittinger <cg@exept.de>
parents: 8734
diff changeset
   747
    ^ self componentAt:#List
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   748
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   749
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   750
makeDependent
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   751
    Smalltalk addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   752
    ChangeSet addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   753
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   754
    "Created: / 5.2.2000 / 13:42:13 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   755
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   756
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   757
makeIndependent
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   758
    Smalltalk removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   759
    ChangeSet removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   760
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   761
    "Created: / 5.2.2000 / 13:42:13 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   762
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   763
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   764
makeItemVisible:item
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   765
    |idx listView|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   766
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   767
    idx := categoryList value indexOf:item.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   768
    idx ~~ 0 ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   769
	(listView := self listView) notNil ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   770
	    listView makeLineVisible:idx.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   771
	]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   772
    ]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   773
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   774
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   775
makeSelectionOtherThanAllVisible
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   776
    |selectedCategories item|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   777
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   778
    selectedCategories := self selectedCategoriesStrings.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   779
    "/ the first item after the *all* item
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   780
    item := (selectedCategories copy remove:self class nameListEntryForALL; yourself) first.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   781
    self makeItemVisible:item.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   782
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   783
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   784
release
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   785
    super release.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   786
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   787
    categoryList removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   788
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   789
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   790
selectedCategoriesStrings
6950
0d03f8c9a9ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6702
diff changeset
   791
    |selectedCategoriesHolder selectedCategories stringForExtensions|
0d03f8c9a9ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6702
diff changeset
   792
0d03f8c9a9ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6702
diff changeset
   793
    stringForExtensions := self stringForExtensions.
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   794
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   795
    selectedCategoriesHolder := self selectedCategories.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   796
    selectedCategories := selectedCategoriesHolder value ? #().
6950
0d03f8c9a9ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6702
diff changeset
   797
6702
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   798
    selectedCategories := selectedCategories 
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   799
                collect:[:each | 
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   800
                                |s|
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   801
                                s := each string.
6950
0d03f8c9a9ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6702
diff changeset
   802
                                (s endsWith:stringForExtensions) ifTrue:[
0d03f8c9a9ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6702
diff changeset
   803
                                    s := s copyWithoutLast:(stringForExtensions size).
6702
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   804
                                ].
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   805
                                s
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   806
                        ].
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   807
    ^ selectedCategories
6950
0d03f8c9a9ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6702
diff changeset
   808
0d03f8c9a9ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6702
diff changeset
   809
    "Modified: / 23-08-2006 / 11:38:26 / cg"
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   810
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   811
6702
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   812
stringForExtensions
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   813
    ^ ' [ + ]'
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   814
!
0f4c00e8eecc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6677
diff changeset
   815
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   816
updateList
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   817
    |oldList newList oldSelection newSelection prevClasses
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   818
     selectedCategoriesHolder|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   819
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   820
    selectedCategoriesHolder := self selectedCategories.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   821
    oldSelection := selectedCategoriesHolder value ? #().
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   822
    prevClasses := classes copy.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   823
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   824
    newList := self listOfCategories.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   825
    oldList := (self categoryList value) ? #().
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   826
    (newList sameContentsAs:oldList whenComparedWith:[:a :b | a sameStringAndEmphasisAs: b]) 
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   827
    ifFalse:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   828
	oldSelection size > 0 ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   829
	    selectedCategoriesHolder removeDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   830
	    selectedCategoriesHolder value:#().
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   831
	    selectedCategoriesHolder addDependent:self.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
	].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   833
	categoryList value:newList.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   834
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   835
	oldSelection size > 0 ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   836
	    newSelection := oldSelection select:[:cat | newList includes:cat].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   837
	    selectedCategoriesHolder value:newSelection.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   838
	]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   839
    ] ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   840
	"/ in case the same categories are present, but classes have changed ...
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   841
	(prevClasses isNil or:[(classes identicalContentsAs:prevClasses) not]) ifTrue:[
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   842
	    self updateOutputGenerator.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   843
	]
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
    ].
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   845
    listValid := true.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   846
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   847
    "Created: / 5.2.2000 / 13:42:13 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
    "Modified: / 18.8.2000 / 15:52:22 / cg"
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   849
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   850
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   851
!ClassCategoryList methodsFor:'setup'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   852
5909
95cd2d9822b3 commonPostBuild
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
   853
commonPostBuild
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
    |listView|
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   855
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   856
    listView := self listView.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   857
    listView notNil ifTrue:[
5909
95cd2d9822b3 commonPostBuild
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
   858
        listView scrollWhenUpdating:nil
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   859
    ].
5909
95cd2d9822b3 commonPostBuild
Claus Gittinger <cg@exept.de>
parents: 5592
diff changeset
   860
    super commonPostBuild
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   861
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   862
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   863
!ClassCategoryList methodsFor:'special'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   864
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
addAdditionalCategory:aCategory
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
    "/ those are simulated - in ST/X, empty categories do not
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   867
    "/ really exist; however, during browsing, it makes sense.
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
8373
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   869
    self class addAdditionalCategory:aCategory
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   871
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   872
removeAdditionalCategories:aListOfCategories
8373
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   873
    self class removeAdditionalCategories:aListOfCategories
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   874
!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   875
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   876
removeAllAdditionalCategories
8373
be8e0f309373 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8345
diff changeset
   877
    self class removeAllAdditionalCategories
8446
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   878
!
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   879
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   880
renameAdditionalCategories:oldNames to:newName
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   881
    "/ those are simulated - in ST/X, empty categories do not
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   882
    "/ really exist; however, during browsing, it makes sense.
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   883
42de63700611 category rename
Claus Gittinger <cg@exept.de>
parents: 8373
diff changeset
   884
    self class renameAdditionalCategories:oldNames to:newName
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   885
! !
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   886
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   887
!ClassCategoryList class methodsFor:'documentation'!
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
version
9463
c341b4dfa4bd no max window size !
Claus Gittinger <cg@exept.de>
parents: 9127
diff changeset
   890
    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.29 2010-05-07 12:27:27 cg Exp $'
9005
897d90c333e7 changed:
Claus Gittinger <cg@exept.de>
parents: 8751
diff changeset
   891
!
897d90c333e7 changed:
Claus Gittinger <cg@exept.de>
parents: 8751
diff changeset
   892
897d90c333e7 changed:
Claus Gittinger <cg@exept.de>
parents: 8751
diff changeset
   893
version_CVS
9463
c341b4dfa4bd no max window size !
Claus Gittinger <cg@exept.de>
parents: 9127
diff changeset
   894
    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.29 2010-05-07 12:27:27 cg Exp $'
5591
273637686948 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
! !