construction(initialize) :- %% now addressing geometry specification cpts
	feedback(geometry_sel).

feedback(geometry_sel, novice) :-
	chat_usr([
		'This button switches the focus of discussion to',
		'the material properties of the building.  ',
		'']).

const_current_zone(_Zone_number):-	%% for an existing zone
	zone_num(_Zone_number),
	asserta(status(old)),
	asserta(curr_zone(_Zone_number)),
	uset(curr_zone,_Zone_number),!,
	focus_concept(construction, construct_detail),!,
	construct_detail(initialize).


const_current_zone(_Zone_number):-	%% for a new zone
	chat_usr([
		'****  Note  ****',
		'This zone has not yet been defined,',
		'please complete GEOMETRY zone first.',
		'']).



