Tools__ClassCategoryList.st
branchjv
changeset 15599 a602fe160939
parent 15566 184cea584be5
child 15650 5d58a8bfb8d4
equal deleted inserted replaced
15596:c11cc9c2974d 15599:a602fe160939
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 2004 by eXept Software AG
     2  COPYRIGHT (c) 2004 by eXept Software AG
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
   512             (self selectedCategoriesStrings includes:categoryOfClass) ifTrue:[
   510             (self selectedCategoriesStrings includes:categoryOfClass) ifTrue:[
   513                 "/ affects me
   511                 "/ affects me
   514                 self enqueueMessage:#updateOutputGenerator for:self arguments:nil.
   512                 self enqueueMessage:#updateOutputGenerator for:self arguments:nil.
   515                 ^ self.
   513                 ^ self.
   516             ].
   514             ].
   517             (rawCategoryList includes:categoryOfClass) ifTrue:[
   515             ((rawCategoryList ? #()) includes:categoryOfClass) ifTrue:[
   518                 ^ self
   516                 ^ self
   519             ].
   517             ].
   520             self invalidateList.
   518             self invalidateList.
   521             ^ self
   519             ^ self
   522         ].
   520         ].
   563 "/    ].
   561 "/    ].
   564 
   562 
   565     super update:something with:aParameter from:changedObject
   563     super update:something with:aParameter from:changedObject
   566 
   564 
   567     "Modified: / 20-07-2011 / 18:50:04 / cg"
   565     "Modified: / 20-07-2011 / 18:50:04 / cg"
   568     "Modified: / 25-03-2014 / 20:28:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   566     "Modified: / 23-04-2015 / 11:55:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   569 ! !
   567 ! !
   570 
   568 
   571 !ClassCategoryList methodsFor:'drag & drop'!
   569 !ClassCategoryList methodsFor:'drag & drop'!
   572 
   570 
   573 canDropContext:aDropContext
   571 canDropContext:aDropContext
  1203     ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.65 2015-03-05 12:29:47 cg Exp $'
  1201     ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.65 2015-03-05 12:29:47 cg Exp $'
  1204 !
  1202 !
  1205 
  1203 
  1206 version_CVS
  1204 version_CVS
  1207     ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.65 2015-03-05 12:29:47 cg Exp $'
  1205     ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.65 2015-03-05 12:29:47 cg Exp $'
       
  1206 !
       
  1207 
       
  1208 version_HG
       
  1209 
       
  1210     ^ '$Changeset: <not expanded> $'
  1208 ! !
  1211 ! !
  1209 
  1212