#----------------------------------------------------------------------------------------------

register_action_handlers
	(
	'Add box no edit' => ['000-b', \&add_element, ['stencils/asciio/box', 0]],
	'Add box' => ['00S-B', \&add_element, ['stencils/asciio/box', 1]],
	'Add text' => ['000-t', \&add_element, ['stencils/asciio/text', 1]],
	'Add if' => ['000-i', \&add_element, ['stencils/asciio/boxes/if', 1]],
	'Add process' => ['000-p', \&add_element, ['stencils/asciio/boxes/process', 1]],
	'Add arrow' => ['000-a', \&add_element, ['stencils/asciio/wirl_arrow', 0]],
	) ;
	
#----------------------------------------------------------------------------------------------

sub add_element
{
my ($self, $name_and_edit) = @_ ;

$self->create_undo_snapshot() ;

$self->select_elements(0, @{$self->{ELEMENTS}}) ;

my ($name, $edit) = @{$name_and_edit} ;

my $element = $self->add_new_element_named($name, $self->{MOUSE_X}, $self->{MOUSE_Y}) ;

$element->edit() if $edit;

$self->select_elements(1, $element) ;

$self->update_display() ;
} ;