%%%%%b_bld_browse(on) :-		/* browser */
%%%%%	no_zones(_Zn_no),		%% should fail or be 0
%%%%%	_Zn_no > 0,
%%%%%	feedback(browse_error).

bld_browse(initialize) :-		/* ok to browse */
	(browsing ->
		true		/* only start one browser */
	; 
		assert(browsing),
		to_bb(application,start,browse)
	),
	feedback(browse_geom).

feedback(browse_error, novice):-
	chat_usr([
		'Sorry, the browse facility is designed to create a',
		'complete building geometry and you already have started',
		'inputting some zone descriptions.  In order to use the',
		'browse facility, you will have to destroy the geometry',
		' already input - use the "zap" button on this form iff',
		'you really want to do this',
		'']).

feedback(browse_error, expert):-
	chat_usr([
		'You already have a geometry!  Zap it',
		'']).


feedback(browse_geom, novice):-
	chat_usr([
		'The browse facility first asks you to select the type',
		'of building, then offers a number of topologies before',
		'finally permitting a limited dimensioning facility',
		'Browse cannot be used with any other geometry input',
		'method, as it is designed to create a complete building',
		'geometry.  However, the resulting geometry, once passed',
		'back to the ife, can be modified using any other method',
		'']).

feedback(browse_geom, expert):-
	chat_usr([
		'The browse facility first asks you to select the type',
		'of building, then offers a number of topologies before',
		'finally permitting a limited dimensioning facility',
		'']).



building_class(_Class_list):-
	offer_usr(browse_class, _Class_list).

browse_class(_Item):-
	to_bb(application, inform, browse, [['class:',_Item]]).

building_types(_Types_list):-
	offer_usr(browse_type, _Types_list).

browse_type(_Item):-
	to_bb(application, inform, browse, [['type:',_Item]]).

building_images(_Image_list):-
	offer_usr(browse_image, _Image_list).



