#!/usr/bin/perl
$REVISION = '$Id: rdf_browser,v 1.9 1999/12/14 23:04:34 eric Exp $ ';

use strict;
BEGIN {unshift@INC,('../../..');}
use W3C::Rdf::RdfApp;
package rdf_browser;
@rdf_browser::ISA = qw(W3C::Rdf::RdfApp);
use W3C::Util::Exception;


eval {
    my $tester = new rdf_browser;
    $tester->execute(\@ARGV);
}; if ($@) {if ($@) {if (my $ex = &catch('W3C::Util::Exception')) {
    $ex->printStackTrace;
    die "\n";
} else {die $@;}}}

sub render {
    my ($self) = @_;
    require W3C::Rdf::RdfVisualizer;
    my $rdfVisualizer = new W3C::Rdf::RdfVisualizer({-RdfDB => $self->{RDF_DB}, -algae => $self->{ARGS}{-algae}, 
						     -namespaceHandler => $self->{NAMESPACE_HANDLER}, 
						     -attributionsByInputSource => $self->{ATTRIBUTIONS}, 
						     -systemId => $self->{RDF_PARSER}->getSystemId, 
						     -mainWinTitle => 'RDF Browser', %{$self->{ARGS}{-props}}, 
						     -queryOptions => {-sourceOnly => $self->{ARGS}{-sourceOnly}}});
    $rdfVisualizer->browse;
    return;
}

