Tools__OrganizerCanvas.st
branchjv
changeset 16571 cf319f2e56d0
parent 16300 0566688a620d
parent 16531 dff12b1402ae
child 18226 346376844040
equal deleted inserted replaced
16570:dc5e958a20dc 16571:cf319f2e56d0
    32 		selectedNamespaces selectedProjects selectionChangeCondition
    32 		selectedNamespaces selectedProjects selectionChangeCondition
    33 		nameSpaceFilterSelection markApplicationsHolder
    33 		nameSpaceFilterSelection markApplicationsHolder
    34 		sortVariablesByName showAllClassesInNameSpaceView
    34 		sortVariablesByName showAllClassesInNameSpaceView
    35 		showMethodInheritance showMethodComplexity showMethodTypeIcon
    35 		showMethodInheritance showMethodComplexity showMethodTypeIcon
    36 		methodVisibilityHolder showCoverageInformation
    36 		methodVisibilityHolder showCoverageInformation
    37 		sortByNameAndInheritance nameSpaceListWidgetVisibleHolder'
    37 		sortByNameAndInheritance nameSpaceListWidgetVisibleHolder
       
    38 		groupVariablesByInheritance'
    38 	classVariableNames:''
    39 	classVariableNames:''
    39 	poolDictionaries:''
    40 	poolDictionaries:''
    40 	category:'Interface-Browsers-New'
    41 	category:'Interface-Browsers-New'
    41 !
    42 !
    42 
    43 
   628                                  
   629                                  
   629                                 (SubChannelInfoSpec
   630                                 (SubChannelInfoSpec
   630                                    subAspect: sortVariablesByName
   631                                    subAspect: sortVariablesByName
   631                                    aspect: sortVariablesByName
   632                                    aspect: sortVariablesByName
   632                                  )
   633                                  )
       
   634                     (SubChannelInfoSpec
       
   635                        subAspect: groupVariablesByInheritance
       
   636                        aspect: groupVariablesByInheritance
       
   637                      )
   633                                 (SubChannelInfoSpec
   638                                 (SubChannelInfoSpec
   634                                    subAspect: slaveMode
   639                                    subAspect: slaveMode
   635                                    aspect: classListSlaveMode
   640                                    aspect: classListSlaveMode
   636                                  ) 
   641                                  ) 
   637                                )
   642                                )
  1362                                  
  1367                                  
  1363                                 (SubChannelInfoSpec
  1368                                 (SubChannelInfoSpec
  1364                                    subAspect: sortVariablesByName
  1369                                    subAspect: sortVariablesByName
  1365                                    aspect: sortVariablesByName
  1370                                    aspect: sortVariablesByName
  1366                                  )
  1371                                  )
       
  1372                     (SubChannelInfoSpec
       
  1373                        subAspect: groupVariablesByInheritance
       
  1374                        aspect: groupVariablesByInheritance
       
  1375                      )
  1367                                 (SubChannelInfoSpec
  1376                                 (SubChannelInfoSpec
  1368                                    subAspect: slaveMode
  1377                                    subAspect: slaveMode
  1369                                    aspect: classListSlaveMode
  1378                                    aspect: classListSlaveMode
  1370                                  ) 
  1379                                  ) 
  1371                                )
  1380                                )
  2413                                  
  2422                                  
  2414                                 (SubChannelInfoSpec
  2423                                 (SubChannelInfoSpec
  2415                                    subAspect: sortVariablesByName
  2424                                    subAspect: sortVariablesByName
  2416                                    aspect: sortVariablesByName
  2425                                    aspect: sortVariablesByName
  2417                                  ) 
  2426                                  ) 
       
  2427                     (SubChannelInfoSpec
       
  2428                        subAspect: groupVariablesByInheritance
       
  2429                        aspect: groupVariablesByInheritance
       
  2430                      )
  2418                                 (SubChannelInfoSpec
  2431                                 (SubChannelInfoSpec
  2419                                    subAspect: slaveMode
  2432                                    subAspect: slaveMode
  2420                                    aspect: classListSlaveMode
  2433                                    aspect: classListSlaveMode
  2421                                  )
  2434                                  )
  2422                                )
  2435                                )
  3177     ^ filterClassVars.
  3190     ^ filterClassVars.
  3178 
  3191 
  3179     "Created: / 24-02-2000 / 23:29:52 / cg"
  3192     "Created: / 24-02-2000 / 23:29:52 / cg"
  3180 !
  3193 !
  3181 
  3194 
       
  3195 groupVariablesByInheritance
       
  3196     groupVariablesByInheritance isNil ifTrue:[
       
  3197         groupVariablesByInheritance := ValueHolder with:true.
       
  3198     ].
       
  3199     ^ groupVariablesByInheritance.
       
  3200 !
       
  3201 
  3182 hidePrivateClasses
  3202 hidePrivateClasses
  3183     hidePrivateClasses isNil ifTrue:[
  3203     hidePrivateClasses isNil ifTrue:[
  3184         hidePrivateClasses := ValueHolder with:false.
  3204         hidePrivateClasses := ValueHolder with:false.
  3185 "/        hidePrivateClasses addDependent:self.
  3205 "/        hidePrivateClasses addDependent:self.
  3186     ].
  3206     ].
  3660     "Created: / 24.2.2000 / 23:29:52 / cg"
  3680     "Created: / 24.2.2000 / 23:29:52 / cg"
  3661 ! !
  3681 ! !
  3662 
  3682 
  3663 !OrganizerCanvas methodsFor:'aspects-exported'!
  3683 !OrganizerCanvas methodsFor:'aspects-exported'!
  3664 
  3684 
  3665 classCategoryDoubleClickChannel:something
  3685 classCategoryDoubleClickChannel:aValueHolder
  3666     "automatically generated by UIPainter ..."
  3686     "automatically generated by UIPainter ..."
  3667 
  3687 
  3668     "This method is used when I am embedded as subApplication,"
  3688     "This method is used when I am embedded as subApplication,"
  3669     "and the mainApp wants to connect its aspects to mine."
  3689     "and the mainApp wants to connect its aspects to mine."
  3670 
  3690 
  3671     "/ classCategoryDoubleClickChannel removeDependent:self.
  3691     classCategoryDoubleClickChannel := aValueHolder.
  3672 
       
  3673     classCategoryDoubleClickChannel := something.
       
  3674 
       
  3675     "/ something notNil ifTrue:[
       
  3676     "/     something addDependent:self.
       
  3677     "/ ].
       
  3678     ^ self.
       
  3679 
  3692 
  3680     "Created: / 18.8.2000 / 20:04:48 / cg"
  3693     "Created: / 18.8.2000 / 20:04:48 / cg"
  3681 !
  3694 !
  3682 
  3695 
  3683 classCategoryListMenuHolder:something
  3696 classCategoryListMenuHolder:aValueHolder
  3684     "automatically generated by UIPainter ..."
  3697     "automatically generated by UIPainter ..."
  3685 
  3698 
  3686     "This method is used when I am embedded as subApplication,"
  3699     "This method is used when I am embedded as subApplication,"
  3687     "and the mainApp wants to connect its aspects to mine."
  3700     "and the mainApp wants to connect its aspects to mine."
  3688 
  3701 
  3689     "/ classCategoryListMenuHolder removeDependent:self.
  3702     classCategoryListMenuHolder := aValueHolder.
  3690 
       
  3691     classCategoryListMenuHolder := something.
       
  3692     "/ something notNil ifTrue:[
       
  3693     "/     something addDependent:self.
       
  3694     "/ ].
       
  3695     ^ self.
       
  3696 
  3703 
  3697     "Created: / 18.2.2000 / 11:53:31 / cg"
  3704     "Created: / 18.2.2000 / 11:53:31 / cg"
  3698 !
  3705 !
  3699 
  3706 
  3700 classCategoryListUpdateTrigger:something
  3707 classCategoryListUpdateTrigger:aValueHolder
  3701     "automatically generated by UIPainter ..."
  3708     "automatically generated by UIPainter ..."
  3702 
  3709 
  3703     "This method is used when I am embedded as subApplication,"
  3710     "This method is used when I am embedded as subApplication,"
  3704     "and the mainApp wants to connect its aspects to mine."
  3711     "and the mainApp wants to connect its aspects to mine."
  3705 
  3712 
  3706     "/ classCategoryListUpdateTrigger removeDependent:self.
  3713     classCategoryListUpdateTrigger := aValueHolder.
  3707 
  3714 
  3708     classCategoryListUpdateTrigger := something.
       
  3709 
       
  3710     "/ something notNil ifTrue:[
       
  3711     "/     something addDependent:self.
       
  3712     "/ ].
       
  3713     ^ self.
  3715     ^ self.
  3714 
  3716 
  3715     "Created: / 18.2.2000 / 02:08:01 / cg"
  3717     "Created: / 18.2.2000 / 02:08:01 / cg"
  3716 !
  3718 !
  3717 
  3719 
  3870     "/     something addDependent:self.
  3872     "/     something addDependent:self.
  3871     "/ ].
  3873     "/ ].
  3872     ^ self.
  3874     ^ self.
  3873 
  3875 
  3874     "Created: / 24.2.2000 / 23:46:16 / cg"
  3876     "Created: / 24.2.2000 / 23:46:16 / cg"
       
  3877 !
       
  3878 
       
  3879 groupVariablesByInheritance:aValueHolder
       
  3880     "automatically generated by UIPainter ..."
       
  3881 
       
  3882     "This method is used when I am embedded as subApplication,"
       
  3883     "and the mainApp wants to connect its aspects to mine."
       
  3884 
       
  3885     groupVariablesByInheritance := aValueHolder.
  3875 !
  3886 !
  3876 
  3887 
  3877 hidePrivateClasses:something
  3888 hidePrivateClasses:something
  3878     "automatically generated by UIPainter ..."
  3889     "automatically generated by UIPainter ..."
  3879 
  3890 
  4274     "/ ].
  4285     "/ ].
  4275 
  4286 
  4276     "Created: / 04-07-2011 / 18:42:01 / cg"
  4287     "Created: / 04-07-2011 / 18:42:01 / cg"
  4277 !
  4288 !
  4278 
  4289 
  4279 sortVariablesByName:something
  4290 sortVariablesByName:aValueHolder
  4280     "automatically generated by UIPainter ..."
  4291     "automatically generated by UIPainter ..."
  4281 
  4292 
  4282     "This method is used when I am embedded as subApplication,"
  4293     "This method is used when I am embedded as subApplication,"
  4283     "and the mainApp wants to connect its aspects to mine."
  4294     "and the mainApp wants to connect its aspects to mine."
  4284 
  4295 
  4285     sortVariablesByName := something.
  4296     sortVariablesByName := aValueHolder.
  4286 !
  4297 !
  4287 
  4298 
  4288 variableDoubleClickChannel:something
  4299 variableDoubleClickChannel:aValueHolder
  4289     "automatically generated by UIPainter ..."
  4300     "automatically generated by UIPainter ..."
  4290 
  4301 
  4291     "This method is used when I am embedded as subApplication,"
  4302     "This method is used when I am embedded as subApplication,"
  4292     "and the mainApp wants to connect its aspects to mine."
  4303     "and the mainApp wants to connect its aspects to mine."
  4293 
  4304 
  4294     "/ |holder|
  4305     builder aspectAt:#variableDoubleClickChannel put:aValueHolder.
  4295 
       
  4296     "/ (holder := builder bindingAt:#variableDoubleClickChannel) notNil ifTrue:[
       
  4297     "/     holder removeDependent:self.
       
  4298     "/ ].
       
  4299     builder aspectAt:#variableDoubleClickChannel put:something.
       
  4300     "/ something notNil ifTrue:[
       
  4301     "/     something addDependent:self.
       
  4302     "/ ].
       
  4303     ^ self.
       
  4304 !
  4306 !
  4305 
  4307 
  4306 variableFilter:something
  4308 variableFilter:something
  4307     "automatically generated by UIPainter ..."
  4309     "automatically generated by UIPainter ..."
  4308 
  4310