%%:@*  @xsl-xsl-slide

%%@ extern

%@include @phrase-@xsl-xsl-slide.txt
%@include @vr/library-slides.pl

%%@ slides 

:-object OBJECT : [slides].

var url = '@talk-@xsl-xsl-slide.wrl'.
var slideset = '@xsl-xsl-slide'.
var interface = '@xsl-xsl-slide-interface'.

main :-
	load(url),
	delay(5000),
	
	initialize,

	watch(slideset),
	connect(interface),

	delay(2000),
	!.

:- end_object OBJECT.  


%%</>