#  Copyright (c) 1997-2004
#  Ewgenij Gawrilow, Michael Joswig (Technische Universitaet Berlin, Germany)
#  http://www.math.tu-berlin.de/polymake,  mailto:polymake@math.tu-berlin.de
#
#  This program is free software; you can redistribute it and/or modify it
#  under the terms of the GNU General Public License as published by the
#  Free Software Foundation; either version 2, or (at your option) any
#  later version: http://www.gnu.org/licenses/gpl.txt.
#
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#-----------------------------------------------------------------------------
#  $Project: polymake $$Id: interactive.rules,v 1.4 2004/10/26 18:53:46 gawrilow Exp $

CONFIGURE : common::

package JavaView::Interactive::WindowParams;

method new(Visual::SchlegelEmbedding) {
   my $self=&_new;
   $self->client="schlegel_interactive";
   my $schlegel_emb=$self->embedding;
   my $schlegel_obj=$schlegel_emb->[0];
   @{$self->client_args}=($schlegel_obj, $schlegel_obj->Polytope, "==FD==", @$schlegel_emb[2..$#$schlegel_emb]);
   $self->launcher_class="de.tuberlin.polymake.polytope.SchlegelControl";
   @{$self->jars}=qw( polytope graph );
   %{$self->jre_properties} = ( "polymake.user.colors.proj" => $Visual::Schlegel::proj_facet,
				"polymake.user.colors.facets" => $Visual::Color::facets );
   $self;
}


# Local Variables:
# mode: perl
# c-basic-offset:3
# End:
