# Automatically generated sample implementation code
# PLEASE EDIT     PLEASE EDIT      PLEASE EDIT.
# Generated on Fri Aug 14 11:02:40 1998 with the following command:
# /usr/home/irving/bin/idl2perl -o . --impl copex.idl

use strict;

use Copex::Persistent_types;
use Copex::Persistent_skel;

# IDL:Copex/Persistent:1.0
package Copex::Persistent_impl;
use COPE::CORBA::Servant
@Copex::Persistent_impl::ISA=qw(CORBA::BOA::_Servant);
sub _skelname($) { 'Copex::Persistent_skel' }

use Copex::Temp_impl;

sub new {
    my($class, $p) = @_;
    my $self = {properties => $p};
    bless $self, $class;
    $CORBA::BOA::_The_Boa->activate_object_with_id($p->{'shape'}, $self);
}

# IDL:Copex/Persistent/new_temp:1.0
sub new_temp ($$) {
    my($self,$p) = @_;
    # The new() call will throw if the properties are invalid
    return Copex::Temp_impl->new($p);
}

# IDL:Copex/Persistent/GetProps:1.0
sub GetProps ($) {
    my($self) = @_;
    return $self->{properties};
}


#
# Initialize the (fixed) set of Persistent objects
#

use vars '@persist';

sub init() {
    push @persist, Copex::Persistent_impl->new({'shape' => "ball",
					  hue => 'Copex::colour::Red'});
    push @persist, Copex::Persistent_impl->new({'shape' => "cube",
					  hue => 'Copex::colour::Blue'});
    push @persist, Copex::Persistent_impl->new({'shape' => "point",
					  hue => 'Copex::colour::Yellow'});
    push @persist, Copex::Persistent_impl->new({'shape' => "dodecahedron",
					  hue => 'Copex::colour::Indigo'});
};


1;