@gmf.node(label="displayName", figure="rounded", label.icon="true")
class ContentType extends ContentUnit {
  attr String group;
  @gmf.link(target.decoration="closedarrow", style="solid", width="2")
  ref ContentType parentContentType;
  @gmf.compartment(layout="list", collapsible="true")
  val Field[*] ownedField;
}

@gmf.node(label = "displayName")
class View extends ContentUnit {
  attr ViewType type;
  @gmf.compartment(layout="list", collapsible="false")
  val ViewField[*] ownedViewField;
}

var compartmentFigureName = "ContentTypeOwnedFieldCompartmentFigure";
changeCompartmentStyleForFields(compartmentFigureName);

compartmentFigureName = "ViewOwnedViewFieldCompartmentFigure";
changeCompartmentStyleForFields(compartmentFigureName);

operation changeCompartmentStyleForFields(compartmentFigureName:String){
	--For ownedField For List

	-- Find the compartment figure
	var listOwnedFieldCompartmentFigure = GmfGraph!Rectangle.all.selectOne(r|r.name = compartmentFigureName);

	-- ... and add a stack layout to it
	listOwnedFieldCompartmentFigure.layout = new GmfGraph!StackLayout;

	--For Text

	-- Find the Text figure
	var fieldFigure = GmfGraph!Rectangle.all.selectOne(r|r.name = 'TextFieldFigure');

	-- ... delete its border
	delete fieldFigure.border;

	-- ... set its outline to false
	fieldFigure.outline = false;

	-- ... and add a preferred size to it
	var preferredSize = new GmfGraph!Dimension;
	preferredSize.dx = 120;
	preferredSize.dy = 16;
	fieldFigure.maximumSize = preferredSize;

	--For Number

	--Find the Number figure
	fieldFigure = GmfGraph!Rectangle.all.selectOne(r|r.name = 'NumberFieldFigure');

	-- ... delete its border
	delete fieldFigure.border;

	-- ... set its outline to false
	fieldFigure.outline = false;

	-- ... and add a preferred size to it
	var preferredSize = new GmfGraph!Dimension;
	preferredSize.dx = 120;
	preferredSize.dy = 16;
	fieldFigure.maximumSize = preferredSize;

	--For Boolean

	--Find the Boolean figure
	fieldFigure = GmfGraph!Rectangle.all.selectOne(r|r.name = 'BooleanFieldFigure');

	-- ... delete its border
	delete fieldFigure.border;

	-- ... set its outline to false
	fieldFigure.outline = false;

	-- ... and add a preferred size to it
	var preferredSize = new GmfGraph!Dimension;
	preferredSize.dx = 120;
	preferredSize.dy = 16;
	fieldFigure.maximumSize = preferredSize;
	
	--For User

	--Find the User figure
	fieldFigure = GmfGraph!Rectangle.all.selectOne(r|r.name = 'UserFieldFigure');

	-- ... delete its border
	delete fieldFigure.border;

	-- ... set its outline to false
	fieldFigure.outline = false;

	-- ... and add a preferred size to it
	var preferredSize = new GmfGraph!Dimension;
	preferredSize.dx = 120;
	preferredSize.dy = 16;
	fieldFigure.maximumSize = preferredSize;
--*****************************************--
	
	--For ViewField
		
	--Find the View figure
	fieldFigure = GmfGraph!RoundedRectangle.all.selectOne(r|r.name = 'ViewFieldFigure');
	
	-- ... delete its border
	delete fieldFigure.border;

	-- ... set its outline to false
	fieldFigure.outline = false;

	-- ... and add a preferred size to it
	var preferredSize = new GmfGraph!Dimension;
	preferredSize.dx = 120;
	preferredSize.dy = 16;
	fieldFigure.maximumSize = preferredSize;