metamodel: new MMLocalClass::has_global_property

Signed-off-by: Jean Privat <jean@pryen.org>

diff --git a/src/metamodel/abstractmetamodel.nit b/src/metamodel/abstractmetamodel.nit
index 260ea30..e69f4ab 100644 (file)
--- a/src/metamodel/abstractmetamodel.nit
+++ b/src/metamodel/abstractmetamodel.nit
@@ -502,6 +502,12 @@ class MMLocalClass
                register_local_property(prop)
        end
 
+       # Does the global property belong to the class?
+       meth has_global_property(glob: MMGlobalProperty): Bool
+       do
+               return _global_properties.has(glob)
+       end
+
        # Get a local proprty by its global property
        meth [](glob: MMGlobalProperty): MMLocalProperty
        do