class S_LABEL 

inherit

	S_CONTEXT
		redefine
			set_context_attributes
		end


creation

	make

	
feature 

	make (node: LABEL_C) is
		do
			save_attributes (node);
			if node.text_modified then
				text := node.text;
			end;
			left_alignment := node.left_alignment;
			left_alignment_modified := node.left_alignment_modified;
			resize_policy_disabled := node.resize_policy_disabled;
			resize_policy_disabled_modified := node.resize_policy_disabled_modified;
		end;

	context (a_parent: COMPOSITE_C): LABEL_C is
		do
			!!Result;
			create_context (Result, a_parent);
		end;

	set_context_attributes (a_context: LABEL_C) is
		do
			--if not (text = Void) then
				--a_context.set_text (text)
			--end; 
			-- alias visual_name
			if left_alignment_modified then
				a_context.set_left_alignment (left_alignment);
			end;
			if resize_policy_disabled_modified then
				a_context.disable_resize_policy (resize_policy_disabled);
			end;
			set_attributes (a_context);
		end;

	
feature {NONE}

	text: STRING;
		-- to be removed

	left_alignment: BOOLEAN;

	left_alignment_modified: BOOLEAN;

	resize_policy_disabled: BOOLEAN;

	resize_policy_disabled_modified: BOOLEAN;

end