model: generalize MType::lookup_bound

[nit.git] / src / model / model_base.nit

diff --git a/src/model/model_base.nit b/src/model/model_base.nit
index 9420ab8..4ee1eb6 100644 (file)
--- a/src/model/model_base.nit
+++ b/src/model/model_base.nit
@@ -23,7 +23,7 @@ class Model
 end
 
 # A named and possibly documented entity in the model.
-# This class is usefull to generalize presentation of entities to the human.
+# This class is useful to generalize presentation of entities to the human.
 abstract class MEntity
        # The short (unqualified) name of this model entity
        fun name: String is abstract
@@ -58,11 +58,7 @@ class MVisibility
 
        private var level: Int
 
-       private init(s: String, level: Int)
-       do
-               self.to_s = s
-               self.level = level
-       end
+       # TODO: private init because enumeration.
 
        # Is self give less visibility than other
        # none < private < protected < public < intrude
@@ -72,8 +68,13 @@ class MVisibility
        end
 end
 
+# The visibility level `intrude`
 fun intrude_visibility: MVisibility do return once new MVisibility("intrude", 5)
+# The visibility level `public`
 fun public_visibility: MVisibility do return once new MVisibility("public", 4)
+# The visibility level `protected`
 fun protected_visibility: MVisibility do return once new MVisibility("protected", 3)
+# The visibility level `private`
 fun private_visibility: MVisibility do return once new MVisibility("private", 2)
+# The visibility level `none` (no visibility)
 fun none_visibility: MVisibility do return once new MVisibility("none", 1)