Tools__VariableList.st
changeset 17598 af37a090e067
parent 16707 88a409fbc3b0
child 17833 142fc607f04c
equal deleted inserted replaced
17597:c36a8ef26897 17598:af37a090e067
   548     "Created: / 27-11-2011 / 17:17:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   548     "Created: / 27-11-2011 / 17:17:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   549     "Modified: / 07-10-2013 / 08:28:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   549     "Modified: / 07-10-2013 / 08:28:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   550 !
   550 !
   551 
   551 
   552 listOfVariables
   552 listOfVariables
   553 
       
   554     |nameList numClasses classes class commonSubclass showingClassVars
   553     |nameList numClasses classes class commonSubclass showingClassVars
   555      sortByName groupByInheritance classesAlreadyProcessed hasSmallSense smallSenseManager info |
   554      sortByName groupByInheritance classesAlreadyProcessed hasSmallSense smallSenseManager info |
   556 
   555 
   557     classHolder isNil ifTrue:[
   556     classHolder isNil ifTrue:[
   558         "/ testing
   557         "/ testing
   680                     varNames := showingClassVars ifTrue:[ cls classVarNames ] ifFalse:[ cls instVarNames ].
   679                     varNames := showingClassVars ifTrue:[ cls classVarNames ] ifFalse:[ cls instVarNames ].
   681                     classShown := (cls ~~ class). "/ only append the class in the shown name, if the var is inherited
   680                     classShown := (cls ~~ class). "/ only append the class in the shown name, if the var is inherited
   682                     sortByName ifTrue:[
   681                     sortByName ifTrue:[
   683                         varNames := varNames copy sort.
   682                         varNames := varNames copy sort.
   684                     ].    
   683                     ].    
   685                     varNames reversed do:[:varName|
   684                     varNames reverseDo:[:varName|
   686                         |entry|
   685                         |entry|
   687                         nameList addFirst: (entry := self listEntryForClass: cls name: varName info: info).
   686                         nameList addFirst: (entry := self listEntryForClass: cls name: varName info: info).
   688                         classShown ifFalse:[ entry classShown:classShown ].
   687                         classShown ifFalse:[ entry classShown:classShown ].
   689                     ].
   688                     ].
   690                     groupByInheritance ifTrue:[
   689                     groupByInheritance ifTrue:[
   701     ^ nameList
   700     ^ nameList
   702 
   701 
   703     "Created: / 05-02-2000 / 13:42:11 / cg"
   702     "Created: / 05-02-2000 / 13:42:11 / cg"
   704     "Modified: / 08-08-2011 / 16:20:58 / cg"
   703     "Modified: / 08-08-2011 / 16:20:58 / cg"
   705     "Modified: / 28-10-2014 / 11:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   704     "Modified: / 28-10-2014 / 11:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   705     "Modified (format): / 25-07-2017 / 17:51:15 / stefan"
   706 !
   706 !
   707 
   707 
   708 postBuildWith:aBuilder
   708 postBuildWith:aBuilder
   709     |listView|
   709     |listView|
   710 
   710