view magnatune/sparql-archived/SeRQL/Triple20/src/rdfs_hierarchy.pl @ 27:d95e683fbd35 tip

Enable CORS on urispace redirects as well

/*  File:    rdfs_hierarchy.pl
    Author:  Jan Wielemaker
    Created: Jun 17 2003
    Purpose: 
*/

:- module(rdf_hierarchy, []).
:- use_module(library(pce)).
:- use_module(rdf_tree).
:- use_module(library('semweb/rdf_db')).

:- pce_begin_class(rdfs_hierarchy, rdf_tree,
		   "Temporary stuff").

variable(domain,      prolog,       get,  "Domain of visualised objects").

initialise(H, Domain:[prolog]) :->
	send_super(H, initialise),
	(   Domain \== @default
	->  send(H, slot, domain, Domain)
	;   rdf_equal(D, rdfs:'Resource'),
	    send(H, slot, domain, D)
	).

expand_domain(H) :->
	"Show the starting points for the domain"::
	get(H, domain, Domain),
	expand_domain(Domain, H).

expand_domain(Domain, H) :-
	rdf_equal(Domain, rdfs:'Resource'), !,
	send(H, expand_root).
expand_domain(union_of(List), H) :- !,
	forall(member(D, List),
	       expand_domain(D, H)).
expand_domain(class(C), H) :- !,
	send(H, add, C, rdf_class_node).
expand_domain(all_values_from(C), H) :- !,
	get(H, add, C, rdf_class_node, Node),
	send(Node, collapsed, @off).
expand_domain(some_values_from(C), H) :- !,
	expand_domain(all_values_from(C), H).
expand_domain(one_of(List), H) :- !,
	forall(member(D, List),
	       send(H, add, D, rdf_individual_node)).
expand_domain(D, _) :-
	format('expand_domain: failed to handle ~p~n', [D]).


collapse_domain(H) :->
	send(H?root, collapsed, @on).

:- pce_group(search).

find(OT) :->
	"Start interactive find"::
	new(D, dialog('Search ontology')),
	send(D, append, new(TI, text_item(find))),
	send(D, append,
	     new(Find, button(find,
			      and(message(D, report, progress, 'Searching ...'),
				  message(OT, find_from, TI?selection, D),
				  message(D, destroy))))),
	send(D, append, button(cancel, message(D, destroy))),
	send(D, append, new(reporter)),
	send(D, resize_message, message(D, layout, size := @arg2)),
	send(Find, default_button, @on),
	send(Find, active, @off),
	send(D, transient_for, OT?frame),
	send(D, open_centered, ?(@event, position, @display)).

find_from(OT, String:for=name, How:how=[name],
         Fields:predicates=[chain|{*}], Max:max=[int]) :->
	"Compatibility"::
	send_super(OT, find, String, How, Fields, Max).

:- pce_end_class(rdfs_hierarchy).