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

diff --git a/src/model/model_viz.nit b/src/model/model_viz.nit
index 03ca3eb..305cd23 100644
--- a/src/model/model_viz.nit
+++ b/src/model/model_viz.nit
@@ -26,8 +26,6 @@ class MProjectTree
 	# The model where to look for information
 	var model: Model
 
-	init(model: Model) do self.model = model
-
 	redef fun display(a) do
 		if a isa MGroup then
 			if a.parent == null then return "{a.mproject.name} ({a.filepath.to_s})"
@@ -138,7 +136,7 @@ end
 # Interesting elements must be selected. See `mmodules`, ``
 # Display configuration can be set. See `cluster_group`, `project_group`
 class MProjectDot
-	super Streamable
+	super Writable
 
 	# The model where to look for information
 	var model: Model
@@ -163,7 +161,7 @@ class MProjectDot
 	var project_group = true is writable
 
 	# Recursively generate node and clusters for a mgroup
-	private fun dot_cluster(o: OStream, mgroup: MGroup)
+	private fun dot_cluster(o: Writer, mgroup: MGroup)
 	do
 		# Open the cluster, if required
 		if mgroup.parent == null then