-
- # Filter properties
- private fun properties(mclass: MClass): Set[E] is abstract
-end
-
-# Coloring for MMethods
-class MMethodColorer
- super MPropertyColorer[MMethod]
-
- init(mmodule: MModule) do super
-
- redef fun properties(mclass) do
- var properties = new HashSet[MMethod]
- for mprop in self.mmodule.properties(mclass) do
- if mprop isa MMethod then properties.add(mprop)
- end
- return properties
- end
-end
-
-# Coloring for MMAttributes
-class MAttributeColorer
- super MPropertyColorer[MAttribute]
-
- init(mmodule: MModule) do super
-
- redef fun properties(mclass) do
- var properties = new HashSet[MAttribute]
- for mprop in self.mmodule.properties(mclass) do
- if mprop isa MAttribute then properties.add(mprop)
- end
- return properties
- end
-end
-
-# Coloring for MVirtualTypeProps
-class MVirtualTypePropColorer
- super MPropertyColorer[MVirtualTypeProp]
-
- init(mmodule: MModule) do super
-
- redef fun properties(mclass) do
- var properties = new HashSet[MVirtualTypeProp]
- for mprop in self.mmodule.properties(mclass) do
- if mprop isa MVirtualTypeProp then properties.add(mprop)
- end
- return properties
- end