X-Git-Url: http://nitlanguage.org

diff --git a/src/doc/model_ext.nit b/src/doc/model_ext.nit
index fe74325..5870e72 100644
--- a/src/doc/model_ext.nit
+++ b/src/doc/model_ext.nit
@@ -24,7 +24,7 @@ intrude import model::model_base
 class MRawType
 	super MType
 
-	redef var model: Model
+	redef var model
 
 	# The parts that contitute the description of the type.
 	var parts: Sequence[MTypePart] = new Array[MTypePart]
@@ -71,7 +71,7 @@ end
 class MTypePart
 	super MEntity
 
-	redef var model: Model
+	redef var model
 
 	# The textual content.
 	var text: String
@@ -88,6 +88,28 @@ class MTypePart
 	end
 end
 
+# An inner class.
+class MInnerClass
+	super MProperty
+
+	redef type MPROPDEF: MInnerClassDef
+
+	# The actual class.
+	var inner: MClass
+end
+
+# An inner class definition.
+class MInnerClassDef
+	super MPropDef
+
+	redef type MPROPDEF: MInnerClassDef
+	redef type MPROPERTY: MInnerClass
+
+	# The actual class definition.
+	var inner: MClassDef
+end
+
+
 # The “package” visiblity.
 #
 # Any visibility roughly equivalent to the default visibility of Java, that is
@@ -95,4 +117,4 @@ end
 fun package_visibility: MVisibility do return once new MVisibility("package", 2)
 
 # A class kind with no equivalent semantic in Nit.
-fun raw_kind(s: String): MClassKind do return new MClassKind(s, false)
+fun raw_kind(s: String): MClassKind do return new MClassKind(s, false, false, false)